Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")On Error Resume NextDim thisurl,thistextthisurl=Request("thisurl") '定义文件地址(非Html格式文档)!if thisurl="" thenResponse.Write("<span>请先输入文件地址!</span>")Response.EndEnd ifFunction objxmlhttp(xmlurl)On Error Resume NextSet objxml = CreateObject("Microsoft.XMLHTTP")objxml.Open "get",xmlurl,falseobjxml.setrequestheader "content-type","application/x-www-form-urlencoded...