|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内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做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|