<!--#include file="conn.asp"-->
<%call Head() %>
<%Call saycarda("发布")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->




<%
if myid=0 then cw="未登录"
mc=usb(request("mc"))
if mc="" then cw="名称"
js=usb(request("js"))
if js="" then cw="介绍"
jg=usb(request("jg"))
if jg="" then cw="价格"
tu=request("tu")
xid=request("xid")
if xid="" then xid="0"
did=request("did")
if did="" then did="0"
ffs=request("ffs")
if ffs="" then cw="伏款方式"
yf=request("yf")
if yf="" then cw="运费"
sl=request("sl")
if sl="" then cw="数量"
yfs=request("yfs")
if yfs="" then cw="运费承担方"
lx=request("lx")
if lx="" then cw="联系方式"
sfs=request("sfs")
if sfs="" then cw="送货方式"
yxq=request("yxq")
if yxq="" then cw="有效期"
fkfs=request("ffs")
if fkfs="" then cw="付款方式"
if mc<>"" and js<>"" and jg<>"" and xid<>"" and did<>"" and ffs<>"" and yf<>"" and sl<>"" and yfs<>"" and lx<>"" and sfs<>"" and yxq<>"" and fkfs<>"" and myid<>0 then 
'---开始增加----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_xx"
rs.open rspl,connshop,1,2
rs.addnew
rs("fid")=myid
rs("fname")=myni
rs("name")=mc
rs("txt")=js
if tu<>"" then rs("pic")=tu
rs("jg")=jg
rs("lid")=did
rs("xid")=xid
rs("yxq")=yxq
rs("sl")=sl
rs("fkfs")=fkfs
rs("sfs")=sfs
rs("yfs")=yfs
rs("yf")=yf
rs("lx")=lx
rs.update
'---关闭数据----
  sql="update users set spsl=spsl+1 Where CStr(id)='" & myid & "'"
  conn.Execute(sql)
rs.close
set rs=nothing

%>
恭喜你，发布成功<br/><%else%>
全部必须填写，或您未登录，请返回修改或登录注册后再来<br/>
错误源:<b><%=cw%></b><br/>
<%end if%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>