请问有关登陆问题.

Dsoul 2001-10-16 04:23:29
一次登陆网站后,就可以不再输入用户名和密码来完成其他事情.
比如本论坛.
登陆->发布->退出(意外离线一段时间自动退出)
这是用session做的么?该怎样做?给出主要思想,及注意事项,最好有相关资料.
谢谢
...全文
121 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dsoul 2001-10-18
  • 打赏
  • 举报
回复
今天被nimda袭击,整个局域网瘫痪.最后我和服务器直连上来这里.

谢谢朋友们的帮助.
tonnycncn 2001-10-17
  • 打赏
  • 举报
回复
给你一个例子:
<%@ Language=VBScript %>
<%
dim RetVal
RetVal=LoginNow()
if RetVal=0 then
Response.Redirect "default.asp"
else
Response.Redirect "loginfail.asp"
end if
'else
Response.Redirect "default.asp"
'end if
function LoginNow()
'Dim oConn
'dim strconn
'Set oConn = Server.CreateObject("ADODB.Connection")
'strconn= "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/db/vip.mdb")
'oConn.open strconn
dim oConn
set oConn=server.CreateObject ("adodb.connection")
oConn.ConnectionTimeOut = 15
oConn.CommandTimeOut = 30
oConn.Open "dsn=ccisn", "", ""
dim rsCust
set rsCust=server.CreateObject ("adodb.recordset")
set rsCust.ActiveConnection =oConn
rsCust.Source ="select * from Customer where CustomerName='"&Request.Form ("txtName")&"' and Password='"&Request.Form ("PassWord")&"'"
rsCust.Open
if not rsCust.EOF then
Session("UserID")=rsCust("CustomerID") //
session("UserName")=rsCust("CustomerName") //这里是关键!可不要忘记了哦!
session("Level")=rsCust("LevelUp") //
LoginNow=0
else
LoginNow=-1
end if
rsCust.Close
end function
%>
Dsoul 2001-10-17
  • 打赏
  • 举报
回复
请问有没有详细一点的文档呢?比较急.谢谢
离子漂浮物 2001-10-17
  • 打赏
  • 举报
回复
和楼上有点大同小异。
<%
if session("变量名")<>赋的值 then
Response.Redirect "\"'如果没登陆就把他弹回首页去。
response.end
end if
%>
把上面这些放到一个文件里,
然后每个文件的开头加上
<!--#include file="文件名"-->

以上是我现在常用的一个方法
ninesky 2001-10-17
  • 打赏
  • 举报
回复
还有就是在退出时将session变量清空。
ninesky 2001-10-17
  • 打赏
  • 举报
回复
还有就是在退出时将session变量清空。
playmud 2001-10-17
  • 打赏
  • 举报
回复
登陆的时候给session赋值,然后每个页面开头检测
<%
if session("变量名")=赋的值 then
....
else
....
%>
<%end if%>
Dsoul 2001-10-17
  • 打赏
  • 举报
回复
我顶一下
freezwy 2001-10-16
  • 打赏
  • 举报
回复
SESSION或者COOKIES,根本是COOKIES,因为SESSION也是基于COOKIES的。
就是当用户登陆后,把一个标志登陆的信息写入SESSION,比如是用户名,SESSION("USERNAME")=XXX.以后,在需要登陆的页面中检测这个,如果没有就要给出登陆的表单。
而使用这些的地方,都是使用唯一标志的用户名为数据库操作关键字的。注意的事项就是数据库的设计了。

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