admin_constsave.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<!--#include file="function.asp"-->
<%CheckAdmin3%>
<!--#include file="conn.asp"-->
<%
founderr=false
if trim(request.form("WebName"))="" then
	errmsg=errmsg+"<br>"+"<li>网站名称不能为空！"
	founderr=true
end if
if trim(request.form("WebTitle"))="" then
	errmsg=errmsg+"<br>"+"<li>网站标题不能为空！"
	founderr=true
end if
if trim(request.form("WebUrl"))="" 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("WebName")=request.form("WebName")
	rs("WebTitle")=request.form("WebTitle")
	rs("WebUrl")=request.form("WebUrl")
	if trim(request.form("Logo"))="" then
		rs("Logo")=null
	else
		rs("Logo")=request.form("Logo")
	end if
	if trim(request.form("ShowLink"))="" then
		rs("ShowLink")=null
	else
		rs("ShowLink")=request.form("ShowLink")
	end if
	if trim(request.form("BLogo"))="" then
		rs("BLogo")=null
	else
		rs("BLogo")=request.form("BLogo")
	end if
	if trim(request.form("Banner"))="" then
		rs("Banner")=null
	else
		rs("Banner")=request.form("Banner")
	end if
	if trim(request.form("BannerUrl"))="" then
		rs("BannerUrl")=null
	else
		rs("BannerUrl")=request.form("BannerUrl")
	end if
	if trim(request.form("Copyright"))="" then
		rs("Copyright")=null
	else
		rs("Copyright")=request.form("Copyright")
	end if
	if trim(request.form("Ver"))="" then
		rs("Ver")=null
	else
		rs("Ver")=request.form("Ver")
	end if
	if trim(request.form("AdminEmail"))="" then
		rs("AdminEmail")=null
	else
		rs("AdminEmail")=request.form("AdminEmail")
	end if

	if trim(request.form("AdminOicq"))="" then
		rs("AdminOicq")=null
	else
		rs("AdminOicq")=request.form("AdminOicq")
	end if

	if trim(request.form("StartDate"))="" then
		rs("startDate")=null
	else
		rs("StartDate")=request.form("StartDate")
	end if
	if trim(request.form("newreg"))="" then
		rs("newreg")=null
	else
		rs("newreg")=request.form("newreg")
	end if
	if trim(request.form("OpenConListen"))="" then
		rs("OpenConListen")=null
	else
		rs("OpenConListen")=request.form("OpenConListen")
	end if
	if trim(request.form("LM1title"))="" then
		rs("LM1title")=null
	else
		rs("LM1title")=request.form("LM1title")
	end if
	if trim(request.form("LM2title"))="" then
		rs("LM2title")=null
	else
		rs("LM2title")=request.form("LM2title")
	end if
	if trim(request.form("LM1Code"))="" then
		rs("LM1Code")=null
	else
		rs("LM1Code")=request.form("LM1Code")
	end if
	if trim(request.form("LM2Code"))="" then
		rs("LM2Code")=null
	else
		rs("LM2Code")=request.form("LM2Code")
	end if
	if trim(request.form("NoPic"))="" then
		rs("NoPic")=null
	else
		rs("NoPic")=request.form("NoPic")
	end if
	if trim(request.form("AdminName"))="" then
		rs("AdminName")=null
	else
		rs("AdminName")=request.form("AdminName")
	end if

	rs("MaxMusicList")=request.form("MaxMusicList")
	rs("MaxSpecialList")=request.form("MaxSpecialList")
		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
%>