<!-- #include file="conn.asp" -->
<% 
dim ftbbs_class,ftbbs_name,ftbbs_url,ftbbs_logo,ftbbs_qq,ftbbs_mail,ftbbs_zhu
ftbbs_class=Trim(Request.Form("li"))
ftbbs_name=Trim(Request.Form("name"))
ftbbs_url=Trim(Request.Form("url"))
ftbbs_logo=Trim(Request.Form("logo"))
ftbbs_qq=Trim(Request.Form("qq"))
ftbbs_mail=Trim(Request.Form("mail"))
ftbbs_zhu=Trim(Request.Form("zhu"))
call FTBBS_HTML_MB
url=Application("FTBBSMB")(10,0)
if ftbbs_name="" or ftbbs_url="" then
errer="带*号项必填"
else
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from links"
rs.open sql,conn,1,3
rs.addnew
rs(1)=ftbbs_class
rs(2)=ftbbs_name
rs(3)=ftbbs_url
rs(4)=ftbbs_logo
rs(5)=ftbbs_qq
rs(6)=ftbbs_mail
rs(7)=ftbbs_zhu
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
   response.write "<script langugae=javascript>alert('友情链接添加成功!请做好本站的链接！');"
   response.write "window.location.href='sqlink.asp';</script>"
   response.end
end if
%>