六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

加亮顯示ASP文章原代碼(轉(zhuǎn))

發(fā)表時間：2024-01-22 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：9

[摘要]加亮顯示ASP文章原代碼 加入時間：2000年10月29日來源網(wǎng)站：中華技術(shù)網(wǎng) <%@ LANGUAGE="VBSCRIPT" %><% Option Explicit %><%'File: CodeBrws.asp'Overvie...

加亮顯示ASP文章原代碼
加入時間：2000年10月29日來源網(wǎng)站：中華技術(shù)網(wǎng)
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
'File: CodeBrws.asp
'Overview: This formats and writes the text of the selected page for
' the View Script Button
'This file is provided as part of the Microsoft Visual Studio 6.0 Samples

'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
'WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
'INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
'PURPOSE.

'Copyright (C) 1997, 1998 Microsoft Corporation, All rights reserved
%>
<html>

<head>
<meta NAME="DESCRIPTION" CONTENT="ASP Source code browser">
<meta NAME="GENERATOR" CONTENT="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
<title></title>
</head>

<body BGCOLOR="#FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" ALINK="#23238E" VLINK="#808080"
LINK="#FFCC00">
<basefont FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><!--- DISPLAY THE COLOR LEGEND --->


<table BORDER="1">
<tr>
<td WIDTH="25" BGCOLOR="#FF0000"> </td>
<td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">ASP Script</font> </td>
</tr>
<tr>
<td BGCOLOR="#0000FF"> </td>
<td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">Comments</font> </td>
</tr>
<tr>
<td BGCOLOR="#000000"> </td>
<td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">HTML and Text</font> </td>
</tr>
</table>

<hr>
<font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><% OutputSource %>
</font>
</body>
</html>
<%
Sub OutputSource
Dim strVirtualPath, strFilename
strVirtualPath = Request("Source")
strFilename = Server.MapPath(strVirtualPath)

Dim FileObject, oInStream, strOutput
'Creates a file object to hold the text of the selected page
Set FileObject = CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0)
'Loop that writes each line of text in the file according to
'the PrintLine function below
While NOT oInStream.AtEndOfStream
strOutput = oInStream.ReadLine
Call PrintLine(strOutput, fCheckLine(strOutput))
Response.Write "<BR>"
Wend
End Sub

' Returns the minimum number greater than 0
' If both are 0, returns -1
Function fMin(iNum1, iNum2)
If iNum1 = 0 AND iNum2 = 0 Then
fMin = -1
ElseIf iNum2 = 0 Then
fMin = iNum1
ElseIf iNum1 = 0 Then
fMin = iNum2
ElseIf iNum1 < iNum2 Then
fMin = iNum1
Else
fMin = iNum2
End If
End Function

Function fCheckLine (ByVal strLine)
Dim iTemp, iPos
fCheckLine = 0
iTemp = 0

iPos = InStr(strLine, "<" & "%")
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 1
End If

iPos = InStr(strLine, "%" & ">")
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 2
End If

iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 3
End If

iPos = InStr(1, strLine, "<" & "/SCRIPT", 1)
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 4
End If

iPos = InStr(1, strLine, "<" & "!--", 1)
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 5
End If

iPos = InStr(1, strLine, "-" & "->", 1)
If fMin(iTemp, iPos) = iPos Then
iTemp = iPos
fCheckLine = 6
End If

End Function

Sub PrintHTML (ByVal strLine)
Dim iPos, iSpaces, i
iSpaces = Len(strLine) - Len(LTrim(strLine))
i = 1
'Correct for tabs
While Mid(Strline, i, 1) = Chr(9)
iSpaces = iSpaces + 5
i = i + 1
Wend
'Insert spaces
If iSpaces > 0 Then
For i = 1 to iSpaces
Response.Write(" ")
Next
End If
iPos = InStr(strLine, "<")
If iPos Then
Response.Write(Left(strLine, iPos - 1))
Response.Write("<")
strLine = Right(strLine, Len(strLine) - iPos)
Call PrintHTML(strLine)
Else
Response.Write(strLine)
End If
End Sub

Sub PrintLine (ByVal strLine, iFlag)
Dim iPos
Select Case iFlag
Case 0
Call PrintHTML(strLine)

Case 1
iPos = InStr(strLine, "<" & "%")
Call PrintHTML(Left(strLine, iPos - 1))
Response.Write("<FONT COLOR=#ff0000>")
Response.Write("<%")
strLine = Right(strLine, Len(strLine) - (iPos + 1))
Call PrintLine(strLine, fCheckLine(strLine))

Case 2
iPos = InStr(strLine, "%" & ">")
Call PrintHTML(Left(strLine, iPos -1))
Response.Write("%>")
Response.Write("</FONT>")
strLine = Right(strLine, Len(strLine) - (iPos + 1))
Call PrintLine(strLine, fCheckLine(strLine))

Case 3
iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
Call PrintHTML(Left(strLine, iPos - 1))
Response.Write("<FONT COLOR=#0000ff>")
Response.Write("<SCRIPT")
strLine = Right(strLine, Len(strLine) - (iPos + 6))
Call PrintLine(strLine, fCheckLine(strLine))

Case 4
iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)
Call PrintHTML(Left(strLine, iPos - 1))
Response.Write("</SCRIPT>")
Response.Write("</FONT>")
strLine = Right(strLine, Len(strLine) - (iPos + 8))
Call PrintLine(strLine, fCheckLine(strLine))

Case 5
iPos = InStr(1, strLine, "<" & "!--", 1)
Call PrintHTML(Left(strLine, iPos - 1))
Response.Write("<FONT COLOR=#0000ff>")
Response.Write("<!--")
strLine = Right(strLine, Len(strLine) - (iPos + 3))
Call PrintLine(strLine, fCheckLine(strLine))

Case 6
iPos = InStr(1, strLine, "-" & "->", 1)
Call PrintHTML(Left(strLine, iPos - 1))
Response.Write("-->")
Response.Write("</FONT>")
strLine = Right(strLine, Len(strLine) - (iPos + 2))
Call PrintLine(strLine, fCheckLine(strLine))

Case Else
Response.Write("Function Error -- Please contact the administrator.")
End Select
End Sub
%>



主站蜘蛛池模板： 三级经典三级日本三级欧美 | 四虎一影院区永久精品 | 在线国产你懂的 | 碰91精品国产91久久婷婷 | 欧美一级特黄aaaaaa在线看首页 | 最新中文字幕一区二区乱码 | 日韩高清欧美 | 在线观看亚洲一区二区 | 青草网址| 小说区图片区综合久久88 | 在线综合色 | 日韩第六页 | 五月婷婷六月天 | 天天噜噜色 | 亚洲视频www | 亚洲日韩中文字幕一区 | 色综合久久天天综合 | 一二三四视频社区在线网 | 探花视频免费播放观看 | 四虎精品免费永久在线 | 屁屁网站在线观看www | 日韩一区二三区无 | 午夜性福利视频 | 中文字幕欧美成人免费 | 亚洲图片欧美在线 | 综合色中色 | 亚洲欧洲综合网 | 日本视频在线免费 | 天天看片夜夜爽 | 欧美一级成人一区二区三区 | 一级做a爰性色毛片免费 | 亚洲综合精品一二三区在线 | 欧洲一区麻豆文化传媒 | 五月天婷婷精品免费视频 | 中文字幕伦伦在线中文字 | 色综合图区| 欧美在线视频观看 | 深爱婷婷网 | 在线观看 亚洲 | 亚洲va久久久噜噜噜久久 | 亚洲国产一区二区在线 |