qqshow.asp

生成html的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

%>
<!-- 左隐藏菜单开始 -->
<script language="JavaScript1.2">

function move(x, y) {
if (document.all) {
object1.style.pixelLeft += x;
object1.style.pixelTop  += y;}
else
if (document.layers) {
document.object1.left += x;
document.object1.top  += y;
}};

function position() {
document.object1.left += -200;
document.object1.top  += 0;
document.object1.visibility = "show"
};

function makeStatic() {
if (document.all) {object1.style.pixelTop=document.documentElement.scrollTop+100}
else {eval('document.object1.top=eval(window.pageYOffset+20)');}
setTimeout("makeStatic()",0);}

</script>
<!-- 左隐藏菜单结束 -->
<!-- 左隐藏菜单BIG -->

<layer class="NS" onmouseover="move(580,0)" onmouseout="move(-580, 0)" top="20" visibility="hide" name="object1" left="0">
<script language="JavaScript1.2">
if (document.all)
document.write('<DIV ID="object1" style="Position : Absolute ;Left : -125px ;Top : 20px ;Width : 0px ;Z-Index : 20">')
</script>
<table onmouseover="move(120,0)" onmouseout="move(-120, 0)" cellspacing="1" cellpadding="2" border="0">
  <tr>
    <td><style type="text/css">
BODY {
	MARGIN: 0px
}
</style>
      <table cellspacing="0" cellpadding="0" width="118" align="center" border="0">
        <tr>
          <td><img height="160" alt="" src="images/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">
              <%
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
%>
              <%
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='http://wpa.qq.com/msgrd?V=1&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='http://wpa.qq.com/msgrd?V=1&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>
    <td valign="top" align="middle" width="12" rowspan="100"><img height="109" src="images/kefu.gif" width="20"> </td>
  </tr>
  <script language="JavaScript1.2">
<!--
if (document.all||document.layers)
makeStatic();

if (document.layers) {
window.onload=position;
}

var sitems=new Array();
var sitemlinks=new Array();

function hl(n) {
n.className='hl'}
function n(h) {
h.className='n'}
//--></script>
</table>
<script language="JavaScript1.2">
if (document.all)
document.write('<\/DIV>')
</script>
</layer>
<!-- 左隐藏菜单END -->
<%
end if
Set connQQ=Nothing
%>