📄 adminimgdir.asp

📁 Flash电子相册 v1.2 Build 1108完整版本下载
💻 ASP
字号:
<%@ language=vbscript %>

<!--#include FILE="UpLoadClass.asp"-->
<%
if session("flag")=2 then
%>
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
body {padding:5px}
</style><title>相册分类管理</title>

<script language="JavaScript">
function GetObjID(ObjName)
{
  for (var ObjID=0; ObjID < window.powersearch.elements.length; ObjID++)
    if ( window.powersearch.elements[ObjID].name == ObjName )
    {  return(ObjID);
       break;
    }
  return(-1);
}

function setact(act)
{
window.powersearch.actions2.value=act;
}


function setact2(act)
{
if (  window.powersearch.delvalue.value=='' )
 {
		alert("请选择相册目录名！");
		return false;
 }else{
 window.powersearch.actions2.value=act;
 }
}

function add2(act)
{
if (  window.powersearch.addir.value=='' )
 {
		alert("请输入相册新目录名！");
		return false;
 }else{
 window.powersearch.actions2.value=act;
 }
}

function selectshow(ObjName)
{
  ObjID = GetObjID(ObjName);
  minselected=0;
  okvalue=""
  if ( ObjID != -1 )
  {
    for (i=0; i<=window.powersearch.elements[ObjID].length-1; i++)
    {  if (window.powersearch.elements[ObjID].options[i].selected)
       { 
		
		window.powersearch.oldname.value=window.powersearch.elements[ObjID].options[i].text;
		window.powersearch.oldvalue.value=window.powersearch.elements[ObjID].options[i].value;
		window.powersearch.newname.value=window.powersearch.elements[ObjID].options[i].text;
		window.powersearch.newvalue.value=window.powersearch.elements[ObjID].options[i].value;

		window.powersearch.delvalue.value=window.powersearch.elements[ObjID].options[i].value;
		window.powersearch.deltext.value=window.powersearch.elements[ObjID].options[i].text
       }
    }

//window.alert(okvalue);

  }
}



function rename(theform){
window.powersearch.action="saveimgdirename.asp";
alert(window.powersearch.action);
return true;
}


function okok(ObjName)
{
  ObjID = GetObjID(ObjName);
  minselected=0;
  okvalue=""
  if ( ObjID != -1 )
  {
    for (i=0; i<=window.powersearch.elements[ObjID].length-1; i++)
    {  
		ccc=window.powersearch.elements[ObjID].options[i].text;
		bbb=window.powersearch.elements[ObjID].options[i].value;
                okvalue=okvalue+"|"+ccc+"`"+bbb;
    }
window.powersearch.imglist.value=okvalue;
window.powersearch.action=window.powersearch.actions2.value;




//window.alert(okvalue);

  }
}


function UpItem(ObjName)
{
  ObjID = GetObjID(ObjName);
  minselected=0;
  if ( ObjID != -1 )
  {
    for (i=window.powersearch.elements[ObjID].length-1; i>=0; i--)
    {  if (window.powersearch.elements[ObjID].options[i].selected&&i>0)
       {  //window.alert(i);
          if (minselected==0 || i<minselected)
            minselected=i;
          //window.powersearch.elements[ObjID].options[i] = null;
		ccc=window.powersearch.elements[ObjID].options[i-1].text;
		bbb=window.powersearch.elements[ObjID].options[i-1].value;
		window.powersearch.elements[ObjID].options[i-1].text=window.powersearch.elements[ObjID].options[i].text;
		window.powersearch.elements[ObjID].options[i-1].value=window.powersearch.elements[ObjID].options[i].value;
		window.powersearch.elements[ObjID].options[i].text=ccc;
		window.powersearch.elements[ObjID].options[i].value=bbb;

       }
    }

	minselected--;
	if (minselected<0)
            minselected=0;

	window.powersearch.elements[ObjID].options[minselected].selected=true;
	window.powersearch.elements[ObjID].options[minselected+1].selected=false;

  }
}


function DownItem(ObjName)
{
  ObjID = GetObjID(ObjName);
  minselected=0;
  if ( ObjID != -1 )
  {
    for (i=window.powersearch.elements[ObjID].length-1; i>=0; i--)
    {  if (window.powersearch.elements[ObjID].options[i].selected&&i<window.powersearch.elements[ObjID].length-1)
       {  
          if (minselected==0 || i<minselected)
            minselected=i;
          //window.powersearch.elements[ObjID].options[i] = null;
		ccc=window.powersearch.elements[ObjID].options[i+1].text;
		bbb=window.powersearch.elements[ObjID].options[i+1].value;
		window.powersearch.elements[ObjID].options[i+1].text=window.powersearch.elements[ObjID].options[i].text;
		window.powersearch.elements[ObjID].options[i+1].value=window.powersearch.elements[ObjID].options[i].value;
		window.powersearch.elements[ObjID].options[i].text=ccc;
		window.powersearch.elements[ObjID].options[i].value=bbb;

	minselected++;
	//window.alert(minselected);
	if (minselected>window.powersearch.elements[ObjID].length-1)
            minselected=window.powersearch.elements[ObjID].length-1;

	window.powersearch.elements[ObjID].options[minselected].selected=true;
	window.powersearch.elements[ObjID].options[minselected-1].selected=false;
       }
    }

   
  }
}
</script>

