Because the dynamic page is UTF8 format encoding, I get its HTML code, use the FSO to save, generate HTML is successful, but not access, because the HTML coding problem, select gb2312 can be normal access. This is not possible, because the whole station is UTF8 format encoding, open this page, but also need to select the code to access, so much trouble, and no one is willing to visit, so must solve the UTF8 format coding problem.
After a search to find that the FSO can not generate UTF8 format files. So you have to change the way. Www.iisboy.com
Then find a function, can replace the FSO to generate files, it uses the ADODB.stream object to generate UTF8 files, functions as follows:
Copy Code code as follows:
'-------------------------------------------------
' Function name: ReadTextFile
' Function: Use the ADODB.stream object to read text files in UTF-8 format
'----------------------------------------------------
Function Readfromtextfile (Fileurl,charset)
Dim str
Set Stm=server. CreateObject ("ADODB.stream")
Stm. type=2 ' read in this mode
Stm.mode=3
Stm.charset=charset
Stm.open
Stm.loadfromfile server. MapPath (FILEURL)
Str=stm.readtext
Stm. Close
Set Stm=nothing This article is from www.iisboy.com
Readfromtextfile=str
End Function
'-------------------------------------------------
' Function name: writetotextfile
' Function: Use ADODB.stream object to write text files in UTF-8 format
'----------------------------------------------------
Sub writetotextfile (Fileurl,byval str,charset)
Set Stm=server. CreateObject ("ADODB.stream")
Stm. type=2 ' read in this mode
Stm.mode=3
Stm.charset=charset
Stm.open
Stm. WRITETEXT Str
Stm. SaveToFile server. MapPath (FILEURL), 2
Stm.flush
Stm. Close
Set stm=nothing
End Sub Iisboy NET, iisboy.com
How to use:
Copy Code code as follows:
Call Writetotextfile (".. /index.html "," AAA "," Utf-8 ")
Get.