⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_config.asp

📁 1
💻 ASP
字号:
🔍 
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check(9999,"您的权限状态错误，请使用超级管理员的账号登陆后再进行操作")
Dim action
action=request("Action")
%>
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../images/admin/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>管理中心</TITLE>
</HEAD>
<body>
<%
Select Case action
Case "G"
    Call FY_G
Case Else
    Call FY_Main
End Select
sub  FY_Main%>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<form name="myform" method="post" action="?action=G">
<tr class=KenQiao_Net_ss>
<td colspan="2" height="25">网站基本设置</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25" width="20%">网站名称：</td>
<td width="80%"><input size="40" name="webname" value="<%=FY_Config(0)%>" maxlength="220"> <img src="../images/admin/help.gif" border="0" alt="如：飞云小说程序"> [禁止一切非法字符，下同]</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25" width="20%">网站副标：</td>
<td width="80%"><input size="40" name="Fwebname" value="<%=FY_Config(20)%>" maxlength="220"> <img src="../images/admin/help.gif" border="0" alt="如：飞云小说程序欢迎您的使用"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">网站域名：</td>
<td width="*"><input size="40" value="<%=ReplaceBadChar(Replace(FY_Config(3),"Http://",""))%>" maxlength="220" name="weburl"> <img src="../images/admin/help.gif" border="0" alt="如：Http://www.KenQiao.Net">	前面的“http://”和后面的“/”不用写！</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">站长名字：</td>
<td width="*"><input size="40" value="<%=FY_Config(12)%>" maxlength="20" name="Adminname">  <img src="../images/admin/help.gif" border="0" alt="当有人用你的站长ID留言或评论，将自动转换为的ID"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">站长邮箱：</td>
<td width="*"><input size="40" value="<%=FY_Config(5)%>" maxlength="220" name="webmail"> <img src="../images/admin/help.gif" border="0" alt="如：KenQiao_Web@QQ.com"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">站长ＱＱ：</td>
<td width="*"><input size="40" value="<%=FY_Config(4)%>" maxlength="220" name="webqq"> <img src="../images/admin/help.gif" border="0" alt="如：1366024"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">description：</td>
<td width="*"><input size="40" value="<%=FY_Config(1)%>" maxlength="220" name="description"> <img src="../images/admin/help.gif" border="0" alt="如：自由填写，标签应用"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">keywords：</td>
<td width="*"><input size="40" value="<%=FY_Config(2)%>" maxlength="220" name="keywords"> <img src="../images/admin/help.gif" border="0" alt="如：自由填写，标签应用"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">版权设置：</td>
<td width="*"><textarea rows="4" name="C_BQ" cols="50"><%=FY_Config(6)%></textarea> <img src="../images/admin/help.gif" border="0" alt="支持HTML代码，模板应用"></td>
</tr>
<tr class=KenQiao_Net_ss>
<td colspan="2">站点开关</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">网站维护开关：</td>
<td width="*"><select name="webopen" id="webopen">
<option value="0"<%If FY_Config(13)=0 Then%> selected<%End if%>>= 正常开放 =</option>
<option value="1"<%If FY_Config(13)<>0 Then%> selected<%End if%>>= 关闭维护 =</option>
</select></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">网站维护说明：</td>
<td width="*"><textarea rows="4" name="offweb" cols="50"><%=FY_Config(14)%></textarea> <img src="../images/admin/help.gif" border="0" alt="当网站处于停止运营的时候，将会在ASP页面显示，如果在停止的同时进行生成HTML，同样，信息会显示在所有HTML页面内"></td>
</tr>
<tr class=KenQiao_Net_ss>
<td colspan="2">严重安全项目</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">程序安装目录：</td>
<td width="*"><input size="20" value="<%=replace(Left(LCase(Trim(Request.ServerVariables("SCRIPT_NAME"))), InStrRev(LCase(Trim(Request.ServerVariables("SCRIPT_NAME"))), "/")),"/"&LCase(Admin_InstallDir)&"/","/")%>" name="C_InstallDir" readonly> <img src="../images/admin/help.gif" border="0" alt="由系统自动获取，不允许自己进行修改"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">后台访问目录：</td>
<td width="*"><input size="20" value="<%=Admin_InstallDir%>" maxlength="20" name="C_Admin_Ulr"> <img src="../images/admin/help.gif" border="0" alt="自动修改，无需手动处理"></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">TXT保存目录：</td>
<td width="*"><input size="20" value="<%=FY_Config(19)%>" maxlength="20" name="C_TXT_Ulr"> <img src="../images/admin/help.gif" border="0" alt="自动修改，无需手动处理"><strong><font color="#FF0000">预设功能,此版本不可用</font></strong></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">上传文件目录：</td>
<td width="*"><input size="20" value="<%=FY_Config(9)%>" maxlength="20" name="C_Pic_Ulr"> <img src="../images/admin/help.gif" border="0" alt="更改后请记得重新生成一遍相关文件"></td>
</tr>
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">上传支持文件：</td>
<td width="*"><input size="20" value="<%=FY_Config(17)%>" maxlength="20" name="C_Pic_GS"> [请使用“|”号隔开，一般只需要支持jpg，gif，如 jpg|gif ]</td>
</tr>
</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">文件最大值：</td>
<td width="*"><input size="5" value="<%=FY_Config(18)%>" maxlength="4" name="C_Pic_DX" onkeyup="if(isNaN(value))execCommand('undo')" onafterpaste="if(isNaN(value))execCommand('undo')"> Kb [建议采用200kb]</td>
</tr>
</td>
</tr>
<tr class=KenQiao_Net_ss>
<td colspan="2">其他内容</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">留言审核开关：</td>
<td width="*"><select name="webLy" id="webLy">
<option value="0"<%If FY_Config(8)=0 Then%> selected<%End if%>>= 需要审核 =</option>
<option value="1"<%If FY_Config(8)<>0 Then%> selected<%End if%>>= 不需审核 =</option>
</select>[商业版预设]</td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">默认模板：</td>
<td width="*"><select name="webMB" id="webKZ"><%Dim getfolders_i
for getfolders_i=0 to ubound(split(getfolders("../template/"),","))-1%><option value="<%=split(getfolders("../template"),",")(getfolders_i)%>"<%if trim(FY_Config(16))=trim(split(getfolders("../template"),",")(getfolders_i))  then%> selected<%end if%>><%=split(getfolders("../template"),",")(getfolders_i)%></option><%next%></select></td>
</tr>
<tr class=KenQiao_Net_ds>
<td height="25">页面扩展名：</td>
<td width="*"><select name="webKZ" id="webKZ">
<option value="0"<%If FY_Config(15)=0 Then%> selected<%End if%>>Asp</option>
<option value="1"<%If FY_Config(15)=1 Then%> selected<%End if%>>Htm</option>
<option value="2"<%If FY_Config(15)=2 Then%> selected<%End if%>>HtmL</option>
<option value="3"<%If FY_Config(15)=3 Then%> selected<%End if%>>Shtm</option>
<option value="4"<%If FY_Config(15)=4 Then%> selected<%End if%>>ShtmL</option>
</select></td>
</tr>
<tr class=KenQiao_Net_qs>
<td colspan="2" align="center"><input type="submit" value=" 更 新 数 据 " class="button"></td>
</tr>
</form>
</table>

