📄 userlogin.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="md5/md5.asp"-->
<html>
<head>
<link href="css/css.css" rel="stylesheet" type="text/css">
<%set rs=conn.execute("select * from [home]")%>
<title><%=rs("homes")%></title>
<%
'用户信息
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%>
<%
dim mbname,timmb,timemb,timmbb,timembbb
%>
<%'网吧用户IP自动登录
function LockmbIP(sip)
dim str1,str2,str3,str4,sql20,csk3,sql21,why
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")
timmbb=""&Year(csk3("tim"))&"年"&Month(csk3("tim"))&"月"&Day(csk3("tim"))&"日"
timembbb=""&Year(csk3("time"))&"年"&Month(csk3("time"))&"月"&Day(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
%>
<style type="text/css">
<!--
.样式1 {color: #FF5B02}
-->
</style>
<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" background="images/index-bg5.gif" style="border-collapse: collapse" bordercolor="#000000">
<tr>
<td width="154">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="149" background="images/index-bg5.gif">
<%
if LockmbIP(Request.ServerVariables("REMOTE_ADDR")) then%>
<font color="#FF5B02"><b>
<br></b></font><p align="center" class=11p16h><font color="#FF5B02"><b>欢迎光临<%=mbname%><br>
你的IP是<%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>
</b></font>
</table>
</div>
<font color="#326496">
<%if request.cookies("okerer")="" then%>
</font>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<style type="text/css">
<!--
.样式2 {font-size: 9px}
.样式3 {font-size: 9pt}
-->
</style>
<style type="text/css">
<!--
.样式1 {font-size: 9px}
.样式2 {font-size: 9pt}
-->
</style>
<form name="login" method="post" action="userpass.asp" onsubmit="return checklogin()" target="_top">
<div align="center">
<table width="181" height="118" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><span class="样式3"><span class="样式2"><font color="#FF5B02">帐 户</font></span>
<input class="input" name="userid" size="13">
</span></td>
</tr>
<tr>
<td align="center"><span class="样式3"><span class="样式2"><font color="#FF5B02">密 码</font></span>
<input class="input" name="password" type="password" size="13">
</span></td>
</tr>
<tr>
<td height="4"><!--Blank--></td>
</tr>
<tr>
<td height="31" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="22"><!--Blank--></td>
<td align="center" rowspan="2"><input name="Submit2" type="image" src="images/login_bt.gif" width="57" height="31"></td>
<td align="center"><a href="#"><img src="images/login_password.gif" alt="找回密码" width="75" height="15" border="0" onClick="MM_openBrWindow('mobilejoin.asp','','width=549,height=300')"></a></td>
<td width="21"><!--Blank--></td>
</tr>
<tr>
<td width="22"><!--Blank--></td>
<td align="center"><a href="#"><img src="images/login_reg.gif" alt="注册会员" width="75" height="15" border="0" onClick="MM_openBrWindow('register.htm','','width=549,height=300')"></a></td>
<td width="21"><!--Blank--></td>
</tr>
</table></td>
</tr>
<tr>
<td height="2"><!--Blank--></td>
</tr>
<tr>
<td height="16" align="center" style="line-height:12pt"><span class="样式1"><span class="样式2"><span class="样式3 样式1"><span class="样式2"><a href="Member_Code/Mb_Login.asp" target="_blank"><font color="#FFA301">手机登录</font></a> <a href="getpwd.asp" target="_blank"><font color="#FFA301">取回密码</font><font color="#FFA301"></font></a></span></span></span></span></td>
</tr>
<tr>
<td height="16" align="center" style="line-height:12pt"><span class="样式1"><span class="样式2"><span class="样式3 样式1"><span class="样式2"><a href="member/czpt.asp" target="_blank"><font color="#FFA301">帐号冲值</font></a> <a href="help.htm" target="_blank"><font color="#FFA301">播放帮助</font><font color="#FFA301"></font></a></span></span></span></span></td>
</tr>
</table>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
</table>
</form>
<font color="#3B591B">
<%end if%>
</font>
<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"><%=oklook%><font face="宋体" color="#FF5B02"><%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="#FF5B02">：<%=request.cookies("userid")%>
<br>
<%if rs("baoyue")=0 then
baoyue="计点"
elseif rs("baoyue")=1 then
baoyue="包月"
end if
%>模式：<%=baoyue%><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 class=input type="button" name="sendadmin" id="sendadmin" value="给管理员发短消息" onClick="javascript:window.open('sendadmin.asp','意见建议','width=550,height=380')" style="color: #000000">
</font>
<tr> <%userinfo(RS("id"))%>
<td height="29">
<span class="样式1"><font face="宋体">服务:</font> </span><a href="member" target=_top class=mayi>
<font color="#FF5B02">用户中心</font></a><font color="#FF5B02">
</a> <br>
<span class="样式1"><font face="宋体">退出:</font> </span><a href="useout.asp" target=_top class=mayi>
<font color="#FF5B02">安全退出</font></a><font color="#FF5B02">
<%end if
end if
end if%>
</font>
</table>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -