addlink.asp

if you want it,call me.

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
if request.form("web")="" then
response.write"<script language=javascript>alert('网站名字必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
if request.form("href")="" then
response.write"<script language=javascript>alert('连接地址必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
web=trim(request.form("web"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from link where website='"&web&"'"
rs.open sql,conn,3,3
if not rs.eof then
response.write"<script language=javascript>alert('已经有此网站连接');this.location.href='link.asp';</script>"
else
rs.AddNew
rs("website")=web
rs("href")=trim(request.form("href"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "link.asp"
end if
%>