webtop.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 46 行

<%
dim logo,logoWidth,logoHeight,logoUrl
dim title,titlelink
dim toptitle,toptitlelink
dim kkt,w

'LOGO
logoUrl = "images/logo.gif"
logoWidth = 177
logoHeight = 66
logo = "<a href='index.asp'><img src='"&logoUrl&"' width='"&logoWidth&"' height='"&logoHeight&"' border='0' /></a>"

'title
title = shop.connectXml(XML,"/language/title")
titlelink = shop.connectXml(XML,"/language/titleUrl")

'toptitle
toptitle = shop.connectXml(XML,"/language/toptitle")  
toptitlelink = shop.connectXml(XML,"/language/toptitleUrl")  

set kkt = new kktTemplate    
				
kkt.set_file "hndKktTemp", "kktTemplate/webtop.dwt" 	
kkt.set_block "hndKktTemp", "titleList", "list"
kkt.set_block "hndKktTemp", "toptitleList", "toplist"

kkt.set_var "logo", logo, false 
kkt.set_var "message", config(14,0), false 
				
for w = 0 to UBound(title)
    kkt.set_var "title", title(w), false
    kkt.set_var "titlelink", titlelink(w), false	
    kkt.parse "list", "titleList", true
next

for w = 0 to UBound(toptitle)
    kkt.set_var "toptitle", toptitle(w), false
    kkt.set_var "toptitlelink", toptitlelink(w), false	
    kkt.parse "toplist", "toptitleList", true
next

kkt.parse "out", "hndKktTemp", false      				
kkt.p "out"                              			
set kkt = nothing   
           			
%>