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

📄 luntan_top.asp

📁 这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代码 可以回出很好玩的帖.本来想把设计架构也发上来的,它在本子上,懒得抄拉
💻 ASP
字号:
 <%
  if session("check")<>1 then
      session("uname")="游客"
  end if 
 %>
<html>
<head>
 
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">


<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
</script>
		 <SCRIPT language="javascript">
		 <!--
		   var second=0;
		   var minute=0;
		   var hour=0;
		   window.setTimeout("staytime():",1000);
		   function staytime()
		   {
		      second++;
		     if (second==60){second=0;minute+=1;}
			 if (minute==60){minute=0;hour+=1;}
			 stay.value=hour+"小时"+minute+"分"+second+"秒";
			 window.setTimeout("staytime();",1000);
			 }
			 //-->
</script>


<link href="css/Style.css" rel="stylesheet" type="text/css">
<META content=CnSohoW设计 name=description>
<style type="text/css">
<!--
.style5 {color: #0000FF}
.style6 {color: #FF0000}
.style7 {font-size: 12px}
-->
</style>
</head>
 

<body onLoad="staytime();">

<table width="747" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#9BC1CA" class="Xsmall">
  <tr align="left" bgcolor="#FFFFFF" >
    <td height="123" colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="171" height="127">
      <param name="movie" value="img/ac.swf">
      <param name="quality" value="high">
      <embed src="img/ac.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="171" height="127"></embed>
    </object>
      您在本论坛逗留了
    <input  type="text" name="stay" size="15" style="border:0 "  ><% response.Write "现在在线"& application("num")&  "人"%></td>
  </tr>
  <form name="form" method="post" action="luntan_denglu.asp" >
   
	<tr bgcolor="#FFFFFF" height="15">
       <td height="15" colspan="3" align="center"> 
	   <%if session("loginname")="" or session("check")=0 then%>会员:
              <input name="uname" type="text" id="uname2" value="<%=session("name")%>" size="10">
          密码:
          <input name="upass" type="password" class="XhSmall" id="upass2" size="10">
          <input name="box1" type="checkbox" id="box12" value="aa">
          记住用户名
          <input name="box2" type="checkbox" id="box22" value="bb">
          保存密码
          <input type="submit" name="Submit" value="登录"> 
		  <%else%>
		  
         <span class="style5">欢迎&gt;&gt; <%=Session("uname")%></span> <span class=" style6"><a href="#" onClick="javascript:open('luntan_sinmessage.asp','','width=500,height=500,resizable,scrollbars')"><font color="#FF0000"><%=session("sinmessage")%></font></a></span> 

		 <%end if %>         </td>
       <td height="15" align="center"><font color="#FF0000">(<a href="zc_xieyi.asp" >注册</a>|<a href="pass_back.asp">忘记密码?</a>) <%=Session("aaa")%></font></td>
	</tr>
	
    <tr bgcolor="#FFFFFF" >
      <td width="140" align="center" background=img/backt.gif class="Xsmall"><a href="#" onClick="javascript:open('luntan_sinmessage.asp','','width=500,height=500,resizable,scrollbars')"></a>首页</td>
      <td width="180" align="center" background=img/backt.gif class="Xsmall">
        <div id=Layer2
                        onMouseOver="MM_showHideLayers('Layer2','','show')" 
                        style="Z-INDEX: 0; VISIBILITY: hidden;  WIDTH: 212px; POSITION: absolute; HEIGHT: 79px; left: 300px; top: 161px;" 
                          onMouseOut="MM_showHideLayers('Layer2','','hide')">
          <table class=bg1 cellspacing=0 cellpadding=0 width=159 border=0>
            <tbody>
              <tr>
                <td width="159" height=20> </td>
              </tr>
              <tr>
                <td valign=top>
                  <table bordercolor=#FFFF66 cellspacing=1 cellpadding=0 width=85 bgcolor=#9BC1CA border=0>
                    <tbody>
                      <tr>
                        <td width="12" rowspan="7" 
                                 valign=bottom bordercolor=#FFFFFF 
                                 bgcolor=#73BCF2 class=bg1
                                 onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                 onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');">
                          <p class="style7">博 </p>
                          <p class="style7">远 </p>
                          <p class="style7">论 </p>
                          <p class="style7">坛 </p></td>
                      <tr>
                        <td class=bg1 
                                onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');" 
                                bordercolor=#FFFFFF bgcolor=#FFFFFF height=12><a href="#" class="style7" onClick="javascript:open('luntan_repass.asp','','width=500,height=500,resizable,scrollbars')">修改密码</a> </td>
                      </tr>
                    <td width="70" height=15 
                                 valign=bottom bordercolor=#FFFFFF 
                                 bgcolor=#FFFFFF class=bg1
                                 onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                 onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');"><a href="#" class="style7" onClick="javascript:open('luntan_reziliao_check.asp','','width=500,height=500,resizable,scrollbars')">个人资料</a> </td>
                    </tr>
                    <tr>
                      <td class=bg1 
                                onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');" 
                                bordercolor=#FFFFFF bgcolor=#FFFFFF height=6><a href="#" class="style7" onClick="javascript:open('luntan_yhziliao.asp','','width=500,height=500,resizable,scrollbars')">资料修改</a> </td>
                    </tr>
                    <tr>
                      <td class=bg1 
                                onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');" 
                                bordercolor=#FFFFFF bgcolor=#FFFFFF height=7><a href="#" class="style7" onClick="javascript:open('luntan_friend.asp','','width=500,height=500,resizable,scrollbars')">好友管理</a></td>
                    </tr>
                    <tr>
                      <td class=bg1 
                                onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');" 
                                bordercolor=#FFFFFF bgcolor=#FFFFFF height=14><a href="#" class="style7" onClick="javascript:open('luntan_friendmessage.asp','','width=500,height=500,resizable,scrollbars')">留言发送</a> </td>
                    </tr>
                    <tr>
                      <td class=bg1 
                                onMouseOver="navbarOver(this,'#6395D1','#000000');" 
                                onMouseOut="navbarOut(this,'#3C79C6','#3C79C6');" 
                                bordercolor=#FFFFFF bgcolor=#FFFFFF height=14><a href="#" class="style7" onClick="javascript:open('luntan_lookmessage.asp','','width=500,height=500,resizable,scrollbars')">留言管理</a></td>
                    </tr>
                    <tr> </tr>
                </table></td>
              </tr>
            </tbody>
          </table>
        </div>
        <a 
                        class=white 
                        onMouseOver="MM_showHideLayers('Layer2','','show')" 
                        onMouseOut="MM_showHideLayers('Layer7','','hide','Layer7','','hide','Layer8','','hide')"> 控制面版</a> </td>
      <td width="185" align="center" background=img/backt.gif class="Xsmall"><a href="#" onClick="javascript:open('luntan_help.asp','','width=500,height=500,resizable,scrollbars')">论坛帮助</a></td>
      <td width="221" height="23" align="center" background=img/backt.gif class="Xsmall"><a href="luntan_out.asp">退出登录</a></td>
    </tr>
  </form>
</table>
</body>
</html>
 
 

⌨️ 快捷键说明

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