下一张>>
首页 1 2 >> 末页

现在我就是先把标注成红色字样的改为调用图片在后台上传的缩略图,然后右边为后台上传的大图.这样访问者打开内容页面时所有图都呈缩略小图列于页面左侧,而大图在右侧.

我看过了\Photo\ShowInfo.asp

PageStr="<table style='BORDER-BOTTOM: #8eacca 1px solid' cellSpacing=0 cellPadding=0 width='95%' align=center border=0><tr><td class=text_9 width='54%' height=25>　共 <font color=#6699ff><strong>" & TPage&" </strong></font>页 第 <font color=#6699ff><strong>" & CurrPage & "</strong></font> 页</td><td class=text_9 align=right width='33%'>"

startpage=1:k=0
if (CurrPage>=10) then startpage=(CurrPage\10-1)*10+CurrPage mod 10+2

PageStr=PageStr & "<a href=""?ID=" & ID & """ title=""首页"">首页</a> "
if CurrPage<>1 then
PageStr=PageStr & "<a href=""?ID=" & ID & "&Page=" & CurrPage-1 & """ title=""上一页""><<</a> "
end if
For N = startpage To TPage
If CurrPage = N Then
PageStr = PageStr & "<a href=""#""><font color=red>" & N & "</font></a>&nbsp;"
Else
PageStr = PageStr & "<a href=""?ID=" & ID & "&Page=" & N & """>" & N & "</a>&nbsp;"
End If
k=k+1
If k>=10 Then exit for
Next
If CurrPage <>tpage Then
PageStr=PageStr & "<a href=""?ID=" & ID & "&Page=" & currpage+1 & """ title=""下一页"">>></a> "
end if
PageStr=PageStr & "<a href=""?ID=" & ID & "&page=" & tpage & """ title=""末页"">末页</a> "

PageStr=PageStr & "</td><td align=right width='13%'><Select style='FONT-SIZE: 9pt; COLOR: #6699ff' onchange=""javascript:window.location='?Page='+this.value+'&id=" & id & "';"" size=1 name=nPage>"
For K=1 To Tpage
if k=currpage then
PageStr=PageStr & "<Option value=" & k & " selected>第" & K & "页</Option>"
else
PageStr=PageStr & "<Option value=" & k & ">第" & K & "页</Option>"
end if
Next
PageStr=PageStr & "</Select> </td></tr></table>"

ElseIf InStr(FileContent, "{$GetPictureByPage}") <> 0 Then '按分页方式生成图片内容页
If TotalPage > 1 Then
PageStr="<div class=""kspage"">" & vbcrlf & "<div style=""text-align:center"">"
If CurrPage = 1 Then
PageStr = PageStr & "<a href=""?ID=" & ID & "&Page=" & (CurrPage + 1) & """>下一张>></a>"
NextUrl="?ID=" & ID & "&Page=" & (CurrPage+1)
ElseIf CurrPage = TotalPage Then
PageStr = PageStr & "<a href=""?ID=" & ID & "&Page=" & (CurrPage - 1) & """><<上一张</a>"
NextUrl="?ID=" & ID & "&Page=1"
Else
PageStr = PageStr & "<a href=""?ID=" & ID & "&Page=" & (CurrPage - 1) & """><<上一张</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=""?ID=" & ID & "&Page=" & (CurrPage + 1) & """>下一张>></a>"
NextUrl="?ID=" & ID & "&Page=" & (CurrPage+1)
End If
PageStr =PageStr & "</div>"

dim startpage,k
startpage=1:k=0
if (CurrPage>=10) then startpage=(CurrPage\10-1)*10+CurrPage mod 10+2

PageStr=PageStr & "<a href=""?ID=" & ID & """ title=""首页"">首页</a> "
if CurrPage<>1 then
PageStr=PageStr & "<a href=""?ID=" & ID & "&Page=" & N-1 & """ title=""上一页""><<</a> "
end if
For N = startpage To TotalPage
If CurrPage = N Then
PageStr = PageStr & "<a href=""#""><font color=red>" & N & "</font></a>&nbsp;"
Else
PageStr = PageStr & "<a href=""?ID=" & ID & "&Page=" & N & """>" & N & "</a>&nbsp;"
End If
k=k+1
If k>=10 Then exit for
Next
If CurrPage <>totalpage Then
PageStr=PageStr & "<a href=""?ID=" & ID & "&Page=" & currpage+1 & """ title=""下一页"">>></a> "
end if
PageStr=PageStr & "<a href=""?ID=" & ID & "&page=" & totalpage & """ title=""末页"">末页</a> "
PageStr=PageStr & "</div>"

PageStr = "<div style=""text-align:center""><a href=""" & NextUrl & """><Img onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" src=""" & Split(PicUrlsArr(CurrPage-1), "|")(1) & """ border=""0""></a></div>" & PageStr & "</div>"
Else
PageStr = "<div style=""text-align:center""><Img onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" src=""" & Split(PhotoContent, "|")(1) & """ border=""0""></div>"& PageStr & "</div>"
End If
' response.write PageStr
' response.End()
FileContent = KSR.ReplacePictureContent(ChannelID,RS, FileContent, PageStr)