📄 mylook.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="ip.asp"-->
<% if request.cookies("userid")="" or request.cookies("password")="" then
%>
<SCRIPT>
function formcheck()
{
if (loginform.userid.value == "")
{
alert('请输入用户名。');
loginform.userid.focus();
return false;
}
if (loginform.password.value == "")
{
alert('请输入密码。');
loginform.password.focus();
return false;
}
if (loginform.validateCode.value=="")
{
alert('请输入附加码，附加码就在输入框右边。');
loginform.validateCode.focus();
return false;
}
return true;
}
</SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录</title>
<style><!--body, td, p, li, input, select{FONT-SIZE: 9pt; font-family:宋体; COLOR: #ffffff; font-family:Arial}
.fontshadow { width:100%; filter:dropshadow(color=#ffffff,offx=1,offy=1);}
A:link{COLOR: #ffffff; text-decoration: none;}
A:visited{COLOR: #ffffff; text-decoration: none;}
A:Active{color : #ffffff; TEXT-DECORATION: none;}
A:hover{color: #ffffff; TEXT-DECORATION: none;}
A.a1:link{COLOR: #000000; TEXT-DECORATION: none;}
A.a1:visited{COLOR: #000000; TEXT-DECORATION: none;}
A.a1:Active{color : #000000; TEXT-DECORATION: none;}
A.a1:hover{color : #000000; TEXT-DECORATION: none;}
A.a2:link{COLOR: #1B409B; TEXT-DECORATION: none;}
A.a2:visited{COLOR: #1B409B; TEXT-DECORATION: none;}
A.a2:Active{color : #1B409B; TEXT-DECORATION: none;}
A.a2:A:hover{color: #1B409B;T EXT-DECORATION: none;}
.L17{line-height:170%}
.L18{line-height:180%}
.L20{line-height:200%}
--></style>
</head>
<body bgcolor="#0F0DAE" text="0" leftmargin="0">
<table border="0" cellspacing="0" align=center style="border-collapse: collapse" bordercolor="#111111" width="359" id="AutoNumber1" cellpadding="0">
<TR>
<TD align="center" class="title">
<img border="0" src="images/login-top.jpg" width="359" height="85"></TD>
</TR>
<TR>
<TD valign="top" background="images/login-bg.jpg" > <table width="90%" border="0" align="center">
<FORM method=post name=loginform action="userpass.asp"
onsubmit="if (!formcheck()) return false;">
<TBODY>
<TR>
<TD align="center" height=35><FONT
color=#3b591b class="fontshadow"></FONT></TD>
<TD align="left" height=35><FONT
color=#3b591b class="fontshadow"><b>用 户 登 录</b></FONT></TD>
</TR>
<TR>
<TD align=right height=25 width="40%"><FONT
color=#3b591b class="fontshadow">用户名：</FONT></TD>
<TD width="65%"><INPUT name=userid
onfocus=javascript:this.select(); style="border: 1px solid #3655AA; font-size:9pt;color:#000000"" size=14></TD></TR>
<TR>
<TD align=right height=13 width="40%"><FONT
color=#3b591b class="fontshadow">密 码：</FONT></TD>
<TD><INPUT name=password
onfocus=javascript:this.select(); style="border: 1px solid #3655AA; font-size:9pt;color:#000000"" size=14 type=password></TD></TR>
<TR>
<TR>
<TD align=middle colSpan=2 height=25><input type="image" name="Submit" src="images/index-denglu.gif" width="62" height="18">  
<a href="reguser.asp" target=_blank>
<img border="0" src="images/index-zhuce.gif" width="62" height="18"></a></TD></TR> </form>
</table></TD>
</TR>
<tr>
<td><img border="0" src="images/login-bottom.gif" width="359" height="28"></td>
</tr>
</TABLE>
</body>
</html>
<%response.end
end if%>
<!--#include file="top2.asp"-->
<%
MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
typename=""
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
if request("page")="" then
page=0
end if
%>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from tolook where userid='"&Replace(request.cookies("userid"), "'", "''")&"' order by id desc"
rs.open sql,conn,1,1
if not rs.eof and rs.bof then
response.end
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"mylook.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"mylook.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"mylook.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#1B409B" width="778" id="AutoNumber12" cellpadding="0">
<tr>
<td width="100%" bgcolor="#1B409B" height="589">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="758" id="AutoNumber13" height="580" bgcolor="#4885FE" cellpadding="0">
<tr>
<td width="10" valign="top">
<img border="0" src="images/register-left1.gif" width="19" height="19"></td>
<td height="19" colspan="2">
</td>
<td width="10" valign="top" align="right">
<img border="0" src="images/register-right1.gif" width="19" height="19"></td>
</tr>
<tr valign="top" >
<td width="10"> </td>
<td width="544">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber15" cellpadding="0">
<tr>
<td width="100%" align="center" background="images/pay_top1.jpg" height="68">
<FONT color=#000000>用户： <font color="red"><%=request.cookies("userid")%></font><FONT color=#000000>(系统会自动删除30天以前记录)</td>
</tr>
<tr>
<td width="100%" background="images/pay_bg1.jpg">
<table width="530" border="0" align="center" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="241" align="center"><FONT color=#000000>影片名称</td>
<td width="45" align="center"><FONT color=#000000>操作</td>
<td width="150" align="center"><FONT color=#000000>播放或下载时间</td>
<td width="103" align="center"><FONT color=#000000>播放者IP</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td width="241" align="center"><FONT color=#000000><%=rs("title")%></td>
<td align="center" width="45"><FONT color=#000000><%=rs("lookordown")%></td>
<td align="center" width="150"><FONT color=#000000><%=rs("looktime")%></td>
<td align="center" width="103"><FONT color=#000000><%=rs("userip")%></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?typeid="&typeid&">"
if CurrentPage<2 then
response.write "<font color=""888888"">首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&typeid="&typeid&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color=""888888"">下一页 尾页</font>"
else
response.write " <a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&">尾页</a> "
end if
response.write " 页次：</font><strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页</font> "
response.write " 共有<b>"&totalnumber&"</b>个纪录 <b>"&maxperpage&"</b>个纪录/每页</font> "
Response.Write("<select name='select' size='1' style='font-size: 9pt' onchange='javascript:window.location.href=this.options[this.selectedIndex].value'>")
For i=1 to rs.PageCount
if rs.AbsolutePage=i then
Response.Write("")''当前页码
else
Response.Write("<option value='"&filename&"?typeid="&typeid&"&page="&i&"'>第("&i&")页")
end if
Next
Response.Write("")
Response.Write("</select>")
end function
sub gotopage
end sub
%>
</tr>
</form></table>
</td>
</TR>
<tr>
<td width="100%">
<img border="0" src="images/pay_bottom1.jpg" width="544" height="23"></td>
</tr>
</TABLE></td>
</tr>
<tr>
<td width="10" valign="bottom">
<img border="0" src="images/register-left2.gif" width="19" height="19"></td>
<td width="728" colspan="2"> </td>
<td width="10" valign="bottom" align="right">
<img border="0" src="images/register-right2.gif" width="19" height="19"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<NOSCRIPT><IFRAME SRC=*.html></IFRAME></NOSCRIPT>
<table border="0" align="center" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" id="AutoNumber10">
<tbody>
<tr>
<td width="100%" background="images/index-bottom5.gif" height="85">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="70%" id="AutoNumber11">
<tr>
<td width="100%"><font color="#1B409B" class="fontshadow"><span class="L18">本站仅提供影视欣赏方面的信息和链接，由所有网友一起维护，相关连接内容版权归原网站所有，
影片版权归相关影音公司所有，相关链接站点提供观看的影片仅供宽带网用户测试研究用途，如 侵犯到你的权利速通知我们，我们确认之后将立即清除。</span></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</TBODY>
</TABLE>
</body>
</html>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -