244 lines
7.3 KiB
Plaintext
244 lines
7.3 KiB
Plaintext
<%
|
|
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>
|