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%">&nbsp;</td>
              <td width="90%" height="30">&nbsp;&nbsp;帐号:
                <input class='input' maxlength='16' size='13' name='username' title='输入您的ID' type='text'></td>
              <td width="6%">&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td height="30">&nbsp;&nbsp;密码:
                <input class='input' type='password' maxlength='20' size='13' name='password' value='' title='输入您的密码'></td>
              <td>&nbsp;</td>
            </tr>
             <tr>
             <td>&nbsp;</td>
	      <td height='25'>Cookie:&nbsp;&nbsp;<select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select></td>
              <td>&nbsp;</td>
	    </tr> 
            <tr>
              <td>&nbsp;</td>
              <td align="center">&nbsp;&nbsp;<input name="login" type="image" src="img/login.gif" width="39" height="25" border="0">&nbsp;&nbsp;&nbsp;<a href="UserReg.asp" target=_blank><img src="img/reg.gif" width="39" height="25" border="0"></a></td></form>
              <td>&nbsp;</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%">&nbsp;</td>
              <td width="90%"><img src="img/dot6.gif" width="16" height="15" border="0">欢迎您：<%=rs0("UserName")%></td>
              <td width="4%">&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</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>&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><img src="img/dot6.gif" width="16" height="15">您的积分：<%=rs0("points")%> &nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><img src="img/dot6.gif" width="16" height="15">登录次数：<%=rs0("LoginTimes")%> 次 &nbsp;</td>
              <td>&nbsp;</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>&nbsp;</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>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
<%else%>
             <tr>
              <td>&nbsp;</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>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
<%
end if
rs0.close
%>
            <tr>
              <td>&nbsp;</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>&nbsp;</td>
            </tr>
          </table>
<%end if%>