admin_fm_edit.asp 星云DJ舞曲 4.5a源码程序 - ASP源码程序

www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_fm_edit.asp
    <!--#include FILE="admin_fm_sub.asp"-->
<!--#include file="const.asp"-->
<%CheckAdmin1%>
<%
'在文件重命名时，如果用户没有输入新文件扩展名，是否允许自动补上原来的扩展名。
'true 为允许，false 为不允许。
'-----------------------------------------------------------------------------------
Const AutoAddExt = true


Dim fdata,EditFile,EditFilePath,EditFileName,NowEditFile

VEditFilePath = Request.QueryString("VEditFilePath")
EditFilePath = Request.QueryString("EditFilePath")
EditFileName = Request.QueryString("EditFileName")



SaveAsFileName = request("SaveAs")
if SaveAsFileName<>"" then
	call CheckFileName(SaveAsFileName) '检查文件名是否合法
	EditFileName = request("SaveAs")
end if

EditFile = EditFilePath & EditFileName

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
		Set objCountFile = objFSO.OpenTextFile(EditFile,1,True)	'读
		If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
		'替换<textarea>
		fdata = replace(fdata,"</TEXTAREA","&lt;/textarea")
		fdata = replace(fdata,"</TextArea","&lt;/textarea")
		fdata = replace(fdata,"</Textarea","&lt;/textarea")
		fdata = replace(fdata,"</textArea","&lt;/textarea")
		fdata = replace(fdata,"</TexTAreA","&lt;/textarea")
		
	else
		fdata=request("fdata")	'写
		fdata = replace(fdata,"&lt;/textarea","</textarea")	'替换
		Set objCountFile=objFSO.CreateTextFile(EditFile,True)
		objCountFile.Write fdata
		NowEditFile = "?EditFilePath="&EditFilePath&"&VEditFilePath="&VEditFilePath&"&EditFileName="&EditFileName
	end if
	objCountFile.Close
	Set objCountFile=Nothing
	Set objFSO = Nothing
	if request("save")<>"" then response.redirect NowEditFile

	PrintFile = "http://" & Request.ServerVariables( "SERVER_NAME" ) & VEditFilePath & EditFileName
	if Len(PrintFile)>70 then PrintFile = "..." & Right(PrintFile,70)
%>

<HTML>
<title>文件编辑器</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.Css">

<BODY bgcolor="#eeeeee" topmargin=5>
<center>
<form method=post>
<table width="97%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="90%" height="23">
      <table border="1" cellspacing="0" cellpadding="0">
        <tr>
	  <td>
      	    <table cellspacing="0" cellpadding="0">
	      <tr>
	  	<td width=1 bgcolor=#004F80><IMG src="images/notepad.gif"></td>
	  	<td width=750 bgcolor=#004F80>
      <font color=#FFFFFF face="宋体">您正在编辑 <%=PrintFile%></font>
	  	</td>
	      </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr width=750>
    <td width=750 bgcolor="buttonface" height=18>&nbsp;文件(F)&nbsp;&nbsp;&nbsp;编辑(E)&nbsp;&nbsp;&nbsp;搜索(S)&nbsp;&nbsp;&nbsp;帮助(H)</td>
  </tr>
  <tr><td width=90% height=0></td></tr>
  <tr> 
    <td width="90%"> 
      <textarea style="background-color: #FFFFFF; font-family: Fixedsys;" name="fdata" cols="90" rows="80"><%=fdata%></textarea>
    </td>
  </tr>
  <tr><td height=5></td></tr>
  <tr> 
    <td width="97%">
      <input type="submit" name="save" value="     保存     ">
      <input type="reset" name="Reset" value="重新修改">
	<form method=post name="SaveAsForm"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>文件另存为...</b>
		<input type="text" name="SaveAs" value="<%=Request("SaveAs")%>">
		<input type="submit" name="save" value="另存为">
		 &nbsp;&nbsp;&nbsp;<b>注意：</b>您的空间必须支持 <b>FSO</b>
	</form>
    </td>
  </tr>
</table>
</form>