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

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

call admin_title(1)
call admin_td(tit)

'---------------------------------以下生成修改菜单---------------------------------------------------
'菜单数量不要＞9个，否则页面较乱！！多于11个时候，请将下面虚线内的内容重新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="欢迎使用 SKDWHOME 2004 版"
response.write vbcrlf&ukong&vbcrlf 
%>
<table cellspacing=1 cellpadding=2 class=table>
  <tr class=tr0>
    <td align=center> <font alt='零星部落'>Copyright &copy; 2005 『零星部落』All Rights Reserved.</font></td>
  </tr>
</table>
</center></body></html>
<%
call web_clear(0)
end sub
%>