?? userlogin.asp
字號:
<%if Request.Cookies("HX_USER")("User_Name")="" then%>
<form method="post" action="UserChkLogin.asp?hx66=login">
<table width="175" height="136" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="6%"> </td>
<td width="90%" height="30"> 帳號:
<input class='input' maxlength='16' size='13' name='username' title='輸入您的ID' type='text'></td>
<td width="6%"> </td>
</tr>
<tr>
<td> </td>
<td height="30"> 密碼:
<input class='input' type='password' maxlength='20' size='13' name='password' value='' title='輸入您的密碼'></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height='25'>Cookie: <select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td align="center"> <input name="login" type="image" src="img/login.gif" width="39" height="25" border="0"> <a href="UserReg.asp" target=_blank><img src="img/reg.gif" width="39" height="25" border="0"></a></td></form>
<td> </td>
</tr>
<tr>
<td> </td>
<td align="center" valign="top"><font color="#800000">請注冊或登陸查看您的信息!</font></td>
<td> </td>
</tr>
</table>
<%else
dim userid
userid=request.Cookies("HX_USER")("uid")
sql="select * from [User] where userid=" & userid &""
set rs0=server.createobject("adodb.recordset")
rs0.open sql,conn,1,1
%>
<table width="175" height="136" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="6%"> </td>
<td width="90%"><img src="img/dot6.gif" width="16" height="15" border="0">歡迎您:<%=rs0("UserName")%></td>
<td width="4%"> </td>
</tr>
<tr>
<td> </td>
<td><img src="img/dot6.gif" width="16" height="15">您的權限:<%if rs0("UserGrade")=0 then%>普通會員
<%end if%><%if rs0("UserGrade")=1 then%><font color=red>VIP會員</font><%end if%></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><img src="img/dot6.gif" width="16" height="15">您的積分:<%=rs0("points")%> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><img src="img/dot6.gif" width="16" height="15">登錄次數:<%=rs0("LoginTimes")%> 次 </td>
<td> </td>
</tr>
<%
rs0.Close
sql="select * from message where incept='"&Request.Cookies("HX_USER")("User_Name")&"' order by flag"
rs0.open sql,conn,1,1
if not rs0.eof then
%>
<tr>
<td> </td>
<td><img src="img/dot6.gif" width="16" height="15"><a href="javascript:;" onFocus="if(this.blur)this.blur()" onClick="window.open('Messager.asp?action=inbox','_blank','menubar=no,toolbar=no,status=no,dependent=no,scrollbars=yes,Width=430,Height=350,top=98,left=72')">您的短信箱<%if rs0("flag")<>0 then%>(無短信)<%else%><font color=red><b>(新短信)</b></font><bgsound src="img/mail.wav" loop="1"><%end if%></a> </td>
<td> </td>
</tr>
<%else%>
<tr>
<td> </td>
<td><img src="img/dot6.gif" width="16" height="15"><a href="javascript:;" onFocus="if(this.blur)this.blur()" onClick="window.open('Messager.asp?action=inbox','_blank','menubar=no,toolbar=no,status=no,dependent=no,scrollbars=yes,Width=430,Height=350,top=98,left=72')">您的短信箱(無短信)</a> </td>
<td> </td>
</tr>
<%
end if
rs0.close
%>
<tr>
<td> </td>
<td><img src="img/dot4.gif" width="16" height="15"><a href="Userkzmb.asp" target=_blank>控制面板</a><img src="img/dot5.gif" width="16" height="15"><a href="UserChkLogin.asp?hx66=logout">安全退出</a></td>
<td> </td>
</tr>
</table>
<%end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -