<%
DB="../db/stuttgart#1.asp"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=hardwarewto;dbq=" & Server.MapPath(db)
%>
<%
sXmlClear = ""
Response.CharSet="Gb2312"
Response.ContentType="text/xml"
%>
<%=sXmlClear%>
亚洲欧美日韩中文无线码,国产亚洲精久久久久久无码77777,韩国v欧美v亚洲v日本v,亚洲人成自拍网站在线观看
<%=SiteUrl%>
zh-CN
<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 20 * from news order by id desc"
rs.open sql,conn,1,1
DO WHILE Not rs.eof
'Content=replace(rs("demo"),chr(34),"")
' if Len(Content)>500 then
' Content=left(Content,500) & "..."
' end if
demo=RS("demo")
'demo=Replace(demo,chr(13),"")
'demo=Replace(demo,chr(10),"")
'demo=Replace(demo,chr(32),"")
'demo=Replace(demo," ","")
demo=Replace(demo,"/upImgFile/","http://"&SiteUrl&"/upImgFile/")
demo=Replace(demo,"..http:","http:")
demo=left(demo,500)
%>
-
<![CDATA[<%=rs("title")%>]]>
]]>
<%=SiteUrl%>/NewsDetail/?ID=<%=rs("id")%>
<%=rs("auth")%><%if rs("auth")<>" " then%>/<%end if%><%=SiteName%>
<%=rs("time")%>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>