仓酷云

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

[学习教程] ASP网页编程之浅谈 ASP 模板手艺之参数传递

[复制链接]
乐观 该用户已被删除
跳转到指定楼层
#
发表于 2015-2-3 23:28:57 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

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

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

x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。模板     在内容体系开辟中,触及内容和模式分别的进程,也就是依据用户自界说页面模板然后交换成相干内容的进程。这和里面良多整站的内容办理体系,有实质上的区分。有很多内容办理体系,几何人用,都是一个模样,由于页面没法自界说,不懂编程的用户没法修正。象那种,只填几个参数就出来的网站,我估量是没有甚么出路的。由于人人都是一个模样,人人都是会填那些参数的。
  举个例子,你检查一下以下几个站点,你会以为他们是一套法式吗?
www.blueidea.com
http://pages.blueidea.com
http://digi.blueidea.com
http://wuyi.digichina.net
http://www.dcshooter.com

  假如我告知你,他们都是一个法式,只是由相干的站长,设计分歧的模板失掉的页面显示,你就会发明,这个体系的优秀性。
  固然因为这套体系的高端性,今朝通俗用户没法利用,因而我开辟了我本人的内容办理体系 kiss 内容办理体系。人人可以会见 http://aston.blueidea.com
  而要给用户一个模板体系,起首,就是要有一个复杂易懂的标志体系。人人看看上面的代码,看是不是轻易了解:
<tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">
  略有HTML经历的人,就晓得,这是一个模板标志里的轮回标志,由于这是最经常使用的,你看咱们网站的首页,列出10条则档也就只需求写一个如许的标志就完成了,这是否是让不分明编程的人,也很轻易做出本人设计的页面出来呢?
  参数申明:
channelid 为一个栏目标在数据库中的ID
pagesize 为罗列几何个文档
title 为题目的长度
type 为列表列型,这里的”NEW”咱们设定为最新的文档
column 为显示几列
  以上引见是给不会编程,或对不懂得内容体系的人做个普及,而且给我的内容办理体系打个告白,并且我想说的是,蓝色幻想站点用的内容办理体系模板模块,要比我的壮大良多。
  上面轮到法式员了,其它人可以不必往下看。
  那末怎样把它们的值读出来呢?
  上面这个函数是最初的,用来解析一切模板的内容
  代码拷贝框
'【功效】自界说模板标签Function ProcessCustomTags(ByVal sContent) Dim objRegEx, Match, Matches '创立正则表达式 Set objRegEx = New RegExp '查找内容 objRegEx.Pattern = "<tag:.*/>" '疏忽巨细写 objRegEx.IgnoreCase = True '全局查找 objRegEx.Global = True 'Run the search against the content string we've been passed Set Matches = objRegEx.Execute(sContent) '轮回已发明的婚配 For Each Match in Matches 'WordStr each match with the appropriate HTML from our ParseTag function sContent = WordStr(sContent, Match.Value, ParseTag(Match.Value)) Next '消毁对象 set Matches = nothing set objRegEx = nothing '前往值 ProcessCustomTags = sContentEnd Function
[Ctrl+A 全体选择 然后拷贝]
  在下面的代码中,用到了正则表达式,假如你对它还不是很懂得,请参阅相干材料,这里就不具体引见了。
  那末怎样掏出参数值呢,也是一个函数:
代码拷贝框
'【功效】获得模板标签的参数名'如:<tag:loop channelid="1" pagesize="10" title="20" type="NEW" column="1">function GetAttribute(ByVal strAttribute, ByVal strTag) Dim objRegEx, Matches '创立正则表达式 Set objRegEx = New RegExp '查找内容 (the attribute name followed by double quotes etc) objRegEx.Pattern = lCase(strAttribute) & "=""[0-9a-zA-Z]*""" '疏忽巨细写 objRegEx.IgnoreCase = True '全局查找 objRegEx.Global = True '履行搜刮 Set Matches = objRegEx.Execute(strTag) '若有婚配的则前往值, 否则前往空值 if Matches.Count > 0 then GetAttribute = Split(Matches(0).Value,"""")(1) else GetAttribute = "" end if '消毁对象 set Matches = nothing set objRegEx = nothingend function
[Ctrl+A 全体选择 然后拷贝]
  OK好了,那怎样解析像下面<tagloop:>内容呢?
  上面就是一个函数:
代码拷贝框
'【功效】解析并交换响应的模板标签内容function ParseTag(ByVal strTag) dim arrResult, ClassName, arrAttributes, sTemp, i, objClass '假如标签是空的则加入函数 if len(strTag) = 0 then exit function 'Split the match on the colon character (:) arrResult = Split(strTag, ":") 'Split the second item of the resulting array on the space character, to 'retrieve the name of the class ClassName = Split(arrResult(1), " ")(0) 'Use a select case statement to work out which class we're dealing with 'and therefore which properties to populate etc select case uCase(ClassName) 'It's a loop class, so instantiate one and get it's properties case "LOOP" set objClass = new LOOP_Class LOOP.Channelid= GetAttribute("channelid", strTag") LOOP.Pagesize= GetAttribute("pagesize", strTag") LOOP.title = GetAttribute("title", strTag") LOOP.type = GetAttribute("Type", strTag") ParseTag = LOOP.column (GetAttribute("column", strTag"), true) 'Destroy our class object set objClass = nothing end selectend function
[Ctrl+A 全体选择 然后拷贝]

  下面的loop是一个类,这里也不再详说了。由于很久没有措辞了,不太习气,呵呵。
  结论,经由过程下面的函数,你可以很快的编写相干的模板法式了。但愿对你有匡助。
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。
活着的死人 该用户已被删除
19#
发表于 2015-5-12 09:59:19 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
飘飘悠悠 该用户已被删除
18#
发表于 2015-5-2 21:33:08 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
莫相离 该用户已被删除
17#
发表于 2015-5-1 10:11:58 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
因胸联盟 该用户已被删除
16#
发表于 2015-4-30 09:27:27 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
透明 该用户已被删除
15#
发表于 2015-4-27 15:33:56 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
只想知道 该用户已被删除
14#
发表于 2015-4-25 18:15:27 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
深爱那片海 该用户已被删除
13#
发表于 2015-4-14 08:44:03 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
admin 该用户已被删除
12#
发表于 2015-4-3 05:24:13 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
若天明 该用户已被删除
11#
发表于 2015-3-25 13:39:50 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
灵魂腐蚀 该用户已被删除
10#
发表于 2015-3-24 21:38:02 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
第二个灵魂 该用户已被删除
9#
发表于 2015-3-17 19:34:56 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
爱飞 该用户已被删除
8#
发表于 2015-3-12 09:10:30 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
谁可相欹 该用户已被删除
7#
发表于 2015-3-5 15:30:21 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
若相依 该用户已被删除
6#
发表于 2015-3-3 23:47:47 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
愤怒的大鸟 该用户已被删除
5#
发表于 2015-3-2 01:15:00 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
分手快乐 该用户已被删除
地板
发表于 2015-2-20 01:07:19 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
海妖 该用户已被删除
板凳
发表于 2015-2-10 04:24:41 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
沙发
发表于 2015-2-7 18:35:20 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
柔情似水 该用户已被删除
楼主
发表于 2015-2-3 23:37:01 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-22 21:58

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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