📄 viewsource.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%
Dim strFilePath As String
strFilePath = Server.MapPath(Request.URLReferrer.AbsolutePath)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><% = strFilePath %></title>
<style type="text/css">
body {font-family:Tahoma,Arial,sans-serif; font-size:10pt}
input {font-family:Tahoma,Arial,sans-serif; font-size:9pt}
.heading {font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold}
.subhead {font-family:Tahoma,Arial,sans-serif; font-size:12pt; font-weight:bold; padding-bottom:5px}
.cite {font-family:Tahoma,Arial,sans-serif; font-size:8pt}
</style>
</head>
<body bgcolor="#ffffff">
<span class="heading"><% = strFilePath %></span><hr />
<!--------------------------------------------------------------------------->
<XMP>
<%
If strFilePath <> "" Then
Dim objSR As StreamReader = File.OpenText(strFilePath)
Response.Write(objSR.ReadToEnd())
objSR.Close
objSR = Nothing
End If
%>
</XMP>
<!--------------------------------------------------------------------------->
<hr /><span class="cite">©2001 <a class="cite" href="http://www.wrox.com/">Wrox Press</a> -
<a class="cite" href="http://www.wrox.com/Books/Book_Details.asp?isbn=1861004885">Professional ASP.NET</a> (ISBN: 1-861004-88-5)</span>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -