<%
dim nid
nid=trim(request("nid"))
dim conn,rs,strsql
set conn=opendb()
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_news where news_id='" & processquotes(nid) & "'"
rs.open strsql,conn,1,1
dim ndate,ntitle,ncontent,nkind
if not rs.eof then
ndate=rs("news_date")
ntitle=rs("news_title")
ncontent=rs("news_content")
nkind=rs("news_kind")
else
ndate=" "
ntitle=" "
ncontent=" "
nkind=0
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
|
News Center -
<%
if nkind=1 then
response.Write("Company News")
elseif nkind=2 then
response.Write("行业动态")
else
response.Write(" ")
end if
%> |
|
|
|