<!--#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>