info.asp

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

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp" -->
<LINK href="../../Pict/mwtStyle.css" rel=stylesheet type=text/css>
<%
dim newsid
newsid=request("newsid")
dim sql
dim rs
%>
<%
sql="select * from news 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
sub showContent
%>
<title><%=rs("newstitle")%></title>
<center>
<table border="0" cellPadding="0" cellSpacing="0" width="98%" align=center>
<tr>
<td width="100%" valign="top">
<table border="0" width="100%" cellPadding="2" cellSpacing="2">
<tr>
<td colspan="2" align="center"><br><font class=f12 color="#FF9B00"><b><%=rs("newstitle")%></b></font><font size="1">(<%=rs("date")%>)</font></td>
</tr>
<tr><td colspan="2" align="center"><%=rs("name")%></td></tr> 
<tr>
<td colspan="2" align="left"><p style="line-height: 160%"><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=Replace(rs("content"),chr(13),"<br>&nbsp;&nbsp;&nbsp;")%></p></td>
</tr>
<tr>
<td colspan="2" height="20"></td>
</tr>
<tr><td colspan="2" 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%></body></html>