home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2000 March
/
VPR0003B.ISO
/
nec98
/
iifiltls.asp
< prev
next >
Wrap
Text File
|
1999-10-14
|
4KB
|
147 lines
<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Const L_ENTERVALUE_ERRORMESSAGE="値を入力してください。"
Const L_LOADED_TEXT = "読み込み済み"
Const L_UNLOADED_TEXT = "アンロード済み"
Const L_DISABLED_TEXT = "無効"
Const L_LOW_TEXT = "低"
Const L_MEDIUM_TEXT = "中"
Const L_HIGH_TEXT = "高"
Const L_BROWSE_TEXT = "参照"
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT LANGUAGE = "JavaScript">
function SetUpdated(){
i = parent.head.listFunc.sel;
if (i > -1)
{
if (!parent.head.cachedList[i].deleted)
{
parent.head.cachedList[i].filter = document.listform.editMe.value;
parent.head.cachedList[i].status = "<%= L_LOADED_TEXT %>";
parent.head.cachedList[i].filterpath = document.listform.filterpath.value;
parent.head.cachedList[i].displayexe = parent.head.cachedList[i].crop(document.listform.filterpath.value,35);
parent.head.cachedList[i].updated = true;
}
else {
for (var j = i; j >= 0; j--) {
if (parent.head.cachedList[j].deleted){
}
else{
break
}
}
parent.head.listFunc.sel = j;
}
}
}
function chgStatus(indexnum){
parent.head.listFunc.sel=indexnum
self.location.href = "iifiltls.asp";
}
function chkPath(pathCntrl){
if (pathCntrl.value != ""){
top.connect.location.href = "iichkpath.asp?path=" + escape(pathCntrl.value) + "&ptype=1";
}
}
function pathBrowser(){
JSBrowser=new BrowserObj(document.listform.filterpath,POP,TFILE,<%= Session("FONTSIZE") %>);
}
function displayVal(dispstr, altstr){
if (dispstr == ""){
dispstr = altstr;
}
return dispstr;
}
function writeCol(colspan,w,str){
var writestr = "<TD";
if (colspan != ""){
writestr += " COLSPAN = " + colspan
}
if (w != ""){
writestr += " WIDTH = " + w;
}
<% if Session("IsIE") then %>
writestr += " STYLE = ' font-size: 10pt;'";
<% end if %>
writestr += "><FONT SIZE = 2>" + str + "</FONT></TD>";
return writestr;
}
</SCRIPT>
<% if Session("canBrowse") then %>
<SCRIPT SRC="JSBrowser/JSBrowser.js">
</SCRIPT>
<% end if %>
</HEAD>
<BODY BGCOLOR="FFFFFF" LEFTMARGIN = 0 TOPMARGIN = 0>
<FORM NAME="listform">
<SCRIPT LANGUAGE="JavaScript">
editOK = false;
sel = eval(parent.head.listFunc.sel);
var writestr = "<TABLE BORDER=0 CELLPADDING = 2 CELLSPACING = 0>"
for (var i = 0; i < parent.head.cachedList.length; i++) {
if (!parent.head.cachedList[i].deleted){
<% if Session("IsAdmin") then %>
if (sel != i) {
<% else %>
if (true){
<% end if %>
writestr += "<TR>"
writestr += writeCol(1,70,parent.head.cachedList[i].displaystatus);
writestr += writeCol(1,88,displayVal(parent.head.cachedList[i].priority," "));
writestr += writeCol(1,110,"<A HREF='javascript:chgStatus("+i+");'>"+parent.head.cachedList[i].filter +"</A>");
writestr += writeCol(1,200,parent.head.cachedList[i].displayexe);
writestr += "</TR>";
}
else {
editOK = true;
writestr += "<TR BGCOLOR=#DDDDDD>"
writestr += writeCol(1,70,parent.head.cachedList[i].displaystatus);
writestr += writeCol(1,88,displayVal(parent.head.cachedList[i].priority," "));
writestr += writeCol(1,110,"<INPUT NAME='editMe' VALUE='"+parent.head.cachedList[i].filter +"' SIZE=12 onBlur='SetUpdated();'>");
writestr += writeCol(1,200,"<INPUT TYPE='text' NAME='filterpath' VALUE='"+parent.head.cachedList[i].filterpath +"' SIZE = 20 onBlur='chkPath(this);SetUpdated();'> <% if Session("canBrowse") then %><A HREF='javascript:pathBrowser();'><IMG ALIGN=middle SRC='images/browse.gif' BORDER=0></A><% end if %>");
writestr += "</TR>";
}
}
}
writestr += "</TABLE>";
document.write(writestr);
</SCRIPT>
</TABLE>
</FORM>
<% if Session("IsAdmin") then %>
<SCRIPT LANGUAGE="JavaScript">
if (editOK){
document.listform.editMe.focus();
document.listform.editMe.select();
}
</SCRIPT>
<% end if %>
</BODY>
</HTML>