%
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 ""
%>