<%On Error Resume NextServer._程序员之家(xmlhttp 抓取网页内容1)

开发技术指南» 文章正文

引言： <%On Error Resume NextServer.

摘要： 1 general [intro] 1.4 implementation compliance [intro.compliance] 　 1 总则 1.4 实现遵从性【总则.遵从性】　 the set of diagnosable rules consist of all syntactic and semantic rules in this inter......

·一些珍藏代码奉献，绝对有价值，不可不看！！！ »显示摘要«

摘要： 1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于table2. ......

xmlhttp 抓取网页内容1

on error resume next 【程序编程相关:一个猜数字游戏的算法】

【推荐阅读:制作Javascript弹出窗口技巧九则】

server.scripttimeout=9999999 【扩展信息:使用“win32 static libr】

function gethttppage(path)

t = getbody(path)

gethttppage=bytestobstr(t,"gb2312")

end function

function bytes2bstr(vin)

strreturn = ""

for j = 1 to lenb(vin)

thischarcode = ascb(midb(vin,j,1))

if thischarcode < &h80 then

strreturn = strreturn & chr(thischarcode)

else

nextcharcode = ascb(midb(vin,j+1,1))

strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))

j = j + 1

end if

bytes2bstr = strreturn

end function

function getbody(url)

on error resume next

set retrieval = createobject("microsoft.xmlhttp")

... 下一页

·symbian游戏编程入门 (一) symbian os简介 »显示摘要«

摘要：一 symbian os简介 1.1 symbian操作系统的起源和现状 symbian成立于1998年，由爱立信、诺基亚、摩托罗拉和psion共同出资筹建。1999年，松下公司加入symbian。2000年，世界上第一款采用symbian操作系统的手机ericsson r380成功上市，同年，索尼公司和三洋公司获得了symbian 的授权。 2001年，富士通公司获得了symbian的授权......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：