test.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 26 行

HTM
26
字号
<%Dim strURLstrURL = Request.QueryString("URL")Dim strDir, strFileName    strDir = Request.ServerVariables("APPL_PHYSICAL_PATH")        Response.Write strDir        strFileName = Replace(strURL,"/","\")    strFileName = strDir & strFileName    Const ForReading = 1    Dim objFSO, objTextStream    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    Set objTextStream = objFSO.OpenTextFile(strFileName, ForReading)    Response.Write "<HTML><BODY>"    Response.Write "<XMP>" &  objTextStream.ReadAll & "</XMP>"    Response.Write ""    objTextStream.Close    Set objTextStream = Nothing     Set objFSO = Nothing %>

⌨️ 快捷键说明

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