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

📄 topold.asp

📁 网佳网络办公系统(以下简称OA)是一套基于B/S模式的无纸化办公系统。[显著特点:无须安装客户端] 主要功能模块:管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个人办公室
💻 ASP
字号:
<HTML><HEAD>
<meta http-equiv="Content-Language" content="en-us">
<TITLE>OAsystem</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/style.css" rel=stylesheet>
<SCRIPT language=javascript src="images/menu.js"></SCRIPT>
<!---
<SCRIPT language=javascript src="images/func.js"></SCRIPT>
//---->
<SCRIPT language=JavaScript type=text/JavaScript>
<!--
var _pos = 0;
var fb = "top";

function ChageImg( obj, bkobj, gifsrc, status, pos )
{
	if( pos == _pos )
		return;
	if( status == 1 )		//mouse over
	{
		obj.src = gifsrc;
		bkobj.background="images/bovr.gif";
	}
	if( status == 2 )		//click in
	{
		obj.src = gifsrc;
		bkobj.background="images/bsel.gif";
	}
	if( status == 0 )		//mouse out
	{
		obj.src = gifsrc;
		bkobj.background = "";
	}
}

function OnClick( status )
{
	if( _pos == status )
		return;
	
	if( status != 6 )
	{	
		_pos = 0;
		ChageImg( Image1, safeimg,  'images/ico1_1.gif', 0, 1 );
		ChageImg( Image2, privatimg,'images/ico2_1.gif', 0, 2 );
		ChageImg( Image3, quickimg, 'images/ico3_1.gif', 0, 3 );
		ChageImg( Image4, adimg,    'images/ico4_1.gif', 0, 4 );
		ChageImg( Image5, searchimg,'images/ico5_1.gif', 0, 5 );
		ChageImg( Image6, infoimg,  'images/ico6_1.gif', 0, 6 );
	}

	if( status == 1 )
	{
		window.parent.main.location = "jj2.asp";
		ChageImg( Image1, safeimg, 'images/ico1_2.gif', 2, 1 );
	}
	if( status == 2 )
	{
		window.parent.main.location = "wenjian/default.asp";
		ChageImg( Image2, privatimg, 'images/ico2_2.gif', 2, 2 );
	}
	if( status == 3 )
	{
		window.parent.main.location = "daiban/index.asp";
		ChageImg( Image3, quickimg, 'images/ico3_2.gif', 2, 3 );
	}
	if( status == 4 )
	{
		window.parent.main.location = "shenpi/duanxinlist.asp";
		ChageImg( Image4, adimg, 'images/ico4_2.gif', 2, 4 );
	}
	if( status == 5 )
	{
		window.parent.main.location = "userinfo.asp";
		ChageImg( Image5, searchimg, 'images/ico5_2.gif', 2, 5 );
	}
	if( status == 6 )
	{
		window.parent.main.location = "config/ghost.asp";
		ChageImg( Image6, infoimg, 'images/ico6_2.gif', 2, 6 );
	}
	_pos = status;
	fb = "top";
	return;	
}

setURLArgument()

//-->
</SCRIPT>

<SCRIPT language=vbscript>
function OnInit()
	
	On Error Resume Next
	temp = getURL( "type" )
	fb=getURL( "fb" )
	Select Case temp
	    Case "clean" 	toppos = 2
	    Case "security" 	toppos = 1
	    Case "catch" 	toppos = 4
	    Case "garbage" 	toppos = 3
	    case "cleanie"	toppos = 2
	    case "keepie"	toppos = 1
	    case "autoclean"	toppos = 2
	    case "safe"		toppos = 1
	    case "private"	toppos = 2
	    case "quick"	toppos = 3
	    case "ad"		toppos = 4
	    case "search"	toppos = 5
	    case "run"		toppos = 3
	    case "browser" 	toppos = 3
	    Case Else  		
	    	if InStr( temp, "safe" ) then
	    		toppos = 1
	    	end if
	    	if InStr( temp, "prvc" ) then
	    		toppos = 2
	    	end if
	    	if InStr( temp, "acel" ) then
	    		toppos = 3
	    	end if
	    	if InStr( temp, "noad" ) then
	    		toppos = 4
	    	end if
	    	if InStr( temp, "srch" ) then
	    		toppos = 5
	    	end if
'	    			toppos = 1
	End Select  
	 

    OnClick(toppos)
End Function
</SCRIPT>

<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<base target="main">
</HEAD>
<BODY oncontextmenu=self.event.returnValue=false bgColor=#ffffff leftMargin=0 topMargin=0 onload=vbscript:OnInit() 
rightMargin=0 marginheight="0" marginwidth="0">
<TABLE height=101 cellSpacing=0 cellPadding=0 width="100%" bgColor=#c1d7f4 
background=images/b1.gif border=0>
  <TBODY>
  <TR>
    <TD width=8 rowSpan=3><IMG height=101 src="images/l1.gif" width=8></TD>
    <TD height=14> </TD>
    <TD height=14><IMG height=1 src="images/c.gif" width=69></TD>
    <TD height=14><IMG height=1 src="images/c.gif" width=562></TD>
    <TD width=8 rowSpan=3><IMG height=101 src="images/r1.gif" 
