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

📄 right.asp

📁 这是ASP的OA
💻 ASP
字号:
<%
dim islogin
if request.Cookies("matrix3")("matrix3_pw")="" or request.Cookies("matrix3")("matrix3_name")="游客" or request.Cookies("matrix3")("matrix3_name")="" then
	islogin=0
else
	islogin=1
end if
%>
<iframe width=0 height=0 src="" id="refreshframe"></iframe>
<table width="100" border="0" cellspacing="0" cellpadding="0">
  <form method="post" action="login.asp?nt=<%=now()%>" name="loginform" id="loginform" onSubmit="checklogin();return false;">
    <tr> 
      <td colspan="3">&nbsp;</td>
    </tr>
    <%if islogin=1 then %>
	<tr> 
      <td bgcolor="#D9D3B4" colspan="3" height="1"></td>
    </tr>
	<tr bgcolor="#E8E4D0"> 
      <td colspan="3" height="20">&nbsp; 
        欢迎,<b><%=request.Cookies("matrix3")("matrix3_name")%></b>
      </td>
    </tr>
	<%end if%>
	<tr> 
      <td bgcolor="#D9D3B4" colspan="3" height="1"></td>
    </tr>
	<tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="#" onClick="m3player()"><font color="#FF0000">M3播放器</font></a></td>
      <td>&nbsp;</td>
    </tr>
    <%if islogin=0 then%>
	<tr> 
      <td bgcolor="#D9D3B4" colspan="3" height="1"></td>
    </tr>
    <tr> 
      <td width="10" bgcolor="#E8E4D0">&nbsp;</td>
      <td width="124" bgcolor="#E8E4D0" class="v7"> 帐号:<br> <input name="name" type="text" class="input1" id="name" size="11" maxlength="30"> 
        <br>
        密码:<br> <input name="password" type="password" class="input1" size="11" maxlength="30"> 
        <br>
        验证码: <br> <input name="checkcode" type="text" class="input1" id="checkcode" size="4" maxlength="4"> 
        <img src="ImageCode.asp?nt=<%=now()%>" align="absmiddle"><br> <select name="CookieDate" id="CookieDate" class="select">
          <option value="0" selected>不保存</option>
          <option value="1">保存一天</option>
          <option value="2">保存一月</option>
          <option value="3">保存一年</option>
        </select> </td>
      <td width="12" bgcolor="#E8E4D0">&nbsp;</td>
    </tr>
    <tr> 
      <td width="10" bgcolor="#E8E4D0">&nbsp;</td>
      <td width="124" height="30" bgcolor="#E8E4D0"> <input name="imageField2" type="image" src="images/login.gif" width="48" height="18" border="0"> 
      </td>
      <td width="12" bgcolor="#E8E4D0">&nbsp;</td>
    </tr>
    <%end if%>
    <tr> 
      <td colspan="3" bgcolor="#D9D3B4" height="1"></td>
    </tr>
    <tr> 
      <td colspan="3" height="5"></td>
    </tr>
    <%if islogin=0 then%>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="register.asp"><font color="#0000FF">注册帐号</font></a></td>
      <td>&nbsp;</td>
    </tr>
    <script language="JavaScript">
				<!--
				document.loginform.name.focus();
				function checklogin()
				{
					if(document.loginform.name.value=="")
					{
						alert("请先填写帐号名!");
						document.loginform.name.focus();
						return false;
					}
					if(document.loginform.password.value=="")
					{
						alert("请填写密码!");
						document.loginform.password.focus();
						return false;
					}
					if(document.loginform.checkcode.value=="")
					{
						alert("请输入验证码");
						document.loginform.checkcode.focus();
						return false;
					}
					document.loginform.submit();
					return true;
				}
				-->
				</script>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="newpost.asp">论坛新帖</a></td>
      <td>&nbsp;</td>
    </tr>
	<%else%>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7">
        <%
dim tmpsql2,tmprs3,tmpn
tmpn=0
call opendb()
if cint(userlevel())<1 then
	response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>我的信箱</a>")
else
	tmpsql2="select count(id) from m3_message where to1='"&request.Cookies("matrix3")("matrix3_name")&"' and owner='"&request.Cookies("matrix3")("matrix3_name")&"' and valid=1 and isnew=1"
	set tmprs3=conn.execute(tmpsql2) 
	tmpn=tmprs3(0) 
	set tmprs3=nothing 
	if isnull(tmpn) then tmpn=0
	if cint(tmpn)>cint(0) then
		response.Write("<bgsound src='images/mail.wav' border=0>")
		response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>新邮件(<font color=red><b>"&tmpn&"</b></font>)</a>")
	else
		response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>我的信箱</a>")
	end if
end if
call closedb()
%>
      </td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="myprofile.asp">个人资料</a></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="changepwd.asp">更改密码</a></td>
      <td>&nbsp;</td>
    </tr>
    <%end if%>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="javascript:history.back()">回上一页</a></td>
      <td>&nbsp;</td>
    </tr>
    <%if islogin=1 then%>
    <tr> 
      <td width="10">&nbsp;</td>
      <td width="124" height="20" class="v7"> <img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="logout.asp">退出论坛</a></td>
      <td width="12">&nbsp;</td>
    </tr>
    <%if request.Cookies("matrix3")("matrix3_admin")="matrix3" then%>
    <tr> 
      <td width="10">&nbsp;</td>
      <td width="124" height="20" class="v7"> <img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="matrix3_admin.asp">后台管理</a></td>
      <td width="12">&nbsp;</td>
    </tr>
    <%end if%>
    <%else%>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="pwlookup.asp">找回密码</a></td>
      <td>&nbsp;</td>
    </tr>
    <%end if%>
    <tr> 
      <td>&nbsp;</td>
      <td height="20" class="v7"><img src="images/btn_face.gif" width="10" height="7" align="absmiddle"><a href="index.asp">论坛首页</a></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="3" height="1" bgcolor="#D9D3B4"></td>
    </tr>
  </form>
</table>
<script language="JavaScript">
var today=new Date();
function active()
{	
	document.frames["refreshframe"].location.replace("online_active.asp?rand="+today.getTime()+"");
}
setInterval(active,180000);
function m3player()
{
	window.open('M3player.asp','','width=349,height=314,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no');
	return false;
}
</script>

⌨️ 快捷键说明

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