高校问答scanf在c语言中的意思:对你来说很容易，帮忙处理ASP中加入文本框
来源：百度文库 编辑：高校问答 时间：2024/04/28 05:35:07
<!--#include file="conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<template>
<do type="accept" label="返回"><prev/></do>
</template>
<card id="gbook" title="留言列表">
<%
'gbook 页面
'显示记录
dim page
page=Request.querystring("page")
if page="" then page=request.Cookies("page")
if page="" then page=1 else page=cint(page)
if page<1 then page=1
response.Cookies("page")=page
dim sql,i
' sql="select id,userid,标题,点击,回复?from gbook where pid=0 order by 发表时间 desc"
sql="SELECT ID, 名称,标题,点击,回复,发表时间 "
sql=sql&"FROM GBOOK "
sql=sql&"where pid=0 order by 最后回复 desc,发表时间 desc"
dim pageCount,recordcount
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
rs.PageSize=5 '设置分页
recordcount=rs.recordcount
PageCount=rs.PageCount '取得总页
if page>PageCount then page=PageCount
if not(rs.eof and rs.bof) then
i=1
rs.AbsolutePage=page '设置页码
do while not rs.eof
response.Write "<p>"&i
response.Write ""&UBBCode(rs(2))&""
response.Write "" &rs(1) &"<br/>"
response.Write "" & rs(5)
response.Write "</p>"
rs.movenext
i=i+1
if i>5 then exit do
loop
rs.close
set rs=nothing
response.Write "<p>共有"&PageCount&"页 现为第"&page&"页</p>"&vbCrLf
response.Write "<p><a href='?page="&(page-1)&"'>上一页</a>|"
response.Write "<a href='?page="&(page+1)&"'>下一页</a></p>"
end if
%>
</card>
</wml>
<!--#include file="conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<template>
<do type="accept" label="返回"><prev/></do>
</template>
<card id="gbook" title="留言列表">
<%
'gbook 页面
'显示记录
dim page
page=Request.querystring("page")
if page="" then page=request.Cookies("page")
if page="" then page=1 else page=cint(page)
if page<1 then page=1
response.Cookies("page")=page
dim sql,i
' sql="select id,userid,标题,点击,回复?from gbook where pid=0 order by 发表时间 desc"
sql="SELECT ID, 名称,标题,点击,回复,发表时间 "
sql=sql&"FROM GBOOK "
sql=sql&"where pid=0 order by 最后回复 desc,发表时间 desc"
dim pageCount,recordcount
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
rs.PageSize=5 '设置分页
recordcount=rs.recordcount
PageCount=rs.PageCount '取得总页
if page>PageCount then page=PageCount
if not(rs.eof and rs.bof) then
i=1
rs.AbsolutePage=page '设置页码
do while not rs.eof
response.Write "<p>"&i
response.Write ""&UBBCode(rs(2))&""
response.Write "" &rs(1) &"<br/>"
response.Write "" & rs(5)
response.Write "</p>"
rs.movenext
i=i+1
if i>5 then exit do
loop
rs.close
set rs=nothing
response.Write "<p>共有"&PageCount&"页 现为第"&page&"页</p>"&vbCrLf
response.Write "<p><a href='?page="&(page-1)&"'>上一页</a>|"
response.Write "<a href='?page="&(page+1)&"'>下一页</a></p>"
end if
%>
</card>
</wml>
加这个干什么。
是输入一个数字，就跳到哪一页对吗？