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=main_menu'<%if action="main_menu" then response.write " class=red"%>>菜单导航</a></td>
  <td width=10></td>
  <td><a href='?action=xiala_menu'<%if action="xiala_menu" then response.write " class=red"%>>左边弹出导航</a></td>
  <td width=10></td>
  <td><a href='?action=xiala'<%if action="xiala" then response.write " class=red"%>>下拉菜单</a></td>
  <td width=10></td>
  <td><a href='?action=daohang'<%if action="daohang" then response.write " class=red"%>>站内导航</a></td>
  <td width=10></td>
  <td><a href='?action=forum_ads'<%if action="forum_ads" then response.write " class=red"%>>论坛广告</a></td>
  <td width=10></td>
  <td><a href='?action=txt'<%if action="txt" then response.write " class=red"%>>下载栏常用软件连接</a></td>
  <td width=10></td>
  <td><a href='?action=test'<%if action="test" 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 border=0>
  <tr>
  <td></td>
  <td width=10></td>
  <td><a href='?action=zimu'<%if action="zimu" then response.write " class=red"%>>字幕滚动</a></td>
  <td width=10></td>
  <td><a href='?action=wenhou'<%if action="wenhou" then response.write " class=red"%>>问候语句</a></td>
  <td width=10></td>
  <td><a href='?action=shop'<%if action="shop" then response.write " class=red"%>>导航栏一</a></td>
  <td width=10></td>
  <td><a href='?action=center'<%if action="center" then response.write " class=red"%>>导航栏二</a></td>
  <td width=10></td>
  <td><a href='?action=center1'<%if action="center1" then response.write " class=red"%>>导航栏三</a></td>
  <td width=10></td>
  <td><a href='?action=center2'<%if action="center2" then response.write " class=red"%>>导航栏四</a></td>
  <td width=10></td>
  <td><a href='?action=sendmail'<%if action="sendmail" then response.write " class=red"%>>邮件管理</a></td>
  <td width=10></td>
  <td><a href='?action=index'<%if action="index" then response.write " class=red"%>>首页管理</a></td>
  <td width=10></td>
  </tr>
  </table>
  </table>
  </td></tr>
</table>
<%'----------------------------------------------------------------------------------------------%>
<%
action=request.querystring("action")
select case action
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 "xiala_menu"
  file="style/joekoe_lmenu.js"
  ftypes="JS"
  ffilename="弹出导航"
  call js_edit()
case "xiala"
  file="style/xiala.js"
  ftypes="JS"
  ffilename="下拉菜单"
  call js_edit()
case "main_menu"
  file="style/joekoe_menu.js"
  ftypes="JS"
  ffilename="菜单导航"
  call js_edit()
case "daohang"
  file="include/inc_index_nav.inc"
  ftypes="JS"
  ffilename="站内导航"
  call js_edit()
case "forum_ads"
  file="ads/text.js"
  ftypes="JS"
  ffilename="论坛广告"
  call js_edit()
case "test"
  file="style/joekoe_common.js"
  ftypes="JS"
  ffilename="网站顶部与底部"
  call js_edit()
case "txt"
  file="style/con_down.js"
  ftypes="TXT"
  ffilename="下载栏常用软件连接"
  call js_edit()
case "contact"
  file="include/inc_contact.inc"
  ftypes="JS"
  ffilename="联系方式"
  call js_edit()
case "zimu"
  file="include/inc_index_zimu.inc"
  ftypes="JS"
  ffilename="字幕滚动"
  call js_edit()
case "wenhou"
  file="include/inc_index_wenhou.inc"
  ftypes="JS"
  ffilename="问候语句"
  call js_edit()
case "shop"
  file="include/inc_index_shop.inc"
  ftypes="JS"
  ffilename="导航栏一"
  call js_edit()
case "center"
  file="include/inc_index_center.inc"
  ftypes="JS"
  ffilename="导航栏二"
  call js_edit()
case "center1"
  file="include/inc_index_center1.inc"
  ftypes="JS"
  ffilename="导航栏三"
  call js_edit()
case "center2"
  file="include/inc_index_center2.inc"
  ftypes="JS"
  ffilename="导航栏四"
  call js_edit()
case "sendmail"
  file="include/jk_sendmail.asp"
  ftypes="ASP"
  ffilename="邮件管理"
  call js_edit()
case "index"
  file="index.asp"
  ftypes="ASP"
  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>管理后台  
   <b><font color="#0066FF"><%= ftypes %></font></b>  
   文件编辑器：<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="恢　复">      
  <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、请先选择在 <font color="#3366FF"><%=tit%></font>
   中要修改的文件！建议在修改这些文件前先作好 <FONT COLOR="#FF0000">备份</FONT> 。</td></tr>
  <tr><td align=left>
  2、如果因为您的一时不小心，将文件修改错误导致不能正常登陆网站后台，请尽快用FTP连上您的服务器，以本地可用的相关文件覆盖网上错误的文件。</td></tr>
<tr><td align=left>
3、文件将被保存在你安装目录下的 <font color=red><%=file%></font> 文件夹里，
如果您的空间不支持 <font color=red>FSO</font> ，请直接编辑相应文件，
然后用FTP软件上传！如果您对asp/js/html代码不了解，请不要随意编辑。</td></tr>
<tr><td align=left>
4、本程序适合 <font color=red>TXT、JS、ASP、PHP、HTML</font> 等
文本文件的在线修改，如修改其它文件可能会显示乱码！！</td></tr>
<tr><td align=left>
5、本程序基于 Bluedn V 6.8 版程序升级，本人（bluedn）及  
<a href=http://www.bluedn.com/ target=_blank><b><font face=Arial color=#CC3300>bluedn</font><font face=Arial>.com</font></b></a>  
版权所有，如有转载，请注明出处，谢谢！！
</td></tr>
</table></td></tr>

<%
end sub

sub admin_js_end()
dim temp1
temp1="欢迎使用 Bluedn CMS 1.0 版"
response.write vbcrlf&ukong&vbcrlf
%>
<table cellspacing=1 cellpadding=2 class=table>
<tr class=tr0><td align=center>
   <font alt='<%=temp1%>'><%=web_copyright%></font></td></tr>
<tr class=tr0><td align=center class=tims>Bluedn CMS 1.0 , Copyright(c) 2005
   <a href=http://www.bluedn.com/ target=_blank><b><font face=Arial color=#CC3300>bluedn</font><font face=Arial>.com</font></b></a>. All Rights Reserved.
   </td></tr>
</table>
</center></body></html>
<%
call web_clear(0)
end sub
%>