<TR>
<TD width="3" background="images/angle_03.gif"> </TD>
<TD width="101" align="center"> <a href="<%=rs("pic2")%>" target="_blank"><IMG src="<%=rs("pic2")%>" border=0 onload="javascript:DrawImage(this);" ></a>
</TD>
<TD width="9" valign="bottom" background="images/photo_left_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="10"></td>
</tr>
<tr>
<td><img src="images/angle_04.gif" width="9" height="70"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="right" height="11"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="11" align="left"><img src="images/photo_bottom1.gif" width="12" height="11"></td>
<td height="11" background="images/photo_bottom_bg.gif" width="100%"></td>
<td width="90" height="11" align="right"><img src="images/angle_02.gif" width="90" height="11"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<%else%>
<%response.Write("")%>
<%end if%>
<br><%if rs("pic3")<>"" then%>
<TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" height="3" align="left"><img src="images/photo_top1.gif" width="6" height="3"></td>
<td width="100%" background="images/photo_top_bg.gif" height="3"></td>
<td width="12" align="right" height="3"><strong><img src="images/photo_top2.gif" width="12" height="3"></strong></td>
</tr>
</table></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD width="3" background="images/angle_03.gif"> </TD>
<TD width="101" align="center"> <a href="<%=rs("pic3")%>" target="_blank"><IMG src="<%=rs("pic3")%>" border=0 onload="javascript:DrawImage(this);" ></a>
</TD>
<TD width="9" valign="bottom" background="images/photo_left_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="10"></td>
</tr>
<tr>
<td><img src="images/angle_04.gif" width="9" height="70"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="right" height="11"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="11" align="left"><img src="images/photo_bottom1.gif" width="12" height="11"></td>
<td height="11" background="images/photo_bottom_bg.gif" width="100%"></td>
<td width="90" height="11" align="right"><img src="images/angle_02.gif" width="90" height="11"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<%else%>
<%response.Write("")%>
<%end if%>
<br><%if rs("pic4")<>"" then%>
<TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" height="3" align="left"><img src="images/photo_top1.gif" width="6" height="3"></td>
<td width="100%" background="images/photo_top_bg.gif" height="3"></td>
<td width="12" align="right" height="3"><strong><img src="images/photo_top2.gif" width="12" height="3"></strong></td>
</tr>
</table></TD>
</TR> <TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD width="3" background="images/angle_03.gif"> </TD>
<TD width="101" align="center"> <a href="<%=rs("pic4")%>" target="_blank"><IMG src="<%=rs("pic4")%>" border=0 onload="javascript:DrawImage(this);" ></a>
</TD>
<TD width="9" valign="bottom" background="images/photo_left_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="10"></td>
</tr>
<tr>
<td><img src="images/angle_04.gif" width="9" height="70"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="right" height="11"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="11" align="left"><img src="images/photo_bottom1.gif" width="12" height="11"></td>
<td height="11" background="images/photo_bottom_bg.gif" width="100%"></td>
<td width="90" height="11" align="right"><img src="images/angle_02.gif" width="90" height="11"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<%else%>
<%response.Write("")%>
<%end if%>
<br><%if rs("pic5")<>"" then%>
<TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" height="3" align="left"><img src="images/photo_top1.gif" width="6" height="3"></td>
<td width="100%" background="images/photo_top_bg.gif" height="3"></td>
<td width="12" align="right" height="3"><strong><img src="images/photo_top2.gif" width="12" height="3"></strong></td>
</tr>
</table></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD width="3" background="images/angle_03.gif"> </TD>
<TD width="101" align="center"> <a href="<%=rs("pic5")%>" target="_blank"><IMG src="<%=rs("pic5")%>" border=0 onload="javascript:DrawImage(this);" ></a>
</TD>
<TD width="9" valign="bottom" background="images/photo_left_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="10"></td>
</tr>
<tr>
<td><img src="images/angle_04.gif" width="9" height="70"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="right" height="11"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="11" align="left"><img src="images/photo_bottom1.gif" width="12" height="11"></td>
<td height="11" background="images/photo_bottom_bg.gif" width="100%"></td>
<td width="90" height="11" align="right"><img src="images/angle_02.gif" width="90" height="11"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<%else%>
<%response.Write("")%>
<%end if%>
<br>
<br>
<table width="600" border="0" cellspacing="0" cellpadding="0" style="border-bottom:1px #cccccc solid;border-left:1px #cccccc solid;border-right:1px #cccccc solid;border-top:1px #cccccc solid;" >
<tr>
<td height="25" bgcolor="#F2F2F2"> <strong><font color="#FF6600">拍摄心得:</font></strong>
</td>
</tr>
<tr>
<td height="25"> <%=rs("xd")%></td>
</tr>
</table><br>
<%
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then '这个page是后面的select里面的
currentPage=cint(request("page")) '这里一定要转换成int否则不行!!
else
currentPage=1
end if
set rs = server.CreateObject("adodb.recordset")
sql = "select * from say where sayid="&request.QueryString("id")&" order by id desc"
rs.open sql,conn,1,1
i=1
if rs.eof and rs.bof then
else
rs.pagesize=10
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showContent
showpages
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
dim k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=1
do while not (rs.eof or err)
k=k-1
%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%" height="25" align="left"> <strong><span class="style2">讨论者:</span><a href="showuser.asp?username=<%=rs("rename")%>" target="_blank"><%=rs("rename")%></a></strong></td>
<td width="40%" height="25" align="center" valign="middle"><div align="left"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="50"> <%=rs("content")%>
<%
<%
'==================================
'增加贴图显示开始weini2006.1.1
'==================================
%>
<TABLE cellSpacing=0 cellPadding=0 width=117
border=0 align="center" >
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" height="3" align="left">
<p align="center"><img src="images/photo_top1.gif" width="6" height="3"></td>
<td width="100%" background="images/photo_top_bg.gif" height="3">
<p align="center"></td>
<td width="12" align="right" height="3">
<p align="center"><strong><img src="images/photo_top2.gif" width="12" height="3"></strong></td>
</tr>
</table></TD>
</TR>
<TR> <%if rs("img")<>"" then%>
<TD> <TABLE cellSpacing=0 cellPadding=0 width=117
border=0>
<TBODY>
<TR>
<TD width="3" background="images/angle_03.gif"> </TD>
<TD width="101" align="center"> <a href="<%=rs("img")%>" target="_blank"><IMG src="<%=rs("img")%>" border=0 onload="javascript:DrawImage(this);" ></a>
</TD>
<TD width="9" valign="bottom" background="images/photo_left_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="10">
<p align="center"></td>
</tr>
<tr>
<td>
<p align="center"><img src="images/angle_04.gif" width="9" height="70"></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="right" height="11"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="11" align="left">
<p align="center"><img src="images/photo_bottom1.gif" width="12" height="11"></td>
<td height="11" background="images/photo_bottom_bg.gif" width="100%">
<p align="center"></td>
<td width="90" height="11" align="right">
<p align="center"><img src="images/angle_02.gif" width="90" height="11"></td>
</tr>
</table></TD>
</TR>
</TBODY>
<%else%>
<%response.Write("")%>
<%end if%>
<%
'==================================
'增加贴图显示结束weini2006.1.1
'==================================
%>
</td>
</tr>
</table>
<%
i=i+1
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出,如果记录达到页最大显示数,也退出 >
rs.movenext
loop
end sub
sub showpages()
dim n
n=totalPage
%><br><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=12h>
<form action="showphoto.asp?id=<%=request("id")%>" method="post">
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="12">
<%
If currentPage <> 1 Then
Response.Write "<A HREF=showphoto.asp?id="&request("id")&"&sort="&request("sort")&"&page=1>第一页</A> "
Response.Write "<A HREF=showphoto.asp?id="&request("id")&"&sort="&request("sort")&"&Page=" & (currentPage-1) & ">上一页</A> "
End If
If currentPage <> rs.PageCount Then
Response.Write "<A HREF=showphoto.asp?id="&request("id")&"&sort="&request("sort")&"&Page=" & (currentPage+1) & ">下一页</A> "
Response.Write "<A HREF=showphoto.asp?id="&request("id")&"&sort="&request("sort")&"&Page=" & totalPage & ">最后一页</A> "
End If
%>
第 <%=currentPage%> 页,共 <%=totalPage%> 页
共 <%=rs.recordcount%> 条评语
<% response.write "转到:<select name='page' size=1 style='BACKGROUND-COLOR:#FFffff;font-family: verdana; font-size:7pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write " <input class=buttonface type='submit' value='GO' name='cndok' style='border: 1px #333333 solid; background-color: #ffffff; font-family:verdana; font-size: 7pt;'>"
%>
</td>
</tr>
<tr>
</form >
</table>
<%end sub%> <form name=myform action="savesay.asp" method="post">
<table width="600" border="0" cellspacing="0" cellpadding="0" style="border-bottom:1px #cccccc solid;border-left:1px #cccccc solid;border-right:1px #cccccc solid;border-top:1px #cccccc solid;" >
<tr>
<td height="25" bgcolor="#F2F2F2"> <font color="#FF6633">我的感想:</font>
<% if session("username")="" then%>
<input type="hidden" name="rename" value="游客">
<%else%>
<input type="hidden" name="rename" value="<%=session("username")%>">
<%end if%>
<input type="hidden" name="sayid" value="<%=request("id")%>"></td>
</tr>
<tr>
<td height="25" bgcolor="#F2F2F2">
<p align="center">
<input name="img" type="text" id="img" size="38" maxlength="40">
<input type="button" name="Submit252" value="上传图片" onClick="window.open('upload_flash.asp?formname=myform&editname=img&uppath=uploadimg&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
<%end sub%> </td>
</tr>
<tr>
<td height="78" align="center" style="border-bottom:1px #CFD1CC solid;border-top:1px #CFD1CC solid;"><textarea name="content" cols="50" rows="3" id="content"></textarea></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#F2F2F2"><input type="submit" name="Submit" value="确定"></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>因不清楚问题原因所在,把整个页面代码都送上,帖子有点长,希望高手耐心点看了