链接文件,后面是参数,具体什么意思就不知道了,得看top_news.asp页代码

解决方案 »

  1.   

    <%@language="VBscript"%>
    <%Response.Expires=0%>
    <!--#include file="include/db_conn.asp" -->
    <%
    width=Request.QueryString("width")
    style=Request.QueryString("style")
    newsort=request.querystring("newsort")
    num=request.querystring("num")
    show=request.querystring("show")
    t=request.querystring("t")
    more=request.querystring("more")
    face=request.querystring("face")
    tlen=request.querystring("len")if show="hot" then
      show=" topsign='1'"
    else
      show=" indexsign='1'"
    end if
    set myrs=server.CreateObject("Adodb.recordset")
    myrs.Open "select top "&num&" id,title,newsimg,newsdate,topsign from t_news_purpose where "&show&" and newsort="&newsort&" and me_version='cn' order by topsign desc,id desc",conn,1,1
    if myrs.RecordCount<>0 then
      Response.Write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>');"
      do until myrs.EOF 
          if myrs("newsimg")="" then
              imgstr=""
          else
              imgstr="(图)"
          end if
          nt=""
          if t="yes" then nt=year(myrs("newsdate"))&"-"&month(myrs("newsdate"))&"-"& day(myrs("newsdate"))
          title=myrs("title")
          if len(title)>int(tlen) and tlen<>"" then title=left(title,tlen)&"..."
          
          title_str="<tr><td> <font style='font-size:8px;'>◇</font> <a href='showc.asp?id=" & myrs("id") & "' class="&style&" target='_blank'>" & title & imgstr & "</a> <font color=#666666>"
          title_str=title_str & nt & "</font></td><tr>"     
          Response.Write "document.write(" & chr(34) & title_str & chr(34) & ");"
      myrs.MoveNext 
      loop
      if more="yes" then
      Response.Write "document.write('<tr><td align=right><a href=\'showp.asp?class="&newsort&"\'>更多..</a>&nbsp;</td></tr>');"
      end if
      Response.Write "document.write('</table>');"
    else
      Response.Write "document.write('当前没有信息!');"
    end if myrs.Close
    set myrs=nothing
    conn.close
    set conn=nothing
    %>