28,405
社区成员
发帖
与我相关
我的任务
分享<%
if request.ServerVariables("REQUEST_METHOD")="POST" then
Name=trim(request("Name"))
pass=trim(request("pass"))
set rs=server.createobject("adodb.recordset")
sql="select * from yuangong where name='"&Name&"'"
rs.open sql,conn,1,3
if Rs.eof or Rs.bof then
word=Rs("pass")
if pass<>word then
response.write "<script>alert('你密码有错,请重新输入!您输入的密码为:"&pass&"');window.history.back(-1)</script>"
response.end
else
Rs("zhdl")=now()
rs.update
session("name")=rs("name")
session("zhiwu")=rs("zhiwu")
session("id")=Rs("id")
session("zhdl")=Rs("zhdl")
response.redirect "user/index.asp"
end if
else
response.write "<script>alert('用户名不存在,请重新输入!');window.history.back(-1)</script>"
response.end
end if
end if
%>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then
Name=trim(request("Name"))
pass=trim(request("pass"))
set rs=server.createobject("adodb.recordset")
sql="select * from yuangong where name='" & Name & "'"
rs.open sql,conn,1,1
if Not (Rs.eof and Rs.bof) then
word = Trim(Rs("pass").Value)
if pass<>word then
response.write "<script>alert('你密码有错,请重新输入!您输入的密码为:"&pass&"');window.history.back(-1)</script>"
response.end
else
Rs("zhdl")=now()
rs.update
session("name")=rs("name")
session("zhiwu")=rs("zhiwu")
session("id")=Rs("id")
session("zhdl")=Rs("zhdl")
Rs.Close
conn.Close
response.redirect "user/index.asp"
end if
else
response.write "<script>alert('用户名不存在,请重新输入!');window.history.back(-1)</script>"
response.end
Rs.Close
conn.Close
end if
end if
%>