<% 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%> <%=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) %> ]]> <%=SiteUrl%>/NewsDetail/?ID=<%=rs("id")%> <%=rs("auth")%><%if rs("auth")<>" " then%>/<%end if%><%=SiteName%> <%=rs("time")%> <% rs.movenext LOOP rs.close set rs=nothing %> 甘孜县| 保德县| 阿拉善盟| 武功县| 大丰市| 博野县| 汤原县| 金昌市| 盘锦市| 榆树市| 桦甸市| 平湖市| 奉化市| 乐清市| 北宁市| 绥宁县| 外汇| 玉山县| 五家渠市| 桂平市| 武定县| 阿坝县| 乌恰县| 改则县| 新竹市| 南康市| 翁牛特旗| 乡宁县| 岳阳市| 新河县| 高安市| 荔波县| 嘉兴市| 什邡市| 怀来县| 高要市| 黔西县| 垦利县| 尼勒克县| 黄龙县| 吉林省|