为何提示我缺少rs对象,真的不知道是怎么回事!求救!!!
为何提示我缺少rs对象,真的不知道是怎么回事!求救!!!
<%
set con=createobject("adodb.connection")
con.Open "driver={microsoft access driver (*.mdb)};PWD=abc;DBQ=" & server.MapPath("sms.mdb")
set rs=server.CreateObject ("adodb.recordset")
set rs.ActiveConnection =con
rs.Open "select a.no,a.sms,b.date,b.time from bbb a,love b where a.no =b.nn"
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
Else If Page >rs.PageCount Then Page =rs.Pagecount
End If
ShowOnePage rs, Page