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 + -
显示快捷键?