📄 viewsource.aspx
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%
Dim strFilePath, strNameOnly As String
strFilePath = Server.MapPath(Request.URLReferrer.AbsolutePath)
strNameOnly = Mid(strFilePath, InStrRev(strFilePath, "\") + 1)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><% = strNameOnly %></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"><% = strNameOnly %></span><hr />
<!--------------------------------------------------------------------------->
<XMP>
<%
If InStr(strFilePath, "\") > 0 Then
Dim objSR As StreamReader = File.OpenText(strFilePath)
Response.Write(objSR.ReadToEnd())
objSR.Close
objSR = Nothing
End If
%>
</XMP>
<!--------------------------------------------------------------------------->
<!-- #include file=".\foot.inc" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -