📄 user_login.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="../md5/md5.asp"-->
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>七彩影视</title>
<link href="../images/style.css" rel="stylesheet" type="text/css">
<%
'用户信息
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%>
<%=timmb%><%=timemb%><%=mbname%><%=why%>
<%'网吧用户IP自动登录
function LockmbIP(sip)
dim str1,str2,str3,str4
dim num,csk
lockmbIP=false
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
else
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
sql20="select count(*) from goip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
set csk=conn.execute(sql20)
Set csk3=Server.CreateObject("ADODB.Recordset")
sql21="select * from goip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
csk3.open sql21,conn,1,3
if csk3.eof and csk3.bof then
else
mbname=csk3("mbname")
timmb=csk3("tim")
timemb=csk3("time")
why=csk3("why")
end if
if csk(0)>0 then
lockmbIP=true
end if
set csk=nothing
end if
end if
end function
%>
<body topmargin="0" leftmargin="0">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<table width="154" border="0" cellpadding="0" cellspacing="0" bgcolor="#C3EF26">
<tr>
<td width="154">
<table align="center" border="0" cellpadding="0" cellspacing="0" width="149">
<%
if LockmbIP(Request.ServerVariables("REMOTE_ADDR")) then%>
<br><p align="center" class=11p16h>欢迎光临<font color=red><%=mbname%></font><br>
<%response.write ""&Request.ServerVariables("REMOTE_ADDR")&"<br>"
if now() > timemb then
response.write "<font color=red>网吧帐号已经到期请尽快续费</font><br><br>"
else
response.write "网吧帐号到期时间<br>"
response.write ""&timemb&"<br><br>"
end if
else
Set ts=Conn.execute("Select * FROM online WHERE username='"& userid & "'")
if ts.eof or request.cookies("okerer")="" or chkcookie(request.cookies("userid"))="" then
%>
</tr>
</table>
<%if request.cookies("okerer")="" then%>
<form method="POST" language="javascript" name="form_hydl" action="userpass.asp" target=_self>
<table align="center" border="0" cellpadding="3" cellspacing="0" width="148" height="69">
<tr>
<td class="cn_M" width="75" height="19">
<p align="center"> <font color="3B591B" face="宋体">用户名:</font></td>
<td width="61" height="19">
<INPUT size=9 name="userid" onFocus="javascript:this.select();" class="button2" style="float: left"><font size="2">
</font></td>
</tr>
<tr>
<td class="cn_M" align="center" width="75" height="24">
<p><font color="3B591B" face="宋体">密 码:</font></td>
<td align="center" width="61" height="24">
<INPUT type=password size=9 name="password" onFocus="javascript:this.select();" class="button2" style="float: left"><font size="2">
</font></td>
</tr>
<tr>
<TD align=right height=12 width="78">
<p align="center">
<FONT color=#3b591b>附加码:</FONT></TD>
<TD width="93"><INPUT class=button2 maxLength=4 name=validateCode
onfocus=javascript:this.select(); size=4>
<script src="verify.asp"></script>
</TD> </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="97%" height="7">
<tr>
<td width="100%" height="7">
<p align="center">
<font face="宋体">
<input type="submit" name="Submit" value=" 登 录 " class="button1"></font><font size="2">
</font>
<INPUT name=Submit2 type=button class=button1 onClick="MM_goToURL('top','reguser.asp');return document.MM_returnValue" value=" 注 册 ">
</table>
</form>
<%end if%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="29">
<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="宋体" color="#FF0000"><%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%><%=oklook%></font>：<font color="#FF0000"><%=request.cookies("userid")%></font>
<br>
<%if rs("baoyue")=0 then
baoyue="计点"
elseif rs("baoyue")=1 then
baoyue="包月"
end if
%>消费模式：<font color="#FF0000"><%=baoyue%></font><br>
<%
money=rs("money")
count=rs("usercount")
if rs("baoyue")=1 then
if money-now()>=1 then
canlook=money-now()
canlook=formatnumber(canlook,1)
response.write"剩余天数："&canlook&"天<br>"
else
response.write"剩余天数：没有天数<br>"
end if
else
response.write"剩余点数：<font color=#FF0000>"&rs("usercount")&"</font> 点<br>"
end if
%>
<input type="button" name="sendadmin" class=button1 id="sendadmin" value="给管理员发短消息" onClick="javascript:window.open('sendadmin.asp','意见建议','width=550,height=380')">
<tr> <%userinfo(RS("id"))%>
<td height="29">
<FONT color=#3b591b><font face="宋体">如果离开，请</font> </FONT><a href="useout.asp" target=_top class=mayi><b>退出登陆</b></a>
<%end if
end if
end if%>
</table>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -