<%=webname%>-申请连接

<% if request("action")="wzaddsave" and Not IsNumeric(request("checkcode")) Then response.write"" end if if request("action")="wzaddsave" and CLng(request("checkcode")) = Session("VerifyCode") Then memo="-"&request("memo") title=request("title") url=request("url") classid=request("classid") Set rs0= Server.CreateObject("ADODB.Recordset") sql0="select Top 1 upID from class where classid="&classid rs0.open sql0,conn,1,1 Set rs= Server.CreateObject("ADODB.Recordset") sql="select Top 1 * from WebSite" rs.open sql,conn,3,2 rs.addnew rs("Title")=Title rs("Url")=Url rs("Memo")=Memo rs("ClassID")=ClassID if rs0("upID")=0 then rs("zClassID")=ClassID else rs("zClassID")=rs0("upID") end if rs.update Call AlertUrl("网址加入成功！我们会在3日内审核您添加的网址。",Session("Url")) end if if request("action")="wzaddsave" and CLng(request("checkcode")) <> Session("VerifyCode") Then response.write"" end if %>

友情连接登录说明： 1. 下列网站请不要申请：有反动、色情、赌博等内容或广告的，提供不良内容链接的、名称或内容违反国家有关法规的 2. 不连接无实用内容的网站，如您的网站正在建设中，尚无完整内容，请不必现在登录，欢迎您在网站建设完成后再来登陆； 3. 不连接含有病毒、木马，弹出插件或恶意更改他人电脑设置的网站及有多个弹窗广告的网站； 4. 不连接在正常情况下无法正常连接或浏览的网站； 5. 本站保留是否收录您的网站的权力以及在本站网址数据库中相关内容的编辑决定权； 6. 请先做好本站文字链接,否则链接申请将不能审核通过。<%=webname%>    <%=weburl%>
网站名称：	*
网站网址：	*
网站说明：	20字以内
网站类别：	<% Set Rs=Server.CreateObject("Adodb.RecordSet") Sql="Select * From Class Order By ClassID Desc" Rs.Open Sql,Conn,1,1 If Rs.Eof And Rs.Bof Then Response.Write "请先添加栏目。" Else %> 请选择栏目 <% Do While Not Rs.Eof %> "><%=Trim(rs("ClassName"))%>[<%=trim(rs("Classid"))%>] <% Rs.MoveNext Loop End If %>
输入验证：