asp类的问题 高手进

来源：百度知道 编辑：UC知道 时间：2024/06/22 10:01:22
小弟学着写个分页类 遇到个奇怪的问题
下边的代码
第一个是获取类外指定的查询条件

在第二 三 四个过程中输出显示该查询条件

第二过程输出查询条件为空

第 三 四 过程输出查询条件正常

不知道为什么第二个过程参数为什么传不进去呢？

'查询条件
Public Property Let WhereStr(s)
If Len(s)>0 Then sWhereStr="Where "&s
End Property
'获取总记录数
Public Property Get RowCount()
'输出变量
Response.Write (sWhereStr)
If iRecordCount<1 Then
RowCount=oConn.Execute("Select Count(*) From "&sTable&" "&sWhereStr&"",0,1)(0)
Else
RowCount=iRecordCount
End If
End Property
'获取总页数
Public Property Get PageCount()
'输出变量
Response.Write (sWhereStr)
PageCount=iRecordCount/iPagesize
If (iRecordCount Mod iPagesize)=0 Then
PageCount=Int(PageCount)
Else
PageCount=Int(PageCount)+1
End If
End Property
'获取当前页数
Public Property Get Page()

这是我写来用的 希望对楼主有用: QQ 165368576
<%
Dim Conn,Rs,Sql,Constr,Varray,Page,I

Page = Request.QueryString("Page")
'数据库连接；
Set Conn = Server.CreateObject("Adodb.Connection")
Constr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath("test.mdb")
Conn.Open Constr

Class Data_CutPage
Private Rsp,Postion,Vnum,Fnum
Public TotalPageNum,TotalRsNum
Private Sub Class_Initialize
Num = 0
Set Rsp = Server.CreateObject("Adodb.Recordset")
End Sub
Public Function GetData(Sqlstr,ConObj,Psize,CurrentPage)
Rsp.Open Sqlstr,ConObj,1,1
Rsp.PageSize = Psize
TotalPageNum = Rsp.PageCount
TotalRsNum = Rsp.RecordCount
If CurrentPage&"" = "" Or Not IsNumeric(CurrentPage) Then CurrentPage = 1
CurrentPage = Cint(CurrentPage)
If Curren