<%
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("/QQ/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_name")
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="topbar">
<table cellspacing="1" cellpadding="2" border="0">
		<tr>
			<td>
			<style type="text/css">
			#topbar{
position:absolute;
padding: 2px;
width: 100px;
visibility: hidden;
z-index: 100;
top:600px;
font-size: 12px;
}
			BODY {
	MARGIN: 0px
}
</style>
			<table cellspacing="0" cellpadding="0" width="118" align="center" border="0">
				<tr>
					<td>
					<img height="160" alt="" src="http://ad.liangjing.org/img/servicepic_01.jpg" width="118" border="0" name="servicepic_01"></td>
				</tr>
				<tr>
					<td>
					<table cellspacing="0" cellpadding="0" width="118" align="left" border="0">
					<%

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)
%>
						<tr>
							<td background="images/servicepic_02.jpg">
							<img height="25" alt="" src="images/servicepic_02.jpg" width="14" border="0" name="servicepic_02"></td>
							<td align="middle" width="89" bgcolor="#f8f6f7" height="25">
							<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></td>
							<td background="images/servicepic_04.jpg">
							<img height="25" alt="" src="images/servicepic_04.jpg" width="15" border="0" name="servicepic_04"></td>
						</tr>
						<%next%>
					</table>
					</td>
				</tr>
				<tr>
					<td>
					<img height="17" alt="" src="images/servicepic_05.jpg" width="118" border="0" name="servicepic_05"></td>
				</tr>
				<tr>
					<td>
					<table cellspacing="0" cellpadding="0" width="118" align="left" border="0">
						<tr>
							<td background="images/servicepic_06.jpg">
							<img height="24" alt="" src="images/servicepic_06.jpg" width="14" border="0" name="servicepic_06"></td>
							<td align="middle" width="89" bgcolor="#f8f6f7" height="24">
							<a href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>" target="_blank">
							<img alt="点击这里给我发消息" src="images/msn.gif" border="0">MSN交谈</a></td>
							<td background="images/servicepic_08.jpg">
							<img height="24" alt="" src="images/servicepic_08.jpg" width="15" border="0" name="servicepic_08"></td>
						</tr>
						<tr>
							<td background="images/servicepic_06.jpg">　</td>
							<td align="middle" bgcolor="#f8f6f7" height="35">
							<table cellspacing="1" cellpadding="2" width="88%" align="center" bgcolor="#ffa800" border="0">
								<tr>
									<td align="middle" bgcolor="#ffffff">
									<a href="MessageList.asp" target="_blank">
									<span style="font-size: 9pt">站点留言簿</span></a></td>
								</tr>
							</table>
							</td>
							<td background="images/servicepic_08.jpg">　</td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td>
					<img height="22" alt="" src="images/servicepic_09.gif" width="118" border="0" name="servicepic_09"></td>
				</tr>
			</table>
			</td>
			
		</tr>
		
	</table>
</DIV>
<%
if whereqq=1 then
%>
<script type="text/javascript">
var persistclose=0
var startX = 2
var startY = 100
var verticalpos="fromtop"
var online= new Array();

function iecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function get_cookie(Name) {
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1) end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}

function closebar(){
if (persistclose)
document.cookie="remainclosed=1"
document.getElementById("topbar").style.visibility="hidden"
}

function staticbar(){
	barheight=document.getElementById("topbar").offsetHeight
	var ns = (navigator.appName.indexOf("Netscape") != -1) || window.opera;
	var d = document;
	function ml(id){
		var el=d.getElementById(id);
		if (!persistclose || persistclose && get_cookie("remainclosed")=="")
		el.style.visibility="visible"
		if(d.layers)el.style=el;
		el.sP=function(x,y){this.style.left=x+"px";this.style.top=y+"px";};
		el.x = startX;
		if (verticalpos=="fromtop")
		el.y = startY;
		else{
		el.y = ns ? pageYOffset + innerHeight : iecompattest().scrollTop + iecompattest().clientHeight;
		el.y -= startY;
		}
		return el;
	}
	window.stayTopLeft=function(){
		if (verticalpos=="fromtop"){
		var pY = ns ? pageYOffset : iecompattest().scrollTop;
		ftlObj.y += (pY + startY - ftlObj.y)/8;
		}
		else{
		var pY = ns ? pageYOffset + innerHeight - barheight: iecompattest().scrollTop + iecompattest().clientHeight - barheight;
		ftlObj.y += (pY - startY - ftlObj.y)/8;
		}
		ftlObj.sP(ftlObj.x, ftlObj.y);
		setTimeout("stayTopLeft()", 10);
	}
	ftlObj = ml("topbar");
	stayTopLeft();
}

if (window.addEventListener)
window.addEventListener("load", staticbar, false)
else if (window.attachEvent)
window.attachEvent("onload", staticbar)
else if (document.getElementById)
window.onload=staticbar
</script>
<%else%>
<script type="text/javascript">

var persistclose=0
var startX =screen.width-165
var startY = 100
var verticalpos="fromtop"
var online= new Array();

function iecompattest(){
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}

function get_cookie(Name) {
var search = Name + "="
var returnvalue = "";
if (document.cookie.length > 0) {
offset = document.cookie.indexOf(search)
if (offset != -1) {
offset += search.length
end = document.cookie.indexOf(";", offset);
if (end == -1) end = document.cookie.length;
returnvalue=unescape(document.cookie.substring(offset, end))
}
}
return returnvalue;
}

function closebar(){
if (persistclose)
document.cookie="remainclosed=1"
document.getElementById("topbar").style.visibility="hidden"
}

function staticbar(){
	barheight=document.getElementById("topbar").offsetHeight
	var ns = (navigator.appName.indexOf("Netscape") != -1) || window.opera;
	var d = document;
	function ml(id){
		var el=d.getElementById(id);
		if (!persistclose || persistclose && get_cookie("remainclosed")=="")
		el.style.visibility="visible"
		if(d.layers)el.style=el;
		el.sP=function(x,y){this.style.left=x+"px";this.style.top=y+"px";};
		el.x = startX;
		if (verticalpos=="fromtop")
		el.y = startY;
		else{
		el.y = ns ? pageYOffset + innerHeight : iecompattest().scrollTop + iecompattest().clientHeight;
		el.y -= startY;
		}
		return el;
	}
	window.stayTopLeft=function(){
		if (verticalpos=="fromtop"){
		var pY = ns ? pageYOffset : iecompattest().scrollTop;
		ftlObj.y += (pY + startY - ftlObj.y)/8;
		}
		else{
		var pY = ns ? pageYOffset + innerHeight - barheight: iecompattest().scrollTop + iecompattest().clientHeight - barheight;
		ftlObj.y += (pY - startY - ftlObj.y)/8;
		}
		ftlObj.sP(ftlObj.x, ftlObj.y);
		setTimeout("stayTopLeft()", 10);
	}
	ftlObj = ml("topbar");
	stayTopLeft();
}

if (window.addEventListener)
window.addEventListener("load", staticbar, false)
else if (window.attachEvent)
window.attachEvent("onload", staticbar)
else if (document.getElementById)
window.onload=staticbar

</script>

<%
end if
end If
Set connQQ=Nothing 
%>
