📄 userlogin.asp

📁 视频点播系统
💻 ASP
字号:

<!--#include file="inc/char.asp"-->
<%
'用户信息
   function userinfo(userID)
      dim infoRS
	  set infoRS=conn.execute("SELECT * FROM UserMsg where UserId="&userID&" and readle=false ") 
      if not infoRS.eof then
      response.Write("<a href=""##"" onClick=""javascript:window.open('userinfo.asp?userID="&userID&"','用户信息','width=500,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes')"">")
	  response.Write("<initArray()>")
	  Response.Write "<bgsound src=images/mail.wav  volume=100>"
%>	
	  
<SCRIPT language=JavaScript1.2>
function initArray() {
this.length = initArray.arguments.length;
for (var i = 0; i < this.length; i++) {
this[i] = initArray.arguments[i];
   }
}
var ctext = "信息栏：您有新信息";
var speed = 200;
var x = 0;
var color = new initArray(
"#FF0000", 
"#00aaff",
"#FF0000"
);
if(navigator.appName == "Netscape") {
document.write('<layer id="c">'+ctext+'</layer>');
}
if (navigator.appVersion.indexOf("MSIE") != -1){
document.write('<div id="c">'+ctext+'</div>');
}
function chcolor(){ 
if(navigator.appName == "Netscape") {
document.c.document.write('<font color="'+color[x]);
document.c.document.write('">'+ctext+'</font>');
document.c.document.close();
}
else if (navigator.appVersion.indexOf("MSIE") != -1){
document.all.c.style.color = color[x];
}
(x < color.length-1) ? x++ : x = 0;
}
setInterval("chcolor()",200);
</SCRIPT>
<%    response.Write("</a>")
      end if	 
      infoRS.close
	  set infoRS=nothing
   end function%>
<body topmargin="0" leftmargin="0">

<table width="160" border="0" cellpadding="0" cellspacing="0" bgcolor="#C3EF26">
  <tr> 
    <td bgcolor="#FFFFFF" background="pic/bj.gif"> 
      <table align="center" border="0" cellpadding="0" cellspacing="0" width="149">
                         <%if request.cookies("okerer")="" then%>
                        </tr>
      </table>
      <form method="POST" language="javascript" name="form_hydl" action="userpass.asp">
        <div align="center">
        <table border="0" cellpadding="3" cellspacing="0" width="160" background="pic/bj.gif">
          <tr> 
            <td class="cn_M" width="56"> 
            <p align="right"> <font face="宋体">用户名:</font></td>
            <td width="92"> 
            <INPUT size=9 name="userid" onFocus="javascript:this.select();" class="button2" style="border-style:outset; border-width:1px; float: left; background-color:#FFFFFF"><font size="2"> 
              </font></td>
          </tr>
          <tr> 
            <td class="cn_M" align="center" width="56">
            <p align="right"><font face="宋体">密&nbsp; 码:</font></td>
            <td align="center" width="92"> 
            <INPUT  type=password size=9 name="password" onFocus="javascript:this.select();"  class="button2" style="border-style:outset; border-width:1px; float: left; background-color:#FFFFFF"><font size="2"> 
              </font></td>
          </tr>
          <tr> 
            <td class="cn_M" align="center" width="56">
            <p align="right"><font face="宋体">验证码:</font></td>
            <td align="center" width="92"> 
                        <p align="left"> 
                        <INPUT class=button2 maxLength=4 name=validateCode                          
                  onfocus=javascript:this.select(); size=4 style="border-style: outset; border-width: 1px; background-color: #FFFFFF"><script src="verify.asp"></script></td>
          </tr>
        </table>
        </div>
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr> 
            <td width="100%">
            <p align="center">
                      <font size="2"><font color="#FF0000">本站暂时不接受会员注册</font>
						</font></td>
          </table>
 </form>
  <%end if%>
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <font size="2"> 
        <%if request.cookies("userid")<>"" and request.cookies("password")<>"" and request.cookies("okerer")<>"" then%>
        <%  
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,nlook,name,nos,password,id,baoyue,usercount,oklook from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
rs.open sql,conn,1,1%>
        </font> 
        <p align="center"><font face="宋体">登陆用户：<%=request.cookies("userid")%></font><font face="宋体" color="3B591B"> 
        <br>
          </font> 
											<font face="宋体">
          <%if rs("oklook")=0 then 
oklook="电影游客"
elseif rs("oklook")=1 then
oklook="普通会员"
elseif rs("oklook")=2 then
oklook="白银会员"
elseif rs("oklook")=3 then
oklook="黄金会员"
elseif rs("oklook")=4 then
oklook="钻石会员"
end if
money=rs("money")
if money-now()>=1 then
canlook=money-now()
canlook=formatnumber(canlook,1)
response.write"剩余天数："&canlook&"天<br>"
else
response.write"剩余天数：没有天数<br>"
end if

%>用户等级：<%=oklook%><br>
          <%if rs("baoyue")=0 then   
baoyue="计点会员"  
elseif rs("baoyue")=1 then  
baoyue="包月会员"  
end if  
%>会员类型：<%=baoyue%><br>
          </font> 
											<input type="button" class="button1" name="sendadmin" id="sendadmin" value="给管理员发短消息" onClick="javascript:window.open('sendadmin.asp','意见建议','width=550,height=380')"><tr> 
          <td height="23"> 
        <font face="宋体">如果离开，请</font> <a href="useout.asp"><b>
		<font color="#000000">退出登陆</font></b></a><br><%userinfo(RS("id"))%>
        <%
        end if%>
      </table>
    </td>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -