dnf手机壁纸:ODBC 驱动程序不支持所需的属性

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 07:11:42
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
%>
<LINK href="../Images/style.css" type=text/css rel=stylesheet>
<body bgcolor="#eeeeee">