电子政务应用

开发平台：

HTML/CSS

new.asp：源码内容

							<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn_news.asp" -->
<%
'请尊重作者劳动成果不要删除以上信息
'业一新闻系统3.0正式版
'主页：http://yeyi.net
'论坛：http://bbs.yeyi.net
'业一网络 承接各种网站制作
'程序开发 软件开发业务
'业务联系
'电话： 13007310512
'联系人：郝亚平
'QQ：24344842 （只谈业务，技术问题请访问论坛）
'请尊重作者劳动成果不要删除以上信息
%>
<%
Dim rs__MMColParam
rs__MMColParam = "true"
If (Request("MM_EmptyValue") <> "") Then 
  rs__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_news_STRING
rs.Source = "SELECT * FROM t_news WHERE n_check = " + Replace(rs__MMColParam, "'", "''") + " ORDER BY n_id DESC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) 
%>
document.write('<link href="news/style/css.css" rel="stylesheet" type="text/css">');
document.write('<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10%"><img src="news/pic_site/arrow.gif" width="15" height="11"></td><td><a href="news/<%=(rs.Fields.Item("n_tid").Value)%>/<%=(rs.Fields.Item("n_fname").Value)%>" target="_blank"><%=(rs.Fields.Item("n_title").Value)%></a></td></tr></table>');
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs.MoveNext()
Wend
%>
<%
rs.Close()
Set rs = Nothing
%>

						