make21.asp

if you want it,call me.

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
	filename="../newproduct.htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename&""))
	set rs=server.createobject("adodb.recordset")
	    sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("mb2")
		rs.close
		sql="select top 1 * from ad order by id desc"
		rs.open sql,conn,1,1
		if not rs.eof then
		pic1=rs("pic")
		url1=rs("url")
		end if
		rs.close
		banner="<a href="&url1&" target=blank><img src="&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		
	
	sql="select top 12 * from goods order by id desc"
	rs.open sql,conn,1,1
	if rs.eof then
	new1="暂时没有最新商品"
	else
	new1="<table width=90% border=0 align=center cellpadding=0 cellspacing=0><tr>"
    i=0
	do while not rs.eof
	i=i+1
	new2=new2&"<td><table width=246 height=80 border=0 cellpadding=0 cellspacing=0><tr><td width=80 height=80 rowspan=4><a href=products/"&rs("filename")&".htm target=blank><img class=border3 border=0 src="&rs("spic")&" width=80 height=80></a></td><td><div align=center><a href=products/"&rs("filename")&".htm target=blank><font class=word1>"&rs("sp_name")&"</font></a></div></td></tr><tr><td><div align=center>市场价:<s>"&rs("marprice")&"</s>元</div></td></tr><tr><td><div align=center>会员价:"&rs("memprice")&"元</div></td></tr><tr><td><div align=center>质地:"&rs("zhidi")&"</div></td></tr></table></td>"
   if i mod 2=0 then
	new2=new2&"</tr><tr><td height=15></td></tr>"
	end if
	rs.movenext
	loop
	new2=new2&"</table>"
	end if
	rs.close
	new3=""&new1&""&new2&""
	mb1=replace(mb1,"[biaozhi]",new3)
	
	title="最新商品展示"
	mb1=replace(mb1,"[title]",title)
	
	title1="<a href=newproduct.htm>最新商品</a>"
	mb1=replace(mb1,"[title1]",title1)
	
	title2="最新12种商品，欢迎您选购"
	mb1=replace(mb1,"[title2]",title2)
	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	response.write"<script language=javascript>alert('最新商品页面生成');this.location.href='mb2.asp';</script>"

		%>