%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
News_Cat = request.QueryString("News_Cat")
if News_Cat = "" or isempty(News_Cat) then
News_Cat = 1
end if
Sub News(News_Language)
News_Count = 10
Strsql_News = "select Top " & News_Count
Strsql_News = Strsql_News & " News_Subject, News_Id, News_Date, News_IsNew, News_Content from News "
Strsql_News = Strsql_News & " where News_Language = " & News_Language & " and News_IsNew = 0"
Strsql_News = Strsql_News & " ORDER BY News_Id DESC"
set rs_News = server.CreateObject("adodb.recordset")
rs_News.open Strsql_News,conn,3,3
if rs_News.eof or rs_News.bof then
response.Write("
")
response.Write("| | |
")
response.Write("| Nothing !!! |
")
response.Write("
")
else
response.Write("")
do while not rs_News.eof
News_Subject = rs_News("News_Subject")
News_Id = rs_News("News_Id")
News_Date = rs_News("News_Date")
News_IsNew = rs_News("News_IsNew")
response.Write(" | " & News_Subject & " |
")
'response.Write(" | " & News_Subject & " |
")
rs_News.movenext
loop
response.Write("
")
end if
rs_News.close
set rs_News = nothing
End Sub
%>
多丽彩扩中心