ASPIC老师:您好!第二次给我写的程序已收到,经测试很好用,谢谢您,谢谢您的无私帮助!!我真的很感激您!我是一个菜菜鸟,不懂编程,我正在做的网站主要靠DW来完成,对于在注册页面和登录页面中加入验证码验证这两个问题困扰了我很长时间,请教了不少人,可真能帮助我的只有您一个,所以我很感谢.注册页面您帮我解决了 ,接下来,在学生不耽误您的工作,不耽误您的休息的前提下 ,您能否再帮我一次:登录页面(loginok.asp)的验证问题:此问题的症结是:用户名,密码,验证码的验证都成功,但转到主页时,用户名却不能显示,这说明登录没有成功!问题很可能出在登录页面(loginok.asp)的程序上,所以,学生把这页的全部代码发给您,帮我解决一下,好吗?!(说明:主页我已做好显示登录用户名的程序,如果我不加验证码功能 ,在DW里做登录页面-----使用"服务器行为"------用户身份验证-----登录用户----来设置各项参数的话,就能成功地在主页显示用户名等信息)

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

%>

[ 本帖最后由 tepnidh 于 2009-8-7 05:21 编辑 ]

回复 4楼 aspic

非常感谢aspic老师的教诲,从您那些诚挚的话语中,学生看出来了,您是想真的帮助我,但决不是"受之以鱼",而是"授之以鱼".我会遵从您的指点,从头学起,好好地学,再一次感谢您,请让我再说一声:谢谢老师的教诲!