userlogin.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 78 行

<%if session("userlogin")<>"" then%>
<%
userid=session("uid")
sql="select * from [User] where userid=" & userid &""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
           <table width="175" height="136"  border="0" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF">
            <tr>
              <td width="6%">&nbsp;</td>
              <td width="90%"><span class="classname"><img src="img/dot6.gif" width="16" height="15" border="0">欢迎您：<%=rs("UserName")%></span></td>
              <td width="4%">&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><span class="classname"><img src="img/dot6.gif" width="16" height="15"></span>您的权限：<span class="classname">普通会员</span></td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td><span class="classname"><img src="img/dot6.gif" width="16" height="15"></span>登录次数：<span class="classname"><%=rs("LoginTimes")%> 次</span> &nbsp;</td>
              <td>&nbsp;</td>
            </tr>
<%
rs.Close
sql="select * from message where incept='"&Session("hx66User")&"' order by flag"
rs.open sql,conn,1,1
if not rs.eof then 
%>
            <tr>
              <td>&nbsp;</td>
              <td><span class="classname"><img src="img/dot6.gif" width="16" height="15"></span><a href="Messager.asp?action=inbox" target=_blank>我的短信箱<%if rs("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><span class="classname"><img src="img/dot6.gif" width="16" height="15"></span><a href="Messager.asp?action=inbox" target=_blank>我的短信箱(无短信)</a>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
<%
end if
rs.close
%>
            <tr>
              <td>&nbsp;</td>
              <td height="25"><span class="classname"><img src="img/dot4.gif" width="16" height="15"></span><a href="Userkzmb.asp" target=_blank>控制面板</a><span class="classname"><img src="img/dot5.gif" width="16" height="15"></span><a href="UserChkLogin.asp?hx66=logout">安全退出</a></td>
              <td>&nbsp;</td>
            </tr>
          </table>
           <%else%>
           <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' value='' name='password' title='输入您的密码'></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>
<%end if%>