<!--#include file="../../fy_inc/fy.User.asp"-->
<%
			echo "<html>" & vbCrLf
			echo "<head>" & vbCrLf
			echo "<title>申请友情链接</title>" & vbCrLf
			echo "<meta http-equiv=""Content-Language"" content=""zh-cn"">" & vbCrLf
			echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
			echo "<link href=""../../user/images/css/css.css"" rel=""stylesheet"" type=""text/css"">" & vbCrLf
			echo "</head>" & vbCrLf
			echo "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
			'echo "<br>" & vbCrLf
			echo "  <table  width=""778"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"">" & vbCrLf
			echo "    <tr>" & vbCrLf
			echo "      <td align=""center""><br>" & vbCrLf
			echo "         <table border=""0"" cellpadding=""2"" cellspacing=""1"" width=""500""  class=""table"">" & vbCrLf
			echo "         <tr class=""bg_tr"">" & vbCrLf
			echo "           <td colspan=2>本站链接信息</td>" & vbCrLf
			echo "         </tr>" & vbCrLf
			echo "         <tr class=""td_bg"">" & vbCrLf
			echo "           <td colspan=""2"" align=""right""><div align=""center"">申请链接交换，务请先使用下面的代码做好本站链接。</div></td>"
			echo "         </tr>" & vbCrLf
			echo "         <tr class=""td_bg"">" & vbCrLf
			echo "           <td width=""176"" height=""25"" align=""right"" valign=""middle""  ><strong>※本站文字链接代码:</strong></td>"
			echo "           <td width=""313"" height=""25""><div align=""center"">演示:<a href=""" & fycms.ActUrl & """ title=""" & fycms.fycms_Sys(0) & """ target=""_blank"">" & fycms.fycms_Sys(0) & "</a></div></td>"
			echo "         </tr>" & vbCrLf
			echo "         <tr align=""center"" class=""td_bg"">" & vbCrLf
			echo "           <td height=""25"" colspan=""2""> <textarea name=""textlink"" rows=""2"" onMouseOver=""javascript:this.select();"" style=""width:88%;border-style: solid; border-width: 1""><a href=""" & fycms.ActUrl & """ title=""" & fycms.fycms_Sys(0) & """ target=""_blank"">" & fycms.fycms_Sys(0) & "</a></textarea></td>"
			echo "         </tr>" & vbCrLf
			echo "         <tr class=""td_bg"">" & vbCrLf
			echo "           <td width=""176"" height=""25"" align=""right""><strong>※本站LOGO链接代码:</strong></td>"
			echo "           <td height=""25""><div align=""center"">演示:<a href=""" & fycms.ActUrl & """ title=""" & fycms.fycms_Sys(0) & """ target=""_blank""><img src=""" &fycms.ActSys& Replace(fycms.fycms_Sys(5),"{$InstallDir}",fycms.ActSys) & """ width=""88"" height=""31"" border=""0"" align=""absmiddle""></a></div></td>"
			echo "         </tr>" & vbCrLf
			echo "         <tr align=""center"" class=""td_bg"">" & vbCrLf
			echo "           <td height=""25"" colspan=""2""> <textarea name=""logolink"" rows=""2"" onMouseOver=""javascript:this.select();"" style=""width:88%;border-style: solid; border-width: 1""><a href=""" & fycms.ActUrl & """ title=""" & fycms.fycms_Sys(0) & """ target=""_blank""><img src=""" & fycms.fycms_Sys(5) & """ width=""88"" height=""31"" border=""0""></a></textarea></td>"
			echo "         </tr>" & vbCrLf
			echo "       </table>" & vbCrLf
			echo "         <br>" & vbCrLf
 			echo "  <form action=""LinkRegSave.asp"" name=""LinkForm"" method=""post"">" & vbCrLf
			echo "   <input name=""Action"" type=""hidden"" id=""Action"" value=""AddLink"">" & vbCrLf
			echo "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			echo "    <tr>" & vbCrLf
			echo "      <td>" & vbCrLf
			echo "        <table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" width=""500""  class=""table"">" & vbCrLf
			echo "           <tr class=""bg_tr"">" & vbCrLf
			echo "             <td  colspan=""2""  height=""25"">申请友情链接</td>" & vbCrLf
			echo "           </tr>" & vbCrLf
			echo "          <tr class=""td_bg"">" & vbCrLf
			echo "            <td width=""13%"" height=""25"" align=""center"">" & vbCrLf
			echo "              <div align=""center"">网站名称：</div></td>" & vbCrLf
			echo "            <td width=""542"" height=""25"">" & vbCrLf
			echo ("<input name=""SiteName"" class=""textbox"" type=""text"" id=""SiteName"" size=""38"" >")
			echo "              <font color=""red"">*</font></td>" & vbCrLf
			echo "          </tr>" & vbCrLf
			echo "          <tr  class=""td_bg"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">所属类别：</td>" & vbCrLf
			echo "            <td height=""25"">" & vbCrLf
			echo "              <select Name=""ClassLinkID"" >" & vbCrLf
						   
						Dim GRS
						Set GRS = fycms.actexe("Select ID,ClassLinkName From ClassLink_fy Order BY AddDate Desc")
						 Do While Not GRS.EOF
							echo ("<Option value=" & GRS(0) & ">" & GRS(1) & "</OPTION>")
						   GRS.MoveNext
						 Loop
						 GRS.Close
						 Set GRS = Nothing
					   
			 echo "             </Select> </td>" & vbCrLf
			 echo "         </tr>"
			 echo "          <tr  class=""td_bg"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">" & vbCrLf
			echo "              <div align=""center"">网站站长：</div></td>" & vbCrLf
			echo "            <td height=""25"">" & vbCrLf
			echo "              <input name=""Webadmin"" class=""textbox"" type=""text"" size=""38""> <font color=""red"">*</font></td>"
			echo "          </tr>" & vbCrLf
			echo "          <tr  class=""td_bg"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">" & vbCrLf
			echo "              <div align=""center"">站长信箱：</div></td>" & vbCrLf
			echo "            <td height=""25"">" & vbCrLf
			echo "              <input name=""Email"" type=""text"" class=""textbox"" size=""38"" value=""@"" ></td>" & vbCrLf
			echo "          </tr>" & vbCrLf
					  
					 
			
			echo "          <tr  class=""td_bg"">"
			echo "            <td height=""25"" align=""center"">网站地址：</td>" & vbCrLf
			echo "            <td height=""25""><input name=""Url"" class=""textbox"" type=""text""  value=""http://"" id=""Url"" size=""38""> <font color=""red"">*</font></td>"
			echo "          </tr>" & vbCrLf
			echo "          <tr  class=""td_bg"">"
			echo "            <td height=""25"" align=""center"">链接类型：</td>" & vbCrLf
			echo "            <td height=""25"">"
			echo ("<input type=""radio"" name=""LinkType"" onclick=""SetLogoArea('none')"" value=""0"" checked> 文字链接： ")
			echo ("<input type=""radio"" name=""LinkType"" onclick=""SetLogoArea('')"" value=""1"">  LOGO链接： ")
					   
			echo "             </td>" & vbCrLf
			echo "          </tr>"
			echo "         <tr  class=""td_bg"" Style=""display:none"" ID=""LinkArea"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">Logo地址：</td>" & vbCrLf
			echo "            <td height=""25""><input name=""Logo"" class=""textbox"" type=""text""  value=""http://"" id=""Logo"" size=""38""> <font color=""red"">*</font></td>"
			echo "          </tr>" & vbCrLf
			echo "          <tr  class=""td_bg"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">"
			echo "              <div align=""center"">网站简介：</div></td>" & vbCrLf
			echo "            <td height=""25"">" & vbCrLf
			echo "              <textarea name=""Description"" rows=""6"" id=""Description"" style=""width:80%;border-style: solid; border-width: 1""></textarea></td>"
			echo "          </tr>" & vbCrLf
			echo "          <tr  class=""td_bg"">" & vbCrLf
			echo "            <td height=""25"" align=""center"">验 证 码：</td>" & vbCrLf
			echo "            <td height=""25"">" & vbCrLf
			echo "			<input type=""text"" size=""10"" name=""Code""> <img style=""cursor:hand;""  src="""&fycms.ActSys&"fy_inc/Code.asp?s='+Math.random();"" id=""IMG1"" onclick=this.src="""&fycms.ActSys&"fy_inc/Code.asp?s='+Math.random();"" alt=""看不清楚? 换一张！"">"
			echo "          </td></tr>" & vbCrLf
			echo "        </table>" & vbCrLf
			echo "       </td>"
			echo "    </tr>" & vbCrLf
			echo "    </table>" & vbCrLf
			echo "  <table width=""100%"" height=""38"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			echo "    <tr>" & vbCrLf
			echo "      <td height=""40"" align=""center"">" & vbCrLf
			echo "        <input type=""button""  class=""btn btn_primary""  name=""Submit"" Onclick=""CheckForm()"" value="" 确 定 "">" & vbCrLf
			echo "        <input type=""reset""  class=""btn btn_primary""  name=""Submit2""  value="" 重 填 "">" & vbCrLf
			echo "      </td>" & vbCrLf
			echo "    </tr>" & vbCrLf
			echo "  </table>" & vbCrLf
			echo "  </form>" & vbCrLf
			echo "<Script Language=""javascript"">" & vbCrLf
			echo "<!--" & vbCrLf
			echo "function is_email(str)" & vbCrLf
			echo "{ if((str.indexOf('@')==-1)||(str.indexOf('.')==-1)){" & vbCrLf
			echo "    return false;" & vbCrLf
			echo "    }" & vbCrLf
			echo "    return true;" & vbCrLf
			echo "}" & vbCrLf
			echo "function SetLogoArea(Value)" & vbCrLf
			echo "{"
			echo "   document.all.LinkArea.style.display=Value;"
			echo "}" & vbCrLf
			echo "function CheckForm()" & vbCrLf
			echo "{ var form=document.LinkForm;" & vbCrLf
			echo "   if (form.SiteName.value=='')" & vbCrLf
			echo "    {"
			echo "     alert(""请输入网站名称!"");" & vbCrLf
			echo "     form.SiteName.focus();" & vbCrLf
			echo "     return false;" & vbCrLf
			echo "    }" & vbCrLf
			echo "   if (form.Webadmin.value=='')" & vbCrLf
			echo "    {"
			echo "     alert(""请输入网站站长!"");" & vbCrLf
			echo "     form.Webadmin.focus();" & vbCrLf
			echo "     return false;" & vbCrLf
			echo "    }" & vbCrLf
			echo "    if ((form.Email.value!='@')&&(is_email(form.Email.value)==false))" & vbCrLf
			echo "    {"
			echo "    alert('非法电子邮箱!');" & vbCrLf
			echo "     form.Email.focus();" & vbCrLf
			echo "     return false;" & vbCrLf
			echo "    }" & vbCrLf
			


			echo "   if (form.Url.value=='' || form.Url.value=='http://')" & vbCrLf
			echo "    {" & vbCrLf
			echo "     alert(""请输入网站地址"");" & vbCrLf
			echo "     form.Url.focus();" & vbCrLf
			echo "     return false;" & vbCrLf
			echo "    }" & vbCrLf
			echo "   if (form.Code.value=='')" & vbCrLf
			echo "    {" & vbCrLf
			echo "     alert(""请输入认证码!"");" & vbCrLf
			echo "     form.Code.focus();" & vbCrLf
			echo "     return false;" & vbCrLf
			echo "    }" & vbCrLf
			echo "    form.submit();" & vbCrLf
			echo "    return true;" & vbCrLf
			echo "}" & vbCrLf
			echo "//-->" & vbCrLf
			echo "</Script>" & vbCrLf
			echo " </td></tr></table>" & vbCrLf
		'	echo "         <br>" & vbCrLf
		'	echo "       </td>" & vbCrLf
		'	echo "     </tr>" & vbCrLf
		'	echo "   </table>" & vbCrLf
			echo " </form>" & vbCrLf
			echo " </body>" & vbCrLf
			echo " </html>" & vbCrLf

%> 
