<%
if request("add") ="ok" then
if request("pricelist")="" 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
'产生随即数
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 rs=server.createobject("adodb.recordset")
sql="select * from ProdMain_store"
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("PriceList")=Trim(request.form("PriceList"))
rs("gb")=request.form("gb")
rs("gbCode")=request.Form("gbcode")
rs("gbseq")=request.form("ParentId")
rs("LarCode")=larcode
rs("MidCode")=midcode
rs("larseq")=LarSeq
rs("midseq")=MidSeq
rs("ProdDisc")=Trim(request.form("ProdDisc"))
rs("ProdLong")=Trim(request.form("ProdLong"))
rs("ProdHeight")=Trim(request.form("ProdHeight"))
rs("ProdWidth")=Trim(request.form("pic2"))
rs("priceorigin")=trim(request.Form("priceorigin"))
rs("ImgPrev")=Trim(request.form("photo"))
rs("ImgFull")=Trim(request.form("ImgFull"))
rs("ImgPrevWidth")=Trim(request.form("ImgPrevWidth"))
rs("ImgPrevHeight")=Trim(request.form("ImgPrevHeight"))
rs("ProdHeight")=Trim(request.form("ProdHeight"))
rs("MemoSpec")=request.form("content1")
rs("Remark")=request.form("Remark")
rs("RemarkA")=request.form("RemarkA")
rs("xuhao")=Trim(request.form("xuhao"))
rs("ProduceArea")=trim(request.Form("ProduceArea"))
rs("quantity")=trim(request.form("quantity"))
rs("searchtype")=trim(request.Form("searchtype"))
rs("adddate")=date()
rs("FileOther")=0
rs("online")=true
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
%>