📄 admin_save.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If mid(server_v1,8,len(server_v2))<>server_v2 Then
Response.redirect("Admin_Login.asp")
End if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>修改网站配置</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<div class="main_title1">
<a href="admin_manage.asp">管理首页</a> | <a href="admin_manage.asp?action=ListSite">管理网站信息</a> | <a href="admin_manage.asp?action=ShowLog">查看点击记录</a> | <a href="admin_type.asp">管理网站分类</a> | <a href="admin_manage.asp?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div><div class="mainbar">
<%
IsSqlDataBase=Request.Form("IsSqlDataBase")
WapLinkMdb=Request.Form("WapLinkMdb")
WapFengge=Request.Form("WapFengge")
WapName=Request.Form("WapName")
ChannelName=Request.Form("ChannelName")
JianchengName=Request.Form("JianchengName")
WapUrl=Request.Form("WapUrl")
WapMulu=Request.Form("WapMulu")
WapAlt=Request.Form("WapAlt")
WapLogoUrl=Request.Form("WapLogoUrl")
WapEmail=Request.Form("WapEmail")
AdminName=Request.Form("AdminName")
AdminPass=Request.Form("AdminPass")
Wapsn=Request.Form("Wapsn")
LineNum=Request.Form("LineNum")
inpc=Request.Form("inpc")
WapPaixu=Request.Form("WapPaixu")
MaxLine=Request.Form("MaxLine")
HitsTime=Request.Form("HitsTime")
PeizhiDianchu=Request.Form("PeizhiDianchu")
PeizhiDianru=Request.Form("PeizhiDianru")
wenming=LCase(Request.Form("wenming"))
WapWenming=LCase(Request.Form("WapWenming"))
WapUserNamezhi=LCase(Request.Form("WapUserNamezhi"))
LimitsiteName=Request.Form("LimitsiteName")
LimitsiteTitle=Request.Form("LimitsiteTitle")
Limitsiteintro=Request.Form("Limitsiteintro")
WapZhenghe=Request.Form("WapZhenghe")
WapInpc=Request.Form("WapInpc")
IsVerify=Request.Form("IsVerify")
IsDomainLimit=Request.Form("IsDomainLimit")
FilterWord=Request.Form("FilterWord")
FilterDomain=Request.Form("FilterDomain")
WapJinru=Request.Form("WapJinru")
FilterLimit=Request.Form("FilterLimit")
FilterBrowsers=Request.Form("FilterBrowsers")
IsDeBug=Request.Form("IsDeBug")
WapWhuangtai=Request.Form("WapWhuangtai")
WapXiaxian=Request.Form("WapXiaxian")
WapFromDelete=Request.Form("WapFromDelete")
WapChuzhan=Request.Form("WapChuzhan")
WapOnline=Request.Form("WapOnline")
WapOnlineYangshi=Request.Form("WapOnlineYangshi")
WapGoto=Request.Form("WapGoto")
WapInterval=Request.Form("WapInterval")
WapGoto1Url=Request.Form("WapGoto1Url")
WapGoto2Url=Request.Form("WapGoto2Url")
WapGoto3Url=Request.Form("WapGoto3Url")
WapGoto4Url=Request.Form("WapGoto4Url")
WapGoto5Url=Request.Form("WapGoto5Url")
WapGoto6Url=Request.Form("WapGoto6Url")
WapGoto7Url=Request.Form("WapGoto7Url")
WapGoto8Url=Request.Form("WapGoto8Url")
WapGoto9Url=Request.Form("WapGoto9Url")
WapCacheName=Replace(Replace(Replace(WapUrl,"http:",""),".","")&WapMulu,"/","")
Mdb=Request.Form("Mdb")
If WapLinkMdb="" Then
blnerror = True
strerror = strerror & "<li>数据库名是否有必填信息没有填写。"
Else
If Mdb<>WapLinkMdb Then
If IsObjInstalled("Scripting.FileSystemObject")=false Then
Response.Write "<b><font color=""red"">你的服务器不支持 FSO(Scripting.FileSystemObject)! 数据库不能修改名称!</font></b><br>"
Response.Write "请打开Config.asp文件进行修改数据库链接地址。<br>"
Else
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(Server.MapPath(WapLinkMdb)) Then
blnerror = True
strerror = strerror & "<li>数据库的文件名更名失败，文件 ["&WapLinkMdb&"] 已经存在。"
ElseIf Not Fso.FileExists(Server.MapPath(Mdb)) Then
blnerror = True
strerror = strerror & "<li>数据库的文件名更名失败，数据库文件"&Mdb&"文件不存在。"
Else
Set F = Fso.GetFile(Server.MapPath(Mdb))
F.Name = WapLinkMdb
newname = F.Name
End If
Set Fso=Nothing
End if
End if
End if
If wenming<>WapWenming Then
If IsObjInstalled("Scripting.FileSystemObject")=false Then
Response.Write "<b><font color=""red"">你的服务器不支持 FSO(Scripting.FileSystemObject)! 数据库不能修改名称!</font></b><br>"
Response.Write "请打开Config.asp文件进行修改数据库链接地址。<br>"
Else
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(Server.MapPath(WapWenming)) Then
blnerror = True
strerror = strerror & "<li>数据库的文件名更名失败，文件 ["&WapWenming&"] 已经存在。"
ElseIf Not Fso.FileExists(Server.MapPath(wenming)) Then
blnerror = True
strerror = strerror & "<li>数据库的文件名更名失败，数据库文件"&wenming&"文件不存在。"
Else
Set F = Fso.GetFile(Server.MapPath(wenming))
F.Name = WapWenming
newname = F.Name
End If
Set Fso=Nothing
End if
End if
If Wapsn="" Then Wapsn="0"
If WapName="" Then
blnerror = True
strerror = strerror & "<li>网站名称是否有必填信息没有填写。"
End if
If ChannelName="" Then
blnerror = True
strerror = strerror & "<li>频道名称是否有必填信息没有填写。"
End if
If WapUrl="" Then
blnerror = True
strerror = strerror & "<li>网站地址是否有必填信息没有填写。"
End if
If WapAlt="" Then
blnerror = True
strerror = strerror & "<li>网站说明是否有必填信息没有填写。"
End if
If WapEmail="" Then
blnerror = True
strerror = strerror & "<li>邮箱地址是否有必填信息没有填写。"
End if
If AdminName="" Then
blnerror = True
strerror = strerror & "<li>用户名称是否有必填信息没有填写。"
End if
If AdminPass="" Then
blnerror = True
strerror = strerror & "<li>管理密码是否有必填信息没有填写。"
End if
If inpc="" Then
blnerror = True
strerror = strerror & "<li>计数配置是否有必填信息没有填写。"
End if
If HitsTime="" Then
blnerror = True
strerror = strerror & "<li>计数配置是否有必填信息没有填写。"
End if
If WapCacheName="" Then
blnerror = True
strerror = strerror & "<li>缓存名称是否有必填信息没有填写。"
End if
If blnerror=True Then
Response.write strerror
Response.write "<p><< <a href=""javascript:history.go(-1)"">返回上一页 </a> << <a href=""admin_manage.asp"">返回管理首页</a></p>"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -