您現在的位置:首頁>>新聞中心
 
<% '從這開始讀數據 strSQL="Select * From news Where nAudit<>0 AND id=" & Cint(request.QueryString("id")) Set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 %>
<%=trim(rs("nTitle"))%>

作者:<%=trim(rs("nauthor"))%>    來源於:<%=trim(rs("noriginal"))%>
<%=trim(rs("nHtmlText"))%>
[發布日期:<%=trim(rs("nTime"))%>]
上一篇: <% sql_pre="Select top 1 * From news Where nclass in(14,10) and id >" & Cint(request.QueryString("id"))&" order by id asc" Set rs_pre=Server.CreateObject("ADODB.RecordSet") rs_pre.open sql_pre,conn,1,1 If Not rs_pre.eof Then Response.write ""&rs_pre("nTitle")&"" Else Response.write "沒有了" End If %>下一篇: <% sql_nex="Select top 1 * From news Where nclass in(14,10) and id <" & Cint(request.QueryString("id"))&" order by id desc" Set rs_nex=Server.CreateObject("ADODB.RecordSet") rs_nex.open sql_nex,conn,1,1 If Not rs_nex.eof Then Response.write ""&rs_nex("nTitle")&"" Else Response.write "沒有了" End If %>