?? 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 + -