如何简单获取远程文件的内容?
有一个远程地址,如: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