.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
xml抓取繁体乱码正常显示的代码

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

例子如下:当抓取xml文件的时候也有效:
.Charset = "utf-8"
.Position = 2
用来从第二个字节开始抓取。。
<%
on error resume next
                
Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0
.Charset = "utf-8"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function


id=request("id")
url="http://odds.190bp.com/history_3star.aspx?ID="&id

set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()


mj_code = bytes2BSTR(oSend.responseBody)
 
 if err.number=0 then

 start=Instr(mj_code,"<HTML>")
 over=Instr(mj_code,"</table></FONT></td>")
 mj_top=mid(mj_code,start,over-start)
 mj_top=replace(mj_top,"/png/","http://odds.190bp.com//png/")
 mj_top=replace(mj_top,"<img border=""0"" src=""images/client/betjoy46860.gif"">","")
 response.write mj_top
 response.write "</table></td></tr></table></body></html>"
  else
  wscript.echo err.description
 end if
%>




相关文章

相关软件