<% 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 %> 六枝特区| 扎兰屯市| 绥棱县| 沾化县| 当涂县| 桐梓县| 平利县| 远安县| 大庆市| 江永县| 汝州市| 四川省| 罗平县| 武安市| 北辰区| 成武县| 崇仁县| 隆子县| 嫩江县| 灌南县| 西吉县| 定州市| 云梦县| 青神县| 吴堡县| 德阳市| 宜阳县| 博野县| 洛隆县| 施秉县| 衡阳市| 漯河市| 东方市| 台安县| 青海省| 新泰市| 伊吾县| 全州县| 黄浦区| 股票| 普陀区|