addlinkchk.asp

来自「二手书籍系统」· ASP 代码 · 共 20 行

<!--#include file="inc/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=""5;URL=index.asp"">"
%>