linkforward.asp

直接在页面上使用标签加入友情链接站点,非使用跳转页面 ,可设置是否要求PR值验证,及所要求PR值大小,可设置是否要求Alexa排名验证,及所要求的Alexa排名次序

<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<%
if request("forward")<>"" and request("ID")<>"" then
	sql="update link set goout=goout+1 where ID="&request("ID")
	conn.execute (sql)
end if

if request("friendid")<>"" then
	sql="slelect * from link where username='"&decryptstr(request("friendid"))&"'"
	rs.open sql,conn,1,3
	if not rs.eof then
		Arr1=Split(Request.ServerVariables("HTTP_REFERER"),"/")
		arr2=Split(rs("Y_MyLink"),"/")
		if Arr1(2)=arr2(2) then
			rs("goin")=rs("goin")+1
			rs.update
			
			rs.close
		end if
	end if
	dim L_SiteURL
	sql="select L_SiteURL from setting"
	set rs=conn.execute (sql)
	if not rs.eof then
		L_SiteURL=rs("L_SiteURL")
	end if
	response.Redirect(L_SiteURL)
end if

'首页调用代码
dim ScriptWords
dim rs1
dim rs2
sub ShowFriendLink (DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl)
	response.write vbcrlf
	response.write "<LINK href="""&LinkUrl&"css.css"" type=text/css rel=stylesheet>"&vbcrlf
	response.write "<IFRAME id=""Iframelinkforward"" dy=100 name=""linkforward"" SRC="""&LinkUrl&"linkforward.asp"" FRAMEBORDER=1 SCROLLING=no WIDTH=0 HEIGHT=0></IFRAME>"&vbcrlf
	response.write "<script>"&vbcrlf
	response.write "function addgoout(ID){"&vbcrlf
	response.write ""&vbcrlf
	response.write "	Iframelinkforward.linkforward.elements(0).value=""goout"";"&vbcrlf
	response.write "	Iframelinkforward.linkforward.elements(1).value=ID;"&vbcrlf
	response.write "	Iframelinkforward.linkforward.submit();"&vbcrlf
	response.write "	//setTimeout(""window.location.reload()"",1000);"&vbcrlf
	response.write "}"&vbcrlf
	response.write "</script>"&vbcrlf
	
	if LinkUrl="" then
		sLinkUrl="default.asp"
	end if
	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 IsActivation=true then
		SqlActivation=" and goin>0"
	else
		SqlActivation=""
	end if
	
	if IsVerify=true then
		SqlActivation=" and IsVerify=true"
	else
		SqlActivation=""
	end if

	if OrderBy=2 then
		OrderBy=" order by Isfixed, goin desc"
	elseif OrderBy=1 then
		OrderBy=" order by Isfixed, jointime desc"
	end if

	sql1="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,Isfixed from link where Status<>1"&SqlActivation&" and not isNull (Y_Logo)"&OrderBy
	sql2="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,jointime,Isfixed from link where Status<>1"&SqlActivation&" and isNull (Y_Logo)"&OrderBy

	set rs1=conn.execute (sql1)
	set rs2=conn.execute (sql2)

	ScriptWords=ScriptWords& "	<table width="&TabWidth&" border=0 align="&TabAlign&" cellpadding=0 cellspacing=1 bgcolor="&sTabBorderColor&"><tr>"&vbcrlf
	ScriptWords=ScriptWords& "	<td bgcolor=ffffff>"&vbcrlf
	ScriptWords=ScriptWords& "	<table width=99% height=2  border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
	ScriptWords=ScriptWords& "	<table width=99% height=30  border=0 align=center cellpadding=0 cellspacing=0 bgcolor="&tTabBGColor&" class=title>"&vbcrlf
	ScriptWords=ScriptWords& "	<tr><td align=right><a class=atitile href="""&sLinkUrl&"""><font color=ffffff>更多友情链接</font></a>&nbsp;</td></tr>"&vbcrlf
	ScriptWords=ScriptWords& "	</table>"&vbcrlf
	ScriptWords=ScriptWords& "	<table width=99% height=2  border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
		
	if DislayOrder="LOGO" then
		if LogoLine>0 then
			call logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
		end if
		if LogoLine>0 and LogoLine>0 then
			ScriptWords=ScriptWords& "	<table width=99% height=2  border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
		end if
		if LogoLine>0 then
			call word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
		end if
	else
		if LogoLine>0 then
			call word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
		end if
		if LogoLine>0 and LogoLine>0 then
			ScriptWords=ScriptWords& "	<table width=99% height=2  border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
		end if
		if LogoLine>0 then
			call logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
		end if
	end if

	ScriptWords=ScriptWords& "	</td>"&vbcrlf
	ScriptWords=ScriptWords& "	</tr></table>"&vbcrlf
	
	response.write ScriptWords
	'response.end
end sub

function logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
	ScriptWords=ScriptWords& "	<!--LOGO-->"&vbcrlf

	ScriptWords=ScriptWords& "	<table width=99% border="&TabBorderWidth&"  bordercolor="&TabBorderColor&" align=center cellpadding="&TabCellPadding&" cellspacing="&TabCellSpacing&" bgcolor="&TabBGColor&">"&vbcrlf
	for i=1 to LogoLine
		if not rs1.eof then
			ScriptWords=ScriptWords& "	<tr align=center bgcolor="&TabCellColor&" style=""line-height:"&TabLinHeight&""">"&vbcrlf
			for j=1 to LogoCount
				if not rs1.eof then
					ScriptWords=ScriptWords& "	<td height=20><a onclick=""addgoout("&rs1("ID")&")"" target=_blank href="""&rs1("Y_SiteURL")&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&rs1("Y_SiteName")&""" src="""&rs1("Y_Logo")&"""/></a></td>"&vbcrlf
					rs1.movenext
				else
					ScriptWords=ScriptWords& "	<td height=20><img src="""&LinkUrl&"img/yourplace.gif""></td>"&vbcrlf
				end if
			next
			ScriptWords=ScriptWords& "	</tr>"&vbcrlf
		end if
	next

	ScriptWords=ScriptWords& "	</table>"&vbcrlf

end function 

function word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
	ScriptWords=ScriptWords& "	<!--WORD-->"&vbcrlf
	ScriptWords=ScriptWords& "	<table width=99% border="&TabBorderWidth&"  bordercolor="&TabBorderColor&" align=center cellpadding="&TabCellPadding&" cellspacing="&TabCellSpacing&" bgcolor="&TabBGColor&">"&vbcrlf

	for i=1 to LogoLine
		if not rs2.eof then
			ScriptWords=ScriptWords& "	<tr align=center bgcolor="&TabCellColor&" style=""line-height:"&TabLinHeight&""">"&vbcrlf
			for j=1 to WordCount
				if not rs2.eof then
					ScriptWords=ScriptWords& "	<td align=center height=20><a onclick=""addgoout("&rs2("ID")&")"" target=_blank href="""&rs2("Y_SiteURL")&""" title="""&rs2("Y_SiteName")&""">"&rs2("Y_SiteName")&"</a></td>"&vbcrlf
					rs2.movenext
				else
					ScriptWords=ScriptWords& "	<td align=center height=20>您的位置</td>"&vbcrlf
				end if
			next
			ScriptWords=ScriptWords& "	</tr>"&vbcrlf
		end if
	next

	ScriptWords=ScriptWords& "	</table>"&vbcrlf

end function 
%>
<form name="linkforward" id="linkforward" action="" method="post" target="_self">
	<input name="forward" type="hidden">
	<input name="ID" type="hidden">
</form>