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 编辑 ]

见附件

不能再给你代码了
只能告诉你思路
用户表用一个字段保存用户级别 比如Flag(0普通会员1，vip会员，2超级管理员)
登录后设置Session保存用户名和用户级别
显示的地方做下判断
Flag是0、1、2 显示相应的东西和链接
最后：
    不要老去想着DW的插入什么什么那些
    你要真要用那些 那就不要学了
    如果真要学就动手去写写代码
    这些代码网上一抓就是一大把
    多下些下来看看
    然后动手写写
    估计可以更深的领会 相对于你要什么功能我给你什么代码

回复 4楼 aspic

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