<%
Dim connQQstr,connQQ,rssetupQQ,qqonline,adm_qq,adm_qq_name,whereqq,kefuskin,qqskin,qqmsg_on,qqmsg_off,QQ_NAME,QQ,MyQQ,N,sitename
connQQstr = "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&SERVER.MAPPATH("../Angelqq/QQ.mdb")
Set connQQ=server.CreateObject("adodb.connection")
connQQ.Open connQQstr
%>

<%
'此文件不需要作任何修改
Set rssetupQQ=connQQ.execute("select * from QQsetup") 
qqonline=rssetupQQ("qqonline")
adm_qq= rssetupQQ("adm_qq")
adm_qq_name= rssetupQQ("adm_qq_enname")
whereqq=rssetupQQ("whereqq")
kefuskin=rssetupQQ("kefuskin")
qqskin=rssetupQQ("qqskin")
qqmsg_on=rssetupQQ("qqmsg_on")
qqmsg_off=rssetupQQ("qqmsg_off")
msn= rssetupQQ("msn")
msn_name= rssetupQQ("msn_name")
set rssetupQQ=Nothing

%>
<!-- 左隐藏菜单开始 -->
<%if adm_qq<>"" and qqonline=1 then%>
<div id="KeFuDiv" class="KeFuDiv">
  <div><img src="images/up_001.gif" height="55" border="0" usemap="#Map" style="cursor:move;" onmousedown="MoveDiv(KeFuDiv,event);" title="QQ"></div>

  <div class="KeFuList">
    <div class="KeFuTitle">On Service</div>
					<%

adm_qq=replace(adm_qq,"，",",")
if isnull(adm_qq_name) or adm_qq_name="" then adm_qq_name=adm_qq
adm_qq_name=replace(adm_qq_name,"，",",")
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
%>
<%
for N=0 to UBound(QQ)
%>
    <div class="KeFuItem">
	<a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&amp;Site=&Menu=no'><img alt='<p align=left><%=qqmsg_off%>'src=images/qq/QQon<%=qqskin%>.gif border=0 align=middle></a>
<a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=&Menu=no'alt='<p align=left><%=qqmsg_off%>'><%=QQ_name(n)%></a>
    </div>

<%next%>



    <div class="KeFuItem">
  	<a href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>" target="_blank"><img alt="点击这里给我发消息" src="images/msn.gif" border="0">MSN chat</a>
    </div>
  </div>

  <div><img src="images/bot_001.gif" border="0"></div>

  <map name="Map" id="Map">
    <area shape="circle" coords="105,10,8" href="javascript:" onclick="KeFuDiv.style.display='none';" title="关闭"/>
  </map>
</div>

<script>
//初始位置
gID("KeFuDiv").style.top = (document.documentElement.clientHeight - gID("KeFuDiv").offsetHeight)/3 +"px";
gID("KeFuDiv").style.left = document.documentElement.clientWidth - gID("KeFuDiv").offsetWidth +"px";
//开始滚动
ScrollDiv('KeFuDiv');
</script>
<%
if whereqq=1 then
%>
<%else%>
<%
end if
end If
Set connQQ=Nothing 
%>
