<!-- #include file="adovbs.inc" -- <% ' 删除已经存在的文件 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then objFSO.DeleteFile Server.MapPath("db_xml.xml") End IF Set objFSO = Nothing ' 定义变量,很好的习惯 Dim cnnXML&nbs...[ 查看全文 ]