shownews.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<script language="JavaScript" src="../move.js"></script>
<LINK href="../../Pict/mwtStyle.css" rel=stylesheet type=text/css>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=50,width=500,height=480,scrollbars=no')
}
</script>
<%
dim newsid
newsid=request("newsid")
dim sql
dim rs
%>
<%
sql="select * from hyxx where newsid="+cstr(newsid)+" order by newsID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write "<p align='center'>对不起，没有您要查询的信息</p>" 
else 
showContent
rs.close 
end if 
set rs=nothing
conn.close
set conn=nothing 
sub showContent
%>
<title><%=rs("title")%></title>
<center>
<table border="0" cellPadding="0" cellSpacing="0" align=center>
<tr>
<td valign="top">
<table border="0" cellPadding="2" cellSpacing="2" width="550">
<tr>
<td align="center"><br><b><font color="#FF9B00" class="f12"><%=rs("title")%></font></b>&nbsp;<font size=1 color="gray">(<%=rs("dateandtime")%>)</font></td>
</tr>
<tr><td align="cneter"></td></tr>
<tr>
<td align="left" class="lh13"><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=Replace(rs("content"),chr(13),"<br><br>&nbsp;&nbsp;&nbsp;")%></td>
</tr>
<tr>
<td height="20" width="302"></td>
</tr>
<tr>
<td align="right"><a href="sendmail.asp?newsid=<%=rs("newsid")%>"><img border="0" src="../images/emailtofriend.gif" alt="把本篇文章推荐给我的好友"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:window.print();"><img border="0" src="../images/printer.gif" alt="打印本篇文章"></a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:window.close()"><img border="0" src="../images/back.gif" alt="关闭窗口"></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>