请问 asp分页源码如何改成伪静态的

请教 asp分页源码怎么改成伪静态的？
最近开始研究伪静态了，httpd.ini文件里的规则也写上了
RewriteRule /new_(\d+)_(\d+)\.html /news\.asp\?lid=$1&page=$2 [N,I]
测试也好使了，但是分页源码却不会改，

Sub PageControl(iCount,pagecount,page,table_style,font_style)
'记录总数，总页数，当前页数
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next
    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR >" & vbCrLf )
    Response.Write("<TD align=left  class=hui>" & vbCrLf )
    Response.Write(font_style & vbCrLf ) 
'response.Write "<A href=javascript:history.back()>【返回前页】</a>&nbsp;&nbsp;&nbsp;"
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上一页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if
    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if
    Response.Write("页次：" & page & "/" & pageCount & "页"&  vbCrLf) 
 
    Response.Write(" 共" & iCount & "条记录" &  vbCrLf)
    Response.Write(" 转" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT class=button type=submit value=转到>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub

主要是上一页和下一页等的链接处不会修改，因为网站里不止新闻还有产品也是调用这个分页程序的，而且参数也不一样，请问分页的源码改如何改？？

还有规则如何改？

如果有例子发给我也行

2.RewriteRule /dy_(.+)\.html /dy.asp\?n=$1
我想实现，dy.asp?n=gs dy_gs.html
可是不好使，请问该如何改？？

多谢了
[解决办法]
1、第1个用EasyAsp 2.2类很容易解决
2、第2个把dy.asp?n=gs变成dy_gs.html貌似不行，只能是dy.asp?dy_gs.html，都说是了伪静态，所以.asp是不能漏掉的。
[解决办法]
在查询前面加上下面语句即可
〈%
if request("page")="" then
page=1
else
page=clng(request("page")) 
end if
%〉

查看更多 下一篇