仓酷云

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

[学习教程] ASP网页编程之asp收罗代码示例

[复制链接]
活着的死人 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:08:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

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语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;
分手快乐 该用户已被删除
沙发
发表于 2015-1-18 20:56:12 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
透明 该用户已被删除
板凳
发表于 2015-1-25 18:14:42 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
小女巫 该用户已被删除
地板
发表于 2015-2-9 02:21:20 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
冷月葬花魂 该用户已被删除
5#
发表于 2015-2-26 18:28:57 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
不帅 该用户已被删除
6#
发表于 2015-3-16 07:42:23 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
第二个灵魂 该用户已被删除
7#
发表于 2015-3-22 21:11:05 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
精灵巫婆 该用户已被删除
8#
发表于 2015-3-22 21:11:05 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-24 10:28

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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