<%@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 dbo.股票表"
rs.CursorType = 1
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  ' 目前在哪一頁