仓酷云

标题: ASP教程之ASP模板类[完成一维轮回和二维轮回，可... [打印本页]

作者: 飘灵儿 时间: 2015-1-16 23:36
标题: ASP教程之ASP模板类[完成一维轮回和二维轮回，可...
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题变量|模板|数据|数据库|轮回<%
=========================================================
File:class_template.asp
Version:1.0
Date:2004-5-7
ScriptWrittenbyR.H
Description:ASPTemplateClass
=========================================================
Copyright(C)2004InterflowerStudios.Allrightsreserved.
Web:http://www.interflower.cn
Needhelp?Contact:ranhuan@msn.com
=========================================================

=========================================================
模板中交换的部分用{{%}}暗示
模板中的轮回用入手下手停止撑持一次嵌套

ClassTemplate
Privatetmp
Privatetpl_dir,tpl,tpl_blk
Privatevar_list,blk_list,blk_var_list
Privatere,match,matchs
PrivateSubclass_Initialize
sql=""
tpl_dir="templates/"
tpl=""
blk=""
Setvar_list=Server.CreateObject("Scripting.Dictionary")
Setblk_list=Server.CreateObject("Scripting.Dictionary")
Setblk_var_list=Server.CreateObject("Scripting.Dictionary")
Setre=NewRegExp
EndSub

获得主体模板
========================

从变量掏出
PublicSubSetTpl(tplvar)
tpl=tplvar
EndSub

从DB中掏出，本人修正sql语句
PublicSubSetTplDb(tplname)
Dimsql,rs
Setrs=Server.CreateObject("ADODB.RecordSet")
sql="SELECTcontentFROMtemplatesWHEREname="&tplname&""
rs.Opensql,conn,1,1
Ifrs.RecordCount1Then
Response.Write("数据库毛病！<br>")
Response.End()
EndIf
tpl=rs("content")
rs.Close
Setrs=Nothing
EndSub

从文件掏出
PublicSubSetTplFile(tplfile)
DimFSO,oFile
SetFSO=Server.Createobject("Scripting.FileSystemObject")
IfFSO.FileExists(Server.Mappath(tpl_dir&tplfile))then
SetoFile=FSO.OpenTextFile(Server.Mappath(tpl_dir&tplfile))
tpl=oFile.ReadAll
oFile.Close
SetoFile=Nothing
Else
Response.Write"模板文件不存在！<br>"
Endif
SetFSO=nothing
EndSub

获得区块模板
========================

从变量掏出
PublicsubSetBlk(blkname,tplvar)
re.IgnoreCase=True
re.Global=True
re.Pattern={{&blkname&}}
tpl=re.Replace(tpl,tplvar)
rs.Close
EndSub

从数据库掏出
PublicsubSetBlkDb(blkname,tplname)
Dimsql,rs
Setrs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT*FROMtemplatesWHEREname="&tplname&""
rs.Opensql,conn,1,1
tmp=rs("content")
rs.Close
SetBlkblkname,tmp
setrs=Nothing
EndSub

从文件掏出
PublicsubSetBlkFile(blkname,tplfile)
DimFSO,oFile
SetFSO=createobject("Scripting.FileSystemObject")
IfFSO.FileExists(server.mappath(tpl_dir&tplfile))Then
SetoFile=FSO.OpenTextFile(Server.MapPath(tpl_dir&tplfile))
tmp=oFile.ReadAl
SetBlockblkname,tmp
oFile.Close
setoFile=Nothing
Else
Response.Write"区块模板文件不存在！<br>"
EndIf
SetFSO=Nothing
EndSub

设置变量交换值
========================

复杂交换
PublicSubSetVar(sName,sValue)
Ifvar_list.Exists(sName)then
var_list.RemovesName
var_list.AddsName,sValue
Else
var_list.AddsName,sValue
Endif
EndSub

复杂交换追加数据
PublicSubAppendVar(sName,sValue)
Ifvar_list.Exists(sName)then
</p>楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

作者: 简单生活 时间: 2015-1-20 10:23
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 活着的死人 时间: 2015-1-24 11:40
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 精灵巫婆 时间: 2015-1-25 12:26
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 深爱那片海 时间: 2015-2-2 22:04
掌握asp的特性而且一定要知道为什么。

作者: 小魔女 时间: 2015-2-8 08:58
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 谁可相欹 时间: 2015-2-25 06:58
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 透明 时间: 2015-3-7 17:40
不能只是将它停留在纸上谈兵的程度上。

作者: 柔情似水 时间: 2015-3-15 10:18
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

作者: 山那边是海 时间: 2015-3-22 00:10
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

欢迎光临仓酷云 (http://ckuyun.com/)