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
=========================================================
=========================================================
模板中交换的部分用{{%}}暗示
模板中的轮回用<!--BEGIN%-->入手下手<!--END%-->停止撑持一次嵌套
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做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 掌握asp的特性而且一定要知道为什么。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 不能只是将它停留在纸上谈兵的程度上。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
页:
[1]