p;GO
客户端这样调用:
<!--#include file="conn.asp"-->
<!--#include file="adovbs.inc"-->
<% dim T_com
dim T_rs'declare datamanage recordset
dim parameters
set T_com=server.createobject("adodb.command")
T_com.ActiveConnection=conn
T_com.CommandText="page"
T_com.CommandType=adCmdStoredProc
'T_com.Prepared=true
set parameters=T_com.CreateParameter("@pagenum",adInteger,adParamInput)
T_com.Parameters.Append parameters
dim page
page=request.QueryString("page")
if page="" then
page=1
end if
T_com("@pagenum")=page
set T_rs=T_com.Execute
do while not T_rs.eof
response.Write T_rs("c_name")
T_rs.movenext
loop
%>
<a href=http://www.webjx.com/htmldata/2005-12-23/"a.asp?page=<%=page+1%>">ddddd</a>
客户端这样调用:
<!--#include file="conn.asp"-->
<!--#include file="adovbs.inc"-->
<% dim T_com
dim T_rs'declare datamanage recordset
dim parameters
set T_com=server.createobject("adodb.command")
T_com.ActiveConnection=conn
T_com.CommandText="page"
T_com.CommandType=adCmdStoredProc
'T_com.Prepared=true
set parameters=T_com.CreateParameter("@pagenum",adInteger,adParamInput)
T_com.Parameters.Append parameters
dim page
page=request.QueryString("page")
if page="" then
page=1
end if
T_com("@pagenum")=page
set T_rs=T_com.Execute
do while not T_rs.eof
response.Write T_rs("c_name")
T_rs.movenext
loop
%>
<a href=http://www.webjx.com/htmldata/2005-12-23/"a.asp?page=<%=page+1%>">ddddd</a>
| 对此文章发表了评论 |
