userlogin.asp

新世纪影院源码

 <table border="0" cellpadding="0" cellspacing="0" width="142" >
              <tr>
                <td width="142" height="21" colspan="2" align="center">¤<font size="4">&nbsp;</font> 
 会员登陆</td>                                                                           
              </tr>
<%
sql="select id from user"
rs.open sql,conn,1,1
if not rs.eof or bof then
usernum=rs.recordcount
else
usernum=0
end if
rs.close
if request.cookies("username")="" or request.cookies("password")="" or request.cookies("logined")="" then
%>
              <form name="login" method="post" action="userpass.asp">
              <tr>
                <td width="54" height="22" bgcolor="#F0F0F0" valign="middle" align="center">会员：</td>
                <td width="88" height="22" bgcolor="#F0F0F0" valign="middle" align="center"> <input type="text" name="username" size="10" value="junping96" style="border:1px;border-color:black;border-style:solid;background:#F0f0f0"></td>
              </tr>
              <tr>
                <td width="54" height="22" bgcolor="#F0F0F0" valign="middle" align="center">密码：</td>
                <td width="88" height="22" bgcolor="#F0F0F0" valign="middle" align="center"><input type="password" name="password" size="10" value="1234567" style="border:1px;border-color:black;border-style:solid;background:#F0f0f0"></td>
              </tr>
               <tr>
                <td width="142" height="22" bgcolor="#F0F0F0" colspan="2" valign="middle" align="center"><br>
                  <input type="submit" value="登陆" name="B1" >&nbsp;&nbsp;                        
                  <input type="reset" value="重写" name="B2" style="BACKGROUND: #FF9900; border:1 solid black; COLOR: #000000; FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal">                  <br>
                  <br>
                  系统共有 <%                       
                response.write GCounter( usernum )%> 位用户</td>                       
              </tr>
              </form>
<%
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&request.cookies("username")&"' and password='"&request.cookies("password")&"'"
rs.open sql,conn,1,1
if rs.eof or bof then
response.write"没有该用户"
response.cookies("username").expires=-1
response.cookies("password").expires=-1
response.cookies("logined").expires=-1
else
userdj=rs("userdj")
if userdj=0 then
userdj="电影游客"
elseif userdj=1 then
userdj="普通会员"
elseif userdj=2 then
userdj="中级会员"
else
userdj="高级会员"
end if
response.write"<tr>"
response.write"<td width='142' align='left' valign='top'bgcolor='#f0f0f0' style='line-height:150%'>"
response.write"用户名称【"&request.cookies("username")&"】<br>"
response.write"用户等级【"&userdj&"】<br>"
response.write"上次登陆【"&rs("lasttime")&"】<br>"
response.write"今天登陆【"&rs("todaycs")&"】次<br>"
response.write"总共登陆【"&rs("allcs")&"】次<br>"
response.write"会员资料【<a href=user_zl.asp target=_blank>查看</a>】<br>"
response.write"</td></tr>"
end if
rs.close
end if
%>
            </table>