savepro.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%
if session("company")=""  or session("user")="" then 
response.Write "<script language='javascript'>alert('非法用户！');window.location.replace('../login.asp');</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from product"
rs.open sql,cn,1,3

rs.addnew
'产品信息
rs("pname")=trim(request.Form("pname"))
rs("leibie")=trim(request.Form("leibie"))
rs("danwei")=trim(request.Form("danwei"))
rs("price")=trim(request.Form("jiage"))
rs("guige")=trim(request.Form("guige"))
rs("ontime")=trim(request.Form("ontime"))
rs("pic")=trim(request.Form("pic"))
rs("inf")=trim(request.Form("inf"))
'联系信息
rs("man")=trim(request.Form("man"))
rs("fhttp")=trim(request.Form("fhttp"))
rs("phttp")=trim(request.Form("phttp"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs("post")=trim(request.Form("post"))
rs("address")=trim(request.Form("address"))
'rs("user")=session("user")
rs("company")=session("company")
rs("cid")=session("id")
rs.update
session("fhttp")=trim(request.Form("fhttp"))
response.Write "<script language=javascript>alert('发布成功！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
%>