<% dim rss,sqll,rs,sql set Rss=Server.CreateObject("ADODB.Recordset") Sqll="select [Active] from [admin]" Rss.open Sqll,conn,1,1 Active=Rss("Active") call rssClose() set Rs=Server.CreateObject("ADODB.Recordset") Sql="select top 1 * from [link] order by id desc" RS.open Sql,conn,1,1%> 添加友链地址成功，<% if Active=1 then%>请等待站长审核，审核通过后才会显示
<%else%>你的友链已经显示出来!
<%End if%> 贵站返回我站的链接地址是:http://<%=Request.ServerVariables("SERVER_NAME")%>/link/Go.asp?id=<%=Rs("ID")%>
网站名称:<%=waptitle%>
<%call lasts()%><%call ALLClose()%>