editor.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 47 行

ASP
47 行
字号 
<%@ Language=VBScript %>
<%Response.buffer=true
Level=1%>
<!--#include File ="includes/check.inc"-->
<HTML>
<HEAD>
		<meta http-equiv="content-type" content="text/html;charset=gb2312">
		<title>aspEdit</title>
		<link rel=stylesheet type="text/css" href="styles/style.css">
	</HEAD>


<BODY>
		<div align="center">
			<!--#include File ="includes/banner.inc"-->[<a href="javascript:parent.close()">关闭窗口 
			(文件未保存!)</a>]
			<hr>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")	
File=request.querystring("File")
response.write("<font color='white'><b>" & "文件" & "</font></b><hr>") 
aktion=request.querystring("aktion") 
Set ts = fso.OpenTextFile (Server.MapPath (File) , 1)
'如果是保存
If Aktion="save" then
		Set ts = fso.CreateTextFile (Server.MapPath (File), 1)
		ts.Write Request.Form("FileContent")
		Set ts = fso.OpenTextFile (Server.MapPath (File) , 1)
		Response.Write "文件保存成功!<hr>"
end if

%>
			<form <%="action='editor.asp?file=" & file & "&aktion=save'"%> id=FORM1 method=post name=FORM1>
					<input id=submit1 name=submit1 type=submit value="Save File"><br>
<%
	response.write("<TEXTAREA name=FileContent cols='136' rows='35'>")
	Response.Write Server.HTMLEncode(ts.ReadAll)  '读入所有的数据
	response.write("</TEXTAREA>")
%></div>
			</form>
		
	</BODY>
</HTML>
<%
	Set fso = Nothing
	Set ts = Nothing
%>

editor.asp - 源码说明

本页面展示了「ASP+SQL Server动态网站开发从基础到实践教程」中的 editor.asp 源码文件，采用 ASP 编程语言编写，共 47 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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