|
|
<%Response.Expires = 0%><!-- edit display list or sort list ( as used by raid2.asp )
QueryString : type=sort|list if sort then Session("FieldSort") is updated otherwise Session("FieldList")
--><html><head><style type="text/css"> .st1 {color:red} .act {color:menutext; background:menu; cursor:default} .list {cursor:hand;} .list UL {list-style-type:none; margin-left:2pt; margin-top:0pt; margin-bottom:0pt} .list UL LI {margin-top:0pt; margin-bottom:0pt} .list UL LI.selected {background:navy; color:white} .ac {width:60pt}</style>
<% Set Conn = Server.CreateObject("ADODB.Connection") Set Comm = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open "DSN=Windows NT Bugs:Raid4;UID=ntbugRW;PWD=ntbugRW" Comm.CommandText = "Select DBColName,FriendlyName,Type from flds Order by DBColName" Set Comm.ActiveConnection = Conn Set RS.Source = Comm RS.Open FldArray = RS.GetRows() RS.Close Conn.Close if Request.QueryString("type") = "sort" then fl = "," & Session("FieldSort") & "," Response.Write "<title>Field sort order</title>" fSort = TRUE sClick = "setorder('dest');" else fl = "," & Session("FieldList") & "," Response.Write "<title>Field list</title>" fSort = FALSE sClick = "" end if
Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & ">" Response.Write "var FldDBName = new Array(" for i = 0 to UBound(FldArray,2) if FldArray(2,i) < 12 then if i > 0 then Response.Write "," end if Response.Write chr(34) & FldArray(0,i) & chr(34) end if next Response.Write ");"%>
// set asc/desc radio button based on current selected option
function setorder( dest ) { var elDest = document.all[dest];
for ( i = 0 ; i < elDest.options.length ; ++i ) if ( elDest.options[i].selected ) { if ( elDest.options[i].value.indexOf(" Desc") != -1 ) { bl.Asce.checked = false; bl.Desc.checked = true; } else { bl.Asce.checked = true; bl.Desc.checked = false; } break; }}
// update option order info
function updord( dest, va ) { var elDest = document.all[dest];
for ( i = 0 ; i < elDest.options.length ; ++i ) if ( elDest.options[i].selected ) { p = elDest.options[i].value.indexOf(" "); if ( p == -1 ) s = elDest.options[i].value + " "; else s = elDest.options[i].value.substring(0,p+1) elDest.options[i].value = s + va; break; }}
function copy(src, dest, va ) {
if ( va != null && va != "" ) { var elSrc = document.all[src]; var elDest = document.all[dest]; var elOption = new Option;
elOption.value = va;
for ( i = 0 ; i < elSrc.options.length ; ++i ) { if ( elSrc.options[i].value == elOption.value ) { elOption.text = elSrc.options[i].text; elSrc.options.remove( i ); break; } }
for ( i = 0 ; i < elDest.options.length ; ++i ) if ( elDest.options[i].selected ) break; elDest.options.add(elOption,i); }}
function trans() { var elDest = document.all['dest'];
s = "";
for ( i = 0 ; i < elDest.options.length ; ++i ) { if ( i != 0 ) s = s + ","; s = s + elDest.options[i].value; }
window.returnValue = s; event.returnValue = false; window.close();}
function moveup() { var elDest = document.all['dest'];
for ( i = 1 ; i < elDest.options.length ; ++i ) if ( elDest.options[i].selected ) { elOption = elDest.options[i]; elDest.options.remove(i); elDest.options.add(elOption,i-1); elDest.options[i-1].selected = true; break; }}
function movedown() { var elDest = document.all['dest'];
for ( i = 0 ; i < elDest.options.length - 1; ++i ) if ( elDest.options[i].selected ) { elOption = elDest.options[i]; elDest.options.remove(i); elDest.options.add(elOption,i+1); elDest.options[i+1].selected = true; break; }}
</script></head> <body bgcolor=#c0c0c0> <FORM action="bl.asp" method=POST ID=bl> <INPUT TYPE=HIDDEN ID="fl"></INPUT> <TABLE> <TR> <TD> <DIV CLASS="list"> <SELECT ID="src" SIZE=8 ONDBLCLICK="copy('src', 'dest', event.srcElement.value);"><% ix = 0 for i = 0 to UBound(FldArray,2) if FldArray(2,i) < 12 then if instr(1,fl,"," & FldArray(0,i)) = 0 then Response.Write "<OPTION VALUE=" & chr(34) & FldArray(0,i) if fSort then Response.Write " Asc" end if Response.Write chr(34) & ">" & FldArray(0,i) end if ix = ix + 1 end if next%> </SELECT> </DIV> </TD><TD> <BR><br> <P><INPUT TYPE=BUTTON VALUE="->" ONCLICK="copy('src', 'dest', src.value );"> <P><INPUT TYPE=BUTTON VALUE="<-" ONCLICK="copy('dest', 'src', dest.value );"> <BR><BR><br> </TD><TD> <DIV class="list"> <SELECT ID="dest" SIZE=8 ONDBLCLICK="copy('dest','src', event.srcElement.value);" ONCLICK="<%=sClick%>"><% ix = 1 do while true nx = instr(ix,fl,",") if nx = 0 then exit do end if if nx > 1 then Response.Write "<OPTION ORDER=" & chr(34) & ">" & chr(34) & " VALUE=" & chr(34) & mid(fl,ix,nx-ix) & chr(34) & ">" if fSort then Response.Write mid(fl,ix,instr(ix,fl," ")-ix) else Response.Write mid(fl,ix,nx-ix) end if end if ix = nx + 1 loop%> </SELECT> </DIV> </TD> <td align="center"> <INPUT class="ac" TYPE=BUTTON onclick="trans()" VALUE="OK"></INPUT><br> <INPUT class="ac" TYPE=RESET onclick="window.close();" VALUE="Cancel"></INPUT><br><% if fSort then Response.Write "<INPUT name=" & chr(34) & "AscDes" & chr(34) & " id=" & chr(34) & "Asce" & chr(34) & " class=" & chr(34) & "ac" & chr(34) & " TYPE=RADIO VALUE=" & chr(34) & "Asc" & chr(34) Response.Write " CHECKED onclick=" & chr(34) & "updord('dest','Asc');" & chr(34) Response.Write ">Ascending</INPUT><br>" Response.Write "<INPUT name=" & chr(34) & "AscDes" & chr(34) & " id=" & chr(34) & "Desc" & chr(34) & " class=" & chr(34) & "ac" & chr(34) & " TYPE=RADIO VALUE=" & chr(34) & "Desc" & chr(34) Response.Write " onclick=" & chr(34) & "updord('dest','Desc');" & chr(34) Response.Write ">Descending</INPUT><br>" end if%> <INPUT class="ac" TYPE=BUTTON onclick="moveup()" VALUE="Move Up"></INPUT><br> <INPUT class="ac" TYPE=BUTTON onclick="movedown()" VALUE="Move Down"></INPUT><br> </td> </TR> </TABLE> </FORM> </BODY></html>
|
