⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asp

📁 ASP仿QQ程序 web版的
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<style type="text/css">
<!--
.sbut {
	background-repeat: no-repeat;
	background-position: center center;
	margin: 0px;
	padding: 0px;
	height: 20px;
	width: 20px;
	border: 1px solid #D6D3CE;
	cursor: hand;
}
.main {
	border: none;
	height: 400px;
	width: 94px;
	border-spacing : 2px; 
}
-->
</style>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT>
<title>衢州博爱医院在线聊天系统</title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main1.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
var temp=1;
function setstyle(d)
{
if(d!=temp)
{
  switch(temp)
  {
case 1: b1.className="sbut"; break;
case 2: b2.className="sbut"; break;
case 3: b3.className="sbut"; break;
case 4: b4.className="sbut"; break;
  }
}
 switch (d)
 {
case 1: if(b1.className="but-s")   b1.className="butdown-s";  else b1.className="but-s"; temp=1; break;
case 2: if(b2.className="but-s")   b2.className="butdown-s";  else b2.className="but-s"; temp=2; break;
case 3: if(b3.className="but-s")   b3.className="butdown-s";  else b3.className="but-s"; temp=3; break;
case 4: if(b4.className="but-s")   b4.className="butdown-s";  else b4.className="but-s"; temp=4; break;
}
}
function mover(id){
var id;
if(id.className=="sbut")
id.className="but-s";
}
function mout(id){
var id;
if(id.className=="but-s")
id.className="sbut";
}
function show(url,w,h,t,l,s){
window.open(url,"","width="+w+",height="+h+",resizable=0,top="+t+",left="+l+",toolbar=no, menubar=no, scrollbars="+s+", resizable=no, location=no, status=no");
}
<%
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if not instr(thesoft,"MSIE 6") then
response.Write("function exitask(){if(confirm('是否退出衢州博爱QQ聊天系统?','退出提示')){parent.location.href='exit.asp?id="&session("nmb")&"'}}")
end if
%>
</script>
</head>
<body scroll="no" oncontextmenu="return false" ondragstart="return false" onselectstart="return false" onkeydown='if((event.ctrlKey)||(event.keyCode==116)){event.keyCode=0;return false}' <%if instr(thesoft,"MSIE 6") then response.Write("onUnload=show('exit.asp?id="&session("nmb")&"',10,10,-100,-100,0)")%>>
<bgsound id="psd" name="psd" src="" loop="1">
<table class="main">
  <tr align="center" bordercolor="#CCCCCC"> 
    <td height="20" colspan="2" bordercolor="#D4D0C8"><table border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
        <tr> 
          <td background="image/skin/01.gif" class="butdown-s" id="b1" title="好友列表" onclick="document.list.location.href='list.asp';psd.src='sound/02.wav'" onMouseDown="setstyle(1)" onMouseOver="mover(b1)" onMouseOut="mout(b1)">&nbsp;</td>
          <td background="image/skin/fun.gif" class="sbut" id="b2" title="娱乐频道" onclick="document.list.location.href='fun.asp';psd.src='sound/02.wav'" onMouseDown="setstyle(2)" onMouseOver="mover(b2)" onMouseOut="mout(b2)">&nbsp;</td>
          <td background="image/skin/03.gif" class="sbut" id="b3" title="网络工具" onclick="document.list.location.href='tools.asp';psd.src='sound/02.wav'" onMouseDown="setstyle(3)" onMouseOver="mover(b3)" onMouseOut="mout(b3)">&nbsp;</td>
          <td background="image/skin/04.gif" class="sbut" id="b4" title="友情链接" onclick="document.list.location.href='link.asp';psd.src='sound/02.wav'" onMouseDown="setstyle(4)" onMouseOver="mover(b4)" onMouseOut="mout(b4)">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="346" colspan="2" class="tddown"> 
      <iframe src="list.asp" name="list" width="100%" marginwidth="0" height="100%" marginheight="0" scrolling="no" frameborder="0" hspace="0" vspace="0">&nbsp;</iframe></td>
  </tr>
  <tr align="center"> 
    <td width="50%" height="18" class="butdown">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center" bordercolor="#D4D0C8" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''" onClick=show("gl/del.asp",415,235,220,220,10)><img src="image/skin/01.gif" width="16" height="16" border="0" align="absmiddle">管理</td>
        </tr>
      </table></td>
    <td width="50%" height="18" class="butdown">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
        <tr> 
          <td bordercolor="#D4D0C8" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''" onClick=show("find.asp",400,300,200,200,0)><img src="image/skin/2.gif" width="16" height="16" border="0" align="absmiddle">查找</td>
        </tr>
      </table></td>
  </tr>
  <tr align="center"> 
    <td width="50%" height="18" class="butdown">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="center" bordercolor="#D4D0C8" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''" onClick=show("http://www.zjboai.com/qq/login.asp",280,160,0,0,1)><img src="image/skin/3.gif" width="16" height="16" align="absmiddle">注册</td>
        </tr>
      </table></td>
    <td width="50%" height="18" class="butdown">
<table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0">
        <tr> 
          <td bordercolor="#D4D0C8" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''" onClick="show('pubmsg.asp',400,220,100,200,0);pubmsg.src='image/skin/4.gif'"><img src="image/skin/4.gif" width="16" height="16" border="0" align="absmiddle" id="pubmsg">消息</td>
        </tr>
      </table></td>
  </tr>
  <tr align="center"> 
    <td height="20" colspan="2"><table width="100%" height="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
        <tr align="center">
          <td width="25%" title="好友管理" onClick="show('adminf.asp',500,270,200,300,0)" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''"><img src="image/skin/friend.gif" width="16" height="16"></td>
          <td width="25%" title="资料修改" onClick="show('changeinfo.asp',380,230,200,300,0)" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''"><img src="image/skin/change.gif" width="16" height="15"></td>
          <td width="25%" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''">&nbsp;</td>
          <td width="25%" title="按F1 帮助" onClick="show('help.html',700,420,100,50,1)" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOver="this.className='but'" onMouseOut="this.className=''"><img src="image/skin/Help.gif" width="16" height="16"></td>
        </tr></table></td></tr></table><iframe src="refresh.asp" width="0" marginwidth="0" height="0" marginheight="0" scrolling="no" hspace="0" vspace="0"></iframe></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -