📄 view.asp
字号:
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
showpage totalput,MaxPerPage,"view.asp"
showContent
showpage totalput,MaxPerPage,"view.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"view.asp"
showContent
showpage totalput,MaxPerPage,"view.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"view.asp"
showContent
showpage totalput,MaxPerPage,"view.asp"
end if
end if
Session("currentPage")=currentPage
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%> <% if searchname<>null or searchname<>"" then
Response.write("搜索关键字<font color=red>" & searchname & "</font>的结果如下：")
end if
%> </span>
<div align="center">
<table border="0" cellspacing="1" width="100%" cellpadding="1" bgcolor="#993300">
<tr bgcolor="#FFB895">
<td width="5%" align="center" height="20">
<span style="font-size: 9pt">编号</span></td>
<td width="35%" align="center"><span style="font-size: 9pt">发件人地址</span><font color=blue><span style="font-size: 9pt">[点击主题查看详细信息]</span></font></td>
<td width="20%" align="center"><span style="font-size: 9pt">发件地</span></td>
<td width="15%" align="center"><span style="font-size: 9pt">发件人姓名</span></td>
<td width="10%" align="center"><span style="font-size: 9pt">电子邮件</span></td>
<td width="15%" align="center"><span style="font-size: 9pt">登记日期</td>
</tr>
<% do while not rs.eof %> </span>
<tr bgcolor="#FFE1D2">
<td height="23" width="5%">
<p align="center"><span style="font-size: 9pt"><%=rs("ID")%>
</span>
</td>
<td width="35%" bgcolor="#FFE1D2">
<p align="left"> <a href="#" onclick="javascript:window.open('viewdetail.asp?info_id=<% =rs("ID") %>','InfoDetail','toolbar=no,scrollbars=yes,resizable=yes,top=0,left=0,width=440 height=360'); ">
<span style="font-size: 9pt"><%=rs("title")%></span></a><span style="font-size: 9pt">
</span>
</td>
<td width="20%" align=center><font color=ff0000><b>
<%
select case rs("leixing")
case "A1"
Response.Write ""&title_1&" "
case "A2"
Response.Write ""&title_2&" "
case "A3"
Response.Write ""&title_3&" "
case "A4"
Response.Write ""&title_4&" "
case "A5"
Response.Write ""&title_5&" "
case "A6"
Response.Write ""&title_6&" "
case "A7"
Response.Write ""&title_7&" "
End select
%><span style="font-size: 9pt"> </span>
</b></font> </td>
<td width="15%" align=center> <%=rs("name")%><span style="font-size: 9pt">
</span> </td>
<td width="10%">
<p align="center"><a href="mailto:<%=rs("email")%>">
<span style="font-size: 9pt"><img border="0" src="email.gif"></span></a><span style="font-size: 9pt">
</span>
</td>
<td width="15%">
<p align="center"><span style="font-size: 9pt"><%=rs("mess_date")%>  <%=rs("mess_time")%>
</span>
</td>
</tr>
<tr>
<td width="5%" bgcolor="ffffff"> </td>
<td colspan=5 bgcolor="ffffff"><span style="font-size: 9pt">补充信息：<br>
</span>
<font color=green>
<span style="font-size: 9pt">
<% =rs("comment") %> </span>
</font>
<p align=right>
<form action="view.asp" method="post">
<span style="font-size: 9pt">
<input name="keys" type="hidden" value="DeleteID">
<input name="UserID" type="hidden" value="<%=rs("ID")%>">
</span>
<input type="submit" style="background-color: rgb(255,100,10);border:1px double rgb(255,128,1);font:9pt" value="＝删 除＝" name="B3"><span style="font-size: 9pt">
</form>
</td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%> </span>
</table>
</div>
<%
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=Get action="&filename&"><table align=center width=100% height=18 border=0 bgcolor=rgb(236,236,255) style=""border:1px double rgb(180,180,255)"">"
response.write "<tr><td width=10 align=center></td><td><font color='#000080'></font>"
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上页</font> "
else
response.write "<a href="&filename&"?page=1&>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)
response.write ">下页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>条信息</font></span><td> "
response.write "<td><font color='#000080'>转到：</font><input type='text' name='page' size=2 maxlength=10 style=""background-color: rgb(255,255,255);border:1px double rgb(180,180,255);"" value="¤tpage&">"
response.write "<font color='#000080'> 搜索：</font><input type='text' name='searchname' size=8 maxlength=10 style=""background-color: rgb(255,255,255);border:1px double rgb(180,180,255);""> <input type=""submit"" value=""立刻搜索"" style=""border:1px double rgb(255,128,1);font:9pt"">"
response.write "</td></tr></table></form>"
end function
%><span style="font-size: 9pt"> </span> </td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000" background="../images/ipagebg.gif">
<tr>
<td bgcolor="#000000"></td>
</tr>
<tr>
<td class="p9" bgcolor="#FFE1D2" height="20">
<p align="center">
</p>
</td>
</tr>
<tr>
<td bgcolor="#000000"></td>
</tr>
</table>
<p align="center"><font color="#666666"><span style="font-size: 9pt">
<a style="text-decoration: none" target="_blank" href="http://www.zzzcn.net">
<%=CopyRight_title%></a></span></font></p>
</body>
</html>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -