add1.asp

coolboy 链接交换系统

<!--#include file="conn.asp"-->
<%
dim rs
dim sql
site=trim(request("site"))
imgurl=trim(request("imgurl"))
url=trim(request("url"))
readme=trim(request("readme"))
if len(url)=0 then response.redirect("error.asp?word=coolboy提示:网站地址不能为空")
if len(site)=0 then response.redirect("error.asp?word=COOLBOY提示:网站名称不能为空")
if len(imgurl)=0 then response.redirect("error.asp?word=COOLBOY提示:连接图标地址不能为空")
set rs=server.createobject("adodb.recordset")
sql="select * from link where url='" & url & "'"
rs.open sql,conn,0,1
 if not rs.eof then
  rs.close
  set rs=nothing
  response.redirect("error.asp?word=该网站已经存在！不好意思拉!谢谢你光临!")
 end if
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from link"
rs.open sql,conn,3,3
rs.addnew
rs("site")=server.htmlencode(site)
rs("url")=server.htmlencode(url)
rs("imgurl")=server.htmlencode(imgurl)
rs("readme")=server.htmlencode(readme)
rs("yanzheng")="ing"
rs.update
rs.close
set rs=nothing
response.redirect("ing.asp")
%>