admin_sitesave.asp

一个不错的音乐网站

<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin3%>
<%
founderr=false
if trim(request.form("WebName"))="" then
errmsg=errmsg+"<br>"+"<li>网站名称不能为空！"
founderr=true
end if
if trim(request.form("WebUrl"))="" 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("WebUrl")=request.form("WebUrl")
rs("Sms")=request.form("Sms")
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
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing

Response.Redirect "Admin_SiteConfig.asp"
end if
conn.close
set conn=nothing
%>
<p>&nbsp;</p>