仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 921|回复: 10
打印 上一主题 下一主题

[学习教程] ASP网页设计asp主动收罗进库办法

[复制链接]
莫相离 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:48:47 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!收罗比来网下流行着一些收罗程序,更多人拿着这些器材在网上叫卖,良多不太懂的人看着那些程序眼羡,实在假如你懂一些ASP,懂得主动收罗程序的道理后,你会感到完成主动化也是那末的复杂.
道理及长处:经由过程XML中的XMLHTTP组件挪用别的网站上的网页,然后批量截取或交换原本的信息使其转化成变量后再逐一贮存到数据库中。其次要的长处即是无需再手工增加大批的信息了,能够指定对某一个站信息的截取举行批量录进,到达省时省力的目标。与其纯真的ASP小偷程序分歧的是:它已不再依附其方针网站。
复杂事例:
<%
声明获得方针信息的函数,经由过程XML组件举行完成。
FunctionGetURL(url)
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"GET",url,False
.Send
GetURL=bytes2bstr(.responsebody)
对获得信息举行考证,假如信息长度小于100则申明截取失利
iflen(.responsebody)<100then
response.write"猎取远程文件<ahref="&url&"target=_blank>"&url&"</a>失利。"
response.end
endif

EndWith
SetRetrieval=Nothing
EndFunction
二进制转字符串,不然会呈现乱码的!
functionbytes2bstr(vin)
strreturn=""
fori=1tolenb(vin)
thischarcode=ascb(midb(vin,i,1))
ifthischarcode<&h80then
strreturn=strreturn&chr(thischarcode)
else
nextcharcode=ascb(midb(vin,i+1,1))
strreturn=strreturn&chr(clng(thischarcode)*&h100+cint(nextcharcode))
i=i+1
endif
next
bytes2bstr=strreturn
endfunction
声明截取的格局,从Start入手下手截取,到Last为停止
FunctionGetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction

DimSoftid,Url,Html,Title

猎取要取页面的ID

SoftId=Request("Id")

  Url="http://www3.skycn.com/soft/"&SoftId&".html"

  Html=GetURL(Url)

以截取天空软件的软件名为例子

  Title=GetKey(Html,"<fontcolor=#004FC6size=3>","</font></b></td></tr>")

翻开数据库,筹办进库

dimconnstr,conn,rs,sql

connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"

setconn=server.createobject("ADODB.CONNECTION")

conn.openconnstr

setrs=server.createobject("adodb.recordset")

sql="select[列名]from[表名]where[列名]="&Title&""

rs.opensql,conn,3,3

ifrs.eofandrs.bofthen

rs("列名")=Title

rs.update

setrs=nothing

endif

setrs=nothing

Response.Write"收罗终了!"

%>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。
莫相离 该用户已被删除
沙发
 楼主| 发表于 2015-3-5 07:08:08 | 显示全部楼层
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-16 07:02

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表