|
|
|
| ",1)
temp=mid(strReturn,p1,p2-p1)
temp=replace(temp,"","")
temp=replace(temp,"","")
temp=replace(temp," | ","")
temp=replace(temp,chr(32),"")
temp=replace(temp,chr(10),"")
BytesToStr=temp
END FUNCTION
FUNCTION XmlPro(URL)
SET objXML = CreateObject("MSXML2.XMLHTTP")
objXML.open "GET",URL, False
objXML.send
str = objXML.responseBody
Response.ContentType = "text/html"
Response.CharSet = "gb2312"
StrList=BytesToStr(str)
StrList=split(StrList,chr(13))
response.Write StrList(1)
SET objXML = Nothing
END FUNCTION
%>
欢迎浏览乌海市交通局网站 http://www.whjtw.gov.cn
|
 |
|
