?? 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 + -