📄 login.asp
字号:
<!--#include file="inc/conn.asp"-->
<% dim LoginName, Pwd
LoginName=replace(trim(request("LoginName")),"'","''")
Pwd=trim(request("Pwd"))
'set objMd5=server.createobject("netpay.jmd5")
' Pwd=objMd5.macProcess(Pwd)
'set objMd5=nothing
if LoginName="" and Pwd="" then
'session name
LoginName=session("LoginName")
Pwd=session("Pwd")
end if
Set rs=server.createobject ("adodb.recordset")
rs.open "select * from tblUserLogin where LoginName='"&LoginName&"'",conn,1,1
if rs.eof then
ErrorMessage="用户名或密码错误，请重新输入。"
response.redirect("index.asp?errormessage="&Server.URLencode(ErrorMessage))
else
if Pwd=trim(rs("Pwd")) then
Session("LoginID")=trim(rs("ID"))
Session("LoginName")=LoginName
Session("UserName")=trim(rs("Name"))
Session("Pwd")=Pwd
Session("LoginOK")=true
else
ErrorMessage="用户名或密码错误，请重新输入。"
response.redirect("index.asp?errormessage="&Server.URLencode(ErrorMessage))
end if
end if
rs.close
set rs=nothing
%>
<!-- #include file="inc/close.asp" -->
<HTML>
<HEAD>
<TITLE>维护</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/main.css" type="text/css">
</HEAD>
<FRAMESET COLS="0,*" FRAMEBORDER="0" framespacing="0" bordercolor="#0047b0">
<FRAME NAME="FrmLeft" SRC="" MARGINWIDTH="10" MARGINHEIGHT="8" SCROLLING="no" FRAMEBORDER="no">
<FRAME NAME="FrmRight" SRC="Project/Project.asp" MARGINWIDTH="10" SCROLLING="auto" FRAMEBORDER="no">
</FRAMESET>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -