?? login.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="nimda/config.asp"-->
<!--#include file="edulcni/conn.asp"--> <%
if NOT isempty(request("LoginSubmit")) then
dim UserName,UserPassword,checkcode
UserName=replace(trim(request("UserName")),"'","")
UserPassword=md5(replace(trim(request("UserPassword")),"'",""))
checkcode=replace(trim(request("checkcode")),"'","")
'if UserName="" or UserPassword="" or checkcode="" then
' call MsgBox("對不起，登錄失敗，請檢查您的登錄名和密碼","None","None")
'end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where UserName='"&UserName&"' and UserPassword='"&UserPassword&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if UserPassword=rs("UserPassword") then
response.Cookies(cookieName)("UserName")=trim(request("UserName"))
response.Cookies(cookieName)("vip")=rs("vip")
rs("LastLogin")=now()
rs("Userlogins")=rs("Userlogins")+1
dim Ip
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then
Ip=Request.ServerVariables("REMOTE_ADDR")
End if
rs("IP")=IP
rs.Update
rs.Close
set rs=nothing
response.redirect "muser.asp"
else
call MsgBox("對不起，您的用戶名或密碼有誤！","Back","None")
end if
else
call MsgBox("對不起，您的用戶名或密碼有誤！","Back","None")
end if
end if%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>E書部落—網上書城</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.UserName.value=="")
{
alert("友情提示!\n\n請完整輸入會員帳號!")
document.form.UserName.focus()
return false
}
else if (document.form.UserPassword.value=="")
{
alert("友情提示!\n\n請完整輸入會員密碼!")
document.form.UserPassword.focus()
return false
}
}
// -->
</script></head>
<body>
<!--#include file="head.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="218" align="left" valign="top" style="border-left: 1px dotted #65A8CF; border-top: 1px dotted #65A8CF; border-bottom: 1px dotted #65A8CF"><!--#include file="left.asp"--></td>
<td width="560" align="left" valign="top" style="border-left: 1px dotted #65A8CF; border-right:1px dotted #65A8CF; border-top: 1px dotted #65A8CF; border-bottom: 1px dotted #65A8CF"> <br> <br> <table cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="18"><img src="images/w.gif"></td>
<td style="color:#415373">用戶登陸</td>
</tr>
</table> <br> <form action="" method="post" name="loginfo" id="loginfo">
<table border="0" cellpadding="0" cellspacing="10" class="t1">
<tr>
<td width="170" height="22" align="right" ><span class="style2">用戶名：</span></td>
<td width="235" height="22" ><input name="UserName" type="text" class="inputstyle" id="UserName">
</td>
</tr>
<tr>
<td height="22" align="right" ><span class="style2">密 碼：</span></td>
<td height="22"><input name="UserPassword" type="Password" class="inputstyle" id="UserPassword"></td>
</tr>
<tr align="center">
<td height="22" colspan="2" ><input type="reset" name="Submit" value="重置">
<input name="LoginSubmit" ONCLICK="return checkuu();" type="submit" id="LoginSubmit" value="登錄">
</td>
</tr>
</table>
</form></td>
</tr>
</table>
<!--#include file="foot.htm"-->
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -