savenews1.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 news1"
rs.open sql,cn,1,3

rs.addnew
'产品信息
rs("title")=trim(request.Form("title"))
qq=trim(replace(request.Form("inf"), chr(10),"<p>"))
rs("inf")=trim(replace(qq, chr(30),"<p>"))
rs("ontime")=trim(request.Form("ontime"))
rs("pic")=trim(request.Form("pic"))
rs("com")=session("company")
'rs("user")=session("user")
rs("cid")=session("id")
rs.update
response.Write "<script language=javascript>alert('发布成功！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
%>