414 lines
14 KiB
Plaintext
414 lines
14 KiB
Plaintext
<%
|
|
Response.Expires = 0
|
|
|
|
Dim i,j,ix,typeFl,mx,filn,opn
|
|
%>
|
|
<html>
|
|
<!--
|
|
display expression builder list
|
|
|
|
QueryString : as necessary for updcnfg.asp invocation
|
|
if configuration is to be updated and window refreshed
|
|
( e.g. when raid2.asp window updates configuration )
|
|
|
|
-->
|
|
<head>
|
|
<style type="text/css">
|
|
.st1 {color:red}
|
|
.act {color:menutext; background:menu; cursor:default;}
|
|
.fltl {position:relative; left:-8pt; top:-14pt;}
|
|
.db {}
|
|
</style>
|
|
<script language="JavaScript">
|
|
var OpName = new Array("Equals","Not Equal","Greater Than","Greater Than or Equals","Less Than","Less Than or Equals","Contains","Not Contains");
|
|
var OpOp = new Array("=","<>",">",">=","<","<=","LIKE","NOT LIKE");
|
|
var OpType = new Array(1023,1023,1023,1023,1023,1023,4,4);
|
|
var CombType = new Array("AND","OR");
|
|
</script>
|
|
<!--#include virtual="/scripts/raid/cache.asp"-->
|
|
<!--#include virtual="/scripts/raid/updcnfg.asp"-->
|
|
<%
|
|
IncludeItemCache
|
|
|
|
Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & ">"
|
|
|
|
FldArray = Application("fld" & Application("dbCache")(Session("DBSOURCE")))
|
|
|
|
FltArray = Session("FltArray")
|
|
|
|
Response.Write "var FldDBName = new Array("
|
|
mx = UBound(FldArray,2)
|
|
for i = 0 to mx
|
|
if FldArray(7,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 "); var FldName = new Array("
|
|
for i = 0 to mx
|
|
if FldArray(7,i) < 12 then
|
|
if i > 0 then
|
|
Response.Write ","
|
|
end if
|
|
Response.Write chr(34) & FldArray(1,i) & chr(34)
|
|
end if
|
|
next
|
|
|
|
Response.Write "); var FldType = new Array("
|
|
for i = 0 to mx
|
|
if FldArray(7,i) < 12 then
|
|
if i > 0 then
|
|
Response.Write ","
|
|
end if
|
|
Response.Write chr(34) & FldArray(7,i) & chr(34)
|
|
end if
|
|
next
|
|
Response.Write ");"
|
|
%>
|
|
|
|
function delrow() {
|
|
event.srcElement.parentElement.parentElement.parentElement.deleteRow(event.srcElement.parentElement.rowIndex);
|
|
}
|
|
|
|
function FList() {
|
|
s = window.showModalDialog( "/scripts/raid/raid4.asp?type=list", "list", "dialogWidth:300pt; dialogHeight:200pt" );
|
|
if ( s != null ) {
|
|
document.all.fieldlist.value = s;
|
|
document.all.save.action = "/scripts/raid/raid2.asp?upd=list";
|
|
document.all.save.target = "raid2";
|
|
document.all.save.method = "POST";
|
|
document.all.save.submit();
|
|
}
|
|
}
|
|
|
|
function FSort() {
|
|
s = window.showModalDialog( "/scripts/raid/raid4.asp?type=sort", "sort", "dialogWidth:300pt; dialogHeight:200pt" );
|
|
if ( s != null ) {
|
|
document.all.fieldsort.value = s;
|
|
document.all.save.action = "/scripts/raid/raid2.asp?upd=sort";
|
|
document.all.save.target = "raid2";
|
|
document.all.save.method = "POST";
|
|
document.all.save.submit();
|
|
}
|
|
}
|
|
|
|
function updch(where) {
|
|
nameFl = event.srcElement.value;
|
|
|
|
for ( i = 0 ; i < FldDBName.length ; ++i )
|
|
if ( FldDBName[i] == nameFl ) {
|
|
typeFl = FldType[i];
|
|
break;
|
|
}
|
|
|
|
s = "<select name=\"relop\">"
|
|
for ( i = 0 ; i < OpName.length ; ++i )
|
|
if ( OpType[i] & (1<<typeFl-1) )
|
|
s = s + "<option value=\"" + OpOp[i] + "\">" + OpName[i];
|
|
event.srcElement.parentElement.parentElement.cells[2].innerHTML = s;
|
|
|
|
for ( j = 0 ; j < checkfields.length ; ++j ) {
|
|
if ( checkfields[j] == nameFl ) {
|
|
s = "<select class=\"inp\" name=\"cnt\" id=\"cnt\">";
|
|
for ( k = 0 ; k < checks[j].length ; ++k ) {
|
|
s = s + "<option value=\"" + checks[j][k] + "\""
|
|
s = s + ">" + checks[j][k];
|
|
}
|
|
s = s + "</select>";
|
|
break;
|
|
}
|
|
}
|
|
|
|
if ( j == checkfields.length ) {
|
|
s = "<input name=\"cnt\" id=\"cnt\" size=40></input>";
|
|
}
|
|
|
|
event.srcElement.parentElement.parentElement.cells[3].innerHTML = s;
|
|
}
|
|
|
|
function addrow(tbl,flddbname,relop,cnt,andor) {
|
|
tbl = event.srcElement.parentElement.parentElement.parentElement;
|
|
la = tbl.insertRow();
|
|
for ( var i = 0 ; i < tbl.rows[0].cells.length ; ++i )
|
|
la.insertCell();
|
|
la.cells[1].innerText="Add";
|
|
la.cells[1].className="act";
|
|
la.cells[1].onclick = new Function("addrow(fl);");
|
|
|
|
iNe = la.rowIndex-1;
|
|
ne = tbl.rows[iNe];
|
|
ne.cells[0].innerText = "Del";
|
|
ne.cells[0].className = "act";
|
|
ne.cells[0].onclick = new Function("delrow();");
|
|
|
|
// fldname : value is DB field name
|
|
|
|
ne.cells[1].className="";
|
|
typeFl = 1;
|
|
s = "<select id=\"dbname\" name=\"dbname\" onchange=\"updch(this)\">";
|
|
for ( i = 0 ; i < FldDBName.length ; ++i ) {
|
|
s = s + "<option value=\"" + FldDBName[i] + "\"";
|
|
if ( flddbname != null && flddbname == FldDBName[i]) {
|
|
s = s + " SELECTED";
|
|
typeFl = FldType[i];
|
|
}
|
|
s = s + ">" + FldDBName[i];
|
|
}
|
|
ne.cells[1].innerHTML = s;
|
|
ne.cells[1].className="";
|
|
ne.cells[1].onclick = null;
|
|
|
|
// relop : value SQL relop ( '=', '<>' ... )
|
|
|
|
s = "<select id=\"relop\" name=\"relop\">";
|
|
for ( i = 0 ; i < OpName.length ; ++i )
|
|
if ( OpType[i] & typeFl ) {
|
|
s = s + "<option value=\"" + OpOp[i] + "\"";
|
|
if ( relop != null && OpOp[i] == relop ) {
|
|
s = s + " SELECTED";
|
|
}
|
|
s = s + ">" + OpName[i];
|
|
}
|
|
ne.cells[2].innerHTML = s;
|
|
|
|
ne.cells[3].innerHTML = "<input type=text id=\"cnt\" name=\"cnt\" size=40></input>"
|
|
if ( cnt != null )
|
|
ne.cells[3].innerText = cnt;
|
|
|
|
// and/or : Value is And/Or
|
|
|
|
s = "<select id=\"andor\" name=\"andor\"><option value=\"And\"";
|
|
if ( andor != null && andor == "And" )
|
|
s = s + " SELECTED";
|
|
s = s + ">And<option value=\"Or\"";
|
|
if ( andor != null && andor == "Or" )
|
|
s = s + " SELECTED";
|
|
s = s + ">Or</select>";
|
|
ne.cells[4].innerHTML = s;
|
|
}
|
|
|
|
function BuildExp() {
|
|
if ( document.all.item("dbname") == null )
|
|
nb = 0;
|
|
else if ( document.all.item("dbname").tagName == "SELECT" )
|
|
nb = 1;
|
|
else
|
|
// this is a collection
|
|
nb = document.all.item("dbname").length;
|
|
|
|
s = "";
|
|
|
|
for ( i = 0 ; i < nb ; ++i ) {
|
|
dbname = document.all.item("dbname",i);
|
|
relop = document.all.item("relop",i);
|
|
andor = document.all.item("andor",i);
|
|
|
|
for ( idbname = 0 ; idbname < dbname.length ; ++idbname ) {
|
|
if ( dbname.item(idbname).selected ) {
|
|
break;
|
|
}
|
|
}
|
|
for ( irelop = 0 ; irelop < relop.length ; ++irelop ) {
|
|
if ( relop.item(irelop).selected ) {
|
|
break;
|
|
}
|
|
}
|
|
for ( iandor = 0 ; iandor < andor.length ; ++iandor ) {
|
|
if ( andor.item(iandor).selected ) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
s = s + FldDBName[idbname] + " " + OpOp[irelop] + " "
|
|
if ( FldType[idbname] == 2 ) // numeric
|
|
s = s + document.all.item("cnt",i).value;
|
|
else if ( FldType[idbname] == 4 ) { // date
|
|
d = document.all.item("cnt",i).value.split("/");
|
|
s = s + "{d'" + (d[2].length < 3 ? new Number(d[2])+1900 : d[2]) + "-" + (d[0].length==1 ? "0" : "") + d[0] + "-" + (d[1].length==1 ? "0" : "") + d[1] + "'}";
|
|
}
|
|
else {
|
|
if ( OpOp[irelop] == "LIKE" || OpOp[irelop] == "NOT LIKE" )
|
|
s = s + "'%" + document.all.item("cnt",i).value + "%'";
|
|
else
|
|
s = s + "'" + document.all.item("cnt",i).value + "'";
|
|
}
|
|
if ( i < nb-1 )
|
|
s = s + " " + CombType[iandor] + " ";
|
|
}
|
|
|
|
document.all.fltexp.value = s;
|
|
}
|
|
|
|
function showexp() {
|
|
BuildExp();
|
|
s = prompt( "SQL expression: ", document.all.fltexp.value );
|
|
if ( s != null ) {
|
|
document.all.fltexp.value = s;
|
|
}
|
|
}
|
|
|
|
function ExecQuery() {
|
|
BuildExp();
|
|
document.all.save.action = "/scripts/raid/raid2.asp?upd=flt";
|
|
document.all.save.target = "raid2";
|
|
document.all.save.method = "POST";
|
|
document.all.save.submit();
|
|
}
|
|
|
|
function GoBug() {
|
|
bugno = prompt( "Enter Bug number", "" );
|
|
if ( bugno != null ) {
|
|
window.open( "raid3.asp?BugID=" + bugno, "ntbug", "toolbar=no, menubar=no, location=no, directories=no, resizable=yes, scrollbars=yes, resizetab=yes" );
|
|
}
|
|
}
|
|
|
|
function LoadQuery() {
|
|
fname = prompt( "Enter filename", document.all.savename.value );
|
|
if ( fname != null ) {
|
|
if ( fname.indexOf(".") == -1 )
|
|
fname = fname + ".asp";
|
|
document.all.savename.value = fname;
|
|
parent.window.location = "/scripts/raid/" + fname;
|
|
parent.window.reload;
|
|
}
|
|
}
|
|
|
|
function SaveQuery() {
|
|
BuildExp();
|
|
fname = prompt( "Enter filename where to store configuration", document.all.savename.value );
|
|
if ( fname != null ) {
|
|
if ( fname.indexOf(".") == -1 )
|
|
fname = fname + ".asp";
|
|
document.all.savename.value = fname;
|
|
document.all.save.action = "/scripts/raid/save.asp?upd=sort,list,dbsource,flt,name";
|
|
document.all.save.method = "POST";
|
|
document.all.save.target = "raid1";
|
|
document.all.save.submit();
|
|
parent.window.location = "/scripts/raid/" + fname;
|
|
}
|
|
}
|
|
|
|
function NewBug() {
|
|
window.open( "raid3.asp?BugID=CREATE", "ntbug", "" );
|
|
}
|
|
|
|
</script>
|
|
</head>
|
|
|
|
<body bgcolor=#c0c0c0>
|
|
<button onclick="ExecQuery()" id="ex" title="Execute query"><img src="exeq.gif"></button>
|
|
<button onclick="NewBug()" title="New bug"><img src="donew.gif"></button>
|
|
<input type=button id="go" OnClick="GoBug()" value="Goto"></input>
|
|
<input type=button id="fl" OnClick="FList()" value="Define query field List"></input>
|
|
<input type=button id="so" OnClick="FSort()" value="Define query sort order"></input>
|
|
<input type=button id="ex" OnClick="showexp()" value="Edit SQL query"></input>
|
|
<button id="lo" onclick="LoadQuery()" title="Load query"><img src="loadq.gif"></button>
|
|
<button id="sa" onclick="SaveQuery()" title="Save query"><img src="saveq.gif"></button>
|
|
<br>
|
|
<form id="save" action="/scripts/raid/save.asp" method=POST>
|
|
<input type=hidden name="savename" id="savename" value="<%=Session("Config")%>"></input>
|
|
<input type=hidden name = "fltexp" id="fltexp""></input>
|
|
<input type=hidden name = "fieldlist" id="fieldlist" value="<%=Session("FieldList")%>"></input>
|
|
<input type=hidden name = "fieldsort" id="fieldsort" value="<%=Session("FieldSort")%>"></input>
|
|
<table id="fl" class="fltl"><thead>
|
|
<tr>
|
|
<th align=left> </th>
|
|
<th align=left>Field Name</th>
|
|
<th align=left>Operator</th>
|
|
<th align=left width=300>Value</th>
|
|
<th align=left>And/Or</th>
|
|
</tr>
|
|
</thead>
|
|
<tbody id="act">
|
|
<tr><td></td><td><select><option value="Database" class="db">Database</select></td><td><select><option value="Equals" selected>Equals</select></td>
|
|
<td><select id="dbsource" name="dbsource">
|
|
<%
|
|
mx = UBound(Application("dbFriendlyName"))
|
|
for i = 0 to mx
|
|
Response.Write "<option value=" & chr(34) & i & chr(34)
|
|
if i = Session("DBSOURCE") then
|
|
Response.Write "selected"
|
|
end if
|
|
Response.Write ">" & Application("dbFriendlyName")(i)
|
|
next
|
|
%>
|
|
</td><td><select><option value="And" selected>And</select></td></tr>
|
|
<% if vbNull <> VarType(FltArray) then
|
|
mx1 = UBound(FltArray,1)
|
|
for i = 0 to mx1%>
|
|
<tr><td class="act" onclick="delrow()">Del</td><td><select id="dbname" name="dbname" onchange="updch(this)">
|
|
<%
|
|
OpName = Array("Equals","Not Equal","Greater Than","Greater Than or Equals","Less Than","Less Than or Equals","Contains","Not Contains")
|
|
OpOp = Array("=","<>",">",">=","<","<=","LIKE","NOT LIKE")
|
|
OpType = Array(1023,1023,1023,1023,1023,1023,4,4)
|
|
|
|
ix = 0
|
|
filn = FltArray(i,0)
|
|
opn = FltArray(i,1)
|
|
mx = UBound(FldArray,2)
|
|
for j = 0 to mx
|
|
if FldArray(7,j) < 12 then
|
|
Response.Write "<option value=" & chr(34) & FldArray(0,j) & chr(34)
|
|
if filn = FldArray(0,j) then
|
|
Response.Write "SELECTED"
|
|
typeFl = FldArray(7,j)
|
|
end if
|
|
Response.Write ">" & FldArray(0,j)
|
|
ix = ix + 1
|
|
end if
|
|
next
|
|
Response.Write "</select></td>"
|
|
|
|
Response.Write "<td><select id=" & chr(34) & "relop" & chr(34) & " name=" & chr(34) & "relop" & chr(34) & ">"
|
|
mx = UBound(OpName)
|
|
for j = 0 to mx
|
|
if TRUE then
|
|
Response.Write "<option value=" & chr(34) & OpOp(j) & chr(34)
|
|
if opn = OpOp(j) then
|
|
Response.Write "SELECTED"
|
|
end if
|
|
end if
|
|
Response.Write ">" & OpName(j)
|
|
next
|
|
Response.Write "</select></td>"
|
|
|
|
Response.Write "<td><input type=text id=" & chr(34) & "cnt" & chr(34) & " name=" & chr(34) & "cnt" & chr(34) & " size=40 "
|
|
Response.Write " value=" & chr(34) & FltArray(i,2) & chr(34) & "></input></td>"
|
|
|
|
Response.Write "<td><select id=" & chr(34) & "andor" & chr(34) & " name=" & chr(34) & "andor" & chr(34) & ">"
|
|
if FltArray(i,3) = "And" then
|
|
Response.Write "<option value=" & chr(34) & "And" & chr(34) & " SELECTED>And<option value=" & chr(34) & "Or" & chr(34) & ">Or"
|
|
else
|
|
Response.Write "<option value=" & chr(34) & "And" & chr(34) & ">And<option value=" & chr(34) & "Or" & chr(34) & " SELECTED>Or"
|
|
end if
|
|
Response.Write "</select></td>"
|
|
|
|
next
|
|
Response.Write "</tr>"
|
|
end if
|
|
%>
|
|
<tr><td></td><td class="act" onclick="addrow(fl)">Add</td><td></td><td></td><td></td></tr>
|
|
</tbody>
|
|
</table></form>
|
|
<%
|
|
rem Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & ">"
|
|
|
|
rem mx = UBound(FltArray,1)
|
|
rem for i = 0 to mx
|
|
rem Response.Write "//addrow( fl," & chr(34) & FltArray(i,0) & chr(34) & ","
|
|
rem Response.Write chr(34) & FltArray(i,1) & chr(34) & ","
|
|
rem Response.Write chr(34) & FltArray(i,2) & chr(34) & ","
|
|
rem Response.Write chr(34) & FltArray(i,3) & chr(34) & ");"
|
|
rem next
|
|
|
|
rem Response.Write "</script>"
|
|
%>
|
|
<script FOR=window EVENT=onload() language="JavaScript">
|
|
BuildExp();
|
|
</script>
|
|
</body>
|
|
</html>
|