adminproductsave.asp

一个不错的个人商务网站的源码

<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<%
bid=cint(my_request("bid",0))
sid=cint(my_request("sid",0))
p_name=my_request("p_name",0)
titlecolor=my_request("titlecolor",0)
p_spec=my_request("p_spec",0)
p_unit=my_request("p_unit",0)
p_nums=my_request("nums",1)
p_cmoney=my_request("p_cmoney",1)
p_mmoney=my_request("p_mmoney",1)
vip_mmoney=my_request("vip_mmoney",1)
big_pic=my_request("big_pic",0)
small_pic=my_request("small_pic",0)
content=request("content")
flag=my_request("flag",0)
issale=my_request("issale",1)


if bid="" or p_name="" or p_spec="" or p_unit="" or p_nums="" or p_cmoney="" or p_mmoney="" or vip_mmoney="" or big_pic="" or small_pic="" or content="" or flag="" or issale="" then
response.write"<SCRIPT language=JavaScript>alert('信息未填写完整！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
sql="select * from yqj_product"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs.addnew
rs("bid")=bid
rs("sid")=sid
rs("p_name")=p_name
rs("titlecolor")=titlecolor
rs("p_spec")=p_spec
rs("p_unit")=p_unit
rs("p_nums")=p_nums
rs("p_cmoney")=p_cmoney
rs("p_mmoney")=p_mmoney
rs("vip_mmoney")=vip_mmoney
rs("big_pic")=big_pic
rs("small_pic")=small_pic
rs("content")=content
rs("flag")=flag
rs("issale")=issale
rs("addtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
call wurl("商品添加成功","AdminProductAdd.asp")
%>