日期:2014-05-17  浏览次数:20872 次

小弟用VBscript生成的文档,被百度抓到的怎么是乱的???

我的代码如下:

Const ForReading = 1, ForWriting = 2
dim MyFileObject,MyTestFile
set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
set MyTestFile=MyFileObject.openTextFile(server.MapPath("../up_files/"&temp1&".html"),8,true,-1)

''''写文件
MyTestFile.writeline("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>")
MyTestFile.writeline("<html xmlns='http://www.w3.org/1999/xhtml'>")
MyTestFile.writeline("<head>")
...


在百度里面搜到的结果是:

< ! D O C T Y P E h t m l P U B L I C ' - / / W 3 C / / D T D X H T M L 1 . 0 T r a n s i t i o n a l / / E N ' ' h t t p : / / w w w . w 3 . o r g / T R / x h t m l 1 / D T D / x h t m l 1 - t r a n s i t i o n a l . d t d ' > < h t m l x m l n s = ' h t t p : / / w w w . w 3 . o r g / 1 9 9 9 / x h t m l ' > < h e a d > < m e t a h t t p - e q u i v = ' C o n t e n t - T y p e ' c o n t e n t = ' t e x t / h t m l ; c h a r s e t = u t f - 8 ' / > < t i t l e > : : 0 N*N g v2 0 1 0 t^;` ga 0: : < / t i t l e > < m e t a n a m e = ' k e y w o r d s ' c o n t e n t = ' y O e ;` u;m VY Yuf[' > < m e t a n a m e = ' d e s c r i p t i o n ' c o n t e n t = ' y O v*N Nzz ;N S [ N0 g..... 


------解决方案--------------------
把你的UTF8都改成GBK,保存格式为ANSI。