<%
'建立数据源连接
dim newstype
dim typename
newstype="JYXW"
select case newstype
case "JTYW"
typename="集团要闻"
case "KJDT"
typename="科技动态"
case "JYXW"
typename="教育新闻"
case "DCXX"
typename="地产信息"
case "MTJJ"
typename="媒体聚焦"
end select
'****************************
'函数名：ShowData
'参数：newstype；新闻类型
'时间：2002-11-06
'作者：张鹏
'说明：每种类型新闻显示30条,按时间降序排列
'****************************
private sub ShowData(newstype)
'dim cnn
dim rstnews
dim intID
dim strSQL
call getconnection '获得数据库连接
Set rstNews = Server.CreateObject("ADODB.Recordset")
'使用 Open 方法打开记录集
'并使用通过 Connection 对象建立的连接。
strSQL = "SELECT * FROM tblNews where type='"& trim(newstype) &"' order by adddate DESC"
rstNews.Open strSQL, cnn,3,1
dim i
'Response.Write("RS="&rstnews.RecordCount)
i=12-rstnews.RecordCount
dim j
j=1
'Do Until rstNews.EOF
for j=1 to 8
if rstNews.EOF =true then exit for
intID=rstNews.Fields("ID")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write(trim(rstNews.Fields("title")))
Response.Write(" " )
Response.Write(trim(rstNews.Fields("adddate")))
if trim(rstNews.Fields("Isnew"))="Y" then
Response.Write(" " )
Response.Write("" )
end if
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
rstNews.MoveNext
'Loop
next
'Response.Write("i="&i)
if i>0 then
for j=1 to i
Response.Write("
")
Response.Write("
")
Response.Write(" ")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
next
end if
rstnews.Close
set rstnews=nothing
call putconnection'断开数据库连接
end sub
%>
开元教育欢迎您!
教育首页│
招生信息│
