addlink.asp

网络商城系统

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
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
%>