F_QQ.asp 乘风网站推广系统 3.99 (acc)码程序 - ASP源码程序

www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > CF_QQ.asp
    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<!--#Include File="Conn.asp"-->
<!--#include File="CF_MyFunction.asp"-->
<%If RsSet("QQShow")=-1 Then%>
<%
Tmp=HttpPath(2)

Action=Request("Action")

If Action="" Then

MyArray=split(RsSet("QQCode"),",")
QQHeight=100+UBound(MyArray)*23

MyStr="<DIV id=qq_right style='right:2px;POSITION:absolute;TOP:0px;z-index:111111;border:0px solid #C9DDF0;width:108px;visibility:hidden;'><iframe src='"&Tmp&"CF_QQ.asp?Action=qqcodeget' frameBorder=0 width=108 height="&QQHeight&" marginheight=0 marginwidth=0 scrolling=no></iframe></div>"
MyStr_2=MyStr_2&"suspendcode="""&MyStr&""";"&chr(13)&chr(10)
MyStr_2=MyStr_2&"document.write(suspendcode); "&chr(13)&chr(10)
MyStr_2=MyStr_2&"var m_layer1,m_layer2;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"function initMove() {"&chr(13)&chr(10)
MyStr_2=MyStr_2&"m_layer2=document.getElementById('qq_right');"&chr(13)&chr(10)
MyStr_2=MyStr_2&"m_layer2.style.top = '-200px';"&chr(13)&chr(10)
MyStr_2=MyStr_2&"m_layer2.style.visibility = 'visible'"&chr(13)&chr(10)
MyStr_2=MyStr_2&"MoveLayers();"&chr(13)&chr(10)
MyStr_2=MyStr_2&"window.onscroll=MoveLayers;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"}"&chr(13)&chr(10)
MyStr_2=MyStr_2&"function MoveLayers() {"&chr(13)&chr(10)
MyStr_2=MyStr_2&"var x = 5; "&chr(13)&chr(10)
MyStr_2=MyStr_2&"var y = document.documentElement.clientHeight-360;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"var st=document.documentElement.scrollTop;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"var cw=document.documentElement.clientWidth;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"var y = st + y;"&chr(13)&chr(10)
MyStr_2=MyStr_2&"m_layer2.style.top = y+'px';"&chr(13)&chr(10)
MyStr_2=MyStr_2&"m_layer2.style.left = cw-m_layer2.clientWidth-x+'px';"&chr(13)&chr(10)
MyStr_2=MyStr_2&"}"&chr(13)&chr(10)
MyStr_2=MyStr_2&"window.setTimeout('initMove()',600);"&chr(13)&chr(10)
Response.write MyStr_2
End If%>


<%If Action="qqcodeget" Then%>
<body style='margin:0; padding:0;'>
<TABLE cellSpacing=0 cellPadding=0 width=110 border=0>
  <TBODY>
    <TR> 
      <TD width=110><IMG src='<%=Tmp%>images/kefu_up.jpg' border=0></TD>
    </TR>
    <TR>
     <TD vAlign=center background='<%=Tmp%>images/kefu_middle.jpg'>
<%
MyArray=split(RsSet("QQCode"),"|")

For I=0 to UBound(MyArray)

 MyArray_2=Split(MyArray(I),",")

 Response.Write "&nbsp;<a href='tencent://message/?uin="&MyArray_2(0)&"&Site="&RsSet("SysTitle")&"&Menu=yes' title='"&RsSet("SysTitle")&"'><img src=http://wpa.qq.com/pa?p=1:"&MyArray_2(0)&":4 border=0 align=middle><span style='font-size:12px;'>"&MyArray_2(1)&"</span></a><br>"
Next
%>
</TD>
    </TR>
    <TR> 
      <TD width=110><IMG src='<%=Tmp%>images/kefu_down.jpg' border=0></TD>
    </TR>
  </TBODY>
</TABLE>
<%End If%>

<%End If%>

<%connclose()%>