⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 signup.asp

📁 直接在页面上使用标签加入友情链接站点,非使用跳转页面 ,可设置是否要求PR值验证,及所要求PR值大小,可设置是否要求Alexa排名验证,及所要求的Alexa排名次序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="common.asp"-->
<%
dim SiteName
dim SiteURL
dim MasterName
dim Email
dim PageWidth
dim Unit

sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
	SiteName=rs("SiteName")
	SiteURL=rs("SiteURL")
	MasterName=rs("MasterName")
	Email=rs("Email")
	
	PageWidth=rs("PageWidth")
	Unit=rs("Unit")
	rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write SiteName&"-自助友情链接系统 - Power By TODO.NET.CN"%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
<script>
function CloseOpen(Num){
	var CurrObj=eval("Tab"+Num);
	if (CurrObj.style.display!="none"){
		CurrObj.style.display="none";
		window.event.srcElement.src="img/collapsed_yes.gif"
	} else {
		CurrObj.style.display="";
		window.event.srcElement.src="img/collapsed_no.gif"
	}
	
}

function submitform(Num){
	var CurrForm=eval("form"+Num);
	CurrForm.action="signup.asp";
	CurrForm.method="post";
	CurrForm.submit();
}
</script>
</head>

<body>

<table  border="0" align="center" cellpadding="0" cellspacing="0" width="<%=PageWidth&Unit%>">
  <tr>
    <td>
<%
Select case Request("step")
case ""
	Call signup()
case "1"
	Call checksignup()
case "2"
	Call fullinfo()
case "3"
	Call intodb()
end Select
%>	
</td>
  </tr>
</table>
	
