下面是我做的一张简单的asp注册验证页面,zcok.asp.运行一切正常,但由于本人是菜菜鸟,不知在此页面上如何验证用户名(name)是否存在?两次输入的密码是否一致?(两个密码字段是:pwd1,pwd2)
我想求助的是-----------------就在此页面上(zcok.asp)如何写-----------------①用户名已存在?-----------②两次输入的密码是否一致?
我是怀着极大的希望来到这里的,我真的是菜菜鸟,就请您帮帮我吧!而且就在此页面上写,好吗?不胜感激!我会为您加高分的!!!




zcok.asp---------------注册验证页面,代码如下:
<%
'//从提交页获取表单内容//
dim name,sex,title,email,verifycode,pwd
name=replace(trim(request.form("name")),"'","")
sex=request.form("sex")
email=replace(trim(request.form("email")),"'","")
verifycode=request.form("verifycode")
pwd1=replace(trim(request.form("pwd1")),"'","")

if name="" or len(name)>12 then
response.write "<SCRIPT language=JavaScript>alert('昵称不能为空or超长！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end

elseif email="" Then
response.write "<SCRIPT language=JavaScript>alert('请填写正确的邮箱地址！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end

elseif verifycode="" or cstr(verifycode)<>cstr(Session("getcode")) then
response.write "<SCRIPT language=JavaScript>alert('验证码错误！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end

elseif pwd1="" or len(pwd1)>26 then
response.write "<SCRIPT language=JavaScript>alert('密码不能为空or超长！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end

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

dim sqlin
sqlin="insert into ad2 (name,sex,email,pwd1) values ('"+(name)+"','"+(sex)+"','"+(email)+"','"+(pwd1)+"')"
conn.execute(sqlin)
conn.close
set conn=nothing
response.redirect "cg2.asp"
end if
%>

稍微做些改动 加了验证码然后另外做了一个js验证的版本

回复 4楼 aspic

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
 
%>

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  
    Session("UserName")=rs("name")
    rs.close  
    set rs=nothing  
    conn.close()  
    set conn=nothing  
    response.Redirect("/index.asp")  
End If  
End If

加上Session就可以了，首面把Session("UserName")读取出

回复 6楼 myosotis

谢谢您,myosotis老师!来到这里没有几天,真的很高兴,遇上了这么多的好心人,好老师,在这里一并表示感谢!我会经常来这里请教各位老师的,希望您们帮助我,好吗?谢谢!

这么多人写了，我就不重复了，用Ajax吧，无刷新实现判断是否存在

http://www.这是一个方法

初学者还是先老老实实把传统方法掌握了再说Ajax

学习了

学习一下