commend.asp

该软件是用asp编写的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->

<% 
dim s
s = request.QueryString("s")
%>
<%
Dim rstj__MMColParam
rstj__MMColParam = "true"
If (Request("MM_EmptyValue") <> "") Then 
  rstj__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rstj
Dim rstj_numRows

Set rstj = Server.CreateObject("ADODB.Recordset")
rstj.ActiveConnection = MM_conn_news_STRING
rstj.Source = "SELECT *  FROM t_news  WHERE n_commend = " + Replace(rstj__MMColParam, "'", "''") + " and n_check = true  ORDER BY n_id DESC"
rstj.CursorType = 0
rstj.CursorLocation = 2
rstj.LockType = 1
rstj.Open()

rstj_numRows = 0
%>
<% If rstj.EOF And rstj.BOF Then %>
       document.write('<p align="center">对不起,暂时还没有新闻:)</p>');
<% end if %>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = s
Repeat1__index = 0
rstj_numRows = rstj_numRows + Repeat1__numRows
%>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rstj.EOF)) 
%>
document.write('<table width="100%" border="0" cellspacing="0" cellpadding="3"><tr><td width="181">·<a href="../<%=(rstj.Fields.Item("n_tid").Value)%>/<%=(rstj.Fields.Item("n_fname").Value)%>" ><%=(rstj.Fields.Item("n_title").Value)%></a></td></tr></table>')
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rstj.MoveNext()
Wend
%>
<%
rstj.Close()
Set rstj = Nothing
%>