📄 admin_fileeditor.asp

📁 浪人文章系统
💻 ASP
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="3"%>

<html>
<head>
<title>网站文件管理</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">

</head>

<body leftmargin="10" topmargin="10" bgcolor="#FFFFFF">

<!--#include file="Include/Session.asp"-->

<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim Fi_ID,Fi_Name,Fi_Code,Fi_CodeDefault1,Fi_Type,Fi_Username,Fi_IP,Fi_DateTime

if Trim(Request.Form("GuComm"))="MoSa" then

	GuSystemError=false

	Fi_ID=Trim(Request.Form("Fi_ID"))

	if Trim(Request.Form("Fi_Code"))="" then
		Fi_Type="0"
		Fi_Code=""
	else
		Fi_Type="1"
		Fi_Code=Trim(Request.Form("Fi_Code"))
	end if

	Fi_CodeDefault1=Trim(Request.Form("Fi_CodeDefault1"))

	Fi_Username=GuAdminUsername
	Fi_IP=GuUserIP

	dim rsFi1
	set rsFi1=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_File where Fi_ID="&Fi_ID
	rsFi1.open GuSQL,GuConn,1,3
	rsFi1("Fi_Code")=Fi_Code

	if Fi_CodeDefault1="1" and Fi_Code<>"" then
		rsFi1("Fi_CodeDefault")=Fi_Code
	end if

	rsFi1("Fi_Type")=Fi_Type
	rsFi1("Fi_Username")=Fi_Username
	rsFi1("Fi_IP")=Fi_IP
	rsFi1("Fi_DateTime")=now()
	rsFi1.update
	rsFi1.close
	set rsFi1=Nothing

	dim rsFi2
	set rsFi2=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_File where Fi_ID="&Fi_ID
	rsFi2.open GuSQL,GuConn,1,1
	Fi_Name=rsFi2("Fi_Name")

	if rsFi2("Fi_Type")="1" then
		Fi_Code=rsFi2("Fi_Code")
	else
		Fi_Code=rsFi2("Fi_CodeDefault")
	end if

	dim GuFileName,GuFSOFile
	GuFileName=Server.MapPath("Include/"&Fi_Name&"")
	Set GuFSO=Server.CreateObject("Scripting.FileSystemObject")
	Set GuFSOFile=GuFSO.CreateTextFile(GuFileName)
	GuFSOFile.WriteLine Fi_Code
	GuFSOFile.close
	set GuFSO=Nothing
	set GuFSOFile=Nothing

	rsFi2.close
	set rsFi2=Nothing

	GuSystemCode=00
	GuSystemMessage="网站文件代码已保存到数据库并创建成文本文件"
	GuSystemURL="<a href=""Admin_FileEditor.asp?ID="&Fi_ID&"""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

	call GuMessage()

else

	dim rsFi3
	set rsFi3=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_File where Fi_ID="&Trim(Request.QueryString("ID"))
	rsFi3.open GuSQL,GuConn,1,1
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_FileEdit" method="post" action="Admin_FileEditor.asp">
 <tr>
  <td width="600" height="30" colspan="2" background="Images/Admin_T_Bg1.gif" align="center"><font class="BlackS12"><b>网 站 文 件 管 理</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" colspan="2" bgcolor="#FFFFFF"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文件名称</font></td>
  <td width="518" height="28" bgcolor="#FFFFFF">&nbsp;<font class="BlackS12"><%=rsFi3("Fi_NameNote")%>:<%=rsFi3("Fi_Note")%>，注:如果要使用默认的文件代码，请清空表单后保存</font></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文件代码</font></td>
  <td width="518" height="258" bgcolor="#FFFFFF" rowspan="2">&nbsp;<textarea rows="6" name="Fi_Code" cols="100" class="Admin_TextArea" style="width:500;height:246;background-color:#FFFFFF"><%=Server.HTMLEncode(rsFi3("Fi_Code"))%></textarea></td>
 </tr>
 <tr>
  <td width="80" height="230" bgcolor="#FFFFFF"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">修改选项</font></td>
  <td width="518" height="28" bgcolor="#FFFFFF"><table border="0" width="500" height="26" cellpadding="0" cellspacing="0"><tr><td width="24" align="right"><input type="checkbox" name="Fi_CodeDefault1" id="Fi_CodeDefault1" class="Admin_InputText" value="1"></td><td width="460"><font class="BlackS12"><label for="Fi_CodeDefault1">同时保存为默认代码</label>，注:如果不能确定代码是完整可用的，请不要选择此项</font></td></tr></table></td>
 </tr>
 <tr>
  <td width="80" height="38" bgcolor="#FFFFFF"><input type="hidden" name="GuComm" value="MoSa"><input type="hidden" name="Fi_ID" value="<%=rsFi3("Fi_ID")%>"><input type="hidden" name="Fi_Name" value="<%=rsFi3("Fi_Name")%>"></td>
  <td width="518" height="38" bgcolor="#FFFFFF">&nbsp;<input type="submit" name="Submit" class="Admin_Button_Modify" value="">&nbsp;<input type="Reset" name="Admin_Button_Reset" class="Admin_Button_Reset" value="">&nbsp;<input type="button" name="Admin_Button_Copy" class="Admin_Button_Copy" onclick="JavaScript:Admin_FileEdit.Fi_Code.select();document.execCommand('Copy');" value="">&nbsp;<input type="button" name="Admin_Button_Paste" class="Admin_Button_Paste" onclick="JavaScript:Admin_FileEdit.Fi_Code.focus();document.execCommand('Paste');" value="">&nbsp;<input type="button" name="Admin_Button_Empty" class="Admin_Button_Empty" onclick="JavaScript:Admin_FileEdit.Fi_Code.value='';" value=""></td>
 </tr>
</form>
</table>
<%
	rsFi3.close
	set rsFi3=Nothing
%>

<%end if%>

<!--#include file="Include/Message.asp"-->

</body>
</html>

<%CloseDatabase%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -