📄 login.asp
字号:
<!--#include file="conn.asp"-->
<%
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：webmaster@xytime.com
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：13308715776 0871-3394913
Session.Timeout=120
if session("My_Login_ID")="" or session("My_Login_Name")="" or session("My_Pass_Word")="" then
gpy1=request("gpy1")
if gpy1="Login" then
LoginName=request("LoginName")
PassWord=request("PassWord")
ErrorMesg = ""
if LoginName="" or PassWord="" then
ErrorMesg="错误:用户名和密码必须填写!<br>"
end if
if InStr(LoginName,"'") > 0 then
ErrorMesg = ErrorMesg & "用户名中包含非法字符！<br>"
end if
if InStr(Password,"'") > 0 then
ErrorMesg = ErrorMesg & "密码中包含非法字符！<br>"
end if
if ErrorMesg = "" then
Query="select * from MyOper where LoginName='"&LoginName&"'"
set sql=conn.Execute(Query)
if sql.eof then Back("用户名错误！")
if sql("LoginPWD")<>Encrypt(PassWord) then Back("密码错误！")
session("My_Login_Name") = sql("LoginName")
session("My_Pass_Word") = sql("LoginPWD")
session("My_Login_ID")=sql("ID")
else
Back(ErrorMesg)
end if
else
LoginHtml
response.end
end if
else
Query="select * from MyOper where LoginName='"&session("My_Login_Name")&"'"
set sql=conn.Execute(Query)
if sql.eof then Back("用户名错误！")
if sql("LoginPWD")<>session("My_Pass_Word") then Back("密码错误！")
session("My_Login_Name") = sql("LoginName")
session("My_Pass_Word") = sql("LoginPWD")
session("My_Login_ID")=sql("ID")
gpy=""
end if
sub LoginHtml()
response.write "<body background='images/my_bg_16.jpg'>"
HtmlHead("用户注册")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.LoginName.value=="") {
window.alert ("请输入用户名!"); aa.LoginName.focus();return false}
if (aa.PassWord.value=="") {
window.alert ("请输入密码!"); aa.PassWord.focus();return false}}
// aaawin();
//-->
</SCRIPT>
<script language="JavaScript">
function aaawin()
{
aaa=window.open('about:blank','webmng','fullscreen=yes')
}
</script>
<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" onSubmit="return checkvalue()" >
<table border="0" bgcolor="rgb(214,211,206)" cellspacing="1" align=center>
<tr>
<td>用户名：</td>
<td><input type=text name=LoginName ></td>
</tr>
<tr>
<td>密 码：</td>
<td><input type=password name=PassWord></td>
</tr>
<tr>
<td colspan=2 class=pt2>
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value=" 注册" name="okbtn">
<input type=hidden name="gpy1" value="Login">
<input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/Delete.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value=" 放弃" name="okbtn" onClick="history.back();">
</td>
</tr>
</table>
<%
HtmlEnd
end sub
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：webmaster@xytime.com
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：13308715776 0871-3394913
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -