📄 list.asp
字号:
<%
Option Explicit
dim conn,DBPath
dim rs_lar
dim px,sql,search_txt,str
dim s_netname,s_sex,s_britherday,s_netcall,s_ip,s_renqi,s_home,s_date
dim j_netname,j_sex,j_britherday,j_netcall,j_ip,j_renqi,j_home,j_date
dim pages,records,currentpage,linenumber,line
dim p
'叛断Session变量是否超时
if isempty(session("user_id")) then
response.redirect "timeout.htm"
end if
'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
px=request("px"):if px="" then px="j_date"
search_txt=request("search_txt")
if instr(search_txt,"%") or instr(search_txt,"'") or instr(search_txt,"<") then
response.write "你输入了非法字符!"
response.end
end if
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select user_id,netname,sex,netcall,britherday,ip,renqi,home,date from larchives"
if search_txt<>"" then
sql=sql & " where netname like '%" & search_txt & "%'"
sql=sql & " or sex like '%" & search_txt & "%'"
sql=sql & " or netcall like '%" & search_txt & "%'"
sql=sql & " or britherday like '%" & search_txt & "%'"
sql=sql & " or ip like '%" & search_txt & "%'"
sql=sql & " or cstr(renqi) like '" & search_txt & "'"
sql=sql & " or date like '%" & search_txt & "%'"
'sql=sql & " or home like '%" & search_txt & "%'"
end if
Select case px
case "s_netname"
sql=sql & " Order by time asc"
case "s_sex"
sql=sql & " Order by sex asc"
case "s_britherday"
sql=sql & " Order by britherday asc"
case "s_netcall"
sql=sql & " Order by netcall asc"
case "s_ip"
sql=sql & " Order by ip asc"
case "s_renqi"
sql=sql & " Order by renqi asc"
case "s_home"
'sql=sql & " Order by home asc"
case "s_date"
sql=sql & " Order by date asc"
case "j_netname"
sql=sql & " Order by name desc"
case "j_sex"
sql=sql & " Order by sex desc"
case "j_britherday"
sql=sql & " Order by britherday desc"
case "j_netcall"
sql=sql & " Order by netcall desc"
case "j_ip"
sql=sql & " Order by ip desc"
case "j_renqi"
sql=sql & " Order by renqi desc"
case "j_home"
'sql=sql & " Order by home desc"
case "j_date"
sql=sql & " Order by time desc"
End Select
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then str="此交友系统还没有一个网友!"
'分页设置
if str="" then
rs_lar.PageSize=15
pages=rs_lar.pagecount
records=rs_lar.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
rs_lar.absolutepage=currentpage
else
currentpage=1
records=0
pages=1
end if
%>
<html>
<head>
<LINK href="pic/gufeng.css" rel=stylesheet>
<script language="JavaScript" src="pic/fade_image.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>酒乡网友联盟</title>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
if (theURL != "fuckyou")
{ window.open(theURL,winName,features);}
}
//-->
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0">
<table align="center" border="0" cellPadding="0" cellSpacing="0" height="20" width="777">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="777" height="21" bgcolor="#FFF4C8" background="pic/di.GIF">
<tr>
<td width="23%" height="19"><img border="0" src="pic/htt.GIF" width="227" height="20"></td>
<td width="33%" height="19"> </td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="my.asp">关于我们</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="../book">本站留言</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="javascript:window.external.AddFavorite('http://www.644000.net',%20'酒乡网友联盟')">添加收藏</a></td>
<td width="3%" height="19" align="center">□</td>
<td width="8%" height="19" align="center"><a href="#" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.644000.net');">设为首页</a></td>
</tr>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" height="90" bgcolor="#F9C700">
<tr>
<td width="100%" height="88">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="777">
<tr>
<td width="243" align="left"><img border="0" src="pic/logo.GIF" width="240" height="70"></td>
<td width="12" align="left"></td>
</center>
<td width="500" align="center" valign="middle">
<p align="center"><!--Banner-->
<script src="http://www.644000.net/guanggao/banner.asp"></script>
<!--Banner --></p>
</td>
<center>
<td width="14" align="center"></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" width="777" bgcolor="#FFF4C8" height="20" cellspacing="0">
<tr>
<td width="4%" align="center"><img border="0" src="pic/tou.GIF" width="28" height="20" style="filter:alpha(opacity=40)" onMouseOver="fade_in(this);" onMouseOut="fade_out(this);"></td>
<td width="10%" align="center"><a href="default.asp"><img border="0" src="logo/1.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="reg.asp"><img border="0" src="logo/2.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="register.asp"><img border="0" src="logo/3.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="your.asp"><img border="0" src="logo/4.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="list.asp"><img border="0" src="logo/5.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="sendphoto.asp"><img border="0" src="logo/6.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="jh" target="_blank"><img border="0" src="logo/7.gif"></a></td>
<td width="2%" align="center"><img border="0" src="pic/heng.gif" width="2" height="12"></td>
<td width="10%" align="center"><a href="http://www.644000.net/bbs" target="_blank"><img border="0" src="logo/8.gif"></a></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -