<% 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 %> 米脂县| 黄大仙区| 永善县| 常宁市| 商丘市| 台山市| 从化市| 稷山县| 太仆寺旗| 温州市| 大足县| 策勒县| 依兰县| 兰西县| 裕民县| 灵宝市| 丰县| 贵南县| 百色市| 绥宁县| 新兴县| 台安县| 明溪县| 清新县| 黎平县| 青海省| 五河县| 互助| 龙江县| 梁山县| 高雄市| 临武县| 宝应县| 墨脱县| 长垣县| 那曲县| 谷城县| 固阳县| 郁南县| 长垣县| 台江县|