to 5

　　 leftcode=leftcode&"＜p＞cnbruce.com"

　　 next

　　end sub　　

　　dim rightcode

　　sub cnright()

　　 for i = 1 to 9

　　 rightcode=rightcode&"＜hr color="&i&i&i&i&i&i&"＞"

　　 next

　　end sub

　　%＞　　

　　5，最后，调用数据库中的模板代码，将特殊字符串转换。　　

　　＜!--#include file="conn.asp" --＞

　　＜!--#include file="lib.asp" --＞

　　＜%

　　sql="select * from moban where m_id=1"

　　set rs=Server.CreateObject("adodb.recordset")

　　rs.open sql,conn,1,1

　　mb_code=rs("m_html")

　　rs.close

　　set rs=nothing　　

　　cntop()

　　mb_code=replace(mb_code,"$cntop$",topcode)

　　cnleft()

　　mb_code=replace(mb_code,"$cnleft$",leftcode)

　　cnright()

　　mb_code=replace(mb_code,"$cnright$",rightcode)　

　　response.write mb_code

　　%＞　　

　　该页主要作用是将模板代码进行显示，并将其中的特殊代码转变为相对应子程序功能。　　

　　至此，ASP的模板功能基本完成，剩下的就是：建立具备编辑模板功能的程序页面，将库文件改变为自己所需要程序功能……

上一页  [1] [2] 

在google里搜索更多ASP应用之模板采用

	Web www.51ec.org

上一篇信息学院： 关于session的一些问题

下一篇信息学院： 在在Flash中使用ASP技术