如何获得不同编码网页的内容
假设要打开不同的网页,由于不同的网页可能汉字编码不同,有的网页就显示乱码,请教如何解决这个问题
DIMENSION URLx(5)
urlx(1)="http://www.163.com/"
urlx(2)="http://finance.eastmoney.com/"
urlx(3)="http://www.tiexue.net/"
urlx(4)="http://www.17zuoye.com/"
urlx(5)="http://bbs.csdn.net/"
FOR i=1 TO ALEN(urlx,1)
url_=urlx(i)
test=CREATEOBJECT("msxml2.xmlhttp")
LCURL=url_
test.OPEN("get", LCURL,.F.)
test.SEND
lcString=""
htmlx=STRCONV(test.responsebody,4) &&未经解码的原始数据 responseBody
*htmlx=test.responsetext &&Filetostr(lcFileName)
MESSAGEBOX(url_+CHR(13)+STREXTRACT(htmlx,"<title>","</title>"))
ENDf