<script language="JavaScript">

// 检查数值
function checkform(theform){

	
}

</script>
</head>

<BODY bgColor=menu>


<form name="powersearch" id="powersearch" action="saveimgdir.asp" method="post" onsubmit="JavaScript:okok('imgdir')">
 
<input name="imglist" type=hidden>
<input name="delvalue" type=hidden>
<input name="deltext" type=hidden>
<input type="hidden" name="actions2" value="saveimgdir.asp">

<table  border=0 cellpadding=0 cellspacing=0 align=center>
    <tr> 
      <td> <fieldset>
        <legend>调整相册列表顺序</legend>


<table width="100%" border=0 cellpadding=0 cellspacing=0>



          <tr> 
            <td width="50%">

<%   
                  			
	Dim MyString, MyString2, MyString3, MyString4, rowscount
	
	ROWids=LoadFile("bilder/config.txt")
	ccbegin = InStr(ROWids,"&now_dir=")
	ccEND = InStr(ROWids,"&ordner=")
	now_dir = mid(ROWids,ccbegin+9,ccEND-ccbegin-9)
	dirss=Request.QueryString("dirss")
	if len(dirss)>0 then
		now_dir=dirss
	end if


	ccEND = ccEND+8
	ccCOUNT = mid(ROWids,ccEND)
	
	MyString = Split(ccCOUNT, "|", -1, 1)
	LenOfArray=UBound(MyString)-Lbound(MyString) 
	

	                  
                  
  
%>
                     
	
              

<select name="imgdir" size=10 MULTIPLE style="width:160" onchange="JavaScript:selectshow('imgdir')" onclick="JavaScript:selectshow('imgdir')">
 <% for i=0 to LenOfArray
	product_namexh=trim(MyString(i))
	MyString2 = Split(product_namexh, "`", -1, 1)
	product_no=MyString2(0)
	xh=MyString2(1)
	
	 %>

 <%if xh=now_dir   then%>
                      <option selected value="<%=xh%>"><%=product_no%></option>
	 <% else %>
                      <option  value="<%=xh%>"><%=product_no%></option>
	 <% end if%>
					  <% next %>


				</select>
	</td>

<td width="10%">.</td>
            <td width="30%">
<INPUT TYPE="BUTTON" NAME="" VALUE="↑上移" OnClick="JavaScript:UpItem('imgdir')"><br><br>
<INPUT TYPE="BUTTON" NAME="" VALUE="↓下移" OnClick="JavaScript:DownItem('imgdir')"><br><br>

<INPUT TYPE="submit" NAME="" VALUE="×删除" onMouseDown="setact2('saveimgdirdelete.asp')"><br><br>
<INPUT TYPE="BUTTON" NAME="" VALUE="？帮助" OnClick="JavaScript:alert('hello')"><br><br>
</td>
<td width="10%">.</td>
         
          </tr>


        </table>


              



        
        </fieldset></td>
    </tr>

    <tr>
      <td height=5></td>
    </tr>
 <tr> 
      <td> <fieldset>
        <legend>增加相册及更名</legend>
        <table width="100%" border=0 cellpadding=0 cellspacing=0>
          <tr> 
            <td width=33%>添加新目录：</td>
            <td width=33%><input name="addir" type=text value="" size=10></td>
            <td width=34%>　<INPUT TYPE="submit" NAME="" VALUE="增　加" onMouseDown="add2('saveimgdiradd.asp')"></td>


          </tr>
          <tr>
            <td colspan=3 height=5></td>
          </tr>
          <tr> 
            <td width=33%>重命名目录：<input name="oldname" type=hidden value="" readonly size=10>
            		  <input name="oldvalue" type=hidden value="" readonly size=10></td>
            <td width=33%><input name="newname" type=text value="" size=10> 
            		  <input name="newvalue" type=hidden value="" size=10></td>
            <td width=34%>　<INPUT TYPE="submit" NAME="rename" VALUE="重命名" onClick="setact('saveimgdirename.asp')">
</td>
          </tr>
          <tr>
            <td colspan=3 height=5></td>
          </tr>
        </table>
        </fieldset></td>
    </tr>   

    <tr>
      <td height=5></td>
    </tr>
    <tr>
      <td align=right><input name="submit" type=submit id=Ok value='  保存  '>
        &nbsp;&nbsp;
        <input name="button" type=button onclick="window.parent.close();" value='  取消  '></td>
    </tr>
  </table>
</form>

</body>

</html>
<%end if%>
⌨️ 快捷键说明

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