网页直接显示
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'ShowPageNew'
代码部分
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql= sql
mypage.pagesize=50
set rs=mypage.getrs()
for i=1 to mypage.pagesize
if not rs.eof then
' if rs("UserName") <> rs("prev_username") and len(trim(rs("prev_username"))) > 1 then
' color = ";color:#F00"
' else
' color = ""
' end if
%>
下面这句是错误页面提示的所在行的错误代码
我也不知道哪里有问题,高手支招,谢谢
<td align="center" ><%=mypage.ShowPageNew()%></td>
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'ShowPageNew'
代码部分
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql= sql
mypage.pagesize=50
set rs=mypage.getrs()
for i=1 to mypage.pagesize
if not rs.eof then
' if rs("UserName") <> rs("prev_username") and len(trim(rs("prev_username"))) > 1 then
' color = ";color:#F00"
' else
' color = ""
' end if
%>
下面这句是错误页面提示的所在行的错误代码
我也不知道哪里有问题,高手支招,谢谢
<td align="center" ><%=mypage.ShowPageNew()%></td>