configsave.asp

来自「一个完全仿照阿里巴巴的网站管理系统 本软件没有版权问题」· ASP 代码 · 共 178 行

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/SMT_inside.asp"-->
<%call SaveSqlLog(1)
if session("admin")="" then
  response.write"<script>window.open('"&application("cityurl")&application("cityadmin")&"index.asp','_parent')</script>"
end if
fla=split(session("adminflag"),",")
fla0=fla(0)

if fla0<>1 then
response.write "<script>alert('操作权限出错，您没有权限操作些功能');history.go(-1);</Script>"
Response.End 
end if

citybottom=request("citybottom")
citycss=request("citycss")
cityurl=request("cityurl")
cityname=request("cityname")
citytitle=request("citytitle")
cityypkey=request("cityypkey")
cityvipypkey=request("cityvipypkey")
citysypkey=request("citysypkey")
cityscakey=request("cityscakey")
cityscafree=request("cityscafree")
cityping=replace(request("cityping"),"”","""")
citysql=replace(request("citysql"),"”","""")
citypingname=request("citypingname")
citydns=request("citydns")
cityscayx=request("cityscayx")
citynewskey=request("citynewskey")
cityxxkey=request("cityxxkey")
cityjobzpkey=request("cityjobzpkey")
cityjobqzkey=request("cityjobqzkey")
cityfreejob=request("cityfreejob")
citycpkey=request("citycpkey")
cityusertk=request("cityusertk")
cityviptk=request("cityviptk")
cityeurl=request("cityeurl")
citymail=request("citymail")
cityzhkey=request("cityzhkey")
citysearch=request("citysearch")
cityabout=request("cityabout")
citycontact=request("citycontact")
citybuy=request("citybuy")
cityadmin=request("cityadmin")
citysy=request("citysy")
citysydate=request("citysydate")
if citysydate="" then citysydate=0
citysyvipdate=request("citysyvipdate")
if citysyvipdate="" then citysyvipdate=0
dnskey=request("dnskey")
dnswww=request("dnswww")
if dnswww="" then dnswww=0
cityHTML=request("cityHTML")
if cityHTML="" then cityHTML=0
cityuserp=request("cityuserp")
cityuserpm=request("cityuserpm")
if cityuserpm="" then cityuserpm=0
cityvipp=request("cityvipp")
cityvippm=request("cityvippm")
if cityvippm="" then cityvippm=0
cityjysj=request("cityjysj")
if cityjysj="" then cityjysj=0

OKAr=request("OKAr")
OKsize=request("OKsize")
OKArpic=request("OKArpic")
OKsizepic=request("OKsizepic")

mail0=request("SMT_citysendmail0")
if mail0="" then mail0=0
mail1=request("SMT_citysendmail1")
if mail1="" then mail1=0
mail2=request("SMT_citysendmail2")
if mail2="" then mail2=0
mail3=request("SMT_citysendmail3")
if mail3="" then mail3=0
mail4=request("SMT_citysendmail4")
mail5=request("SMT_citysendmail5")
if mail5="" then mail5=0
mail6=request("SMT_citysendmail6")
if mail6="" then mail6=0
mail7=request("SMT_citysendmail7")
if mail7="" then mail7=0

SMT_cityregmail=request("SMT_cityregmail")
if SMT_cityregmail="" then SMT_cityregmail=null
SMT_citypassmail=request("SMT_citypassmail")
if SMT_citypassmail="" then SMT_citypassmail=null

if mail4<>"0" then
select case mail4
  case "Jmail"
    sendmail="JMail.SmtpMail"
  case "Cdonts"
    sendmail="CDONTS.NewMail"
  case "AspEmail"
    sendmail="Persits.MailSender"
end select
On Error Resume Next
set mailObj = Server.CreateObject(sendmail)
If Err Then response.write "<script>alert('您的服务器暂时不支持 "&mail4&" 发信功能，请重新设置！');history.go(-1);</Script>":Response.End
set mailObj = Nothing
end if

SMT_citysendmail=mail0&"$"&mail1&"$"&mail2&"$"&mail3&"$"&mail4&"$"&mail5&"$"&mail6&"$"&mail7

if citybottom="" or citycss="" or cityurl="" or citytitle="" or cityname="" or cityping="" or citypingname="" or citydns="" then
	response.write "<script>alert('请将系统信息填写完整！');history.go(-1);</Script>"
	Response.End 
end if
if citynewskey="" or citysearch="" or citysql="" or cityscayx="" or cityfreejob="" or citycpkey="" or cityusertk="" or cityviptk="" or citymail="" or cityeurl="" then
	response.write "<script>alert('请将系统信息填写完整！');history.go(-1);</Script>"
	Response.End 
end if
if OKsize="" or OKsizepic="" or OKAr="" or OKArpic="" or cityabout="" or citycontact="" or citybuy="" or cityadmin="" then
	response.write "<script>alert('请将系统信息填写完整！');history.go(-1);</Script>"
	Response.End 
end if

Application("citycss")=""
conn.execute("update SMT_config set SMT_citybottom='"&citybottom&"'")
conn.execute("update SMT_config set SMT_citycss='"&citycss&"'")
conn.execute("update SMT_config set SMT_cityurl='"&cityurl&"'")
conn.execute("update SMT_config set SMT_cityname='"&cityname&"'")
conn.execute("update SMT_config set SMT_citytitle='"&citytitle&"'")
conn.execute("update SMT_config set SMT_citysypkey='"&citysypkey&"'")
conn.execute("update SMT_config set SMT_cityvipypkey='"&cityvipypkey&"'")
conn.execute("update SMT_config set SMT_cityypkey='"&cityypkey&"'")
conn.execute("update SMT_config set SMT_cityscakey='"&cityscakey&"'")
conn.execute("update SMT_config set SMT_cityscafree='"&cityscafree&"'")
conn.execute("update SMT_config set SMT_cityping='"&cityping&"'")
conn.execute("update SMT_config set SMT_citysql='"&citysql&"'")
conn.execute("update SMT_config set SMT_citypingname='"&citypingname&"'")
conn.execute("update SMT_config set SMT_citydns='"&citydns&"'")
conn.execute("update SMT_config set SMT_cityscayx='"&cityscayx&"'")
conn.execute("update SMT_config set SMT_citynewskey='"&citynewskey&"'")
conn.execute("update SMT_config set SMT_cityxxkey='"&cityxxkey&"'")
conn.execute("update SMT_config set SMT_cityjobqzkey='"&cityjobqzkey&"'")
conn.execute("update SMT_config set SMT_cityjobzpkey='"&cityjobzpkey&"'")
conn.execute("update SMT_config set SMT_cityfreejob='"&cityfreejob&"'")
conn.execute("update SMT_config set SMT_citycpkey='"&citycpkey&"'")
conn.execute("update SMT_config set SMT_dnskey='"&dnskey&"'")
conn.execute("update SMT_config set SMT_dnswww='"&dnswww&"'")
conn.execute("update SMT_config set SMT_citysendmail='"&SMT_citysendmail&"'")
conn.execute("update SMT_config set SMT_citysy='"&citysy&"'")
conn.execute("update SMT_config set SMT_citysydate='"&citysydate&"'")
conn.execute("update SMT_config set SMT_citysyvipdate='"&citysyvipdate&"'")
conn.execute("update SMT_config set SMT_cityuserp='"&cityuserp&"'")
conn.execute("update SMT_config set SMT_cityuserpm='"&cityuserpm&"'")
conn.execute("update SMT_config set SMT_cityvipp='"&cityvipp&"'")
conn.execute("update SMT_config set SMT_cityvippm='"&cityvippm&"'")
conn.execute("update SMT_config set SMT_cityjysj='"&cityjysj&"'")
conn.execute("update SMT_config set SMT_cityusertk='"&cityusertk&"'")
conn.execute("update SMT_config set SMT_cityviptk='"&cityviptk&"'")
conn.execute("update SMT_config set SMT_cityeurl='"&cityeurl&"'")
conn.execute("update SMT_config set SMT_citymail='"&citymail&"'")
conn.execute("update SMT_config set SMT_cityzhkey='"&cityzhkey&"'")
conn.execute("update SMT_config set SMT_citysearch='"&citysearch&"'")
conn.execute("update SMT_config set SMT_OKAr='"&OKAr&"'")
conn.execute("update SMT_config set SMT_OKsize='"&OKsize&"'")
conn.execute("update SMT_config set SMT_OKArpic='"&OKArpic&"'")
conn.execute("update SMT_config set SMT_OKsizepic='"&OKsizepic&"'")
conn.execute("update SMT_config set SMT_cityabout='"&cityabout&"'")
conn.execute("update SMT_config set SMT_citycontact='"&citycontact&"'")
conn.execute("update SMT_config set SMT_citybuy='"&citybuy&"'")
conn.execute("update SMT_config set SMT_cityadmin='"&cityadmin&"'")
conn.execute("update SMT_config set SMT_cityHTML='"&cityHTML&"'")
conn.execute("update SMT_config set SMT_cityregmail='"&SMT_cityregmail&"'")
conn.execute("update SMT_config set SMT_citypassmail='"&SMT_citypassmail&"'")
conn.close
set conn=nothing

	Response.Redirect "config.asp"
conn.close
set conn=nothing
%>