当前位置：首页 → 问答吧 → 密码验证

密码验证

时间：2011-08-16

来源：互联网

做了一个验证页，有几个语法问题，另外还有个''的问题，检查不到，请各位指教
Old_Password，New_Password_01，New_Password_02是从personal.asp传递过来的POST参数

<html>
<head>
<title>密码修改</title>
</head>
<body>
<%

dim ops,nps1,nps2
ops=upload.form("Old_Password")
nps1=upload.form("New_Password_01")
nps2=upload.form("New_Password_02")

if ops=='' then
response.write "旧密码不能为空，请重新输入！　[ <a href=# onclick=history.go(-1)>重新输入</a> ]"
response.end
end if

if nps1=='' then
response.write "新密码不能为空，请重新输入！　[ <a href=# onclick=history.go(-1)>重新输入</a> ]"
response.end
end if

if nps1<>nps2 then
response.write "两次输入的新密码不一样，请重新输入！　[ <a href=# onclick=history.go(-1)>重新输入</a> ]"
response.end
end if

dim psckconn
dim psckconnstr
psckconnstr="provider=microsoft.jet.oledb.4.0;data source=D:\\\\Graph\\\\db.mdb;jet OLEDB:system database=system.mdw"
set psckconn=server.createobject("ADODB.CONNECTION")
psckconn.open psconnstr
set psckrs=server.createobject("adodb.recordset")
pscksql="SELECT * FROM [Users] WHERE [UserName]='"+ Session("MM_Username")+"'"

'psckrs.cursorlocation=3
psckrs.open pscksql,psckconn,1,3

if personal.Fields.Item("PassWord").Value<>ops then
response.write "旧密码不正确，请重新输入！　[ <a href=# onclick=history.go(-1)>重新输入</a> ]"
response.end
end if

dim conn
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=D:\\\\Graph\\\\db.mdb;jet OLEDB:system database=system.mdw"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="update [Users] set [PassWord]= '"+ nps1 +"' where [UserName] = '"+ Session("MM_Username")+ "'"

'rs.cursorlocation=3
rs.open sql,conn,1,3

response.write "密码修改成功 [ <a href=personal.asp >返回</a> ]"
%>
</body>
</html>

作者: satherose 发布时间: 2011-08-16

if ops=='' then
=>
if ops='' then

vbs没有==

作者: tcwsyt 发布时间: 2011-08-16

密码验证

热门阅读

热门下载