欢迎进入广州凡科互联网科技有限公司网站
全国服务热线
4000-399-000
显示信息ASP网页页面的编码
时间: 2021-03-04 12:48 浏览次数:
您如今的部位是:PHP\ASP\JSP\NET%'*************************************************************'在适用FSO的状况下,能够显示信息本网站内的全部ASP网页页面的编码'可用于编码演试时在实际效果网页页
 您如今的部位是:PHP\ASP\JSP\NET

%
'*************************************************************
'在适用FSO的状况下,能够显示信息本网站内的全部ASP网页页面的编码
'可用于编码演试时在实际效果网页页面上立即显示信息该网页页面的编码而无需再对编码制作专业的网页页面
'应用方式:ViewSource.asp?file=要显示信息的文档名
'如:ViewSource.asp?file=x.asp
'modify By : Babyt
'*************************************************************
%
B HTML/ASP Source Code: /B
HR SIZE=1
%
Dim objFSO, objInFile
Dim strIn, strTemp
Dim I, J
Dim strFileName
Dim ProcessString
Dim bCharWritten
Dim bInsideScript
Dim bInsideString
Dim iInsideComment
ProcessString = 0
bCharWritten = False
bInsideScript = False
bInsideString = False
iInsideComment = 0
linecount = 1
strFileName = Request.QueryString("file")
'以便维护你的别的网页页面,开展简易维护,只容许浏览当今文件目录下的文档
'你可以以依据具体必须提升更过标准
If InStr(1, strFileName, "\", 1) Then strFileName=""
If InStr(1, strFileName, "/", 1) Then strFileName=""

If strFileName "" Then
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 '分辨文档是不是存有
 If objFSO.FileExists(Server.MapPath(strFileName))=False Then
  Response.Write "文档不会有"
  Response.End
 End If
 '开启文档
 Set objInFile = objFSO.OpenTextFile(Server.MapPath(strFileName))
 Response.Write " PRE " vbCRLF
 '按行载入文字流
 Do While Not objInFile.AtEndOfStream
  '开展编号
  strIn = Server.HTMLEncode(objInFile.ReadLine) 
  strTemp = ""
  '分辨起止 %
  '对全部脚本制作快加亮,n默认设置深蓝色
  For I = 1 to Len(strIn) 
  bCharWritten = False
  If InStr(I, strIn, " %", 1) = I Then
  strTemp = strTemp " FONT COLOR=#0000EE "
  bInsideScript = True
  Else
  '分辨完毕标示位 %
  If InStr(I, strIn, "% ", 1) = I Then
  strTemp = strTemp "% /FONT "
  bCharWritten = True
  ' so we dont get the trailing end of this tag again!
  ' ie. Len("% ") - 1 = 4
  I = I + 4
  bInsideScript = False
  End If
  End If
  ' Toggle Inside String if needed!
  If bInsideScript And iInsideComment = 0 And InStr(I, strIn, """, 1) = I Then bInsideString = Not bInsideString
  '分辨将会的注解,关键是以便更改其色调(默认设置翠绿色)
  If bInsideScript And Not bInsideString And (InStr(I, strIn, "'", 1) OR InStr(I, strIn, "//", 1)) = I Then
  strTemp = strTemp " FONT COLOR=#009900 "
  iInsideComment = iInsideComment + 1
  End If
  ' 完毕注解文本解决
  If iInsideComment 0 And I = Len(strIN) Then
  strTemp = strTemp Mid(strIn, I, 1)
  For J = 1 to iInsideComment
  strTemp = strTemp " /FONT "
  Next 'J
  bCharWritten = True
  iInsideComment = 0
  End If
  If bCharWritten = False Then
  strTemp = strTemp Mid(strIn, I, 1)
  End If
  Next
  '此句写行号,能够把行号除掉
  Response.Write " FONT COLOR=#666666 " linecount " /font   " strTemp vbCRLF
  linecount = linecount + 1
 Loop
 Response.Write " /PRE " vbCRLF
 objInFile.Close
 Set objInFile = Nothing
 Set objFSO = Nothing
End If
%

下一篇:没有了


Copyright © 广州凡科互联网科技有限公司 版权所有 粤ICP备10235580号
全国服务电话:4000-399-000   传真:021-45545458
公司地址:广州市海珠区工业大道北67号凤凰创意园