<%
call admin_footer()
End sub
sub  FY_G
Dim webname,weburl,Adminname,webmail,webqq,description,C_BQ,keywords,webopen,offweb,C_InstallDir,C_Admin_Ulr,C_Pic_Ulr,webKZ,webLy,webMB,webSC,webGS,webDX,C_TXT_Ulr,Fwebname
webname=ReplaceBadChar(trim(request.form("webname")))
Fwebname=ReplaceBadChar(trim(request.form("Fwebname")))
weburl=ReplaceBadChar(trim(request.form("weburl")))
Adminname=ReplaceBadChar(trim(request.form("Adminname")))
webmail=ReplaceBadChar(trim(request.form("webmail")))
webqq=ReplaceBadChar(trim(request.form("webqq")))
description=ReplaceBadChar(trim(request.form("description")))
keywords=ReplaceBadChar(trim(request.form("keywords")))
C_BQ=trim(request.form("C_BQ"))
webopen=ReplaceBadChar(trim(request.form("webopen")))
offweb=ReplaceBadChar(trim(request.form("offweb")))
C_InstallDir=trim(request.form("C_InstallDir"))
C_Admin_Ulr=ReplaceBadChar(trim(request.form("C_Admin_Ulr")))
C_Pic_Ulr=ReplaceBadChar(trim(request.form("C_Pic_Ulr")))
C_TXT_Ulr=ReplaceBadChar(trim(request.form("C_TXT_Ulr")))
webLy=ReplaceBadChar(trim(request.form("webLy")))
webKZ=ReplaceBadChar(trim(request.form("webKZ")))
webMB=ReplaceBadChar(trim(request.form("webMB")))
webGS=ReplaceBadChar(trim(request.form("C_Pic_GS")))
webDX=ReplaceBadChar(trim(request.form("C_Pic_DX")))
  errmsg=errmsg
  if GetStrLen(webname)<2 Or GetStrLen(webname)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>网站名称字符过短或过长！[2-220]"
  end if
  if GetStrLen(Fwebname)<2 Or GetStrLen(Fwebname)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>网站副标题字符过短或过长！[2-220]"
  end if
  if GetStrLen(weburl)<2 Or GetStrLen(weburl)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>网站域名字符过短或过长！[2-220]"
  end if
  if GetStrLen(Adminname)<2 Or GetStrLen(Adminname)>20 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>站长名字符过短或过长！[2-20]"
  end if
  if GetStrLen(webmail)<2 Or GetStrLen(webmail)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>站长邮箱字符过短或过长！[2-220]"
  end if
  if GetStrLen(webqq)<2 Or GetStrLen(webqq)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>站长ＱＱ字符过短或过长！[2-220]"
  end if
  if GetStrLen(description)<2 Or GetStrLen(description)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>description字符过短或过长！[2-220]"
  end if
  if GetStrLen(description)<2 Or GetStrLen(description)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>description字符过短或过长！[2-220]"
  end if
  if GetStrLen(keywords)<2 Or GetStrLen(keywords)>220 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>keywords字符过短或过长！[2-220]"
  end if
  if GetStrLen(C_BQ)<2 Or GetStrLen(C_BQ)>2000 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>版权设置字符过短或过长！[2-2000]"
  end if
  if GetStrLen(offweb)<2 Or GetStrLen(offweb)>2000 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>网站维护说明字符过短或过长！[2-2000]"
  end if
  if GetStrLen(C_Admin_Ulr)<1 Or GetStrLen(C_Admin_Ulr)>20 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>后台访问目录字符过短或过长！[2-20]"
  Elseif IsValidStr(C_Admin_Ulr)=False then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>后台访问目录不能存在越字母和数字的字符！"
  end if
  
  if GetStrLen(C_TXT_Ulr)<1 Or GetStrLen(C_TXT_Ulr)>20 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT保存目录字符过短或过长！[2-20]"
  Elseif IsValidStr(C_TXT_Ulr)=False then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>TXT保存目录不能存在越字母和数字的字符！"
  end if
  
  if GetStrLen(webDX)<1 Or GetStrLen(webDX)>5 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>上传文件大小不正确，必须是！[1-99999KB以内]"
  End if
  if GetStrLen(webGS)<1 Or GetStrLen(webGS)>200 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>请输入正确的上传文件类型，必须一种以上的正确格式！"
	end if
  
  if GetStrLen(C_Pic_Ulr)<1 Or GetStrLen(C_Pic_Ulr)>20 then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>上传文件目录字符过短或过长！[2-20]"
  Elseif IsValidStr(C_Pic_Ulr)=False then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>上传文件目录不能存在越字母和数字的字符！"
	end if
	If IsFolder("../"&Admin_InstallDir)=False Then
	      founderr=true
  errmsg=errmsg&"<br>"+"<li>请不要通过非法的路径对Admin管理目录进行修改！"
	End if

	If founderr=False Then
		webSC=webDX&"[]"&webGS
	Dim FY_URL_Admin_Zr,FY_URL_Admin_Zr_2
	FY_URL_Admin_Zr="Admin_Config.asp"
	If UCase(Admin_InstallDir)<>UCase(C_Admin_Ulr) Then
  FY_URL_Admin_Zr="../Admin_Login.asp"
  FY_URL_Admin_Zr_2="<br><li>系统要求您重新转入一次管理目录，您无需进行任何操作即可正常登陆</Li>"
	End if
	conn.execute "UPDATE [系统设置] SET 网站名称='"&webname&"',副标题='"&Fwebname&"',网站Url='"&weburl&"',网站目录='"&C_InstallDir&"',管理目录='"&C_Admin_Ulr&"',description='"&description&"',keywords='"&keywords&"',站长名字='"&Adminname&"',QQ='"&webqq&"',邮件='"&webmail&"',版权='"&C_BQ&"',图片目录='"&C_Pic_Ulr&"',网站维护说明='"&offweb&"',留言状态="&WebLy&",网站维护开关="&webopen&",默认模板='"&WebMB&"',页面扩展名="&WebKz&",上传选项='"&webSC&"',TXT保存路径='"&C_TXT_Ulr&"'"
	If Admin_InstallDir<>C_Admin_Ulr Then
		fldrename "../"&Admin_InstallDir,"../"&C_Admin_Ulr 
	End if
	If IsFolder("../"&FY_Config(9))=False Then
		CreateFolder("../"&C_Pic_Ulr)
	Else
	If UCase(C_Pic_Ulr)<>UCase(FY_Config(9)) Then
		fldrename "../"&FY_Config(9),"../"&C_Pic_Ulr 
	End if
	End if
	Call FY_Cache.DelAllCache()
	Call WriteSuccessMsg("<li>系统信息更新成功，同时，文件的目录也已经对应的创建或修改</Li><li>如果您的系统采用HTML系统，请重新生成相关文件，谢谢您的使用</Li>"&FY_URL_Admin_Zr_2&"",FY_URL_Admin_Zr)
	Else
		Call WriteErrMsg(errmsg)
	End if

end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -