chulilogin.asp
来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 44 行
ASP
44 行
<!--#include file="dbconn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
function trimstr(str)
mystr=str
mystr=trim(mystr)
mystr=replace(mystr,"'","")
mystr=replace(mystr,chr(34),"")
trimstr=mystr
end function
dim myuser,mypwd
myuser=trimstr(request.form("txtusername"))
mypwd=trimstr(request.form("txtpassword"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from userinfo where username='"&myuser&"' and password='"&mypwd&"'"
rs.open sql,conn,1,3
if rs.recordcount>0 then
session("username")=myuser
session("userID")=rs("ID")
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('登陆成功!\n点确定进管理中心!!!');" &vbCrLf&_
"window.location='manage.asp';"&vbCrLf&_
"</script>"
else
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('对不起,你选择的帐号或密码不正确!\n点确定返回上一页!!!');" &vbCrLf&_
"history.go(-1);"&vbCrLf&_
"</script>"
response.End
end if
rs.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?