www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_musicserversave.asp
<!--#include file="conn.asp"--> <!--#include file="function.asp"--> <%CheckAdmin%> <!--#include file="inc/char.inc"--> <% LServerID=trim(request.QueryString("LServerID")) ListenServerName=trim(request.form("ListenServerName")) ListenServerUrl=trim(request.form("ListenServerUrl")) founerr=false act=request("act") set rs=server.createobject("adodb.recordset") select case act case "add" call add() case "edit" call edit() case "del" call del() case else rs.close conn.close set conn=nothing response.write "操作错误" Response.End end select %> <% sub del() sql="delete from DJServer where LServerID="&request.QueryString("LServerID") rs.open sql,conn,1,3 conn.close set conn=nothing response.redirect "admin_MusicServerMana.asp" end sub sub add() sql="select * from DJServer" rs.open sql,conn,1,3 rs.addnew rs("ListenServerName")=ListenServerName rs("ListenServerUrl")=ListenServerUrl rs.update rs.close set rs=nothing conn.close set conn=nothing Response.Redirect "admin_MusicServerMana.asp" end sub sub edit() sql="select * from DJServer where LServerID="&LServerID rs.open sql,conn,1,3 rs("ListenServerName")=ListenServerName rs("ListenServerUrl")=ListenServerUrl rs.update rs.close set rs=nothing conn.close set conn=nothing Response.Redirect "admin_MusicServerMana.asp" end sub %>