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

如何简单获取远程文件的内容?
有一个远程地址,如:http://www.xxx.com/test.asp
其显示的内容格式是固定的,如:
1:ajkdf000000
2:2ir5oijr23ijr
3:....

我现在想把这些内容写到入数据库中,我的做法是
先用Microsoft.XMLHTTP组件获取内容
再用Adodb.Stream写入到一个文本文件中,
然后再读取这个文本文件,用循環写入数据库
虽然功能是实现了,但效果很成问题,尤其是每次要写一个临时文件,

我想请教能不能直接把内容写入数据库?
或者哪位有现成的例子给我借鉴一下,谢谢!

如果我的问题没有描述清楚,请跟贴说明,我在线等,谢谢!!

------解决方案--------------------
我想请教能不能直接把内容写入数据库?
===================================

可以啊,你都可以写入文件,怎么不能写入数据库呢?

整理好数据即可了!
------解决方案--------------------
'vtIn - Byte()数组
'strCharset - 目标编码
Public Function BytesToString(vtIn, ByVal strCharset)
Dim objFile
Set objFile = Server.CreateObject( "ADODB.Stream ")
objFile.Type = 1
objFile.Mode = 3
objFile.Open
objFile.Write vtIn
objFile.Position = 0
objFile.Type = 2
objFile.Charset = strCharset
BytesToString = objFile.ReadText(-1)
objFile.Close
Set objFile = Nothing
End Function

GetRemoteData = BytesToString(.ResponseBody, "gb2312 ") '如果对方页面的编码是gb2312