<%

pagelen=1000

thisid=rs("id")

wz=rs("content")

if len(wz)>=pagelen then

p_count=(len(wz)/pagelen)+1

c_page=request.querystring("page")

cc_page=cint(c_page)

if c_page="" or c_page="1" then

page=1

content=left(wz,pagelen)

response.write content

response.write "<br>页码:"

response.write "<select onChange=""window.location.href=(this.options[this.selectedIndex].value);"">"

for i=1 to p_count

if i=cc_page then

response.write "<option selected>"

response.write ""&i&""

response.write "</option>"

else

response.write "<option value=""book.asp?bookid="&thisid&"&page="&i&""">"&i

response.write "</option>"

end if

next

elseif cc_page<p_count then

cc_page=cint(c_page)

a=cc_page-1

content=Mid(wz,a*pagelen,pagelen)

response.write content

response.write "<br>页码:"

response.write "<select onChange=""window.location.href=(this.options[this.selectedIndex].value);"">"

for i=1 to p_count

if i=cc_page then

response.write "<option selected>"

response.write ""&i&""

response.write "</option>"

else

response.write "<option value=""book.asp?bookid="&thisid&"&page="&i&""">"&i

response.write "</option>"

end if

next

response.write "</select>"

else

response.write "页号超出"

end if

else

response.write wz

end if

%>