📄 login_check.asp
字号:
<%@ Language=VBScript codepage ="936" %>
<%
Response.Expires=true
Response.Buffer = true
%>
<HTML>
<HEAD>
<TITLE>会员登录</TITLE>
<!--#include file="dbconn1.asp"-->
<%
dim UsernameGet,PasswordGet
dim rs,sql
UsernameGet=Request.Form("UsernameGet")
PasswordGet=Request.Form("PasswordGet")
sql="select * from qyml where User='"&UsernameGet&"' and Pass='"&PasswordGet&"' "
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
Response.Redirect ("chklogin.asp?login=1")
rs.close
response.end
else
%>
<%
'将用户资料记录到各自的Session变量中去
session("id")=rs("id")
session("user")=rs("user")
session("pass")=rs("pass")
session("question")=rs("question")
session("answer")=rs("answer")
session("Qymc")=rs("Qymc")
session("Qylb")=rs("Qylb")
session("Qyxz")=rs("Qyxz")
session("Zczj")=rs("Zczj")
session("Frdb")=rs("Frdb")
session("Ygrs")=rs("Ygrs")
session("Zh")=rs("zh")
session("Bank")=rs("Bank")
session("Nyye")=rs("Nyye")
session("Zycp")=rs("Zycp")
session("jygs")=rs("jygs")
session("Qyjj")=rs("Qyjj")
session("Sf")=rs("Sf")
session("City")=rs("City")
session("mobile")=rs("mobile")
session("Post")=rs("Post")
session("Address")=rs("Address")
session("Phone")=rs("Phone")
session("Fax")=rs("Fax")
session("Email")=rs("Email")
session("Web")=rs("Web")
session("name")=rs("name")
session("ch")=rs("ch")
session("bm")=rs("bm")
session("zw")=rs("zw")
session("Flag")=rs("Flag")
session("cimg")=rs("cimg")
session("idate")=rs("idate")
session("sortid")=rs("sortid")
session("typeid")=rs("typeid")
session("url")=rs("url")
Response.Redirect ("manageindex.asp")
Response.End
rs.close
set rs=nothing
conn.close
set conn=nothing
end if%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -