多好客

dim a

a="abcd"

用Msxml2.XMLHTTP替换掉Microsoft.XMLHTTP,我本来用的就是Msxml2.XMLHTTP的 
继续搜索。找到最终解决方案应该是用Msxml2.ServerXMLHTTP 
先前也搜到这个结果，由于大意，没有及时注意到，以下是搜索过程找到的有用的相关资料。 

代码如下： 

<%

function getHTTPPage(url)

url="www.913dh.com"  '//定义要获取源代码的网址，一般是通过变量传递过来

HTMLCODE=getHTTPPage(url) '//获取源代码的函数

在WINDOWS7或SERVER2008上安装了IIS7.5，调试ASP程序时出现以下错误：

    An error occurred on the server when processing the URL. Please contact the system administrator

IIS设置好之后打开ASP网站时提示：

Provider 错误 '80004005'

在站长站看到一网友写的相册程序，功能挺简单的，看到他用了ASPJPEG生成缩略图，不由想起再用上ASPUPLOAD上传，于是花了一个小时时间完善了他的代码。 

以下代码均加有简单的注释，如果你看不懂，请先看ASPJPEG以及ASPUPLOAD的说明文档（E文，希望有心理准备），看不懂的可以问我。 

以下是代码： 

一般我们在ASP环境下，运行动生静操作时都用到的是FSO,他是专门对文件进行操作的一个组件，他FSO的编码属性只有三种，系统默认，Unicode，ASCII，并没有我们要的utf-8,所以一般中文系统上使用FSO组件生成的文件都是gb2312格式的了，即便您在网页内写上charset="utf-8"也是没用的 

要生成utf-8格式的文件，ASP环境下我们用 ADODB.Stream代替FSO读写utf-8文件，因为，ADODB.Stream,有一个CharSet 属性，可以让您定义要打开或要写入的文件的编码类型，这样一来，ADODB.Stream不仅仅是只能读取或写入utf-8的文件，基本上什么格式的文件都可以操作了，当然当前对我们来说比较有用的就是写为utf-8格式的文件， 

下边这个函数可以实现这些功能： 

 Function WriteToFile (FileUrl, Str, CharSet) 
    Set stm = CreateObject("Adodb.Stream") 
    stm.Type = 2 
    stm.mode = 3 
    stm.charset = CharSet 
    stm.Open 
    stm.WriteText Str 
    stm.SaveToFile FileUrl, 2 
    stm.flush 
    stm.Close 
    Set stm = Nothing 
End Function 

其中charset可以选择的项有很多，您可以在这找到您想要的：网页编码大全 CodePage CharSet 中英文显示名称，这个函数的功能基本上与您的动生静使用的FSO函数差不多，只是多了一个选择字符编码的属性，当然您也可以把这个属性直接写到函数里，不过这样写比较好，以后如果要用别的转为别的格式，这个函数还可以用的上，都不用修改的。