📄 list_message2fly.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=MessageWebName%> 信息列表</title>
<link href="site.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="top2fly.asp" -->
<%if sousuoname<>"" then%>
<table width="720" border="0" align="center">
<tr>
<td> </td>
<td><%=sousuoname%></td>
<td> </td>
</tr>
</table>
<%end if%>
<table width="720" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor=7285CF>
<td bgcolor="7285CF"> <font color="#FFFFFF"> 条数</font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> <a href="?px=Name2fly" <%if px<>"Name2fly" then%> class="white"<%else Response.Write(" class='red'")%><%end if%>>姓名</a></font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> 电话</font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> Email</font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> 现所在地</font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> 籍贯</font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> <a href="?px=Sex2fly" <%if px<>"Sex2fly" then%> class="white"<%else Response.Write(" class='red'")%><%end if%>>性别</a></font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF"> <a href="?px=class2fly" <%if px<>"class2fly" then%> class="white"<%else Response.Write(" class='red'")%><%end if%>>分类</a></font></td>
<td bgcolor="7285CF"> <font color="#FFFFFF">详细内容</font></td>
</tr>
<%
i=0
NoI=0 '名次排列数
page = request.querystring("Hits_Page")
if nnnn="" then nnnn=50 '每页显示数量
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT class.class2fly, messagebook.* FROM messagebook INNER JOIN class ON messagebook.class2flynumber=class.class2flynumber where "&tj2&" ORDER BY "&px2
rs.Open sql,conn,1,1
if Not(rs.bof and rs.eof) then '判别数据表中是否为空记录
NumRecord=rs.recordcount
rs.pagesize=nnnn
NumPage=rs.Pagecount
if request("page")=empty then
NoncePage=1
else
if Cint(request("page"))<1 then
NoncePage=1
else
NoncePage=request("page")
end if
if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
end if
else
NumRecord=0
NumPage=0
NoncePage=0
end if
if Not(rs.bof and rs.eof) then
rs.move (Cint(NoncePage)-1)*nnnn,1
for i=1 to rs.pagesize
NoI=(NoncePage-1)*nnnn+i
%>
<tr bgcolor="F2F2F2">
<td> <%=NoI%></td>
<td><a href="lockmessage2fly.asp?action=open&id=<%=rs("id")%>" class="black"> <%=rs("Name2fly")%></a></td>
<td> <%=rs("No1Tel2fly")%></td>
<td> <%=rs("Email2fly")%></td>
<td><a href="list_message2fly.asp?tj=24&key2=<%=rs("Whereabouts2fly")%>" class="black"> <%=rs("Whereabouts2fly")%></a></td>
<td><a href="list_message2fly.asp?tj=25&key2=<%=rs("NativePlace2fly")%>" class="black"> <%=rs("NativePlace2fly")%></a></td>
<td> <%=rs("Sex2fly")%></td>
<td><a href="list_message2fly.asp?tj=11&key2=<%=rs("class2fly")%>" class="black"> <%=rs("class2fly")%></a></td>
<td><a href="lockmessage2fly.asp?action=open&id=<%=rs("id")%>"><%=left(rs("idio_data2fly"),8)%>..</a> <a href=?del=<%=rs("id")%> onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}"></a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee> |<a href=>新 增</a>|</td></tr>"
end if
rs.close
set rst=nothing
%>
<tr bgcolor="F2F2F2">
<td colspan="9" > </td>
</tr>
<tr bgcolor="#FFFFFf">
<td colspan="9">
<table align="right"><form method=post><tr><td>
<%
if NoncePage>1 then
response.write "<a href=?page=1&px="&px&"&tj="&tj&">首 页</a> | <a href=?page="&NoncePage-1&"&px="&px&"&tj="&tj&">上一页</a> | "
else
response.write "首 页 | 上一页 | "
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
response.write " <a href=?page="&NoncePage+1&"&px="&px&"&tj="&tj&">下一页</a> | <a href=?page="&NumPage&"&px="&px&"&tj="&tj&">尾 页</a> "
else
response.write " 下一页 | 尾 页 "
end if
response.write " 转到第<input type='text' name='page' size=2 maxlength=10 class=editbox1 value="&NoncePage&">"
response.write " /"&NumPage&"页 "
response.write "<input name=tj type=hidden id=tj value="&tj&">"
response.write "<input name=px type=hidden id=px value="&px&">"
response.write "<input type='hidden' name='POST' value='True' > "
%>
共<font color="#0033CC"><%=NumRecord%></font>条记录
</td></tr></form></table>
</td>
</tr>
</table>
<br>
<div align="center">
<table width="720" height="29" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10"><div align="center"><a href="message_new_edit2fly.asp?action=add"></a>添加新用户 </div></td>
</tr>
<tr>
<td height="22"><!--#include file="food_2fly.asp" -->
</td>
</tr>
</table>
<br>
<a href="http://2fly.cn" target="_blank"><img src="img/power.gif" alt="2Fly工作室 官方网站" width="108" height="24" border="0"></a> </div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -