addcl.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="66hc.asp"-->
<card id="login" title="申请成功">
<p>
<%
name=ubb(request("name"))
syname=ubb(request("syname"))
url=ubb(request("url"))
classs=ubb(request("classid"))
if name="" or syname="" or url="" or classs="" then response.redirect "add.asp?name="&name&"&syname="&syname&"&url="&url&""

set rst=server.createobject("ADODB.Recordset")
Sql="select * from [66hc_url] where [66hc_name]='"&name&"'"
rst.open Sql,conn,1,1
if not rst.eof then
response.redirect "add.asp?name="&name&"&syname="&syname&"&url="&url&"&cw=1"
end if
rst.Close
set rst=nothing

set rs1=server.createobject("ADODB.Recordset")
Sql1="select * from [66hc_url] where [66hc_sy]='"&syname&"'"
rs1.open Sql1,conn,1,1
if not rs1.eof then
response.redirect "add.asp?name="&name&"&syname="&syname&"&url="&url&"&cw=2"
end if
rs1.Close
set rs1=nothing

set rs2=server.createobject("ADODB.Recordset")
Sql2="select * from [66hc_url] where [66hc_url]='"&url&"'"
rs2.open Sql2,conn,1,1
if not rs2.eof then
response.redirect "add.asp?name="&name&"&syname="&syname&"&url="&url&"&cw=3"
end if
rs2.Close
set rs2=nothing

set rs3=server.createobject("ADODB.Recordset")
Sql3="select * from [66hc_url]"
rs3.open Sql3,conn,2,3
rs3.addnew
rs3("66hc_name")=name
rs3("66hc_sy")=syname
rs3("66hc_url")=url
rs3("66hc_fid")=classs
if dsh=1 then rs3("zt")=1
rs3.update
rs3.Close
set rs3=nothing

set objgbrs2=Server.CreateObject("ADODB.Recordset")
ssql="select top 1 * from [66hc_url] order by [66hc_id] desc"
objgbrs2.open ssql,conn,1,1
if objgbrs2.eof then
kkk=1
else
kkk=objgbrs2("66hc_id")
end if
objgbrs2.close
set objgbrs2=nothing
%>
申请成功，请尽快加上本站连接以便通过审核！<br/>
站名：<%=dname%><br/>简名：色书<br/>
回连地址：http://wap.wap980.cn/a.asp?o=<%=kkk%><br/>
推荐加入<a href='http://wap980.cn'>做爱凸图人体艺术</a>获得更多流量<br/>
<!--#include file="66hcw.asp"-->