width=8></TD></TR>
  <TR>
    <TD width=123 height=56><IMG height=56 
      src="images/logo.gif" width=123 border=0></TD>
    <TD width=69> </TD>
    <TD>
      <TABLE height=56 cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=safeimg align=middle width=68><A 
            onmouseover="javascript:ChageImg( Image1, safeimg, 'images/ico1_2.gif', 1, 1 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(1); 
            onmouseout="javascript:ChageImg( Image1, safeimg, 'images/ico1_1.gif', 0, 1 );" ><IMG height=56 
            src="images/ico1_1.gif" width=68 border=0 name=Image1></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=privatimg align=middle width=68><A 
            onmouseover="JavaScript:ChageImg(Image2, privatimg,'images/ico2_2.gif', 1,2 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(2); 
            onmouseout="JavaScript:ChageImg( Image2, privatimg, 'images/ico2_1.gif',0, 2 );" ><IMG height=56 
            src="images/ico2_1.gif" width=68 border=0 name=Image2></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=quickimg align=middle width=68><A 
            onmouseover="JavaScript:ChageImg(Image3, quickimg,'images/ico3_2.gif', 1,3 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(3); 
            onmouseout="JavaScript:ChageImg( Image3, quickimg, 'images/ico3_1.gif',0, 3 );"><IMG height=56 
            src="images/ico3_1.gif" width=68 border=0 name=Image3></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=adimg align=middle width=68><A 
            onmouseover="JavaScript:ChageImg(Image4, adimg,'images/ico4_2.gif', 1,4 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(4); 
            onmouseout="JavaScript:ChageImg( Image4, adimg, 'images/ico4_1.gif',0, 4 );"><IMG height=56 
            src="images/ico4_1.gif" width=68 border=0 name=Image4></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=searchimg align=middle width=68><A 
            onmouseover="JavaScript:ChageImg(Image5, searchimg,'images/ico5_2.gif', 1,5 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(5); 
            onmouseout="JavaScript:ChageImg( Image5, searchimg, 'images/ico5_1.gif',0, 5 );" ><IMG height=56 
            src="images/ico5_1.gif" width=68 border=0 name=Image5></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD id=infoimg align=middle width=68><A 
            onmouseover="JavaScript:ChageImg(Image6, infoimg,'images/ico6_2.gif', 1,6 );" 
            onfocus=javascript:this.blur() onclick=javascript:OnClick(6); 
            onmouseout="JavaScript:ChageImg( Image6, infoimg, 'images/ico6_1.gif',0, 6 );"><IMG height=56 
            src="images/ico6_1.gif" width=68 border=0 name=Image6></TD>
          <TD width=2><IMG height=1 src="images/c.gif" width=2></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD><td>    <%n=Year(date())                                                
       y=Month(date())                                                
        r=Day(date())                                                
           if len(y)=1 then y="0" & y                                                
          if len(r)=1 then r="0" & r                                                
        if len(s)=1 then s="0" & s                                                
      if len(f)=1 then f="0" & f                                                
    if len(m)=1 then m="0" & m                                                
  Response.Write n & "-" & y & "-" & r & " " & weekdayname(weekday(date()))%> 
          <br>
          <span lang="zh-cn"><br>
          <a target="_top" href="exit.asp">总</a></span>访问量<font color="#00FF00">[</font><font color="#FF0000"><%=application("hxf_c_visitor")%></font><font color="#00FF00">]</font>    
</td></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD vAlign=top colSpan=3 height=31>
      <TABLE height=20 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD colSpan=11 height=6></TD>
        <TR>
          <TD width=16><IMG height=1 src="images/c.gif" width=16></TD>
          <TD noWrap align=middle><FONT face=Arial color=#6f8ebf><% 
if session("hxf_u_nickname")<>"" then                 
mz=session("hxf_u_nickname")                
cs=int(Session("hxf_u_times")-1)                
%> 
&nbsp;欢迎<font color=FF6666><%=mz%></font>第<font color=FF6666><%=cs%></font>次使用本系统!                    
<%else%>                  
&nbsp;你未登陆或者超时断开了连接,请你重新登陆!<a href="index.asp" target="_top">重新登陆</a>     
<%end if%>     
</FONT></TD>
          <TD width="100%"></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD vAlign=top align=middle width=24><IMG height=1 
            src="images/c.gif" width=28><IMG height=16 
            src="images/tofd.gif" width=18 align=absMiddle></TD>
          <TD vAlign=center width=70 height=16><IMG height=3 
            src="images/c.gif" width=70><A class=nev href="duanxinlist.asp">系统短信</A></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD vAlign=top align=middle width=24><IMG height=1 
            src="images/c.gif" width=28><IMG height=16 
            src="images/fdbk.gif" width=18 align=absMiddle></TD>
          <TD vAlign=center width=80><IMG height=3 src="images/c.gif" 
            width=80><span lang="zh-cn"><a class="nev" target="main" href="guestbook/index.asp">留言系统</a></span></TD>
          <TD width=2 background=images/vln1.gif><IMG height=1 
            src="images/c.gif" width=2></TD>
          <TD noWrap align=middle>&nbsp;&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>

⌨️ 快捷键说明

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