'|-----------------------------------------------------------------------|
'|---------ԽϢɼv1.0 for վϵͳ2005/2006 ---------|
'|-------------------------- :Ƽ --------------------------|
'|------------------ Խּ԰  http://www.fy66.net/ -----------------|
'|--װTopڱıди˴֧,ش˱ʾϿҵĸл!----|
'|------ ദοSNAŲɼϵͳfor4.03,ش! -------|
'|----- ת뱣ȨϢ,,µǶԱ˵,лл! ----------|
'|-----------------------------------------------------------------------|
һ˵
	1.ɲɼվϢ,Զд붯ݿ.(ֱӵõʵصַļ,ʵԶļ)
	2.֧ݿ⵼뵼ȹ,֧ͨ/߼,ָ֧²ɼģʽ,վɰ汾
	3.װ,ֻϴļ,޸һAdmin_index_left.asp,һδ뼴


װ
	1.ѹļϴռĹĿ¼ڣAdmin
	2.Admin_index_left.asp޸ķ(1-2)Դļ޸ġ
	3.ʹõǶ2006,ôAdmin_ST_Conn.asp,޸Const Edition=2005ΪConst Edition=2006
	4.Admin_ST_Date.asaΪɼĲɼݿ,޸ݿ,Admin_ST_Conn.aspҲӦ޸!

ʹ˵
	1.װϺ,ڶ׹̨ɼģд򿪲ҳ,ɽ/ɾ/޸/ɼ/Ŀ,ɼݿ/ʷ¼ز.
	2.ɼĿ÷Ͷ²ɼϵͳ.

һ2005Admin_index_left.aspֶ޸˵
admin_index_left.asp,ҵ
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle210 onclick='showsubmenu(210)' style='cursor:hand;'><a href='Admin_Help_Collection.asp' target='main'><span>ɼ</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' id='submenu210'><div class=sec_menu style='width:158'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=Main target=main>²ɼ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=ItemManage target=main>Ŀ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=FilterManage target=main>˹</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=History target=main>ɼʷ¼</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=Import target=main>Ŀ</a> | <a href=Admin_Collection.asp?Action=Export target=main>Ŀ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:158'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=20></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If
´벢漴ɡ
    'ԽϢɼ for 2005/2006ӿʼ
If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle2101 onclick='showsubmenu(2101)' style='cursor:hand;'><a href='Admin_ST_Help.asp' target='main'><span>ɼ</span></a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td style='display:none' id='submenu2101'><div class=sec_menu style='width:158'>" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Collectino.asp target=main>ɼ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Manage.asp target=main>Ŀ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Filters.asp target=main>˹</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Histroly.asp target=main>ɼʷ¼</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Database.asp target=main>ɼݿ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td height=20><a href=Admin_ST_Database.asp?Action=LeadIn target=main>Ŀ</a> | <a href=Admin_ST_Database.asp?Action=LeadOut target=main>Ŀ</a></td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
    Response.Write "        </table>" & vbCrLf
    Response.Write "      </div>" & vbCrLf
    Response.Write "        <div  style='width:158'>" & vbCrLf
    Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    Response.Write "            <tr>" & vbCrLf
    Response.Write "              <td height=20></td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "          </table>" & vbCrLf
    Response.Write "      </div></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End If
    'ԽϢɼ for 2005/2006ӽ




2006Admin_index_left.aspֶ޸˵
admin_index_left.asp,ҵ
If FoundInArr(AllModules, "Collection", ",") Then
    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
        Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle210 onclick=""new Element.toggle('submenu210')"" style='cursor:hand;'><a href='Admin_Help_Collection.asp' target='main'><span class=glow>ɼ</span></a></td></tr><tr><td style='display:none' align='right' id='submenu210'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Collection.asp?Action=Main target=main>²ɼ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionManage.asp?Action=ItemManage target=main>Ŀ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Filter.asp?Action=main target=main>˹</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionHistory.asp?Action=main target=main>ɼʷ¼</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_CollectionManage.asp?Action=Import target=main>Ŀ</a> | <a href=Admin_CollectionManage.asp?Action=Export target=main>Ŀ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_Timing.asp?Action=main target=main>ʱ</a> | <a href=Admin_Timing.asp?Action=DoMainTiming target='_blank'>ʱ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_AreaCollection.asp?Action=Main target=main>ɼ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "        </table>" & vbCrLf
        Response.Write "      </div>" & vbCrLf
        Response.Write "        <div  style='width:167'>" & vbCrLf
        Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        Response.Write "            <tr>" & vbCrLf
        Response.Write "              <td height=5></td>" & vbCrLf
        Response.Write "            </tr>" & vbCrLf
        Response.Write "          </table>" & vbCrLf
        Response.Write "      </div></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
    End If
End If
´벢漴ɡ
    'ԽϢɼ for 2005/2006ӿʼ
If FoundInArr(AllModules, "Collection", ",") Then
    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
        Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "    <td height=28 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background='Images/Admin_left_05.gif' id=menuTitle2101 onclick=""new Element.toggle('submenu2101')"" style='cursor:hand;'><a href='Admin_ST_Help.asp' target='main'><span class=glow>ɼ</span></a></td></tr><tr><td style='display:none' align='right' id='submenu2101'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Collectino.asp target=main>ɼ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Manage.asp target=main>Ŀ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Filters.asp target=main>˹</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Histroly.asp target=main>ɼʷ¼</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Database.asp target=main>ɼݿ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "          <tr>" & vbCrLf
        Response.Write "            <td height=20><a href=Admin_ST_Database.asp?Action=LeadIn target=main>Ŀ</a> | <a href=Admin_ST_Database.asp?Action=LeadOut target=main>Ŀ</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        Response.Write "        </table>" & vbCrLf
        Response.Write "      </div>" & vbCrLf
        Response.Write "        <div  style='width:167'>" & vbCrLf
        Response.Write "          <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
        Response.Write "            <tr>" & vbCrLf
        Response.Write "              <td height=5></td>" & vbCrLf
        Response.Write "            </tr>" & vbCrLf
        Response.Write "          </table>" & vbCrLf
        Response.Write "      </div></td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
    End If
End If
    'ԽϢɼ for 2005/2006ӽ