?? jiedai2.asp
字號(hào):
<%@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
' 網(wǎng)址參數(shù)的解析
QueryString = Request.ServerVariables("QUERY_STRING")
ParamList = Split( QueryString, "&" )
For I = 0 To UBound(ParamList)
Param = Split(ParamList(I), "=")
' 找到含有"Del??" 或"Upd??" 的參數(shù)
If Left(Param(0), 3) = "Del" Or Left(Param(0), 3) = "Upd" Then
RecNo = Mid(Param(0), 4) ' 修改或刪除哪一項(xiàng)
PageNo = (RecNo-1) \ 10 + 1 ' 目前在哪一頁
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -