qqcf_qq.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#include File="QQCF_Conn.asp"-->
<!--#include File="QQCF_MyFunction.asp"-->
<%If RsSet("QQShow")=-1 Then%>
<%
Tmp=HttpPath(2)
%>
<%If Request("Action")="" Then%>
var online= new Array();
<%
QQCode_2=RsSet("QQ_Code")&","
QQCode=Replace(QQCode_2,",",":")
QQCode_2=Left(QQCode_2,Len(QQCode_2)-1)
%>
document.write("<script src='http://webpresence.qq.com/getonline?Type=1&<%=QQCode%>'></script>");
document.write("<script src='<%=Tmp%>qqcf_qq.asp?Action=getcode&QQ=<%=QQCode_2%>'></script>");
<%End If%>

<%If Request("Action")="getcode" Then%>
if (!document.layers)
document.write("<div id='divStayTopLeft' style='position:absolute'>");
document.write("<LAYER left='624' top='2215' id=divStayTopLeft>");
document.write("<TABLE cellSpacing=0 cellPadding=0 width=110 border=0>");
document.write("  <TBODY>");
document.write("    <TR> ");
document.write("      <TD width=110><IMG src='<%=Tmp%>QQCF_Pic/kefu_up.jpg' border=0></TD>");
document.write("    </TR>");
document.write("    <TR>");
document.write("     <TD vAlign=center background='<%=Tmp%>QQCF_Pic/kefu_middle.jpg'>");


<%
adm_qq=Request("QQ")
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
%>
<% for N=0 to UBound(QQ) %>
if (online[<%=n%>]==1){
document.write("&nbsp;<img src=QQCF_Pic/QQOnline.gif border=0 align=middle><a href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='QQ在线上' target=blank ><font color=ff0000><span style='font-size:12px;'><%=QQ(n)%> 在线</span></font></a><br>");
}else{
document.write("&nbsp;<img src=QQCF_Pic/QQOffline.gif border=0 align=middle><a href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='QQ不在线'><font color=000000><span style='font-size:12px;'><%=QQ(n)%> 留言</span></font></a><br>");
}
<%next%>
document.write("</TD>");
document.write("    </TR>");
document.write("    <TR> ");
document.write("      <TD width=110><IMG src='QQCF_Pic/kefu_down.jpg' border=0></TD>");
document.write("    </TR>");
document.write("  </TBODY>");
document.write("</TABLE>");
document.write("</LAYER>");


var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
	var startX =3,
	startY = 280;
	var ns = (navigator.appName.indexOf("Netscape") != -1);
	var d = document;
	function ml(id)
	{
		var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
		if(d.layers)el.style=el;
		el.sP=function(x,y){this.style.left=x;this.style.top=y;};
		el.x = startX;
		if (verticalpos=="fromtop")
		el.y = startY;
		else{
		el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		el.y -= startY;
		}
		return el;
	}
	window.stayTopLeft=function()
	{
		if (verticalpos=="fromtop"){
		var pY = ns ? pageYOffset : document.body.scrollTop;
		ftlObj.y += (pY + startY - ftlObj.y)/8;
		}
		else{
		var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		ftlObj.y += (pY - startY - ftlObj.y)/8;
		}
		ftlObj.sP(ftlObj.x, ftlObj.y);
		setTimeout("stayTopLeft()", 10);
	}
	ftlObj = ml("divStayTopLeft");
	stayTopLeft();
}
JSFX_FloatTopDiv();
<%End If%>
<%End If%>

<%connclose()%>