javastr=""
javastr=javastr+"
"
<%sqlconfig="select * from config"
set rsconfig=server.createobject("adodb.recordset")
rsconfig.open sqlconfig,conn,1,1
%>
<%newstypeid=request("typeid")%>
<% sql1="select * from type where typeid="&newstypeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
%>
<%
n=request("num")
ss=17
if newstypeid<> "" then
sql="select * from article where check=1 and typeid="+cstr(newstypeid)+" order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1%>
<% javastr=""
do while not rs.eof
%>
javastr=javastr+"| "
javastr=javastr+"·<%if rs("selectpic") = 1 then%>[图文]<%else%>[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]<%end if%>"
javastr=javastr+" |
"
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
<%if n<1 then%>
javastr=javastr+" |
"
<%end if%>
javastr=javastr+"
"
<%rs.close
set rs=nothing
%>
document.write (javastr)
<%else%>
document.write ("对不起,暂时没有任何内容。")
<%end if%><%
rsconfig.close
set rsconfig=nothing
rs1.close
set rs1=nothing
conn.close
set conn=nothing%>