我是菜鸟~
最近编了个有关音乐搜索的ASP文件,代码如下!
<%
'用不用数据源的连接方法连接数据库
Dim db, strCon '声明两个实例变量
strCon ="Dbq="&Server.Mappath("music.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
'Server.Mappath 对象将虚拟路径转化为物理路径
Set db=Server.CreateObject("ADODB.Connection")
'利用Server对象的CreateObject方法，建立一个数据库存取组件的Connection对象实例db
db.Open strCon '建立与数据库的连接
Set rs= Server.CreateObject("ADODB.Recordset")
Dim strSql,rs,singer,song_name,cd_name,search,song1
search=trim(request.form("search"))
search=replace(search,"'","''")
search=request("search")
if search="" then
response.write "查找字符不能为空，请重输入查找的信息"
response.write "<a href='index-2.asp'>返回重查</a>"
Response.End
'end if
'Set rs= Server.CreateObject("ADODB.Recordset")
elseif search="Singer" then
strsql="select * from song1 where singer Like '%"& search &"%'"'order by Nclassid desc
elseif search="song_name" then
'sql="select * from MusicList where MusicName Like '%"& keyword &"%' order by id desc"
strsql="select * from song1 where song_name like '%"& search &"%'"
elseif search="cd_name" then
strsql="select * from song1 where cd_name Like '%"& search &"%'" 'order by Specialid desc"
else
end if
rs.open strsql
'以下显示数据库记录
%>
<table border="1" width="100%">
<tr bgcolor="#eoeoeo">
<td>歌手</td>
<td>歌曲名称</td>
<td>专辑</td>
<td>录入时间</td>
<td>分类</td>
<td>推荐</td>
<td>试听</td>
</tr>
<%
Do While Not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td><%=rs("singer")%></td>
<td><%=rs("song_name")%></td>
<td><%=rs("cd_name")%></td>
<td><%=rs("song_date")%></td>
<td><%=rs("class_1")%></td>
<td><%=rs("tuijian")%></td>
<td><%=rs("song")%></td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop
%>
它提示的错误为
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/www/music/select1.asp, 第 45 行
谢谢各位了
