<% Dim bigid,typen,typeurl,rsk,sqltxtk,InfoClassID_root,InfoClassID,InfoClass bigid=request.QueryString("bigid") InfoClassID_root=request.QueryString("InfoClassID_root") InfoClassID=request.QueryString("InfoClassID") InfoClass=request.QueryString("InfoClass") typen=request.QueryString("type") typeurl=request.QueryString("url") Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write(""
"&typen&""");" Response.Write "document.write(""
"");" set rsk=server.createobject("adodb.recordset") sqltxtk="select top 20 * 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 news!
"");" Else do while not rsk.eof Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write(""
» "&cutstr(rsk("title"),200)&"
 "&formatdatetime(rsk("InputTime"),2)&"
"");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write(""
"");" rsk.movenext Loop Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write("""");" Response.Write "document.write(""
» more
"");" end if rsk.close %>