📄 view.asp
字号:
end if
'Response.Write sql
'----------------------------------------------------------------------------------
%> <%
dim sql
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<br><br><br><br><br><br><br><br><p align='center'> 目前还有信息任何产品信息 </p><br><br><br><br><br><br><br><br>"
else
totalPut=rs.recordcount
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
%>
<div align="center">
<table border="0" cellspacing="1" width="100%" cellpadding="1" bgcolor="#993300">
<tr bgcolor="#FFB895">
<td width="5%" align="center" height="20">编号</td>
<td width="35%" align="center">公司名称<font color=blue>[点击主题查看详细信息]</font></td>
<td width="20%" align="center">产品类型</td>
<td width="15%" align="center">联系人姓名</td>
<td width="10%" align="center">电子邮件</td>
<td width="15%" align="center">登记日期</td>
</tr>
<% do while not rs.eof %>
<tr bgcolor="#FFE1D2">
<td height="23" width="5%">
<p align="center"><%=rs("ID")%>
</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'); "><%=rs("title")%></a>
</td>
<td width="20%" align=center><font color=ff0000><b>
<%
select case rs("leixing")
case "A1"
Response.Write "眼镜架 "
case "A2"
Response.Write "眼镜盒 "
case "A3"
Response.Write "镜片 "
case "A4"
Response.Write "隐形眼镜 "
case "A5"
Response.Write "验光器材 "
case "A6"
Response.Write "太阳眼镜 "
End select
%>
</b></font> </td>
<td width="15%" align=center> <%=rs("name")%> </td>
<td width="10%">
<p align="center"><a href="mailto:<%=rs("email")%>"><img border="0" src="email.gif"></a>
</td>
<td width="15%">
<p align="center"><%=rs("mess_date")%>  <%=rs("mess_time")%>
</td>
</tr>
<tr>
<td width="5%" bgcolor="ffffff"> </td>
<td colspan=5 bgcolor="ffffff">信息内容：<br>
<font color=green>
<% =rs("comment") %>
</font>
<p align=right>
<form action="view.asp" method="post">
<input name="keys" type="hidden" value="DeleteID">
<input name="UserID" type="hidden" value="<%=rs("ID")%>">
<input type="submit" style="background-color: rgb(255,100,10);border:1px double rgb(255,128,1);font:9pt" value="＝删 除＝" name="B3">
</form>
</td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</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
%> </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>
</body>
</html>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -