admin_setup.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<!----------------------------------------------

	Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青创文章系统 - 测试版)
	个人免费版
	http://www.qcdn.net/
	此版本只能在个人网站使用并要求保留青创网络版权！

-------------------------------------------------->
<%
if Request("method") = 1 then
	ObjInstalled=Qcdn.IsObjInstalled("Scripting.FileSystemObject")
	If ObjInstalled=false Then
		ErrMsg="<li>你的服务器不支持 FSO(Scripting.FileSystemObject)!"
		Call Qcdn.Err_List(Errmsg,1)
		Response.end
	end if
	if Trim(Request.form("NetName")) = "" then
		Errmsg = "<li>请输入站点名称。"
		FoundErr = true
	end if
	if Trim(Request.form("NetUrl")) = "" then
		Errmsg = Errmsg + "<li>请输入站点网址。"
		FoundErr = true
	end if
	if Trim(Request.form("Email")) = "" then
		Errmsg = Errmsg + "<li>请输入管理员Email。"
		FoundErr = true
	end if
	if not Qcdn.isInteger(Request.form("PageCount")) then
		Errmsg = Errmsg + "<li>请输入整形分页数字。"
		FoundErr = true
	end if
	if Trim(Request.form("maxLen")) = "" then
		Errmsg = Errmsg + "<li>请输入主题最多显示字数。"
		FoundErr = true
	elseif not Qcdn.isInteger(Request.form("maxLen")) then
		Errmsg = Errmsg + "<li>请在主题最多显示字数框中输入整形数字。"
		FoundErr = true
	end if
	if Trim(Request.form("listNum")) = "" then
		Errmsg = Errmsg + "<li>请输入显示多少个文章标题。"
		FoundErr = true
	elseif not Qcdn.isInteger(Request.form("listNum")) then
		Errmsg = Errmsg + "<li>请在显示多少个文章标题框中输入整形数字。"
		FoundErr = true
	end if
	if FoundErr then
		Call Qcdn.Err_List(Errmsg,1)
		Response.end
	end if
	

	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.CreateTextFile(Server.mappath("const.asp"),true)
	hf.write "<!--#include file=""common.asp""-->" & vbcrlf	
	hf.write "<" & "%" & vbcrlf
	hf.write "Const NetName=" & chr(34) & trim(request("NetName")) & chr(34) & "        '站点名称" & vbcrlf
	hf.write "Const NetUrl=" & chr(34) & trim(request("NetUrl")) & chr(34) & "        '站点网址" & vbcrlf
	hf.write "Const Logo=" & chr(34) & trim(request("Logo")) & chr(34) & "        '站点LOGO" & vbcrlf
	hf.write "Const Ads=" & chr(34) & trim(request("Ads")) & chr(34) & "        '顶部广告" & vbcrlf
	hf.write "Const Smtp=" & chr(34) & trim(request("Smtp")) & chr(34) & "        'SMTP Server地址" & vbcrlf
	hf.write "Const Email=" & chr(34) & trim(request("Email")) & chr(34) & "        '管理员Email" & vbcrlf
	hf.write "Const accredit=" & chr(34) & trim(request("accredit")) & chr(34) & "        '授权信息" & vbcrlf
	hf.write "Const EmailFlag=" & trim(request("EmailFlag")) & "        '发送邮件组件" & vbcrlf
	hf.write "Const PageCount=" & trim(request("PageCount")) & "        '分页显示数" & vbcrlf
	hf.write "Const MaxFileSize=" & trim(request("MaxFileSize")) & "        '上传文件大小限制" & vbcrlf
	hf.write "Const SaveUpFilesPath=" & chr(34) & trim(request("SaveUpFilesPath")) & chr(34) & "        '存放上传文件的目录" & vbcrlf
	hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & "        '允许的上传文件类型" & vbcrlf
	hf.write "Const AddAuditing=" & trim(request("AddAuditing")) & "        '是否开启审核功能" & vbcrlf
	hf.write "Const MenuFlag=" & trim(request("MenuFlag")) & "        '是否显示栏目下拉菜单" & vbcrlf
	hf.write "Const CssDir=" & chr(34) & trim(request("CssDir")) & chr(34) & "          '前台样式设定" & vbcrlf
	hf.write "Const AddNewPic=" & trim(request("AddNewPic")) & "        '是否显示最新图片文章" & vbcrlf
	hf.write "Const AddNav=" & trim(request("AddNav")) & "        '是否显示文章栏目导航" & vbcrlf
	hf.write "Const AddComment=" & trim(request("AddComment")) & "        '是否显示文章评论功能" & vbcrlf
	hf.write "Const AddOpenWin=" & chr(34) & trim(request("AddOpenWin")) & chr(34) & "        '文章浏览时是否弹开新窗口" & vbcrlf
	hf.write "Const AddWriter=" & trim(request("AddWriter")) & "        '文章浏览时是否显示作者" & vbcrlf
	hf.write "Const AddScroll=" & trim(request("AddScroll")) & "        '文章浏览时是否支持滚屏功能" & vbcrlf
	hf.write "Const AddFavorite=" & trim(request("AddFavorite")) & "        '文章浏览时是否显示加入收藏功能" & vbcrlf
	hf.write "Const AddPrint=" & trim(request("AddPrint")) & "        '文章浏览时是否显示加入打印功能" & vbcrlf
	hf.write "Const AddClose=" & trim(request("AddClose")) & "        '文章浏览时是否显示加入关闭功能" & vbcrlf
	hf.write "Const AddPopedom=" & trim(request("AddPopedom")) & "        '文章浏览时是否支持权限浏览" & vbcrlf
	hf.write "Const copyright=" & chr(34) & "Copyright (c) 2001-2002 <a href=http://www.qcdn.net><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>Qcdn<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved." &	chr(34) & vbcrlf
	hf.write "Const Version=" & chr(34) & "Powered by QCDN_NEWS Version 1.4.3.10.6.0" & chr(34) & vbcrlf
	hf.write "Const kind=" & trim(request("kind")) & "        '首页调用类型" & vbcrlf
	hf.write "Const maxLen=" & trim(request("maxLen")) & "        '主题最多显示字数，字母算一个汉字算两个" & vbcrlf
	hf.write "Const listNum=" & trim(request("listNum")) & "        '显示多少个文章标题" & vbcrlf
	hf.write "Const bullet=" & chr(34) & trim(request("bullet")) & chr(34) & "        '标题前的图片或符号" & vbcrlf
	hf.write "Const hitColor=" & chr(34) & trim(request("hitColor")) & chr(34) & "        '点击数的颜色" & vbcrlf
	hf.write "Const new_color=" & chr(34) & trim(request("new_color")) & chr(34) & "        '新文章日期的颜色" & vbcrlf
	hf.write "Const old_color=" & chr(34) & trim(request("old_color")) & chr(34) & "        '旧文章日期的颜色" & vbcrlf
	hf.write "Const showNclass=" & trim(request("showNclass")) & "        '是否显示栏目连接" & vbcrlf
	hf.write "Const DisPicico=" & trim(request("DisPicico")) & "        '是否显示图文标志" & vbcrlf
	hf.write "Const regStatement=" & chr(34) & Qcdn.HTMLcode(Trim(request("regStatement"))) & chr(34) & "     '会员注册信息" & vbcrlf
	hf.write "Const stopreg=" & trim(request("stopreg")) & "        '是否暂时停止会员注册" & vbcrlf
	hf.write "Const LoadFiles=" & trim(request("LoadFiles")) & "    '是否支持文件上传" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing
	
	Response.write "<script>alert(""修改成功"");location.href=""admin_setup.asp"";</script>"
	Response.end
end if
%>
<br><br>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
<form name="form1" method="post" action="">
  <tr> 
    <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>系 
      统 初 始 设 置 </b> </td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">站点名称：</td>
    <td width="85%" height="25"> <input name="NetName" type="text" id="NetName" size="50" maxlength="50" value="<%=NetName%>"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">站点网址：</td>
    <td width="85%" height="25"> <input name="NetUrl" type="text" id="NetUrl" value="<%=NetUrl%>" size="50" maxlength="50"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">站点LOGO：</td>
    <td width="85%" height="25"> <input name="Logo" type="text" id="Logo" size="50" maxlength="255" value="<%=Qcdn.HTMLcode(Logo)%>"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">顶部广告：</td>
    <td width="85%" height="25"> <textarea name="ads" cols="50" rows="8" id="ads"><%=ads%></textarea></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">SMTP Server地址：<br>
      只有在使用设置中打开了发送邮件功能，该填写内容方有效</td>
    <td height="25"><input name="Smtp" type="text" id="Smtp" size="50" maxlength="50" value="<%=Smtp%>"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">管理员Email：</td>
    <td height="25"><input name="Email" type="text" id="Email" size="50" maxlength="50" value="<%=Email%>"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">授权信息：</td>
    <td height="25"><input name="accredit" type="text" id="accredit" size="50" maxlength="100" value="<%=accredit%>"></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">发送邮件组件：<br>
      如果您的服务器不支持下列组件，请选择不支持</td>
    <td width="85%" height="25"><select name="EmailFlag">
        <option value="0" <%if EmailFlag = 0 then response.write "selected"%>>不支持 
        <option value="1" <%if EmailFlag = 1 then response.write "selected"%>>JMAIL 
        <option value="2" <%if EmailFlag = 2 then response.write "selected"%>>CDONTS 
        <option value="3" <%if EmailFlag = 3 then response.write "selected"%>>ASPEMAIL </select></td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">分页显示数：</td>
    <td height="25"><input type="text" name="PageCount" size="5"  value="<%=PageCount%>"></td>
  </tr>
  <tr> 
    <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>后 台 功 能 设 置</b> </td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">是否开启审核功能：</td>
    <td width="85%" height="25">
	<input type="radio" name="AddAuditing" value="true" <%if AddAuditing then Response.write "checked"%>>
        是 &nbsp;<input type="radio" name="AddAuditing" value="false" <%if AddAuditing = false then Response.write "checked"%>>否
	</td>
  </tr>
  <tr> 
    <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>前 台 功 能 设 置</b> </td>
  </tr>
  <tr valign="middle"> 
    <td width="50%" height="25">前台样式设定：</td>
    <td width="85%" height="25">
		<input type="text" name="CssDir" size="50" value="<%=CssDir%>">
	</td>