img.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<%
 dim sort
 xsort=Request.QueryString("xsort")
 sort=HTMLEncode(Request.QueryString("sort"))
 sql="select sortid,SortName from sort where sortid='"&sort&"'"
 set rs=conn.execute(sql)
 if not rs.bof and not rs.eof then
 	sortname=rs("sortname")
 	sortid=rs("sortid")
 end if
%>

<%
function cutstr(tempstr,tempwid)         '声明标题字数变量
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+escape(Title);
	return true;
}
</script>


<table width="900" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="28" align="left" bgcolor="#D4D0C8" class="title">您现在的位置：<a href="index.html" target="_blank">首页</a> &gt; <%=sortname%>图片版</td>
  </tr>
</table>
<table width=900 
border=0 align=center cellpadding=0 cellspacing=0>
  <tbody>
    <tr valign=top>
      <td bgcolor="#eeeeee"><br />
        <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<%
sort=HTMLEncode(Request.QueryString("sort"))
pageno=request("pageno")
if pageno="" then pageno=1

set rs=server.createobject("adodb.recordset")
if sort="" then
sql="select * from zhai where img<>'' order by id desc "
else
sql="select * from zhai where img<>'' and sort='"&sort&"' order by id desc "
end if
rs.open sql,conn,1,1

if not rs.bof and not rs.eof then
   		rs.pagesize=20                        
		rs.absolutepage=pageno 
    	
    zjls=rs.pagesize
        
    if zjls mod 5 =0 then
	   hs=zjls/5
	else
	   hs=round(zjls/5+0.6)
	end if

for i=1 to hs
if rs.eof then exit for

			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if
%>
	<tr>
	  <td colspan="5" align="center">&nbsp;</td>
	  </tr>
	<tr>
	
		<td align="center">
		<a target="_blank" href="<%=linkadd%>" title="<%=rs("title")%>"><img border="0" src="<%=rs("img")%>" width="120" height="110"  class="picborder"></a><br>
		<a href="<%=linkadd%>">
		<%=cutstr(rs("title"),10)%></a></td>
		<%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>
		<td align="center">
		<a target="_blank" href="<%=linkadd%>" title="<%=rs("title")%>"><img border="0" src="<%=rs("img")%>" width="120" height="110" class="picborder"></a><br>
		<a href="<%=linkadd%>">
		<%=cutstr(rs("title"),10)%></a></td>
		<%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>		
		<td align="center">
		<a target="_blank" href="<%=linkadd%>" title="<%=rs("title")%>"><img border="0" src="<%=rs("img")%>" width="120" height="110" class="picborder"></a><br>
		<a href="<%=linkadd%>">
		<%=cutstr(rs("title"),10)%></a></td>
		<%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>		
		<td align="center">
		<a target="_blank" href="<%=linkadd%>" title="<%=rs("title")%>"><img border="0" src="<%=rs("img")%>" width="120" height="110" class="picborder"></a><br>
		<a href="<%=linkadd%>">
		<%=cutstr(rs("title"),10)%></a></td>
		<%rs.movenext
		if rs.eof then exit for
			if isgd=1 then
				linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
			else
				linkadd="goto.asp?id="&rs("id")
			end if		
		%>
		<td align="center"><a target="_blank" href="<%=linkadd%>" title="<%=rs("title")%>"><img border="0" src="<%=rs("img")%>" width="120" height="110" class="picborder"></a><br>
		<a href="<%=linkadd%>">
		<%=cutstr(rs("title"),10)%></a></td>
		<%rs.movenext
		if rs.eof then exit for
		%>		
	</tr>
	<%next%>
	<tr>
		<td valign="bottom" align="center" colspan="7">
			<br><br>
			<%                                                                                                     
	          tj=""         
     	      page "img.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount                        
            %>		</td>
	</tr>	
<%else%>
	<tr>
		<td valign="bottom" align="center" colspan="7">暂无内容</td>
	</tr>
<%end if%>	
	</table></td>
    </tr>
  </tbody>
</table>
<!--#include file="bottom.asp"-->