qq.asp

燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn

<%
Sub Showviwe
dim pageWordNum,StartWord,Content,Length,PageAll,i
pageWordNum=clng(wznum)
StartWord = 1
Content=rs("test")
Length=len(Content)
PageAll=(Length+PageWordNum-1)\PageWordNum
i=clng(request("i"))
if ii<>0 then i=ii-1
if isnull(i) or i="" then i=0

	dim ccc,sss
	ccc=instr(content,"||")
	if ccc>0 then
	sss=split(content,"||")
	PageAll=ubound(sss)+1
		if i>PageAll-1 then i=PageAll-1
	content = sss(i)
	else
		if clng(i)>int(PageAll) then i=PageAll-1
	Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
	end if


response.write("-----------<br/>" & ubb2(content) & "")
if 0<=i<PageAll then
       Response.Write "<br/>"
end if
   if cint(i)<cint(PageAll)-1 then
       Response.Write "<a href='view.asp?class="&ids&"&amp;id=" &  rs("id") & "&amp;i=" & i+1 & "&amp;page=" & page & "'>下页</a>"
   End if
   if cint(i)>0 then 
   Response.Write "&nbsp;" & "<a href='view.asp?class="&ids&"&amp;id=" &  rs("id") & "&amp;i=" & i-1 & "&amp;page=" & page & "'>上页</a>"
		if  i<pageall-1 then Response.Write "&nbsp;<a href='view.asp?class="&ids&"&amp;id=" &  rs("id") & "&amp;i=100&amp;page=" & page & "'>尾页</a>"
   End if

if PageAll>1 then
       response.write "(" & i+1 & "/" & PageAll & ")"
%>
<br/>第<input name="i<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="2" value="<%response.write(i+2)%>" maxlength="2"/>
<anchor>跳页
    <go href="view.asp?id=<%=id%>&amp;class=<%=ids%>&amp;page=<%=page%>" accept-charset='utf-8'>
        <postfield name="ii" value="$(i<%=minute(now)%><%=second(now)%>)"/>
    </go>
</anchor>
<%end if
End Sub%>