<%
'###############################
'Jiangrong专题调用参数说明 #
'tiao 专题数量 #
'lei 专题分类 #
'###############################
a=request("tiao")
if a="" then
a=30
end if
lei=request("lei")
response.write "document.write('');"
DB="adminreport/reportdates00000111456/h2o0010repoetdata.asp"
Response.Buffer=True
set conn1=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn1.Open connstr
set rss=server.CreateObject("ADODB.RecordSet")
if lei="" or isnull("lei") then
sql1l="select * from report where xianshi=1 order by id desc"
else
sql1l="select * from report where xianshi=1 and picclass="&lei&" order by id desc"
end if
rss.open sql1l,conn1,1,1
for i=1 to a
myid=rss("id")
myreport=rss("reportname")
response.write "document.write('| "&myreport&" |
');"
rss.movenext
next
rss.close
set rss=nothing
response.write "document.write('| 请您查看更多专题 |
');"
%>