后台一提交就出现这个错误 本人很菜请大家指点迷津Provider 错误 '80020005'
类型不匹配。
/admin/admin_SongSave.asp，行 85
下边这个这个网页文件的代码
<!--#include file="conn.asp"-->
<!--#include file="../function.asp"-->
<%CheckAdmin%>
<!--#include file="../inc/char.inc"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''''
'由中国珠海倾城DJ站美化修改 WwW.qcgd.com
'辛苦了一天终于把会员功能完成了,现在免费提供给大家使用
'希望大家能够保留我的版权,如果问题请到论坛提出http://www.qcgd/bbs
'本程序由倾城之恋独立完成,作者QQ1762274
'
'''''''''''''''''''''''''''''''''''''''''''''''''
page=trim(request.querystring("page"))
AskClassid=trim(request.querystring("AskClassid"))
LF_Path=request.form("LF_path")
LS_ID=request.form("LS_ID")
MusicName=request.form("MusicName")
classid=request.form("classid")
Specialid=request.form("Specialid")
founerr=false
act=request("act")
if act<>"SetIsGood" and act<>"del" then
if LF_Path="" then
errmsg="<li>试听的路径不能为空</li>"
founderr=true
end if
if MusicName="" then
errmsg=errmsg+"<li>显示名称不能为空</li>"
founderr=true
end if
end if
if founderr=true then
call error()
else
set rs=server.createobject("adodb.recordset")
if LS_ID<>"" then
sql="select ListenServerUrl from DJServer where LServerID="&LS_ID
rs.open sql,conn,1,1
ListenServerUrl=rs("ListenServerUrl")
rs.close
end if
if act="edit" and request("id")<>"" then
sql="select * from MusicDJ where id="&request("id")
rs.open sql,conn,1,3
rs("LF_Path")=LF_Path
if LS_ID<>"" then
rs("LS_ID")=LS_ID
else
rs("LS_ID")=null
end if
rs("MusicName")=MusicName
rs("classid")=classid
rs("Specialid")=Specialid
rs("musictype")=trim(request("musictype"))
rs("dateandtime")=now()
rs.update
rs.close
sql="select * from collection where Musicid="&request("id")
rs.open sql,conn,1,3
if not rs.eof then
rs("MusicName")=MusicName
rs.update
end if
rs.close
call Success
Response.End
elseif act="add" then
sql="select * from MusicDJ where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("LF_Path")=LF_Path
if LS_ID<>"" then
rs("LS_ID")=LS_ID
else
rs("LS_ID")=null
end if
rs("MusicName")=MusicName
rs("classid")=classid
rs("musictype")=trim(request("musictype"))
rs("Specialid")=Specialid
rs("dateandtime")=now()
rs.update
rs.close
call Success
Response.End
elseif act="SetIsGood" then
sql="select IsGood from MusicDJ where id="&request("id")
rs.open sql,conn,1,3
if not rs.EOF then
if rs("IsGood")=true then
rs("IsGood")=false
else
rs("IsGood")=true
end if
rs.update
end if
rs.close
elseif act="del" then
sql="delete from MusicDJ where id="&request.QueryString("ID")
rs.open sql,conn,1,1
conn.close
set conn=nothing
classid=request("classid")
page=request("page")
response.redirect "admin_songmana.asp?classid="&classid&"&page="&page&""
else
errmsg=errmsg+"<li>操作错误！请联系管理员</li>"
call error()
Response.End
end if
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "admin_SongMana.asp?Classid="+AskClassid+"&Page="+Page
end if
sub Success
%>
<body bgcolor="#eeeeee">
<div align="center">
<center>
<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#EEEEEE">
<tr>
<td>
<div align="center">
<center>
<table border="1" width="95%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#56B0F4" background="../imga/bg1.jpg">
<tr align="center">
<td width=100% align=center height=20 background="../images/bg1.gif">舞曲<%if act="add" then%>添加<%else%>修改<%end if%>成功</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="Tableline" style="border-collapse: collapse" bordercolor="#eeeeee">
<tr>
<td width="15%" align="right">舞曲名：</td>
<td width="85%"><%=MusicName%> </td>
</tr>
<tr>
<td align="right"><font color="#FF0000">服务器地址：</td>
<td><font color="#FF0000"><%=ListenServerUrl%></td>
</tr>
<tr>
<td align="right">试听地址：</td>
<td><%=LF_Path%></td>
</tr>
<tr>
<td colspan="2" height="15" align=center background="../images/bg1.gif"><input type="button" name="button1" value="返回" onclick="javascript:history.go(-2)"> <input type="button" name="button2" value="继续<%if act="add" then%>添加<%else%>修改<%end if%>" onclick="javascript:history.go(-1)"></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</div>
</body>
</html>
<%end sub%>
急烦请加本人QQ48135460 谢谢
是85行