viewsource.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 41 行

ASPX
41 行
字号 
<%@ 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>

viewsource.aspx - 源码说明

本页面展示了「This is a book about vb.you could learn this from this book」中的 viewsource.aspx 源码文件，采用 ASPX 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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