UC知道asp做的wap 网页 ,传递两参数时出错，高手帮帮忙！
来源：百度知道 编辑：UC知道 时间：2024/05/29 18:49:47
<%
function page(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if
Dim arr()
ReDim arr(pagecontent)
for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next
if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if
Response.Write("<br/>")
for i = 1 to pagecontent
Response.Write("<go href=""?page="&i&"&id="&ForumID&""">"&i&"</a> ")
next
else
Response.Write(str)
end if
end
function page(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then '计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if
Dim arr()
ReDim arr(pagecontent)
for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next
if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if
Response.Write("<br/>")
for i = 1 to pagecontent
Response.Write("<go href=""?page="&i&"&id="&ForumID&""">"&i&"</a> ")
next
else
Response.Write(str)
end if
end
因为你显示下一页的时候还是在同一个页面显示的. 那你就相当于在库里读取了两次.前一个页面是不让数据更新的,而你到下一个页面它又要让数据更新的,所以这样就会发生冲突.
所所以换一种分页方式比较好.而这根本就不要关系到传参数的问题,这样也减轻服务哭的负担.
发个例子给你参考一下.
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
<tr>
<td width="10%" height="22" align="center" bgcolor="#D0DDEB">用户号</td>
<td align="center" bgcolor="#D0DDEB">项目名称</td>
<td width="10%" align="center" bgcolor="#D0DDEB">操作</td>
</tr>
<%
sql="select * from User_Enterprise where company_code in (select company_code from Data_Score b )"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if rs.eof then
%>
<tr>
<td height="22" align=