ADODB.Recordset '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
以下是网页的代码!<%ifrequest.form("sub")="sub"thenusername=trim(request.form("username"))user...
以下是网页的代码!
<%if request.form("sub")="sub" then
username=trim(request.form("username"))
username=replace(username,"'","")
password=trim(request.form("password"))
password=replace(password,"'","")
if username=yd_admin and password=yd_password then
session("yd631")="yd631"
response.Redirect("index.asp")
else
response.Redirect("index.asp")
end if
end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="512" align="left" valign="top">
<FORM name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="music/listplay.asp">
<div align="center">
<span class="style3"><a href="#" onClick="window.open('music/paihang.asp','add','scrollbars=yes,resizable=no,width=500,height=600')">音乐排行榜</a> </span> <span class="style3"> <a href="#" onClick="window.open('music/jinqu.asp','add','scrollbars=yes,resizable=no,width=500,height=600')">推荐金曲</a></span> </div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="36">编号</td>
<td colspan="2">歌曲</td>
<td width="57">歌手</td>
<td width="46">视听</td>
<td width="43">点击</td>
<td width="83">上传时间</td>
</tr>
<%
sql="select * from yd_music order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF not rs.eof Then
proCount=rs.recordcount
rs.PageSize=14 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
m=1
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
\wwwroot\index.asp, line 121
第121行 rs.open sql,conn,1,1 展开
<%if request.form("sub")="sub" then
username=trim(request.form("username"))
username=replace(username,"'","")
password=trim(request.form("password"))
password=replace(password,"'","")
if username=yd_admin and password=yd_password then
session("yd631")="yd631"
response.Redirect("index.asp")
else
response.Redirect("index.asp")
end if
end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="512" align="left" valign="top">
<FORM name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="music/listplay.asp">
<div align="center">
<span class="style3"><a href="#" onClick="window.open('music/paihang.asp','add','scrollbars=yes,resizable=no,width=500,height=600')">音乐排行榜</a> </span> <span class="style3"> <a href="#" onClick="window.open('music/jinqu.asp','add','scrollbars=yes,resizable=no,width=500,height=600')">推荐金曲</a></span> </div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="36">编号</td>
<td colspan="2">歌曲</td>
<td width="57">歌手</td>
<td width="46">视听</td>
<td width="43">点击</td>
<td width="83">上传时间</td>
</tr>
<%
sql="select * from yd_music order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF not rs.eof Then
proCount=rs.recordcount
rs.PageSize=14 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
m=1
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
\wwwroot\index.asp, line 121
第121行 rs.open sql,conn,1,1 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询