|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧上面是一侧ASP收罗页面内容最基本的必备源代码,修正以下的代码必要有必定的ASP基本。
以下是援用片断:
<%
’功效:asp收罗代码
’wangsdong
’备注:撑持原创程序,请保存此信息,感谢
url="http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str=getHTTPPage(url)
title=strcut(str,"<h1id=""artibodyTitle""style=""color:#03005C;"">","</h1>",2)
content=strcut(str,"<!--注释内容begin-->","<!--注释内容end-->",2)
response.write"旧事题目<br><b>"&title&"</b><br><br><br>旧事内容:<br>"&content
FunctiongetHTTPPage(url)
OnErrorResumeNext
dimhttp
sethttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
IfErr.number0then
Response.Write"<palign=’center’><fontcolor=’red’><b>服务器猎取文件内容堕落</b></font></p>"
Err.Clear
EndIf
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
’截取字符串,1.包含肇端和停止字符,2.不包含
FunctionstrCut(strContent,StartStr,EndStr,CutType)
DimstrHtml,S1,S2
strHtml=strContent
OnErrorResumeNext
SelectCaseCutType
Case1
S1=InStr(strHtml,StartStr)
S2=InStr(S1,strHtml,EndStr)+Len(EndStr)
Case2
S1=InStr(strHtml,StartStr)+Len(StartStr)
S2=InStr(S1,strHtml,EndStr)
EndSelect
IfErrThen
strCute="<palign=’center’>没有找到必要的内容。</p>"
Err.Clear
ExitFunction
Else
strCut=Mid(strHtml,S1,S2-S1)
EndIf
EndFunction
%>
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|