news.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: news.asp
'Version:2.0
'UpdateTime: 2004-10-4 16:59:56
'Script Written by www.aspease.com 
'=========================================================
stats=easenewsstats
header
activeonline
newsid=fval(rst("newsid"))
set rs=conn.execute("select * from news where newsid="&sqlval(newsid))
if rs.eof then
err_msg="<b><LI>" & easeerrpage & "</b> "
aspease_err
footer
response.end
end if
response.Write(aspeasetable1yopen & tr)
response.Write("  <th height=""25"">&nbsp;<b>" & easenewstitlestr & ":" & rs("newstitle") & "</b> </th>" & ctr & tr)
response.Write("  <th valign=middle align=left height=""25""> <b>" & easenewscontentstr & ":</b> </th>" & ctr & tr2)
response.Write("  <td height=25>" & printout(rs("newsbody")) & ctdr)
response.Write("  <tr align=""right""><th height=25>" & easenewsdatestr & ":<b>" & sqldate(rs("newsdate")) & "!</b></th>" & ctr & aspeasetableclose)
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: news.asp
'Version:2.0
'UpdateTime: 2004-10-4 16:59:56
'Script Written by www.aspease.com 
'=========================================================%>