写的很简单,只是实现了功能 <% Function formaturl(yes) If mid(yes,5,1)<"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl = yes1 & "." & yes2 else formaturl=yes end if End Function '取得远程网页二进制源代码 Function getBoy(url) 'on error resume next Set objXml = Server.CreateObjec...
[ 查看全文 ]