MiThink 记事本

id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的ID号！"
response.end
end if

If Request("page")="" or isnumeric(Request("page"))=False or Request("page")="0" Then
pageNum=0
Else
pageNum=Request("page")-1
End if

set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id&""
rs.open sql,conn,1,1
if rs.eof then
response.write "此内容不存在"
response.end
else
news=rs("news")
end if
rs.close

ContentStr=split(news,"{$page}")

if pageNum>ubound(ContentStr) then pageNum=ubound(ContentStr)
if pageNum<0 then pageNum=0

response.write ContentStr(pageNum)

response.write "<br>本文共"

For p = 0 to ubound(ContentStr)
if pageNum=p then
response.write "<font color=red><b>"
response.write p+1
response.write "</b></font>"
else
response.write "<a href=new_view.asp?id="&ID&"&page="&p+1&">"
response.write p+1
response.write "</a>"
end if
Next

response.write "页"