pagemod.asp

学生学历证明查询系统 欢迎使用HOT学历证明查询系统

<!-- #include file="func/db.fun" -->

<%
     
     name=session("name")
     pws=session("pws")
     if name="" then
  %>
    <script language="VBScript">
       MsgBox "你是非法用户。"
       history.back()
    </script>
<%  end if
     set rs=GetMdbStaticRecordset("data/user.mdb","userdase")
If rs Is Nothing Then
    Response.Write "出错了，去联系管理员吧~~!"
    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  ' 目前在哪一页