makepl1.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科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
id3=request("id")
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from goods where id="&id3
rs1.open sql1,conn,1,1
if not rs1.eof then
id1=rs1("id")
	    sp_name=rs1("sp_name")
		marprice=rs1("marprice")
	    jifen=rs1("jifen")
	    zhidi=rs1("zhidi")
	    memprice=rs1("memprice")
	    vipprice=rs1("vipprice")
	    spsm=rs1("spsm")
	    spms=rs1("spms")
    	sp_pic=rs1("sp_pic")
    	bclassid=rs1("bclassid")
		sclassid=rs1("sclassid")		
		filename=rs1("filename")
		end if
		rs1.close
		
		set rs=server.createobject("adodb.recordset")
	sql="select * from bigclass where bcid="&bclassid
	rs.open sql,conn,1,1
	if not rs.eof then
	bname=rs("bcname")
	burl=rs("name1")
	end if
	rs.close
	set rs=nothing
		
	set rs=server.createobject("adodb.recordset")
	sql="select * from smallclass where scid="&sclassid
	rs.open sql,conn,1,1
	if not rs.eof then
	sname=rs("scname")
	surl=rs("name2")
	end if
	rs.close
	set rs=nothing

dh="<a href=../index.htm>首页</a>-------<a href=../class/"&burl&"/index1.htm>"&bname&"</a>-------<a href=../class/"&surl&"/index1.htm>"&sname&"</a>-------商品信息"


		
		sql1="select top 1 * from mb order by id desc"
		rs1.open sql1,conn,1,1
		mb1=rs1("spmb")
		rs1.close
		
		sql1="select top 1 * from ad order by id desc"
		rs1.open sql1,conn,1,1
		if not rs1.eof then
		pic1=rs1("pic")
		url1=rs1("url")
		end if
		rs1.close
		banner="<a href="&url1&" target=blank><img src=../"&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		mb1=replace(mb1,"[daohang]",dh)
		mb1=replace(mb1,"[title]",sp_name)
		mb1=replace(mb1,"[banner]",banner)
		mb1=replace(mb1,"[marprice]",marprice)
		mb1=replace(mb1,"[memprice]",memprice)
		mb1=replace(mb1,"[vipprice]",vipprice)
	    mb1=replace(mb1,"[jifen]",jifen)
		mb1=replace(mb1,"[spms]",spms)
		mb1=replace(mb1,"[spsm]",spsm)
		mb1=replace(mb1,"[sp_pic]",sp_pic)
		mb1=replace(mb1,"[zhidi]",zhidi)
		mb1=replace(mb1,"[id]",id1)
		
		sql1="select top 8 * from goods where sclassid="&sclassid&" order by id desc"
		rs1.open sql1,conn,1,1
		if rs1.eof then
		theclass="暂时没有同类商品"
		else
		 i=0
		do while not rs1.eof
		i=i+1
        theclass=theclass&"<td>·<a href=../products/"&rs1("filename")&".htm>"&trim(rs1("sp_name"))&"</a>&nbsp;&nbsp;&nbsp;&nbsp;</td>"
        if i mod 2=0 then
		theclass=theclass&"</tr><tr>"      
		 end if
		rs1.movenext
		loop
		end if
		rs1.close
		mb1=replace(mb1,"[theclass]",theclass)
		
		sql1="select top 3 * from pl where check=true and sp_id="&id1
		rs1.open sql1,conn,1,1
		if rs1.eof then
		c1="<br><div align=center>暂时没有任何评论</div>"
		else
		do while not rs1.eof
		c1=c1&"<tr><td class=xia>客户"&rs1("code")&"的如下评论:</td></tr><tr><td class=xia>"&rs1("content")&"</td></tr><tr><td class=xia>管理员对以上客户的回复:</td></tr><tr><td class=xia>"&rs1("reply")&"</td></tr>"
		 rs1.movenext
		 loop
		end if
		 rs1.close
		mb1=replace(mb1,"[comments]",c1)
              
		area="<textarea name=content cols=39 rows=5 class=border></textarea>"
		mb1=replace(mb1,"[area]",area)
		
		filename1="../products/"&filename&".htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
		ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	set rs1=nothing
	response.write"<SCRIPT language=JavaScript>alert('评论在前台文件已经生成');"
response.write"this.location.href='comment.asp';</SCRIPT>"
%>