<%
if request("add") ="ok" then
'判断是不是最底层分类
set rs = conn.execute("select * from pclass where ParentID="&Request("ParentID")&"")
If not rs.eof then
'建立一个图片路径Session.以便返回后不为空
session("url") = request("photo")
response.Write ""
response.end
End If
rs.close
if request("ProdId")="" then
response.Write ""
response.end
end if
function invert(str)
invert=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
invert=replace(replace(replace(replace(invert,"[img]","![](),)
"),"[red]",""),"[blue]","")
invert=replace(replace(replace(replace(invert,"[/img]",">"),"[/b]",""),"[/red]",""),"[/blue]","")
end function
'查找该分类ID的类别名称
set rs = conn.execute("select * from pclass where id="&Request("ParentID")&"")
classname = rs("classname")
rs.close
'产生随即数
dim num1
dim rndnum
Randomize
for i=0 to 6
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
next
'日期，格式：YYYYMMDD
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
riqi=yy & mm & dd
'生成元素,格式为：小时，分钟，秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
shijian=xiaoshi & fenzhong & miao
'生成订单号
inBillNo=riqi & shijian & rndnum
'-------------------------------将此产品的大类和中类和小类也查找出来一并写入数据库只能用于三级分类开始-------------------------------
set rsclass1=server.createobject("adodb.recordset")
sqlclass1="select * from PClass where id="&request("parentid")&" and gb='"&gb&"' "
rsclass1.open sqlclass1,conn,1,3
set rsclass2=server.CreateObject("adodb.recordset")
sqlclass2="select * from PClass where id="&rsclass1("parentID")&" and gb='"&gb&"' "
rsclass2.open sqlclass2,conn,1,3
if rsclass2.eof and rsclass2.bof then
midcode=rsclass1("classname")
midseq=rsclass1("id")
larcode=rsclass1("classname")
larseq=rsclass1("id")
else
set rsclass3=server.CreateObject("adodb.recordset")
sqlclass3="select * from PClass where id="&rsclass2("parentID")&" and gb='"&gb&"' "
rsclass3.open sqlclass3,conn,1,3
if rsclass3.eof and rsclass3.bof then
midcode=rsclass2("classname")
midseq=rsclass2("id")
larcode=rsclass2("classname")
larseq=rsclass2("id")
else
midcode=rsclass2("classname")
midseq=rsclass2("id")
larcode=rsclass3("classname")
larseq=rsclass3("id")
end if
rsclass3.close
set rsclass3 = nothing
end if
rsclass2.close
set rsclass2 = nothing
rsclass1.close
set rsclass1 = nothing
'-----------------------------------查找大类和中类结束----------------------------------------------------------
set rs=server.createobject("adodb.recordset")
sql="select * from ProdMain"
rs.open sql,conn,1,3
rs.Addnew
rs("Id")=inBillNo
rs("ProdId")=Trim(request.form("ProdId"))
rs("ProdName")=Trim(request.form("ProdName"))
rs("Model")=Trim(request.form("Model"))
rs("gb")=request.form("gb")
rs("gbCode")=classname
rs("gbseq")=request.form("ParentId")
rs("LarCode")=larcode
rs("MidCode")=midcode
rs("larseq")=LarSeq
rs("midseq")=MidSeq
rs("ProdDisc")=Trim(request.form("ProdDisc"))
rs("ImgPrev")=Trim(request.form("photo"))
rs("ImgFull")=Trim(request.form("photo1"))
rs("ImgFull2")=Trim(request.form("photo2"))
rs("ImgFull3")=Trim(request.form("photo3"))
rs("ImgFull4")=Trim(request.form("photo4"))
rs("ImgFull5")=Trim(request.form("photo5"))
rs("ImgFull6")=Trim(request.form("photo6"))
rs("MemoSpec")=request.form("content1")
rs("Remark")=request.form("Remark")
rs("RemarkA")=request.form("RemarkA")
rs("xuhao")=Trim(request.form("xuhao"))
rs("other1")=request.form("other1")
rs("ProduceArea")=trim(request.Form("ProduceArea"))
rs("FileOther")=0
rs("online")=true
rs("k_title")=trim(request.Form("k_title"))
rs("k_keys")=trim(request.Form("k_keys"))
rs("k_content")=trim(request.Form("k_content"))
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
' Response.Redirect"admin_prod.asp?action=detail&id="&request.form("ProdId")
response.Write ""
response.end
else
response.write " 操作产品列表生成错误"
end if
%>