电子政务应用

开发平台：

HTML/CSS

yns_list2.asp：源码内容

							<!--#include file="Connections/conn_news1.asp" -->
<%
Dim rsn
Dim rsn_numRows
Set rsn = Server.CreateObject("ADODB.Recordset")
rsn.ActiveConnection = MM_conn_news_STRING
if Request("n_title")<>"" then
rsn.Source = "SELECT n_id, n_tid, n_title, n_index, n_fname, n_check, t_name  FROM t_news inner join t_type on t_news.n_tid = t_type.t_id  WHERE n_title LIKE '%" + Replace(rsn__MMColParam, "'", "''") + "%'  ORDER BY n_date DESC"
elseif Request.QueryString("t_id")<>"" then
rsn.Source = "SELECT n_id, n_tid, n_title, n_index, n_fname, n_check, t_name  FROM t_news inner join t_type on t_news.n_tid = t_type.t_id  WHERE n_tid = " + Replace(rsn__MMColParam2, "'", "''") + "  ORDER BY n_date DESC"
else
rsn.Source = "SELECT n_id, n_tid, n_title, n_index, n_fname, n_check, t_name  FROM t_news inner join t_type on t_news.n_tid = t_type.t_id  ORDER BY n_date DESC"
end if
rsn.CursorType = 0
rsn.CursorLocation = 2
rsn.LockType = 1
rsn.Open()
rsn_numRows = 0
%>
<%
Dim rssetup
Dim rssetup_numRows
Set rssetup = Server.CreateObject("ADODB.Recordset")
rssetup.ActiveConnection = MM_conn_news_STRING
rssetup.Source = "SELECT * FROM t_setup"
rssetup.CursorType = 0
rssetup.CursorLocation = 2
rssetup.LockType = 1
rssetup.Open()
rssetup_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = (rssetup.Fields.Item("st_lnum").Value)
Repeat1__index = 0
rsn_numRows = rsn_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rst_numRows = rst_numRows + Repeat2__numRows
%>
<body bgcolor="#FFFFFF">
<p class="title"></p>
<div align="left">
<table width="275" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rsn.EOF)) 
%>
   <tr> 
   <td width="275" height="23" background="../PIC/line2.gif"><font color="#FF9933">&nbsp;&nbsp;[<%=(rsn.Fields.Item("t_name").Value)%>]&nbsp;&nbsp;</font><a href="news/<%=(rsn.Fields.Item("n_tid").Value)%>/<%=(rsn.Fields.Item("n_fname").Value)%>" target="_blank"><%=(rsn.Fields.Item("n_title").Value)%></a> <% if rsn("n_index")=true then  %> <font color="#999900">(图)</font> <% End If %> </td>
    <% If Session("MM_UserAuthorization")="3" Then %>
    
    <% End If %>
    <% If Session("MM_UserAuthorization")="3" or Session("MM_UserAuthorization")="2" Then %>
    <% End If %>
    <% If  Session("MM_UserAuthorization")="2" or Session("MM_UserAuthorization")="3" Then %>
   
    <% End If %>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsn.MoveNext()
Wend
%>
</table>
</div>

						