这是登录验证页面,loginok.asp,代码如下:

请教您啦:请您帮我看看这个页面问题出在哪儿呀?登录验证,用户名,密码,验证码验证功能都正常,可转到主页却没显示用户名,请您指点一下,好吗?

<!--#include file="inc/conn.asp" -->

<%
if Session("GetCode")="" or Session("GetCode") <> UCase(Request.Form("vcode"))  then
response.write "<SCRIPT language=JavaScript>alert('验证码错误!');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
else
Session("GetCode") = ""    '清空Session

Dim rs,sql,uid,pwd,expTime,date_last
uid=Trim(Request.Form("username"))
uid=replace(uid,"'","")
pwd=Trim(Request.Form("password"))
pwd=replace(pwd,"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where name='"&uid&"'and dlpwd1='" &pwd& "'"
rs.open sql,conn,1,1
If rs.Eof and rs.bof Then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<SCRIPT language=JavaScript>alert('用户名或密码错误！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"

else
    
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    response.Redirect("/index.asp")
End If
End If

%>

你用户名正确后都没有保存到SESSION或COOKIE里怎么能在前面显示呢！

你真好!我不懂程序,能帮我改一下吗?多谢啦!急呀.....

版主啊,您就帮帮我吧!怎样才能在主页显示登录用户名啊!!!在loginok.asp里怎样写啊!

If rs.Eof and rs.bof Then
rs.close
set rs=nothing
conn.close
set conn=nothing
session("UserName") = uid    '把用户名写入到session
主页调用
用户名:<%=Session("UserName")%>

……不可能吧。如果连用户名都不知如何在登录后显示，那么，你是怎样保证这个网页，是登录人操作还是未登录者操作的呢？这样的登录还有意义吗？
——换句话说，可能需要从头学习登录代码的意义了。找个简单的asp系统例子研究一下或许就明白了吧。

回复 7楼 yyjz

进来为什么不说话呀?......

呵呵，有意思，这小兄弟看来得从头系统学习一下了