savelinks.asp

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

<%title=trim(request.form("title"))
lei=trim(request.form("leibie"))
http=trim(Request.Form("http"))
pic=trim(Request.Form("pic"))
if title="" then
response.Write "<script language='javascript'>alert('请填写名称！');history.go(-1);</script>"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from friend",cn,1,3
rs.addnew
rs("title")=title
rs("lei")=leibie
rs("http")=inf
rs("pic")=pic
rs.update
response.Write "<script language='javascript'>alert('添加成功！');history.go(-1);</script>"
rs.close
set rs=nothing
cn.close
set cn=nothing
end if
%>