www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_constsave.asp

    <!--#include file="const.asp"-->
<%checkadmin%>
<%
founderr=false
if trim(request.form("WebSiteName"))="" then
	errmsg=errmsg+"<br>"+"<li>网站名称不能为空！"
	founderr=true
end if
if trim(request.form("WebSiteUrl"))="" then
	errmsg=errmsg+"<br>"+"<li>网站地址不能为空！"
	founderr=true
end if
if trim(request.form("MaxMusicList"))="" then
	errmsg=errmsg+"<br>"+"<li>单页歌曲显示数不能为空！"
	founderr=true
end if
if trim(request.form("MaxSpecialList"))="" then
	errmsg=errmsg+"<br>"+"<li>单页专辑显示数不能为空！"
	founderr=true
end if
if founderr=true then
	call error()
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from const"
	rs.open sql,conn,1,3
	rs("WebSiteName")=request.form("WebSiteName")
	rs("WebSiteUrl")=request.form("WebSiteUrl")
	rs("WebMaster")=request.form("WebMaster")
	rs("OICQ")=request.form("OICQ")
	rs("EMail")=request.form("EMail")
	rs("LOGO")=request.form("LOGO")
	rs("BLOGO")=request.form("BLOGO")
	rs("Banner")=request.form("Banner")
	rs("adcode")=request.form("adcode")
	rs("bbscode")=request.form("bbscode")
	rs("playcode")=request.form("playcode")
	rs("showlinks")=request.form("showlinks")
	rs("newreg")=request.form("newreg")
	rs("freelisten")=request.form("freelisten")
	rs("uptovip")=request.form("uptovip")
	rs("Collect")=request.form("Collect")
	rs("MaxMusicList")=request.form("MaxMusicList")
	rs("MaxSpecialList")=request.form("MaxSpecialList")
	rs("playstart")=request.form("playstart")
	rs("Urgent")=request.form("Urgent")
	rs("jingjian")=request.form("jingjian")
	rs("DJonline")=request.form("DJonline")
		rs.update
	rs.close
	set rs=nothing
        conn.close
        set conn=nothing
Application.Lock
	Application("MaxMusicList")=""
	Application.UnLock
	Response.Redirect "admin_ConstModify.asp"
end if
conn.close
set conn=nothing
%>