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+"" <%n=n-1 if n<1 then exit do rs.movenext loop %> <%if n<1 then%> javastr=javastr+"" <%end if%> javastr=javastr+"
" javastr=javastr+"·<%if rs("selectpic") = 1 then%>[图文]<%else%>[<%=Month(rs("date"))%>.<%=Day(rs("date"))%>]<%end if%>/<%=rs1("typedir")%>/<%=rs("N_Fname")%>\") target=\"_blank\" title=\"文章标题:<%=rs("title")%> 发布日期:<%=rs("date")%> 阅读次数:<%=rs("hits")%>\"><% if len(rs("title"))>ss+1 then%><%=left(rs("title"),ss)%>..<% else%><%=rs("title")%><%end if%>" javastr=javastr+"
/SuperCMS.html?typeid=<%=rs("typeid")%>\">
" <%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%>