addsave.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科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
if request.form("sp_name")="" then
response.write"<script language=javascript>alert('商品名称必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
	
if not isnumeric(request.form("jifen")) or not isnumeric(request.form("memprice")) or not isnumeric(request.form("vipprice")) or not isnumeric(request.form("marprice"))   then
response.write"<script language=javascript>alert('商品价格和积分请采用数字');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if

	function html(constring)
        constring=replace(constring,CHR(13),"")
		constring=replace(constring,CHR(10),"<br>")
		constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
		html=constring
    end function
	bclassid=request("bcid")
	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
		
	sclassid=request("scid")
	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>-------商品信息"

    sp_name=trim(request("sp_name"))
	marprice=request("marprice")
	jifen=request("jifen")
	zhidi=request("zhidi")
	memprice=request("memprice")
	vipprice=request("vipprice")
	spsm=html(trim(request("sp_intr")))
	spms=html(trim(request("sp_desc")))
	sp_pic=request("pic")
	if sp_pic="" then 
	sp_pic="images/noimage.gif"
	end if
	spic=request("spic")
	if spic="" then
	spic="images/noimage.gif"
	end if
	tj=request("tj")
	tejia=request("tejia")
	set rs=server.createobject("adodb.recordset")
	sql="select * from goods"
	rs.open sql,conn,3,3
	rs.addnew
	rs("bclassid")=bclassid
	rs("sclassid")=sclassid
	rs("sp_name")=sp_name
	rs("marprice")=marprice
	rs("jifen")=jifen
	rs("zhidi")=zhidi
	rs("memprice")=memprice
	rs("vipprice")=vipprice
	rs("spsm")=spsm
	rs("spms")=spms
	rs("spic")=spic
	rs("sp_pic")=sp_pic
	rs("tj")=tj
	rs("tejia")=tejia
	rs("date")=now()
	year1=year(now)
	month1=month(now)
	day1=day(now)
	hour1=hour(now)
	minute1=minute(now)
	second1=second(now)
	filename=year1&month1&day1&hour1&minute1&second1
	rs("filename")=filename
	rs.update
	rs.close
	
	filename1="../products/"&filename&".htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	set rs=server.createobject("adodb.recordset")
		sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("spmb")
		rs.close
		mb1=replace(mb1,"[title]",sp_name)
		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)
		
		mb1=replace(mb1,"[daohang]",dh)
		
		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)
	
	    sql="select top 1 * from goods where sp_name='"&sp_name&"'"
		rs.open sql,conn,1,1
		if not rs.eof then
		id1=rs("id")
		end if
		rs.close
		mb1=replace(mb1,"[id]",id1)
		
		sql="select top 8 * from goods where sclassid="&sclassid&" order by id desc"
		rs.open sql,conn,1,1
		if rs.eof then
		theclass="暂时没有同类商品"
		else
		 i=0
		do while not rs.eof
		i=i+1
        theclass=theclass&"<td>·<a href=../products/"&rs("filename")&".htm>"&trim(rs("sp_name"))&"</a>&nbsp;&nbsp;&nbsp;&nbsp;</td>"
        if i mod 2=0 then
		theclass=theclass&"</tr><tr>"      
		 end if
		rs.movenext
		loop
		end if
		rs.close
		mb1=replace(mb1,"[theclass]",theclass)
		
		sql="select top 3 * from pl where check=true and sp_id="&id1
		rs.open sql,conn,1,1
		if rs.eof then
		c1="<br><div align=center>暂时没有任何评论</div>"
		else
		do while not rs.eof
		c1=c1&"<tr><td class=xia>客户"&rs("code")&"的如下评论:</td></tr><tr><td class=xia>"&rs("content")&"</td></tr><tr><td class=xia>管理员对以上客户的回复:</td></tr><tr><td class=xia>"&rs("reply")&"</td></tr>"
		 rs.movenext
		 loop
		end if
		 rs.close
		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
	set fso=nothing
	response.write"<script language=javascript>alert('商品添加成功');this.location.href='add.asp';</script>"

		%>