<% 
'商达讯网店购物系统首页调用-----新品上架调用
'使用前请根据你的情况对下面两行做相应的修改，db为你的商城数据库的相对路径
'shopurl设置成你商城的网址
'############以下为修改项######################

db="admin/#sundxshop.mdb"
shopurl="http://www.yougame.cn/"

'############以上为修改项######################
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
'top 10 里面的10代码调用的新品数量，可以根据您的具体情况修改
rs.open "select top 10 * from product",conn,1,1
%>

newproduct=""
newproduct=newproduct+" <TABLE style='BORDER-RIGHT: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid'  cellSpacing=0 cellPadding=0 width=175 border=0>"
newproduct=newproduct+"<TBODY>"
newproduct=newproduct+"<TR>"
newproduct=newproduct+"<TD vAlign=top>"
newproduct=newproduct+" <TABLE style='BORDER-RIGHT: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid'  cellSpacing=0 cellPadding=0 width=175 border=0>"
newproduct=newproduct+" <TBODY>"
newproduct=newproduct+"<TR>"
newproduct=newproduct+"  <TD height=3 bgColor=#338FCC></TD>"
newproduct=newproduct+"</TR>"
newproduct=newproduct+"<TR> "
newproduct=newproduct+"<td align=center><FONT COLOR=#333333>新品上架</font>"
newproduct=newproduct+"</td>"
newproduct=newproduct+"</TR>"
newproduct=newproduct+"<tr>"
newproduct=newproduct+"<td background=<% = shopurl %>images/bg_04.gif border=0>"
newproduct=newproduct+"</td>"
newproduct=newproduct+"</tr>"
<%do while not rs.eof%>
newproduct=newproduct+"<tr>"
newproduct=newproduct+"<td width='100%'>&nbsp;<a href=<% = shopurl %>product.asp?id=<%=rs("id")%>><%=rs("name")%></a></td>"
newproduct=newproduct+"</tr>"
newproduct=newproduct+"<tr>"
newproduct=newproduct+"<td background=<% = shopurl %>images/bg_04.gif border=0>"
newproduct=newproduct+"</td>"
newproduct=newproduct+"</tr>"
<%rs.movenext
loop%>
newproduct=newproduct+"<tr>"
newproduct=newproduct+"<td width='100%' valign='bottom' align='center' height='30'></td>"
newproduct=newproduct+"</tr>"
newproduct=newproduct+" </TBODY>"
newproduct=newproduct+" </TABLE>"
newproduct=newproduct+"</td>"
newproduct=newproduct+"</tr>"
newproduct=newproduct+"</table>"
<% 
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
document.write (newproduct)
