WEB源码(ASP,PHP,...)

开发平台：

DOS

viewhistory.asp：源码内容

							<img src="images/viewhist.gif" width="190" height="50"> 
<%set rs=server.createobject("adodb.recordset")
 
ProductList = request.cookies("leisure")("fav")
If ProductList<>"" then
sql="Select * From products Where bookid In (" & ProductList & ")"
rs.open sql,conn,1,1
if rs.eof and  rs.bof then 
response.write "您目前没有浏览过任何商品"
end if 
		do while not rs.eof 
		
		%>
<table width="100%"  border="0" align="center" cellpadding="5" cellspacing="0" >
  <tr> 
    <td ><div align="left">&nbsp<img src="images/ring01.gif"> 
        <a href=products.asp?id=<%=rs("bookid")%> > 
        <%
response.write trim(rs("bookname"))%>
      </a> </div></td>
  </tr>
</table>
		 <%rs.movenext
		loop
		else
		response.write "<div align=center>您目前没有浏览过任何商品</div>"
		end if 
		%>
		

						