duanqi1.asp

在线理财系统ASP+SQL版

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM 短期债务表"
rs.CursorType = 2
rs.CursorLocation = 3
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%

%>
<%
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  ' 目前在哪一页