www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > login.asp
<!--#include file="mdb.asp"--> <% dim rs(5) function listunder(i) set rs(i)=server.createobject("adodb.recordset") rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3 while not rs(i).eof dim topclassname topclassname="" for x=0 to i-1 topclassname=topclassname&rs(x)("classname")&"→" next fujia="" response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf if i<Ubound(rs) then call listunder(i+1) end if rs(i).movenext wend end function set rs(2)=server.createobject("adodb.recordset") rs(2).open "select * from title",conn,1,3 site=rs(2)("site") siteurl=rs(2)("siteurl") Powered=rs(2)("Powered") Copyright=rs(2)("Copyright") login=rs(2)("login") rs(2).close set rs(2)=nothing if login<>1 then Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>" Response.Write "网站升级中,暂时停止新站登陆,请稍后再来" Response.Write "</td></tr></table>" Response.End end if Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum getcode1= Session("GetCode") Else getcode1= "<img src=""getcode.asp"">" End If End Function %> <html> <head> <title><%=site%> | → 新站登录</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK href="css/style.css" type=text/css rel=stylesheet> <link href="images/style.css" rel="stylesheet" type="text/css" /> <LINK href="css/index.css" type=text/css rel=stylesheet> <style type="text/css"> <!-- .STYLE1 {color: #003300} .STYLE2 {color: #009900} --> </style> </head> <body> <table width="960" height="75" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="264" rowspan="2" align="center"><a href="../index.html"> <img src="../images/logo.gif" width="224" height="38" border="0" /></a></td> <td height="24" valign="top"> <table width="321" height="24" border="0" align="right" cellpadding="0" cellspacing="0" background="../images/top2.gif"> <tr> <td align="center" class="cwhite12"><a href="#" OnClick='this.style.behavior="url (#default#homepage)";this.setHomePage("http://www.hymm.net");' class="cwhite12">设为首页</a> | <a href="#" onClick="window.external.AddFavorite('http://www.hymm.net','黑鹰链');" class="cwhite12">收藏本站</a> | <a href="/login.asp"><font color="red"> 新站加入点这里</font></a> </td> </tr> </table></td> </tr> </table> <table width="960" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table height="38" border="0" cellpadding="0" cellspacing="0" style="margin-left:5px"> <tr align="center"> <td width="88" background="/images/nav2.gif" style="padding-top:5px"><a href="/" class="navfh1">首 页 </a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=2" class="navfh2" target="_blank"> 黑鹰程序</a></td> <td width="88" background="/images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=6" class="navfh2">使用问题 </a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=7" class="navfh2" target="_blank">风格插件</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://ym.hymm.net" class="navfh2" target="_blank">域名买卖</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=9" class="navfh2" target="_blank">站长茶馆</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=11" class="navfh2" target="_blank">源码下载</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=14" class="navfh2" target="_blank">源码交易</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://www.cnhuoyuan.cn/" class="navfh2" target="_blank">网店货源</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/index.asp?boardid=15" class="navfh2" target="_blank"> IDC信息</a></td> <td width="88" background="../images/nav1.gif" style="padding-top:5px"><a href="http://bbs.hymm.net/" class="navfh2" target="_blank">黑鹰论坛</a></td> </tr> </table></td> </tr> </table> <table width="900" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="AACCEE"> <tr> <td height="35" align="center" bgcolor="#FFFFFF"> <% '统计 Set ClassCount=Server.CreateObject("Adodb.Recordset") Sql= "Select * from feilei order by classid" ClassCount.open Sql,conn,1,1 Set QCount=Server.CreateObject("Adodb.Recordset") Q_Sql="Select * from detail" QCount.open Q_Sql,conn,1,1 Set WebCount=Server.CreateObject("Adodb.Recordset") Web_Sql="Select * from detail where verity=1" WebCount.open Web_Sql,conn,1,1 Set FCount=Server.CreateObject("Adodb.Recordset") F_Sql="Select * from detail where verity=0" FCount.open F_Sql,conn,1,1 %> [<%=site%> 有分类<font color="#FF0000"><%=ClassCount.RecordCount%></font>个 网站总数<font color="#FF0000"><%=QCount.RecordCount%></font>个 已审网站<font color="#FF0000"><%=WebCount.RecordCount%></font>个 未审网站<font color="#FF0000"><%=FCount.RecordCount%></font>个] <% ClassCount.close Set ClassCount = Nothing QCount.close Set QCount = Nothing WebCount.close Set WebCount = Nothing FCount.close Set FCount = Nothing '统计结束 %></td></tr> <TR> <TD bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="AACCEE"> <tr> <td align="center" background="images/114la.gif" class="font14"> <tr> <td width='850' height="22" align="left" background="logo/line.gif" bgcolor="#fcfff7"><span class="STYLE18"> <marquee scrolldelay="100" scrollamount="3" onmouseout='if (document.all!=null){this.start()}' onmouseover='if (document.all!=null){this.stop()}'> <span class="STYLE21 STYLE12"><FONT color=#ff0000>友情公告:“高速交换”代码,嵌入在网站首页正常显示的站点,可获得本站首页底部友情链接位一个。代码放在首页顶部的站点,可获本站中部黄金链接位一个。你站代码在,我站链接在!作弊排名、一律删除链接处理!本站提交网址、百度快速收录、效果看得见!</FONT></span> </marquee> </span></td> </tr> </td> </tr> <tr> <td height="148" align="center" bgcolor="#FFFFFF"> <TABLE width="99%" align="center"> <TR> <TD> 你的站点是新站吗?你的站点没人浏览吗?你的站点没人关注吗?你的站点IP\PV不高吗?当你来到本站时,你已经找到解决问题的办法了!免费收录、免费踩站、免费的友情链接交换,一切的免费只为站长们解决问题!赶快行动起来,点点鼠标,做上连接、加入代码,流量自然来!本站永久免费收录你站,而且有个好处就是百度也很快收录你的站点,问我为什么,商业机密不能透露。。。!嵌入“友情链接高速交换”代码的站点(不限代码规格),只要你站被浏览,你的连接就在本站首页显示排名、而且所有加入此代码的网站都显示你站链接排名(前提:在我站提交网址审核通过的站点才会显示和排名)<br /><br /> <LI><FONT color=#009900><%=site%></FONT>不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站,以及网站名称或内容违反国家有关法规的网站,如您的网站有上述内容或链接,请您不要登录;</LI> <LI>有些提供主页空间的网站含有色情等不良内容的广告 ( 包括弹出窗口 ) 或链接,<FONT color=#009900><%=site%></FONT>不收录此类主页空间下的网站。如果您的主页使用的恰好是此类主页空间,您可以更换主页空间之后再来登陆; <LI><FONT color=#009900><%=site%></FONT>不收录无实用内容的网站,如您的网站正在建设中,尚无完整内容,请不必现在登录,欢迎您在网站建设完成后再来登陆; <LI><FONT color=#009900><%=site%></FONT>不收录含有病毒、木马,弹出插件或恶意更改他人电脑设置的网站及有多个弹窗广告的网站; <LI>对挂靠别人的网站下的网站 ( 即没有自己单独域名的网站 ) ,<FONT color=#009900><%=site%></FONT>将不予收录; <LI>不收录在正常情况下无法正常连接或浏览的网站; <LI>请确认您的网站已经做好了<FONT color=#009900><%=site%></FONT>的链接后,您的网站才可以被本站收录; <LI><FONT color=#009900><%=site%></FONT>保留是否收录您的网站的权力以及在本站网址数据库中相关内容的编辑决定权;</TD> </TR> </TABLE> <img src="images/gg.gif" alt="申请友情链接流程" width="654" height="45"></td> </tr> <tr> <td align="center" background="images/114la.gif"><strong class="font14">只要提交并作上我们的链接 <%=site%> http://<%=siteurl%> 文字或图片链接,并在您站上点击一次,就<span class="STYLE2">自动收录</span>!</strong></td> </tr> </table></TD> </TR> <tr> <td bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td width="50%" align="center" valign="top" bgcolor="#FFFFFF"> <table width="98%" border="0" height="280" cellpadding="2" cellspacing="1" bgcolor="AACCEE"> <tr> <td height="32" background="images/114la.gif"><span class="font14">※ 一、先决条件</span></td> </tr> <tr> <td bgcolor="#FFFFFF"><span class="STYLE4">※</span> 重要提示:<font color="#FF0000">提交前请在您的首页放上本站的连接,代码如下:</font> <p> 文字链接样式:<b><FONT color=#ff0000><a href="http://<%=siteurl%>/"><font color="#FF0000">[<%=site%>]</font></a></FONT></b><br> <textarea name="textfield" cols="50" rows="3"><a href=http://<%=siteurl%> target=_blank><%=site%></a></textarea> <br> 图片链接样式:<a href=http://<%=siteurl%>/ target=_blank><img src="../logo/logo.gif" alt="友情链接高速交换" width=88 height=31 border=0></a><br> <textarea name="textarea" cols="50" rows="4"><a href=http://<%=siteurl%> target=_blank><img height=31 src="http://<%=siteurl%>/logo/logo.gif" width=88 border=0></a></textarea></td> </tr> <tr> <td height="32" background="images/114la.gif"><span class="font14">※ 二、查询是否已收录</span></td> </tr> <tr> <td height="52" bgcolor="#FFFFFF"> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center"> <form action="search.asp" method="post"><tr> <td align="center"> <input name="word"> <select name="by"><option value='title'>网站名称</option> <option value='url'>网站url</option> </select> <input type="submit" value="搜索"></td></tr></form> </table></td> </tr> <tr> <td height="32" background="images/114la.gif"><span class="font14">※ 三、帮助说明</span></td> </tr> <tr> <td height="82" align="center" bgcolor="#FFFFFF"> 【未做本站连接不会审核,审核后取消本站连接也会删除】<BR> 【不管贵站有无流量,只要符合服务条款的均可得到审核】<BR> 【做好本站连接,以后每次来访一IP即可在首页排名第一】<BR> 【所以请你把本站连接放在贵站首页,贵站最醒目的位置】</td> </tr> </table></td> <td width="50%" align="center" valign="top"> <table width="100%" height="323" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="AACCEE"> <form action="chklogin.asp" method=POST name=form> <tr> <td colspan="2" height="25" background="images/114la.gif"><span class="font14"> ※四、填写贵站相关资料</span></td> </tr> <tr bgcolor="#FFFFFF"> <td colspan="2" class="line18"><a target="_blank" href="/ip.asp"><img height="80" src="/images/ip1.gif" width="360" border="0"></a></td> </tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center">网站名称:</td> <td> <input name="title" type="text" class="TDBorder" size="20" maxlength="8"> 标题在8个汉字以内</td> </tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center" bgcolor="#FFFFFF"> 网站分类:</td> <td> <select name="leibie"> <option selected>请选择网址分类</option> <% set rs(0)=server.createobject("adodb.recordset") rs(0).open "select classid,classname,verity from feilei where topclass=0",conn,1,3 while not rs(0).eof fujia="" response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf call listunder(1) rs(0).movenext wend %> </select></td></tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center" bgcolor="#FFFFFF"> E-mail:</td> <td> <input size="20" name="Email" type="text" class="TDBorder"></td> </tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center" bgcolor="#FFFFFF"> 网站地址:</td> <td> <input size="27" name="url" type="text" value="http://" class="TDBorder"></td> </tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center" bgcolor="#FFFFFF"> 网站简介:</td> <td> <textarea cols="30" id="MsgForm" name="memo" rows="4" ></textarea><br> 介绍在50个汉字以内</td> </tr> <tr bgcolor="#FFFFFF"> <td width="80" align="center" bgcolor="#FFFFFF"> 验 证 码:</td> <td> <input type="text" name="mofei" class="textarea" size="19"> <%=getcode1()%></td> </tr> <tr bgcolor="#FFFFFF"> <td align="center" colspan=2> <input type="hidden" name="action" value="add_wz"> <input type="submit" value="提交" style="FONT-SIZE: 9pt"> <a href="/ip.asp" title="获取高速链接代码,网页万次展示" target="_blank"><b><font color="#FF0000">点击获取高速链接代码</font></b></a> <p>友情提示:未做链接,未从链接点击进入我站首页,贵站是不会被系统自动收录的。未收录成功,请连续多点几次链接到本站,即可收录成功!<br> ----------:提交3天内未做链接的,删除提交站点处理!有问题请联系站长。或“<a href="/guestbook/" target="_blank">我要留言</a>”</td> </tr> </form></table></td></tr></table></td></tr> </table> <div align="center"> <div class="Footer"> <div class="Footer-di"> <div class="Footer-di1"></div> <div class="Footer-di3"> <div class="Footer-di2"></div> <div class="Footer-di4"></div> <div class="Footer-di5"><BR> <span class="STYLE5"><a href="http://www.miibeian.gov.cn" target="_blank"><FONT color=#ff0000>渝ICP备09035299号</FONT></a></span> <script language="javascript" type="text/javascript" src="http://js.users.51.la/2738073.js"></script><br/> <span class="STYLE5">Copyright © 2008-2011 www.hymm.net All Rights Reserved. </span><br/> <br/> <br/> </div> </div> </div> </div> </div></div> </body> </html>