level 1
狼郎123654
楼主
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/admin/Pic.asp,行 30
<%if session("grade")="" then response.redirect "./"%>
<!--#include file="chklogin.asp"-->
<!--#include file="var.asp"-->
<!--#include file="../sub/conn2.asp"-->
<!--#include file="../sub/fun.asp"-->
<!--#include file="Top.Asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webtitle%></title>
<link href="../sub/main2.css" rel="stylesheet" type="text/css">
</head>
<style type="text/css">
<!--
body {
background-color: #8DDFFB;
}
-->
</style>
</head>
<%=webbody%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#8DDFFB" >
<tr>
<td height="27" bgcolor="#009ACE"><b><font color="#ffffff"> 会员像册管理</font></b><br>
</td>
</tr>
</table>
<%
Set Rs=server.createobject("adodb.recordset")
Rs.Open session("sqpic"),conn,1,1
IF (rs.State =adStateClosed) or (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN
RESPONSE.Write"<BR><BR>暂时还没有信息..."
ELSE
dim page,ipage
rs.pagesize=20
page=clng(request("Page"))
if page=empty then page=1
rs.absolutepage=page
%> <table width="100%" height="40" border="0" cellpadding="0" cellspacing="0" bgcolor="#8DDFFB">
2015年04月14日 07点04分
1
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/admin/Pic.asp,行 30
<%if session("grade")="" then response.redirect "./"%>
<!--#include file="chklogin.asp"-->
<!--#include file="var.asp"-->
<!--#include file="../sub/conn2.asp"-->
<!--#include file="../sub/fun.asp"-->
<!--#include file="Top.Asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webtitle%></title>
<link href="../sub/main2.css" rel="stylesheet" type="text/css">
</head>
<style type="text/css">
<!--
body {
background-color: #8DDFFB;
}
-->
</style>
</head>
<%=webbody%>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#8DDFFB" >
<tr>
<td height="27" bgcolor="#009ACE"><b><font color="#ffffff"> 会员像册管理</font></b><br>
</td>
</tr>
</table>
<%
Set Rs=server.createobject("adodb.recordset")
Rs.Open session("sqpic"),conn,1,1
IF (rs.State =adStateClosed) or (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN
RESPONSE.Write"<BR><BR>暂时还没有信息..."
ELSE
dim page,ipage
rs.pagesize=20
page=clng(request("Page"))
if page=empty then page=1
rs.absolutepage=page
%> <table width="100%" height="40" border="0" cellpadding="0" cellspacing="0" bgcolor="#8DDFFB">
