WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

QQShow.asp：源码内容
							<%
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
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
%>
<script language="javascript">
var online= new Array();
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</script>
<layer id="divStayTopLeft">
<table border="0" cellspacing="0" cellpadding="0">
<tr><td><img border=0 src=images/qq/up<%=kefuskin%>.gif></td></tr>
<script src="http://webpresence.qq.com/getonline?Type=1&<%=Myqq%>"></script>
<tr><td>
<table width=118 border=0 bgcolor=#FFFFFF background=images/qq/mid<%=kefuskin%>.gif>
<%
for N=0 to UBound(QQ)
%>
<script>
if (online[<%=n%>]==0)
document.write("<tr><td align=right><a class='c'target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&amp;Site=&Menu=no'><img alt='<p align=left><%=qqmsg_off%>'src=images/qq/QQoff<%=qqskin%>.gif border=0 align=middle></a></td><td><a class='c'target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=&Menu=no'alt='<p align=left><%=qqmsg_off%>'><%=QQ_name(n)%></a></td></tr>");
else
document.write("<tr><td align=right><a class='b'target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=&Menu=no'><img alt='<p align=left><%=qqmsg_on%>'src=images/qq/QQon<%=qqskin%>.gif border=0 align=middle></a></td><td><a class='b'target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=&Menu=no'alt='<p align=left><%=qqmsg_on%>'><%=QQ_name(n)%></a></td></tr>");
</script >
<%next%>
<tr><td align=right><a target=blank href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>"><img border="0" SRC="images/msn.gif" alt="<%=msn_name%>"></a></td><td><a target=blank href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>"><%=msn_name%></a></td></tr>
</table></td></tr>
<tr><td><img border=0 src=images/qq/down<%=kefuskin%>.gif></td></tr>
</table>
</layer>
<%
if whereqq=1 then
%>
<script type="text/javascript">
var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
	var startX =2,
	startY = 220;
	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();
</script>
<%else%>
<script type="text/javascript">
var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
	var startX =screen.width-140,
	startY = 220;
	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();
</script>
<%
end if
end If
Set connQQ=Nothing 
%>

						