浏览模式: 普通 | 列表
11月, 2009 | 1

ip138数据判断地区归属

[ 2009-11-07 11:14:42 | 作者: admin ]
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' http://www.nantiahu.com
tempstr = ""
'转换为字符串函数
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
...

阅读全文…
分类: ASP | 永久链接 | 评论: 0 | 引用: 0 | 浏览: 2177
1