ASP程序某段语言求助

首先,你第一句action=request("action")
....请注意你传的字段是act不是action.需要改成:
action=request("act")
先试试.成不成.如果成了那最好,如果不成,把代码发全了.

然后紧接着
sql="select * from Box where UserName='"&membername&"' and Musicid="&Musicid
rs.open sql,conn,1,3
if not rs.EOF then
其中membername你也没赋值.这句好像是查是否在表中有这首歌,但接下来:
response.Redirect "musicsc.asp?action=show"
参数没传,至少应该是response.Redirect "musicsc.asp?action=show&Musicid="& Musicid &"
才对吧?

最后你代码还没写完.action=show时候..
太晚了回去睡觉了..明天来.楼上佩服,这么急拿分?好像没改什么么?

___________________________________________
sql="select * from Box where UserName='"&membername&"' and Musicname and Musicid="&Musicid

上面添加个 musicname and
___________________________________________
rs2.close
set rs2=nothing
rs.AddNew
rs("UserName")=membername
rs("Musicid")=Musicid
rs("MusicName")=MusicName '添加这个
rs("Singer")=Singer

rs("NClassid")=NClassid
rs.Update
___________________________________________

那155分也要了

难道我错了么?

<%
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" then
Musicid=request.QueryString("id")
sql="select * from Box where UserName='"&membername&"' and Musicname and Musicid="&Musicid
rs.open sql,conn,1,3
if not rs.EOF then
response.Redirect "musicsc.asp?action=show"
response.end
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from MusicList where id="&Musicid
rs2.open sql2,conn,1,1
if (rs2.EOF and rs2.BOF) then
errmsg=errmsg+""
call error()
response.end
else

MusicName=rs2("MusicName")
Singer=rs2("Singer")
NClassid=rs2("NClassid")
end if
rs2.close
set rs2=nothing
rs.AddNew
rs("UserName")=membername
rs("Musicid")=Musicid
rs("MusicName")=MusicName '添加这个
rs("Singer")=Singer

rs("NClassid")=NClassid
rs.Update
end if
rs.Close
Response.Redirect "musicsc.asp?action=show"
elseif action="del" then
id=request("id")
wma=request("wma")
set rs=conn.execute("delete FROM Box where UserName='"&membername&"' and id="&id)
Response.Redirect "musicsc1.asp?action=show"

elseif action<>"del" and action<>"add" then
%>

<%
dim musicname
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" then
musicname=request.querystring("musicname")
Musicid=request.QueryString("id")
sql="select * from Box where UserName='"&membername&"' and Musicid="&Musicid
rs.open sql,conn,1,3
if not rs.EOF then
response.Redirect "musicsc.asp?action=show"
response.end
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from MusicList where id="&Musicid
rs2.open sql2,conn,1,1
if (rs2.EOF and rs2.BOF) then
errmsg=errmsg+""
call error()
response.end
else

MusicName=rs2("MusicName")
Singer=rs2("Singer")
NClassid=rs2("NClassid")
end if
rs2.close
set rs2=nothing
rs.AddNew
rs("UserName")=membername
rs("Musicid")=Musicid
rs("Musicwma")=Musicwma
rs("MusicName")=MusicName
rs("Singer")=Singer

rs("NClassid")=NClassid
rs.Update
end if
rs.Close
Response.Redirect "musicsc.asp?action=show"
elseif action="del" then
id=request("id")
wma=request("wma")
set rs=conn.execute("delete FROM Box where UserName='"&membername&"' and id="&id)
Response.Redirect "musicsc1.asp?action=show"

elseif action<>"del" and action<>"add" then
%>

我也用ASP做过音乐网站，我的方式不是你这样，我是让网页去读取数据库的歌曲的URL，这样就可以了，很方便，只要在数据库里修改歌曲就行了，网页上也会跟着显示出来，我只能帮到你这，具体的你的代码我也不是怎么的看的懂，我也是半个菜鸟

唉...同情...可惜本人不会,一腔热血用不上!
...