img_show_mote.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 112 行
ASP
112 行
<%'┌─ 风云ASP在线 ────────────────────────┐'│ │'│ 作者：赵振波. http://www.fyasp.com │'│ │'│ Q Q：176189168 │'│ │'│ Email：fy96@163.com │'│ │'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│'│ │'│ │'└─────────────────── http://www.fyasp.com ──┘%><!--#include file="../inc/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>浏览您上传的图片</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../fdfs.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<table width="78%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="darkred"> 以下是所有上传的图片，图片可点击放大。</td>
<td> </td>
<td> </td>
</tr>
</table>
<form name="form1" method="post" action="../admin/img_del_mote.asp">
<table width="593" height="90" border="0" align="center" cellpadding="0" cellspacing="0">
<tr >
<td width="460" height="54">
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=8
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from moteimg order by dateandtime desc "
rs.open sql,conn,1,1
i=0
if not rs.eof then
imgcount=rs.recordcount
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
if not rs.eof then
response.write "<table border=0 width='700' align='center' cellpadding='0' cellspacing='1' bgcolor='#CCCCCC'><font color='#5365ac'>"
do while not rs.eof and count<numperpage
if i=4 then
i=0
response.write "</tr ><tr bgcolor='#FFFFFF'>"
end if
'response.write "<td width='" & 100/4 & "%' align='left'><a href='pro_view.asp?prtype=" & rs("prtype") & "' target='_blank'>" & rs("prtype") & "[" & rs("hit") & "]" & "</td>"
response.write "<td bgcolor='#FFFFFF' width='" & 100/4 & "%' align='center'>" & "<a target=_blank href='img_big_mote.asp?id=" & trim(rs("id")) & "'>" & "<img width=150 height=150 border=0 src='img_subshow_mote.asp?id="&trim(rs("id"))&"'>" & "</a>" & "<br>" & trim(rs("id")) & "<input name='id' type='checkbox' id='id' value="&trim(rs("id"))&">" & "</td>"
i=i+1
rs.movenext
count=count+1
loop
response.write "</font></table>"
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<tr >
<td height="36"><div align="center"> </div></td>
</tr>
</table>
</form>
<table width="62%" height="29" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="black">
<% if cint(curpage)<>1 then %>
<a href="img_show_mote.asp?curpage=1">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="img_show_mote.asp?curpage=<%=curpage-1%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="img_show_mote.asp?curpage=<%=curpage+1%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="img_show_mote?curpage=<%=totalpages%>"> 末页
<% else %>
末页
<% end if %>
</a> <font color="#CC0000">共<%=imgcount%>张图片，共<%=totalpages%>页</font></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?