asp程式與網頁分離

< !-- #include file="adoconn.asp" -- >
< !-- #include file="kktTemplate.asp" -- >
< %
'=========================================
'功能:網頁與程式分離,並從資料庫中讀取資料
'作者:wangsdong
'來源:www.aspprogram.cn
'文章為作者原創，轉載請註明文章出處、保留作
'者資訊，謝謝支援！
'=========================================
dim my_color, kkt, myname, animal, plant
set kkt = new kktTemplate
kkt.set_file "hndKktTemp", "templeta/4.html"

sql="select * from news"
Set rs=conn.execute(sql)
If rs.eof Then
Else
kkt.set_block "hndKktTemp", "newsList", "a"
Do While Not rs.eof 
       kkt.set_var "title", rs("title"), False
       kkt.set_var "id", rs("id"), false
    kkt.parse "a", "newsList", true
rs.movenext

Loop
End If
rs.close

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