<!-- #include file="include/admin_onlogin.asp" -->
<%

dim fobjFSO,fobjCountFile,file,ftypes,fdata,ffilename
tit="JS文件生成"                     

call admin_title(1)
call admin_td(tit)

'---------------------------------以下生成修改菜單---------------------------------------------------
'菜單數量不要＞9個，否則頁面較亂?。《嘤?1個時候，請將下面虛線內的內容重新COPY做一個
'action=*****的值均可修改，但注意不要重復！！%>

<%'----------------------------------------------------------------------------------------------%>
<tr><td align=center colspan=2 height=15>
  <table border=0>
  <tr>
  <td><a href='?'>首　頁</a></td>
  <td width=10></td>
  <td><a href='?action=plugin'<%if action="plugin" then response.write " class=red"%>>紅包配置</a></td>
  <td width=10></td>
  <td><a href='?action=banner'<%if action="banner" then response.write " class=red"%>>廣告管理</a></td>
  <td width=10></td>
  <td><a href='?action=note'<%if action="note" then response.write " class=red"%>>注冊聲明</a></td>
  <td width=10></td>
  <td><a href='?action=about_site'<%if action="about_site" then response.write " class=red"%>>關于我們</a></td>
  <td width=10></td>
  <td><a href='?action=contact'<%if action="contact" then response.write " class=red"%>>聯系方式</a></td>
  </tr>
  </table>
  </td></tr>
</table>
<%'----------------------------------------------------------------------------------------------%>
<%
action=request.querystring("action")
select case action
case "plugin"
  file="include/common_plugin.asp"
  ftypes="JS"
  ffilename="菜單導航"
  call js_edit()
case "note"
  file="include/inc_register.inc"                   '所修改的文件位置
  ftypes="JS"                              '用于標注所修改的文件類型,如JS,TXT等
  ffilename="注冊說明"                 '文件的中文名,可修改
  call js_edit()
case "about_site"
  file="include/inc_about.inc"
  ftypes="JS"
  ffilename="關于我們"
  call js_edit()
case "banner"
  file="ads/ads_banner.js"
  ftypes="JS"
  ffilename="廣告管理"
  call js_edit()
case "contact"
  file="include/inc_contact.inc"
  ftypes="JS"
  ffilename="聯系方式"
  call js_edit()
end select
call admin_js_end()

sub js_edit()
Set fobjFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
  Set fobjCountFile = fobjFSO.OpenTextFile(Server.MapPath(file),1,True)
  If Not fobjCountFile.AtEndOfStream Then fdata = fobjCountFile.ReadAll
 else
  fdata=request("fdata")
  Set fobjCountFile=fobjFSO.CreateTextFile(Server.MapPath(file),True)
  fobjCountFile.Write fdata
 end if
 fobjCountFile.Close
 Set fobjCountFile=Nothing
 Set fobjFSO = Nothing
%> 
<table width="98%" border="0" cellspacing="3" cellpadding="0"><form method=post>
	<tr><td height="23" align=center class=td>管理后臺&nbsp;&nbsp;
	  <b><font color="#0066FF"><%= ftypes %></font></b>&nbsp;&nbsp;
	  文件編輯器：<font color="#66CC00"><b><%= ffilename %></b></font></td>
</tr>
	<tr><td align=center>
		<textarea name="fdata" cols="135" rows="20" style="font-family:Verdana,Arial,sans-serif;font-size:12px"><%=fdata%>
		</textarea></td>
	<td >
   <tr><td height="23" align=center class=td>相關操作</td></tr>
   <tr><td height=15 align=center><input type="reset" name="Reset" value="恢　復">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="submit" name="save" value="提　交"></td>
	</tr>
</form></table>
<table width="98%" border="0" cellspacing="3" cellpadding="0">
	<tr><td align=center width=15%><B>當前文件路徑：</B></td>
	<td><font color="#ff00ff"><%=Server.MapPath(file)%></font></td></tr>
</table>

<%end sub

sub js_main()
call admin_table(0,1)
call admin_td(tit)%>

<tr>
<td></td>
<td height=150>
    <table border=0 width='100%'>
      <tr>
        <td align=left><FONT size=4 COLOR="#CC0000">注意事項：</font></td>
      </tr>
      <tr height=5>
        <td></td>
      </tr>
      <tr>
        <td align=left>1、請先選擇在&nbsp;<font color="#3366FF"><%=tit%></font> &nbsp;中要修改的文件！建議在修改這些文件前先作好&nbsp;<FONT COLOR="#FF0000">備份</FONT>&nbsp;。</td>
      </tr>
      <tr>
        <td align=left> 2、如果因為您的一時不小心，將文件修改錯誤導致不能正常登陸網站后臺，請盡快用FTP連上您的服務器，以本地可用的相關文件覆蓋網上錯誤的文件。</td>
      </tr>
      <tr>
        <td align=left> 3、文件將被保存在你安裝目錄下的&nbsp;<font color=red><%=file%></font>&nbsp;文件夾里， 
          如果您的空間不支持&nbsp;<font color=red>FSO</font>&nbsp;，請直接編輯相應文件， 然后用FTP軟件上傳！如果您對asp/js/html代碼不了解，請不要隨意編輯。</td>
      </tr>
      <tr>
        <td align=left> 4、本程序適合&nbsp;<font color=red>TXT、JS、ASP、PHP、HTML</font>&nbsp;等 
          文本文件的在線修改，如修改其它文件可能會顯示亂碼??！</td>
      </tr>
    </table>
  </td></tr>

<%
end sub

sub admin_js_end()
dim temp1
temp1="歡迎使用丁香苑2006版"
response.write vbcrlf&ukong&vbcrlf 
%>
<table cellspacing=1 cellpadding=2 class=table>
  <tr class=tr0>
    <td align=center> <font alt='丁香苑社區'>Copyright &copy; 2006 『丁香苑社區』All Rights Reserved.</font></td>
  </tr>
</table>
</center></body></html>
<%
call web_clear(0)
end sub
%>