addlinkchk.asp

一套现成的分类信息网站发布系统

<!--#include file="conn.asp"-->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql = "select * from link"
rs.open sql,conn,1,3
rs.addnew
rs("web")=trim(request("web"))
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("webabout")=trim(request("webabout"))
rs("yanz")=0
rs("jrsj")=now()
rs.update
rs.close
set rs=nothing
closedb
response.write "<li>恭喜你，加入成功！请确定您的网站是否加上我们的链接，我们会在第一时间审核通过您的链接！"
response.write "<meta http-equiv=refresh content=""3;URL=link.htm"">"
%>