<!--#include file="conn.asp"-->
<!--#include file="uft8.asp"-->
<!--#include file="str.asp"-->
<!--#include file="msg.asp"-->
<!--#include file="ip.asp"-->
<%

Response.Buffer = flase
b1=change(jiema(Request("b1")))
b2=change(Request("b2"))
If b1="" or  b2="" Then
Response.Cookies("tishi") =bianma("您的链接提交出错，请重新提交!")
response.end
end if

set rs=server.CreateObject("adodb.recordset")
sql1="select * from link where 网址 = '"&b2&"'"
rs.open sql1,conn,1,3
if rs(1)=""  Then
set rs=server.CreateObject("adodb.recordset")
sql="select * from link"
rs.open sql,conn,1,3
rs.addnew
rs(1)=b1
rs(2)=b2
rs(3)=0
rs(4)=now()
rs.update
rs.close
set rs=nothing
Response.Cookies("tishi") =bianma("您的链接提交成功，请等待审核!")
xiaoshi=""&hour(time())
fenzhong=""&minute(time())
if Len(xiaoshi)<2 Then
xiaoshi="0"&hour(time())
end if
if Len(fenzhong)<2 Then
fenzhong="0"&minute(time())
end if
qun="554809851"
msg="[CQ:emoji,id=128225]Tips：\r     "&jiema(cou&pro&city)&"的朋友于"&xiaoshi&":"&fenzhong&"提交了友情链接等待审核！\r "&b1&": http://"&b2
msg_url="http://api.ggzz.cc/msg.asp?msg="&bianma(msg)&"&qun="&qun
getHTTPPage(msg_url) 


else
if rs(3)=0  Then
Response.Cookies("tishi") =bianma("您提交的链接审核中,请耐心等待！")

response.end
end if
if rs(3)=1  Then
Response.Cookies("tishi") =bianma("您刚刚提交的链接已经通过审核！")

response.end
end if
end if





%>