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
%>