<% Response.CharSet="gb2312" Response.ContentType="text/xml" '基本信息 id=request("id") if id="" then call prox.smsg("参数错误!","back") response.end end if getid=replace(id,"x","") getid=replace(getid,"y","") getid=int(getid) if getid="" or not isnumeric(getid) then call prox.smsg("参数错误!","back") response.end end if mlchk=split(inpower1,",") for oo=0 to UBound(mlchk) if mlchk(oo)=cstr(getid) then mlcheck="ok" exit for end if next if mlcheck<>"ok" then '权限 set urs=conn.execute("select ml from isort where s=0 and id="&getid) if urs.eof then call prox.smsg("该信息栏目不存在或已经删除!","back") response.end else infoml=trim(urs("ml")) infoml=replace(infoml,", ",",") iml=split(infoml,",") for b=0 to UBound(iml) if iml(b)=session("level") then infoflag="ok" end if exit for next if infoflag<>"ok" then response.write"" response.end end if end if urs.close set urs=nothing '完毕 end if '完毕 set hrs=conn.execute("select sort,xid,pid from isort where s=0 and id="&getid) if hrs.eof then call prox.smsg("该信息栏目不存在或已经删除!","back") response.end else sort=prox.makeshtml5(trim(hrs("sort"))) xid=hrs("xid") pid=hrs("pid") end if hrs.close set hrs=nothing hhf=chr(13) & chr(10) response.write ""&hhf response.write ""&hhf response.write ""&hhf response.write ""&now()&""&hhf response.write ""&sitename&"信息列表"&hhf response.write ""&sitename&"-"&sort&""&hhf response.write "http://"&siteurl&""&hhf response.write "zh-cn"&hhf '数据 if pid=getid then'一级 sqlstr=" and m.pid="&getid elseif xid=getid then'二级 sqlstr=" and m.xid="&getid else'三级 set frs=conn.execute("select id,sort from isort where id="&pid) sqlstr=" and m.id="&getid end if set jrs=conn.execute("select top 100 t.title,t.adtime2,t.url,t.contentx,t.rtime from info t,isort m where t.s=0 and t.sort=m.id and t.infost=0"&sqlstr&" and t.adtime <='"&year(now)&"-"&month(now)&"-"&day(now)&"' order by t.px desc") if not jrs.eof then do until jrs.eof title=prox.makeshtml5(trim(jrs("title"))) adtime2=trim(jrs("adtime2")) url=trim(jrs("url")) contentx=trim(jrs("contentx")) if contentx="" or isnull(contentx) then contentx="请进入查看详细信息!" else contentx=replace(contentx,"
","") contentx=replace(contentx,chr(10),"") contentx=replace(contentx,chr(13),"") contentx=replace(contentx,"[dy]","") contentx=replace(contentx,"
","") contentx=replace(contentx,"<","<") contentx=replace(contentx,">",">") end if rtime=jrs("rtime") rtime=replace(rtime,FormatDateTime(rtime,2),"") response.write ""&hhf response.write ""&title&""&hhf response.write "http://"&siteurl&"/info/"&url&""&hhf response.write ""&contentx&""&hhf response.write ""&adtime2&rtime&""&hhf response.write ""&hhf jrs.movenext loop end if jrs.close set jrs=nothing '完毕 response.write "
"&hhf response.write "
" %>