|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。收罗|程序<%
声明获得方针信息的函数,经由过程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最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|