(2).ASP通用的分页程序，只要传递5个参数，就可以直接使用，放在表格里面或者body里面就可以，各问大虾帮我看看，是否还可以优化一下代码

[greentea_2013]

if (j>=(m_FieldCount-m_FieldCount_Show)) then

response.Write "<td>"
if j=m_FieldIndex_i then
'如果只有一个连接参数
if(m_Link_back_str="") then
response.Write "<a href='"+m_Link_pro_str+cstr(m_recordset(j))+"' target='_blank'>"+cstr(m_recordset(j))+"</a>"
else
response.Write "<a href='"+m_Link_pro_str+cstr(m_recordset(j))+m_Link_back_str+m_Link_back_str_FieldIndex_str+"' target='_blank'>"+cstr(m_recordset(j))+"</a>"
end if
else
response.Write cstr(m_recordset(j))
end if

response.Write "</td>"
end if

next
%>
</tr>
<%
'response.Write cstr(i)+m_recordset("bt")
Permsg = Permsg - 1
m_recordset.Movenext
i=i+1
Loop
%>

</table>

<%
itemStr = ""
For Each item in Request.Form
if item <> "Page_Value" And item <> "Page_Value_Max" then
itemStr = itemStr & "&" & item & "=" & Server.HTMLEncode(Request.Form(item))
End if
Next

if itemStr = "" then
For Each item in Request.QueryString
if item <> "Page_Value" And item <> "Page_Value_Max" then
itemStr = itemStr & "&" & item & "=" & Server.HTMLEncode(Request.QueryString(item))
End if
Next
End if
%>
<form name="Page_Value_Form" method="POST" action="<%=Request.ServerVariables("URL")%>?Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>">共<b><font color="#FF0000"><%=m_recordset.RecordCount%></font></b>条　<b><font color="#FF0000"><%=Page_Value%>/<%=Page_Value_Max%></font></b>　<a href="javascript:Next_Or_Previous_Value_Page(1)">首页</a>　<a href="javascript:Next_Or_Previous_Value_Page(2)">上一页</a>　<a href="javascript:Next_Or_Previous_Value_Page(3)">下一页</a>　<a href="javascript:Next_Or_Previous_Value_Page(4)">末页</a>　<input type="submit" value="转到"> <input type="text" name="Page_Value" size="3">页</form>
<script language="JavaScript">
function Next_Or_Previous_Value_Page(vChar){
if(vChar == 1)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=1&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
if(vChar == 2)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%if Page_Value - 1 = 0 then Response.Write 1 Else Response.Write Page_Value - 1 end if%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
if(vChar == 3)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%if Page_Value + 1 >= Page_Value_Max then Response.Write Page_Value_Max Else Response.Write Page_Value + 1 end if%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
if(vChar == 4)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%=Page_Value_Max%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
}
</script>
<%
Else
Response.Write "<tr><td><center>无您所需的内容</center></td></tr>"
End if
m_recordset.Close
Set m_recordset = Nothing
Else
Response.Write("<script>alert('输入的值超过最大页，点击确定返回');history.back()</script>")
End if
Else
Response.Write("<script>alert('非法请求，点击确定返回');history.back()</script>")
End if
Else
Response.Write("<script>alert('非法请求，点击确定返回');history.back()</script>")
End if
%>
调用这个文件的例子:
<html>
<body>
<%
Application("id")="28"
Application("sql_str")="select ksid,bt,rq from outinfo where ksid="+Application("id")
Application("FieldCount")=3 '显示字段个数
Application("FieldCount_Show")=2 Application("FieldIndex")=2 '第m_FieldIndex需要进行超连接
Application("Link_pro")="list.asp?t=" '超连接前缀
Application("Link_back")="&id=" '超连接前缀
Application("Link_back_str_FieldIndex_i")=1
%>
<iframe marginWidth=0 marginHeight=0 marginRight=0
src="temp_lll.asp" frameBorder=no
width=550 scrolling=no height=300>
</iframe>
</body>
</html>

[「已注销」]

竟然用application来传递~~~

直接用queryString传入过程不就得了~

晕死~

[greentea_2013]

楼上的，我传递的参数很多，也不想在连接地址被人看到，所以用
Application,或者Session

[「已注销」]

我更晕~

那用session也不能用application呀~

这样岂不是整个网站的人一起翻页，那将是多么壮观的事情哪~~

期盼ing~~~

[「已注销」]

对不起~~~前面说的话没经过脑子~~~

乞求楼主别在意……

其实不必这么麻烦~

你把这些参数放在一个inc文件里包含在想用的页面里就可以了~或者直接修改当前页面的地址就可以了~

这样子你每个页面都得用一个新的session变量来存储一个新页面的超链接前缀和后缀~~
如果是多种类的新闻系统，您这估计还真不好使~~

[擒兽]

可以考虑用Cookies，不想别人看到长的URL也可以用隐藏的from表单啊

[china_programmer]

使用Request()

[RunFromHeart]

我更晕~

那用session也不能用application呀~

这样岂不是整个网站的人一起翻页，那将是多么壮观的事情哪~~

期盼ing~~~