savelinks.asp

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

<!--#include file="cn.asp"-->
<%
title=trim(request.form("title"))
lei=trim(request.form("lei"))
http=trim(Request.Form("http"))
pic=trim(Request.Form("pic"))
if title="" then
response.Write "<script language='javascript'>alert('请填写名称！');history.go(-1);</script>"
cn.close
set cn=nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from friend",cn,1,3
rs.addnew
rs("title")=title
rs("lei")=lei
if http<>"" then
rs("http")=http
end if
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
%>