ASP分页问题，急啊，求救啊，100分啊

来源：百度知道 编辑：UC知道 时间：2024/06/21 17:33:17
谁能帮我写出分页，这100分就是他的，外追加50分
数据库名 data.mdb 字表名 new
字段 newsid,newsname,newstitle,newswords,
要求分页显示
每页20条，用1 2 3 4 5 6....显示，对于高手来说是非常简单，急，谢谢

Function.asp
<%

Function PageUrl(moveParam,removeList)
dim strName
dim KeepUrl,KeepForm,KeepMove
removeList=removeList&","&moveParam
KeepForm=""
For Each strName in Request.Form
if not InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 and Request.Form(strName)<>"" then
KeepForm=KeepForm&"&"&strName&"="&Request.Form(strName)
end if
removeList=removeList&","&strName
Next

KeepUrl=""
For Each strName In Request.QueryString
If not (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Then
KeepUrl = KeepUrl & "&" & strName & "=" & Request.QueryString(strName)
End If
Next

KeepMove=KeepForm&KeepUrl

If (KeepMove <> "") Then
KeepMove = Right(