UC知道哪个知道这个代码的意思？
来源：百度知道 编辑：UC知道 时间：2024/05/31 05:17:15
<%
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 " & Table_style & " border=1 width=100% cellpadding=4 style=""border-collapse: collapse"" bordercolor=#CCCCCC>" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""&g
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 " & Table_style & " border=1 width=100% cellpadding=4 style=""border-collapse: collapse"" bordercolor=#CCCCCC>" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""&g
这时采用VBScript语言编写的asp脚本，实现内容的动态显示，具体要看数据库查询的语句和内容。
你可以发去编程区问问看...这是VBScript代码..
上一页 下一页
起到翻页和跳转到其他页的功能,如"上一页 [1] [2] [3] 4 [5] [6] [7] [8] [9] [10] 下一页
根据你网址传来的参数,实现分页功能