中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

現(xiàn)在是程序處理:

<%
'根據(jù)輸入判斷輸出是名稱還是數(shù)據(jù)
Function geturlxml(outfile,mode)
geturlxml=False
If outfile="" Then Exit Function
Dim tab
Select Case killint(mode,0,0,2)
Case 0:tab="szd_tpl"
Case 1:tab="szd_content"
End Select
Set rs=conn.execute("select ["&tab&"] FROM szd_asp where [szd_link]='"&outfile&"'")
 If rs.eof And rs.bof Then
 Exit Function
 else
 geturlxml=rs(tab)
 End If
End Function
'提取include文件到原始的數(shù)據(jù)項中
Function getincludefile(x)
Dim regxml,html
html=""
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="(<!--#include)(\s)(file|virtual)(=)(\u0022)([a-zA-Z][A-Za-z0-9_/]{0,30})(.)(asp|inc|dll)(\u0022)(-->)"
Dim Matches,Match
Set Matches = regxml.Execute(x)
For Each Match in Matches
html=html&match.value
Next
getincludefile=html
End Function
'獲取模板項,先判斷輸出,返回值是 html 形式的模板,參數(shù)是模板的名稱
Function gettpl(url)
Dim mudule_file,xml_file,asp_file
xml_file=url
asp_file=gettpldata(xml_file,0)'由模板名稱獲取模板的內(nèi)容
Dim loadxml,parsexml,nodes,node
Set loadxml = Server.CreateObject("MSxml2.DOMDocument")
loadxml.async=false
parsexml=server.mappath("../"&gettpldata(xml_file,10)&xml_file)'裝載本地的xml文檔,先到數(shù)據(jù)庫取到路徑
loadxml.load parsexml
Set nodes = loadxml.selectNodes("http://*")
for each node in nodes
asp_file=insertaspinhtml(asp_file,gettpldata(node.nodename,1),node.nodename)'加載模塊到模板,輸出html模板
Next
gettpl=asp_file
End function

'匹配模板中的數(shù)據(jù)項
'把data中的數(shù)據(jù)傳入html文件當(dāng)中去
Function tpltodata(html,data)
Dim regxml
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="({%)([a-zA-Z][A-Za-z0-9_]{2,60})(%})(.[^\[]*)({%/)\2(%})"

Dim Matches,Match
Set Matches = regxml.Execute(data)
For Each Match in Matches
html=Replace(html,"{%"&regxml.Replace(match.value,"$2")&"%}",regxml.Replace(match.value,"$4"))
Next
tpltodata=html
End Function

'geturlxml 傳入?yún)��?shù)模板名稱,返回模板的內(nèi)容,失敗的時候返回 null
Function geturlxml(outfile)
geturlxml=Null
If outfile="" Then Exit Function
Set rs=conn.execute("select [szd_tpl] FROM szd_asp where [szd_link]='"&outfile&"'")
 If rs.eof And rs.bof Then
 Exit Function
 else
 geturlxml=rs("szd_tpl")
 End If
End Function

public  Function gettpldata(url,mode)
'Set rs=server.CreateObject("server.adodbrecordset") 
If Len(url)<1 Then Exit Function
Dim szd_keytpl
Select Case mode
Case 0:Set rs=conn.execute("select [szd_content] from szd_tpl where [szd_link]='"&url&"'")
Case 10:Set rs=conn.execute("select [szd_url] from szd_tpl where [szd_link]='"&url&"'")
Case 1:Set rs=conn.execute("select [szd_content] from szd_keytpl where [szd_key]='"&url&"'")
End Select
If Not(rs.eof And rs.bof) Then
szd_keytpl=rs(0)
Else
szd_keytpl="<div>{%nodefined%}</div>"
End If
gettpldata=szd_keytpl
End Function
'加載標(biāo)記的模塊到 xml 格式的模板中,輸出html格式的模板,asp:xml格式模板,html:導(dǎo)入的模塊,xmls:當(dāng)前標(biāo)記
Function insertaspinhtml(asp,html,xmls)
Dim regxml,temp,temps,tempasp,tempasp_e
Set regxml=new regexp
regxml.ignorecase=True
regxml.global=True
regxml.pattern="(\<"&xmls&"\>)(.[^\[]*)(\<\/"&xmls&"\>)"
temp=regxml.Replace(asp,"$2")
Dim Matches,Match
Set Matches = regxml.Execute(asp)
For Each Match in Matches
html=Replace(html,"(&"&xmls&"&)",regxml.Replace(match.value,"$2"))
asp=Replace(asp,Match.Value,html)
next
temps=Replace(html,"(&"&xmls&"&)",temp)
insertaspinhtml=asp
End Function

Function update_aspfile(id)
Dim update_aspfile_return
update_aspfile_return=False
id=killint(id,0,0,14)
If id=0 Then Exit Function
Set rs=conn.execute("select [szd_level],[szd_content],[szd_tpl],[szd_link] from szd_asp where id="&id&"")
If rs.eof And rs.bof Then Exit Function
Dim tpl_level,tpl_content,tpl_tpl,html_content,asp_file_now
tpl_level=rs(0)
tpl_content=rs(1)
tpl_tpl=rs(2)
asp_file_now=rs(3)
 If Len(tpl_tpl)<4 Or tpl_level=1 Or IsNull(tpl_tpl) Then
 html_content=tpl_content
 Else
 html_content=gettpl(tpl_tpl)
  If Not isnull(html_content) Then
  html_content=getincludefile(tpl_content)&tpltodata(html_content,tpl_content)
  'response.write("<hr/>"&server.htmlencode(getincludefile(tpl_content))&"<hr/>")
  Else
  html_content=tpl_content
  'response.write("<hr/>"&server.htmlencode(html_content)&"<hr/>")
  End If
 End If
If writeto("../",asp_file_now,html_content,2) Then update_aspfile_return=True
update_aspfile=update_aspfile_return
End Function
%>

生成文件:

運行代碼框
<!--#include file="inc/setup.asp"--><!--#include file="inc/cjjerfunction.asp"--><!--#include file="inc/light.asp"--><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML xmlns="http://www.w3.org/1999/xhtml"> <head> <title><%=cjjer_hometitle%></title> <meta http-equiv="content-type" content="text/html; charset=gb2312" /> <meta http-equiv="Content-Language" content="zh-CN" /> <meta name="author" content="老農(nóng)" /> <meta name="copyright" content="環(huán)境工程系" /> <meta name="description" content="<%=cjjer_hometitle%>" /> <meta name="keywords" content="<%=cjjer_hometitle%>" /> <link href="styles/default/import.css" rel="stylesheet" type="text/css" /> </head> <body> <div id="format"> <div id="site_top"></div> <div id="top_ul"><%=get_cache(0)%></div> <div id="format_two"> <div id="main_img"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="100%"> <param name="movie" value="images/main.swf"> <param name="wmode" value="transparent"> <param name="quality" value="high"> <embed src="images/main.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="100%"></embed> </object> </div> <div id="footer_ul"><%Call light()%></div> </div> <div id="site_footer"><%Call cc_footer()%></div> </div> </body> </html>
[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運行]

這里,我的模塊用了div,是利于樣式表的使用.

主要思路如圖:

其他的就不再說了,不知道說明白了.

經(jīng)典論壇討論帖：
http://www.95time.cn/bbs/newsdetail.asp?id=2443607

出處：藍(lán)色理想
責(zé)任編輯：moby

上一頁 模板用xml的思路 [1] 下一頁

◎進入論壇網(wǎng)絡(luò)編程版塊參加討論