<%sub signup%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
      <table width="99%" height="30"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
      <tr>
        <td><%response.write "&nbsp;<a class=""atitle"" href="""&SiteURL&""" target=_blank>"&SiteName&"</a>-自助友情链接系统"%>
		</td>
        <td align="right">&nbsp; </td>
      </tr>
    </table>
      <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <!--显示与隐藏的表格-->
      <table width="99%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab2">
      <tr bgcolor="#FFFFFF">
        <td height="20">申请步骤:注册账号-&gt;获得我站链接代码并在贵站添加我站链接代码-&gt;填写贵站信息-&gt;确认提交</td>
        </tr>
      <tr align="center" bgcolor="#FFFFFF">
        <td height="20" align="left"><%
			dim PR
			dim Alexa
			dim IsConfirm
			dim IsVerify
			dim IsActivation
			dim SpecialNote
			dim OrderBy
			dim MaxPerPage
			dim LogoWidth
			dim LogoHeight

			sql="select * from setting"
			set rs=conn.execute (sql)
			if not rs.eof then
				PR=rs("PR")
				Alexa=rs("Alexa")
				IsConfirm=rs("IsConfirm")
				IsVerify=rs("IsVerify")
				IsActivation=rs("IsActivation")
				SpecialNote=rs("SpecialNote")
				OrderBy=rs("OrderBy")
				MaxPerPage=rs("MaxPerPage")
				LogoWidth=rs("LogoWidth")
				LogoHeight=rs("LogoHeight")
				rs.close
			end if
			
			if PR>0 then
				response.write "※ 本页面交换友情链接,要求贵站<font color=cc0000>PR值≧"&PR&"</font>,否则不能通过自动检查.<br>"
			end if
			if Alexa>0 then
				response.write "※ 本页面交换友情链接,要求贵站<font color=cc0000>Alexa排名"&Alexa&"</font>以上,否则不能通过自动检查.<br>"
			end if
			response.write "※  如果您打算使用LOGO图片,请注意图片格式为 "&LogoWidth&"×"&LogoHeight&" 像素.<br>"
			if IsVerify=true then
				response.write "※  所有申请的友情链接都要通过站长的审核才能显示.<br>"
			else
				response.write "※  所有申请的友情链接即时生效,申请成功后,请刷新页面.<br>"
			end if
			if IsActivation=true then
				response.write "※  注意,申请成功后,需要从中贵站的链接入我站一次,进行激活才能显示.<br>"
			else
				response.write "※  无需激活,申请成功后即时显示.<br>"
			end if
			
			if SpecialNote<>"" then
				response.write replace(SpecialNote,chr(13),"<br>")&"<br>"
			end if
			
			%></td>
        </tr>
		<tr bgcolor="#FFFFFF">
        <td height="20">有任何问题,请联系站长:<a href="mailto:<%=Email%>"><%=MasterName%></a></td>
        </tr>  
    </table>
	 <!--显示与隐藏的表格-->
      <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<form id="form1" name="form1">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
        <table width="99%" height="30"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
          <tr>
            <td>&nbsp;申请友情链接-第一步(注册账号)</td>
            <td align="right">&nbsp; </td>
          </tr>
        </table>
        <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
        <!--显示与隐藏的表格-->
        <table width="99%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab3">
          <tr bgcolor="#FFFFFF">
            <td height="20" colspan="2">&nbsp;			</td>
            </tr>
          <tr bgcolor="#FFFFFF">
            <td width="35%" height="20">用户名:</td>
            <td><input name="username" type="text" id="username" size="50" maxlength="50"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20">密码:</td>
            <td><input name="passsword" type="password" id="passsword" size="50" maxlength="20"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20">确认密码:</td>
            <td><input name="repasssword" type="password" id="repasssword" size="50" maxlength="20"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20">电子邮箱:</td>
            <td><input name="email" type="text" id="email" size="50" maxlength="80">
            <input name="step" type="hidden" id="step" value="1"></td>
          </tr>
		  <tr align="center" bgcolor="#FFFFFF">
            <td height="20" colspan="2"><input type="button" name="Submit" value=" 确 定 " onClick="submitform(1)">              &nbsp; 
              <input type="reset" name="Submit" value=" 重 设 "></td>
          </tr>
        </table>
        <!--显示与隐藏的表格-->
        <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
      </table></td>
  </tr></form>
</table>
<br>
<%end sub%>

<%
sub checksignup
	dim username
	dim passsword
	dim repasssword
	dim email
	dim userid
	
	username=trim(replace(request("username"),"'",""))
	passsword=trim(replace(request("passsword"),"'",""))
	repasssword=trim(replace(request("repasssword"),"'",""))
	email=trim(replace(request("email"),"'",""))
	
	if username="" or passsword="" or repasssword="" or email="" then
		Errmsg = Errmsg+"<li>请填写全部信息。"
		Call ErrList(Errmsg)
		exit sub		
	elseif passsword <> repasssword then
		Errmsg = Errmsg+"<li>密码与确认密码不符。"
		Call ErrList(Errmsg)
		exit sub
	elseif IsValidEmail(email)=false then
		Errmsg = Errmsg+"<li>请填写正确的电子邮箱地址。"
		Call ErrList(Errmsg)
		exit sub
	end if
	
	
	
	sql="select * from link where username='"&username&"'"
	rs.open sql,conn,1,3
	if not rs.eof then
		Errmsg = Errmsg+"<li>这个用户名已经有人用了,请更换一个。"
		Call ErrList(Errmsg)
		exit sub		
	end if
	
	'rs.addnew
	'rs("username")=username
	'rs("passsword")=md5(passsword)
	'rs("email")=email
	'rs.update
	'temp = rs.bookmark
	'rs.bookmark = temp
	'userid= rs("id")
	'rs.close
	'session("L_username")=username
	'session("L_userid")=userid
	call getcode (username,passsword,email)
end sub

%>

<%sub getcode(username,passsword,email)%>
<%
dim L_SiteName
dim L_SiteURL
dim L_Logo
dim L_Alt
sql="select IsConfirm,SiteURL,L_SiteName,L_SiteURL,L_Logo,L_Alt from setting"
set rs=conn.execute (sql)
if not rs.eof then
	IsConfirm=rs("IsConfirm")
	SiteURL=rs("SiteURL")
	L_SiteName=rs("L_SiteName")
	L_SiteURL=rs("L_SiteURL")
	L_Logo=rs("L_Logo")
	L_Alt=rs("L_Alt")
end if
wordlink="<a href=""http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"signup.asp","linkforward.asp")&"?friendid="&Encryptstr("username")&""" target=_blank title="""&L_Alt&""">"&L_SiteName&"</a>"
logolink="<a href=""http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"signup.asp","linkforward.asp")&"?friendid="&Encryptstr("username")&""" target=_blank><img border=0 src="""&L_Logo&""" alt="""&L_Alt&"""></a>"

%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
        <table width="99%" height="30"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
          <tr>
            <td>&nbsp;申请友情链接-第二步(获取我站链接代码)</td>
            <td align="right">&nbsp; </td>
          </tr>
        </table>
        <table width="100%" height="2"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
        <!--显示与隐藏的表格-->
        <table width="99%"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab4">
          <tr bgcolor="#FFFFFF">
            <td width="50%" height="20"><strong>文字链接</strong>:</td>
            <td><strong>图片链接</strong>:</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20"><%=wordlink%></td>
            <td><%=logolink%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20"><textarea cols="35" name="textarea" rows="10"><%=wordlink%></textarea></td>
            <td><textarea cols="35" name="textarea" rows="10"><%=logolink%></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="20" colspan="2">
			<%
			if IsConfirm=true then
				response.write "※ 请先把相应代码拷贝到贵站友情链接页面,然后继续下一步."
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -