📄 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">
<!--#include file="hand.htm" -->
<div align="center" style="width: 777; height: 209">
<table border="0" cellpadding="0" cellspacing="0" width="777" height="117" bgcolor="#E3E3E3">
<tr>
<td width="578" align="center" style="border-bottom-style: solid; border-bottom-width: 1" bgcolor="#FFFFFF">
<p align="left"> <font size="2">
<%if search_txt<>"" then%>
以下是包含关键字<font color="#ff0000"><%=search_txt%></font>的所有网友
<%else%>
以下是所有网友的列表
<%end if%>
</font> </p>
</td>
</tr>
<tr>
<td width="578" bgcolor="#FFFFFF"> <font size="2">第<font color="red"><%=currentpage%></font>页
<%if search_txt="" then%>
已加入网友共
<%else%>
找到网友
<%end if%>
<font color="blue"><%=Records%></font>位 共<font color="blue"><%=Pages%></font>页</font>
</td>
</tr>
<tr>
<%if pages>1 then%>
<td width="578" bgcolor="#FFFFFF"> <font size="2">转到页码:[
<%for p=1 to pages%>
<a <%if currentpage=p then%> style="color:red" <%end if%> href="list.asp?currentpage=<%=p%>&search_txt=<%=search_txt%>&px=<%=px%>"><%=p%></a>
<%if p/30=0 then%>
<%end if%>
<%next%>
]</font> </td>
<%end if%>
</tr>
</table>
<!------------------------------------------------------------------------------------------------------------------------->
<table border="0" width="750" cellspacing="0" bordercolor="#FF9966">
<tr>
<td width="87" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">网名↑↓</font></td>
<td width="60" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">性别↑↓</font></td>
<td width="116" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">来自↑↓</font></td>
<td width="80" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">生日↑↓</font></td>
<td width="99" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">网络寻呼机↑↓</font></td>
<td width="110" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">登记IP↑↓</font></td>
<td width="81" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">登记时间↑↓</font></td>
<td width="69" align="center" bgcolor="#FFFFFF" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000"><font color="#000000">人气↑↓</font></td>
</tr>
<%linenumber=rs_lar.pagesize%>
<%do while (not rs_lar.eof) and (line<linenumber)%>
<tr>
<td width="87" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><a href="read.asp?user_id=<%=rs_lar("user_id")%>" title="查看网友<%=rs_lar("netname")%>的祥细资料"><%=rs_lar("netname")%></a></td>
<td width="60" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("sex")%></td>
<td width="116" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("home")%></td>
<td width="80" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("britherday")%></td>
<td width="99" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("netcall")%></td>
<td width="110" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("ip")%></td>
<td width="81" align="center" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("date")%></td>
<td width="69" align="center" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#000000" bgcolor="#EEEEEE"><%=rs_lar("renqi")%></td>
</tr>
<%rs_lar.movenext%>
<%line=line+1%>
<%loop%>
</table>
<!-------------------------------------分页导航--------------------------------------->
<table width="750" bgcolor="white">
<tr>
<td bgcolor="white">
<%if currentpage>1 then%>
<font size="2"><a href="list.asp?currentpage=<%=currentpage-1%>&search_txt=<%=search_txt%>&px=<%=px%>"><font size="2">[上一页]</font></a>
<%end if%>
<%if currentpage<pages then%>
<a href="list.asp?currentpage=<%=currentpage+1%>&search_txt=<%=search_txt%>&px=<%=px%>">[下一页]</a>
<%end if%>
<%if currentpage>1 then%>
<a href="list.asp?currentpage=1&search_txt=<%=search_txt%>&px=<%=px%>">[最首页]</a>
<%end if%>
<%if currentpage<pages then%>
<a href="list.asp?currentpage=<%=pages%>&search_txt=<%=search_txt%>&px=<%=px%>">[最末页]</a>
<%end if%>
</font> </td>
</tr>
</table>
<!------------------------------------------------------------------------------------------------------------------------->
<!------------------------------------------------------------------------------------------------------------------------->
<form>
<table border="0" width="100%" cellspacing="0" height="27">
<tr>
<td width="100%" height="13">
<p align="center"> 搜索关键字
<input type="text" name="search_txt" size="8" value="<%=search_txt%>">
<input type="submit" value="搜索" name="B1">
<a href="no.htm" target="_blank">[高级搜索]</a> </p>
</td>
</tr>
<tr>
<td width="100%" height="12">
<p align="center">关键字为空列出所有网友
</td>
</tr>
</table>
</form>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#E3E3E3">
<tr>
<td width="100%" bgcolor="#FFFFFF"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#FFFFFF" height="22">
<tr>
<td width="100%" height="22"><img border="0" src="ku/dididi.gif" width="777" height="28"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" height="29" bgcolor="#EABB00">
<tr>
<td width="773" height="29">
<p align="center"> ..:味道网:.. 版权所有，<span style="font-family:宋体; font-size: 9pt"><a href=# title=点击些处，关于我们... style="color:blue" target="_new" onClick="javascript:alert('\t\『味道网\』 版权所有\n\n程序设计:Kinwah.CHEN \n\t 陈贤福\n\n站点美工:陈健华\n\t 陈贤福 Ai\n\n社区顾问:Kinwah.CHEN\n\n味道网(C.)2001-2003');return false;"><font color="#000000">Three-UNknown拍档组合</font></a></span>©2001-2003
All Rights Reserved</p>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" bgcolor="#000000">
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%rs_lar.close:set rs_lar=nothing:set conn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -