📄 index.asp
字号:
<td valign="top" bgcolor="#FFFFFF" width="740">
<table width="737" height="23" border="0" align="center" cellpadding="0" cellspacing="0" background="images/a2.gif">
<tr>
<td height="23"> <img src="admin/images/space.gif" width="20" height="8"> <a href="index.asp"><span style="font-size: 9pt">图库首页</span></a><span style="font-size: 9pt">
<img src="images/space.gif" width="7" height="18" align="absmiddle"> <a href="index.asp">精美图库</a> <img src="images/space.gif" width="7" height="18" align="absmiddle"><a href="http://www.hao363.com" target="_blank">[好363网址]</a><img src="images/space.gif" width="7" height="18" align="absmiddle"></span><a target="_blank" href="http://www.hao123.com"><span style="font-size: 9pt">网址之家</span></a></td>
</tr>
</table>
<table width="721" height="24" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="get" action="index.asp">
<tr>
<td colspan="2"> <font style="font-size: 9pt">图片分类→
<%
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
Do While Not rs2.eof
if rs2("classname")=classname then
Response.Write("<font color=red>" & rs2("classname") & "</font> <img src=images/space.gif width=7 height=18 align=absmiddle> ")
else
Response.Write("<a href=index.asp?classname=" & rs2("classname") & ">" & rs2("classname") & " ")
Response.Write("</a> <img src=images/space.gif width=7 height=18 align=absmiddle> ")
end if
i=i+1
rs2.MoveNext
Loop
end if
rs2.close
%></font><font face="宋体" style="font-size: 9pt"> </font>
</td>
</tr>
<tr>
<td height="5" colspan="2"><img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> <img height=12
src="image/icon03.gif" width=12 border=0> <img
height=12 src="image/icon02.gif" width=12 border=0>
<img height=12 src="image/icon01.gif" width=12
border=0> </td>
</tr>
<tr>
<td width="369"> </td>
<td width="352"> <input name="key" type="text" id="key" size="30"> <select name="classname" id="classname">
<%
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
Do While Not rs2.eof
Response.Write("<option value="&rs2("classname")&">"&rs2("classname")&"</option>")
i=i+1
rs2.MoveNext
Loop
end if
rs2.close
%>
</select> <input type="submit" name="Submit" value="搜索"> </td>
</tr>
</form>
</table>
<table width="726" height="226" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="99%">
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rsclose()
connclose()
'------------->如果没有记录则关闭数据库的连接(BOF为真值)
Response.Write("<br><br><br><br><center>对不起。没有相关图片！</center>")
else
PageShowSize = 10
MyPageSize = img
If Not IsNumeric(Request.querystring("page")) Or IsEmpty(Request.querystring("page")) Or Request.querystring("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request.querystring("page")))
End if
rs.pagesize=mypagesize
maxpages=rs.pagecount
rs.absolutepage=mypage
total=rs.recordcount
Response.Write("<P align=center><table width=90% cellspacing=""4"" cellpadding=""4"">")
do while not rs.eof
response.write"<tr>"
for i=1 to cel
img=rs("news_content")
if instr(img,"[img]") then
img = Replace(img, "[img]", "<img src=")
img = Replace(img, "[/img]", " border=1 style='border-color:#4286E7' alt='点击看详细资料' width=100 height=100 >")
else
img = Replace(img, "[uploadimg]", "<img src=upload/")
img = Replace(img, "[/uploadimg]", " border=1 style='border-color:#4286E7' alt='点击看详细资料' width=100 height=100 >")
end if
Response.Write("<td align=center width=160\>")
Response.Write("<table width=97% border=0 cellspacing=""0"" cellpadding=""0""\><tr><td background=""images/bj.jpg"" height=""22"" valign=middle align=center><font color=white>"&rs("title")&"</font></td></tr><tr><td valign=middle align=center>")
Response.Write("<a href=view.asp?id="&rs("id")&" target=_blank>"&img&"")
Response.Write("<br><br>" & rs("title") & "</a></td></tr></table></td>")
rs.movenext
if rs.eof or i=MyPageSize then '------>这句一定要加上。当指针指向最后一个记录时。则退出循环
exit do '------>但是发现一个问题。当只有两个图片时，而将每页显示一个
end if '------>图片,这时页面会显示两张图片,为了避免这种情况，所以加了一句
next '------->if i=MyPageSize then exit do 这样就可以避免失误了。^!^
response.write "</tr>"
j=j+1
if j=rows then exit do '------------>如果j=rows数刚退出循环
loop
response.write "</table>"
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a href='" & Url & "&page=" & PagePrev & "'><font face=webdings>9</font></a> "
'Response.write "<a href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a href='" & Url & "&page=" & Prev_Page & "'><font face=webdings>7</font></a> "
end if
if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a href='" & Url & "&page=" & Next_Page & "'><font face=webdings>8</font></A>"
end if
if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
'Response.write " <A href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a href='" & Url & "&page=" & PageNext & "'><font face=webdings>:</font></a>"
End if
rsclose()
connclose()
end if
%>
</td>
</tr>
</table>
<table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><span style="font-size: 9pt">Email: <a href="mailto:chengwu@xw127.org">chengwu@xw127.org</a>
QQ:13827818</span></td>
</tr>
<tr>
<td height="14" align="center">
<a target="_blank" href="http://www.xw127.org/">
<span style="font-size: 9pt">Copyright ©2003 - 2005
小武 图片管理程序</span></a></td>
</tr>
</table>
<p>
</script>
<script language="JavaScript" src=http://www2.7789.com/mystat.asp?user=6864&style=6>
</script></td>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -