pagemod.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 19 行

<!-- #include virtual="/kjasp/func/DB.fun" -->

<%
Set rs = GetMdbStaticRecordset("Sample.mdb", "股票行情表")
If rs Is Nothing Then
    Response.Write "GetMdbRecordset 呼叫失败!"
    Response.End
End If

' 网址参数的解析
QueryString = Request.ServerVariables("QUERY_STRING")
ParamList = Split( QueryString, "&" )
For I = 0 To UBound(ParamList)
    Param = Split(ParamList(I), "=")

    ' 找到含有"Del??" 或"Upd??" 的参数
    If Left(Param(0), 3) = "Del" Or Left(Param(0), 3) = "Upd" Then
        RecNo = Mid(Param(0), 4)     ' 修改或删除哪一项
        PageNo = (RecNo-1) \ 10 + 1  ' 目前在哪一页