createword.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科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
     set rs=server.createobject("adodb.recordset")
	 sql="select * from goods order by id desc"
	 rs.open sql,conn,1,1
	 if rs.eof then
	 response.write"数据库里面没有商品信息!"
	 response.end
	 else
	 total1=rs.recordcount
	 set rs1=server.createobject("adodb.recordset")
	 sql1="select top 1 * from mb order by id desc"
	rs1.open sql1,conn,1,1
	mb1=rs1("spmb")
	rs1.close
	set rs1=nothing
	set rs2=server.CreateObject("adodb.recordset")
	sql2="select top 1 * from ad order by id desc"
	rs2.open sql2,conn,1,1
	if not rs2.eof then
	pic1=rs2("pic")
	url1=rs2("url")
	end if
	rs2.close
	set rs2=nothing
	banner="<a href="&url1&" target=blank><img src=../"&pic1&" width=486 height=60 border=0>"
	 set fso=server.createobject("scripting.filesystemobject")
	 i=0
	 do while not rs.eof
	 i=i+1	
	filename1="../products/"&rs("filename")&".htm"
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	     id1=rs("id")
	    sp_name=rs("sp_name")
		marprice=rs("marprice")
	    jifen=rs("jifen")
	    zhidi=rs("zhidi")
	    memprice=rs("memprice")
	    vipprice=rs("vipprice")
	    spsm=rs("spsm")
	    spms=rs("spms")
    	sp_pic=rs("sp_pic")
		sclassid=rs("sclassid")
		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)
		
		set rs3=server.CreateObject("adodb.recordset")
		sql3="select top 8 * from goods where sclassid="&sclassid&" order by id desc"
		rs3.open sql3,conn,1,1
		if rs3.eof then
		theclass="暂时没有同类商品"
		else
		 i1=0
		do while not rs3.eof
		i1=i1+1
        theclass=theclass&"<td>·<a href=../products/"&rs("filename")&".htm>"&trim(rs("sp_name"))&"</a>&nbsp;&nbsp;&nbsp;&nbsp;</td>"
        if i1 mod 2=0 then
		theclass=theclass&"</tr><tr>"      
		 end if
		rs3.movenext
		loop
		end if
		rs3.close
		mb1=replace(mb1,"[theclass]",theclass)
		
		sql3="select top 3 * from pl where check=true and sp_id="&id1
		rs3.open sql3,conn,1,1
		if rs3.eof then
		c1="<br><div align=center>暂时没有任何评论</div>"
		else
		do while not rs3.eof
		c1=c1&"<tr><td class=xia>客户"&rs3("code")&"的如下评论:</td></tr><tr><td class=xia>"&rs3("content")&"</td></tr><tr><td class=xia>管理员对以上客户的回复:</td></tr><tr><td class=xia>"&rs3("reply")&"</td></tr>"
		 rs3.movenext
		 loop
		end if
		 rs3.close
		 set rs3=nothing
		mb1=replace(mb1,"[comments]",c1)
		
              
		area="<textarea name=content cols=39 rows=5 class=border></textarea>"
		mb1=replace(mb1,"[area]",area)

	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	response.write"<br>已生成"&i&"/"&total1&"条<br>"
	rs.movenext
	loop
	set fso=nothing
	end if
	rs.close	
	set rs=nothing
	response.write"<script language=javascript>alert('商品页全部生成成功');this.location.href='mb.asp';</script>"
	%>