ASP小偷偷取地址并生成html
日期：2007年9月16日 作者： 相关tags: ASP 小偷 偷取 地址 生成 html- [1] [2] 下一页
- ASP.NET获取远程网页下载到本地文件
- ASP一个很简单的验证码程序
- 用Excel生成九九乘法表
- ASP.NET：Repeater控件的详解
- 邮件发送程序（可以同时发给多个地址、可以带附件）
- HTML 标签是否匹配检测代码
- 带进度条的ASP无组件断点续传下载
- ASP技巧：下拉菜单做翻页的通用代码
- 卡巴斯基2012KEY生成助手(卡巴2012授权文件生成器) 绿色版 V1.00
- 微型KMS服务器(office2010密钥生成器) 绿色版 V1.00
- 小学算术练习工具(加减乘除混合运算题生成器) V2.1 绿色版
- 春浪考试系统asp版 5.52
- qqext(QQIP地址查询器) V1018 绿色版
- NAT地址转换进阶
- 秋风试题大师(测试题生成器) V1.3.7 最新版
- 自学HTML和CSS
- 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
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
set objstream = nothing