Dim Cmd : Set Cmd = Server.CreateObject("ADODB.Command")
    Set Cmd.ActiveConnection=conn
    Cmd.CommandText="KS_TSql"
    Cmd.CommandType=4
    CMD.Prepared = true  
    Cmd.Parameters.Append cmd.CreateParameter("@SQL",202,1,8000,SQLStr)
    Set Rs=Cmd.Execute

科讯分页过程

SQLStr为查询语句