?? login.asp
字號:
<!--#include file="conn.asp" -->
<link rel="stylesheet" href="images/DefaultSkin.css" type="text/css">
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<script language="JavaScript" src="../images/js.js"></script>
<script language="JavaScript" src="title.js"></script>
<script language="Javascript">
function check(){
if(document.userlogin.username.value==""){alert("請輸入用戶名");document.userlogin.username.focus();return false;}
if(document.userlogin.password.value==""){alert("請輸入密碼");return false;}
if(document.userlogin.vercode.value==""){alert("請輸入驗證碼");return false;}
return true;
}
function checkfind(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("請輸入用戶名");
return false;
}
else{
location.href="../member/member.asp?action=getpass&username="+document.userlogin.username.value
}
return true;
}
function regchk(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("請在用戶欄輸入你想要注冊的用戶名");
return false;
}
if(document.userlogin.password.value==""){
alert("請在密碼欄輸入你想要注冊用戶的密碼");
return false;
}
if(document.userlogin.vercode.value==""){
alert("請輸入驗證碼");
return false;
}
else{
location.href="../member/member.asp?action=reg&username="+document.userlogin.username.value+"&password="+document.userlogin.password.value+"&vercode="+document.userlogin.vercode.value
}
}
</script>
<%
if session("username")="" then
call Test_netbaruser
%>
<table border="0" align="center" cellspacing="0" cellpadding="2">
<form name="userlogin" method="post" action="../member/member.asp?action=login" onsubmit="javascript:return check();" >
<tr>
<td>
<div align="left"><img src="images/u.gif" width="21" height="21" align="absmiddle">
用戶：</div>
</td>
<td>
<input type="text" name="username" size=12 tabindex="1" value="<%=Rq("username")%>" class="input">
</td>
</tr>
<tr>
<td><img src="images/p.gif" width="21" height="21" align="absmiddle"> 密碼：</td>
<td>
<input type="password" name="password" size=12 tabindex="2" value="<%=Rq("password")%>" class="input">
</td>
</tr>
<tr>
<td><img src="images/v.gif" width="21" height="21" align="absmiddle"> 驗證：</td>
<td>
<input type="text" name="vercode" size=4 tabindex="3" class="input">
<img src="../number.asp?n=<%=Timer%>" border="0" title="請在驗證框中輸入此號碼" align="absmiddle">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="hidden" name="submit" value="mysubmit">
<input type="image" border="0" name="submit" src="images/login.gif" align="absmiddle" tabindex="4" title="登陸">
<a href="####"><img src="images/reg.gif" align="absmiddle" onClick="return regchk();" tabindex="5" border="0" title="注冊"></a>
<a href="####" onclick="openusercenter(5)"><img src="images/buy_faq.gif" width="15" height="16" title="忘了密碼" align="absmiddle" border="0"></a>
</div>
</td>
</tr>
</form>
<%
else
'///////////////////////////////////////////////////////
' 登陸成功,讀取會員信息
'///////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from 會員 where 用戶名='"&session("username")&"'"
rs.open sql,conn,1,1
if not rs.EOF then
if rs("在線狀態")="否" then
session("userid")=""
session("username")=""
session("grade")=""
Call msgbox_j("用戶己離線，請重新登陸","location.href='login.asp'")
Response.end
end if
%>
<tr>
<td colspan=2>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="100">
<tr>
<td>
<div align="left">登陸用戶：<font color="#990000"><%=session("username")%></font></div>
</td>
</tr>
<tr>
<td>用戶級別：<span title="<%=vip_name%>"><%vip_name=split(vip_name,"|")
response.write vip_name(session("grade"))%>
</span></td>
</tr>
<tr>
<td>登陸次數：<%=rs("登陸次數")%></td>
</tr>
<tr>
<td>登陸IP：<%=Request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td>
<div align="center"><a href="####" onClick="openusercenter(1);"><img src="images/usercenter.gif" border="0" tabindex="6" align="absmiddle"></a> <a href="../member/member.asp?action=exit"><img src="images/exit.gif" border="0" tabindex="6" align="absmiddle"></a></div>
</td>
</tr>
</table></td>
</tr>
<%else
session("userid")=""
session("username")=""
session("grade")=""
Call msgbox_j("找不到用戶資料，請重新登陸","location.href='login.asp'")
end if '/////////////結束讀取//////////////////////////////////////
end if
set rs=nothing%>
</table>
<%cleartimeout_user%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -