<%
Dim rsk,sqltxtk,InfoClassID_root,InfoClassID,InfoClass
set rsk=server.createobject("adodb.recordset")
InfoClassID_root="1"
InfoClassID="1"
infoClass="10"
sqltxtk="select top 100 * from pub_info where 1=1 "
if InfoClassID_root<>"" then sqltxtk=sqltxtk&" and InfoClassID_root='"&InfoClassID_root&"' "
if InfoClassID<>"" then sqltxtk=sqltxtk&" and InfoClassID='"&InfoClassID&"' "
if InfoClass<>"" then sqltxtk=sqltxtk&" and InfoClass='"&InfoClass&"' "
sqltxtk=sqltxtk&" order by InputTime desc"
rsk.open sqltxtk,conn,1,1
if rsk.eof then
response.write "document.write(""
no download!
"");"
Else
do while not rsk.eof
Response.Write "document.write(""