📄 xmlyap_flashden.asp
字号:
<%
xmlyolu= "haberler.xml"
dbyeri = "haber.mdb"
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(dbyeri)
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from haberler where yayinlansinmi = true ORDER BY id ASC"
rs.open SQL,baglanti,1,3
if rs.eof or rs.bof then
else
Set fs = server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.MapPath(xmlyolu)) = True Then
fs.deletefile Server.MapPath(xmlyolu)
end if
Set act = fs.CreateTextFile(server.mappath(xmlyolu), true)
act.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
act.writeline("<container Timer=""300"" RollOvercolor=""0xFFFFFF"" RollOutcolor=""0x666666"" RollOverBG=""0x000000"" RollOverSelectBG=""0x00CCFF"" captionMCvisible=""100"" >")
i=0
rs.movefirst
do while not rs.eof
i = i+1
if i < 11 then
linkadresi = "kategori.asp?kat="
toplamadres = linkadresi & rs(id)
act.WriteLine("<item>")
act.WriteLine("<photo>"& rs("image_nerden_geliyosa") &"</photo>")
act.WriteLine("<headline><![CDATA[<font color=""#00CCFF"">"& rs("image_title_baslik") &"</font>]]></headline>")
act.WriteLine("<body><![CDATA[<font color=""#CCCCCC"" size=""11"" >HTML TEXT Lorem ipsum dolor sit ametamet numus. Wisi, ex enim luptatum facilisi os vel epulae iustum duis facilisi ulciscor facilisi, luptatum. </font><font color=""#66CCFF""><a href=""http://www.flashden.net""> Sample hyperlink. </a></font>]]></body>")
act.WriteLine("<url></url>")
act.WriteLine("</item>")
end if
rs.movenext
loop
act.WriteLine("</container>")
act.close
end if
set fs = nothing
rs.close
set rs= nothing
baglanti.close
set baglanti= nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -