asp实现表单验证定义.pdfVIP

login-1.htm !--#include file=connection.asp-- html titleLogin/title body div align=leftstrongLOGIN/strong/div form action=login-2.asp method=post pName: input type=text name=txtname size=20 /p pPass: input type=password name=txtpass size=20 /p p input type=submit value=submit name=submit a href=passsql.htmReg/a /p /form /body /html login-2.asp !--#include file=connection.asp-- % username=trim(request.form(txtname)) password=request.form(txtpass) set rs=server.createobject(adodb.recordset) sqlstr=select * from userinfo where username=username and password=pass word rs.open sqlstr,conn,1,3 if not rs.eof and not rs.bof then if password=rs(password) and username=rs(username) then session(name)=rs(username) session(pass)=rs(password) session(user_id)=rs(user_id) response.write(scriptalert(login is success);window.location.href(index.asp)/script ) else response.write(scriptalert(username or password is erro);window.location.href(logi n-1.htm)/script) response.end end if else response.Write(scriptalert(username or password is erro);history.back()/script) response.end end if % script language = VBScript function v_form() if document.myform.username.value = Then 用户 名没有 输 入 window.alert( 请输 入用 户 名) 给 出提示 document.myform.username.focus() 将用 户名 输 入框 设为输 入焦点 return false End If /script FORM METHOD=POST ACTION=# name=myform INPUT TYPE=text NAME=usernameINPUT TYPE=submitonfocus=v_form() /FORM script language=JavaScript function check() { if(document.login.Username.value== || document.login.Username.value==null) { alert(Please fill in Username!); document.login.Username.focus(); return false; } else if(document.login.Password.value==|| document.login.Password.value==null) { alert(Please fill in Password!); //document.login.password.focus(); return false; } //return true } /script form name=login method=post action=Chklogin.asp onSubmit=return check() pUsername: input t