Products Search " style="border:1px solid #FFFFFF; height:10px; line-height:10px; width:130px;"/>
Photo Gallery
<%set rs=Server.CreateObject("adodb.recordset") sql="select bt,id from qiye where lm='Photo Gallery' order by aboutusorder asc,id asc" rs.open sql,conn,1,1 while not rs.eof %> <%rs.movenext wend rs.close set rs=nothing %>
"><%=rs("bt")%>
<% if request.QueryString("id")="" then sqlnr="select top 1 nr,bt from qiye where lm='Photo Gallery' order by aboutusorder asc,id asc" else id=SafeRequest("id",1) sqlnr="select nr,bt from qiye where id="&id end if Set rsnr=Server.CreateObject("adodb.recordset") rsnr.Open sqlnr,conn,1,1 if rsnr.recordcount>0 then content=rsnr("nr") %>
<%if id="" then%>Photo Gallery<%else%><%=rsnr("bt")%><%end if%>
<%end if rsnr.close set rsnr=nothing %>
<%dim page,pagecount,thispage,linenum,allline const pageline=1 ''每页显示10行 linenum=split(content,"[分页标记]") ''本例为计算字符串
标记的个数 allline=ubound(linenum)+1 ''全文
(换行标记)总数 pagecount=int(allline) ''计算总页数 page=request("page") if isempty(page) then thispage=1 else thispage=cint(page) end if for i=0 to allline if i+1>thispage*pageline-pageline and i" ''输出分页后的内容 end if next if pagecount>1 then response.write "

Total:"&pagecount&" pages ,"&page&"page " for i=1 to pagecount if thispage=i then response.write i & " " else response.write " ["&i&"]  " end if next end if %>