快三计划qq群

此頁面上的內容需要較新版本的 Adobe Flash Player。

獲取 Adobe Flash Player

    您現在的位置是:PHP\ASP\JSP\NET

<%
'*************************************************************
'在支持FSO的情況下,可以顯示本站內的所有ASP頁面的代碼
'適用于代碼演示時在效果頁面上直接顯示該頁面的代碼而不用再對代碼制作專門的頁面
'使用方法:ViewSource.asp?file=要顯示的文件名
'如:ViewSource.asp?file=x.asp
'modify By : Babyt
'*************************************************************
%>
<B Style="font-size:12px;font-family:Courier New">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 Style='font-size:12px;font-family:Courier New'>" & 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
%>

CopyRight2010 銀川慧科網絡有限公司版權所有 銀川網絡公司 銀川網站建設 銀川網站制作 銀川seo 寧夏企業郵局
地址:寧夏銀川市正源北街萬達廣場B座1707
電話:0951-6048280 18195099882 13709590950
寧ICP備08000251