高校问答新光之神话ign:登陆检验
来源：百度文库 编辑：高校问答 时间：2024/05/05 00:53:30
<!--#include file="conn.asp"-->
<%Response.Buffer=True%>
<%
UserCountGet=request.form("UserCount")
UserPasswdGet=request.form("UserPasswd")
Set rs=Server.CreateObject("ADODB.Connection")
Sql ="Select * From puser where UserName='"&UserNameGet&"'and UserPasswd='"&UserPasswdGet&"'"
rs.open sql,MM_StudentConn_STRING,1,3
if Not (rs.bof and rs.eof) then
session("UserCount")=rs("UserCount")
session("UserName")=rs("UserName")
session("UserPasswd")=rs("UserPasswd")
session("UserAddress")=rs("UserAddress")
session("UserTele")=rs("UserTele")
session("UserEmail")=rs("UserEmail")
session("UserMemo")=rs("UserMemo")
rs.close
response.end%>
<script language="javascript">
alert("登录成功!")
document.location="index.asp"
</script>
<%else
rs.close %>
<script language=javascript>
alert("你的用户名户密码错误");
history.go(-1);
</script>
<% end if %>
<!--#include file="conn.asp"-->
<%
UserCount=trim(request.form("UserCount"))
UserPasswd=trim(request.form("UserPasswd"))
'用户名和密码验证
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from puser where UserCount="&UserCount&" and UserPasswd='"&UserPasswd&"'"
rs.open sql,MM_StudentConn_STRING,1,1
if rs.eof then
response.write "<script>alert('用户名或密码出错!');history.go(-1);</script>"
response.end
else
session("UserCount")=rs("UserCount")
session("UserName")=rs("UserName")
session("UserPasswd")=rs("UserPasswd")
session("UserAddress")=rs("UserAddress")
session("UserTele")=rs("UserTele")
session("UserEmail")=rs("UserEmail")
session("UserMemo")=rs("UserMemo")
rs.close
set rs=nothing
end if
%>
<script language="javascript">
alert("登陆成功!")
document.location="index.asp"
</script>