📄 viewasp.asp
字号:
<% Response.Buffer = True %>
<HTML>
<BODY>
<% FileName = Request("FileName") %>
<H2><%=FileName%> 的原始码：</H2>
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set txtf = fs.OpenTextFile( Server.MapPath(FileName) )
If Not txtf.atEndOfStream Then ' 先确定还没有到达结尾的位置
Content = txtf.ReadAll ' 读取整个文件的数据
End If
If Request("Edit") = Empty And Request("Save") = Empty Then
%>
<TABLE Border=1 CellSpacing=1 Width="100%"><TR><TD NoWarp><PRE>
<FONT Size=+1>
<%
Lines = Split( Content, vbCrLf )
For I = 0 To UBound(Lines)
Response.Write "<FONT Color=""#808080"">#" & Right("00" & (I+1), 3) & ": </FONT>" & Server.HTMLEncode( Lines(I) )
If I <> UBound(Lines) Then Response.Write "<BR>"
Next
%>
</FONT>
</PRE></TD></TR></TABLE>
<FORM Action=ViewAsp.asp Method=POST>
<INPUT Type=Hidden Name=FileName Value=<%=FileName%>>
<INPUT Type=Submit Name=Edit Value=" 编辑">
<%
ElseIf Request("Edit") <> Empty Then
%>
<FORM Action=ViewAsp.asp Method=POST>
<INPUT Type=Hidden Name=FileName Value=<%=FileName%>>
<TEXTAREA Rows=15 Cols=90 Name=Content><%=Server.HTMLEncode(Content)%>
</TEXTAREA><P>
<INPUT Type=Submit Name=Save Value=" 储存">
</FORM>
<%
ElseIf Request("Save") <> Empty Then
Set txtf = fs.OpenTextFile( Server.MapPath(FileName), 2, True )
txtf.Write Request("Content")
Response.Clear
Response.Redirect "ViewAsp.asp?FileName=" & FileName
End If
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -