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"
% >