also look at ida files.
Post by cccstar<% option explicit %>
<% response.expires = -1 %>
<% response.cachecontrol = "no-cache" %>
<% response.addheader "pragma", "no-cache" %>
<% response.buffer = true %>
<html>
<head>
<meta http-equiv="expires" content="Tue, 20 Aug 1996 14:25:27 GMT">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="pragma" content="no-cache">
<title>Index Server</title>
<style type="text/css">
<!--
body {background-image:url(clouds.jpg); margin:5;}
form {margin: 0px;}
th {background-color:e0e0e0; text-align:left; vertical-align:top;
text-transform:capitalize;}
td {background-color:ffffff; text-align:left; vertical-align:top;}
.main_th {font-size:large;}
-->
</style>
<!-- ************************* put in head section
************************
-->
<!-- #include
file=select_server_folder_or_file/select_server_folder_or_file_include.asp -->
<script language=javascript>
<!--
function are_you_sure()
{
result = confirm("Are you sure you want to delete and reinitialize the
catalog?")
//alert(result)
if(result == true)
location.href = "delete_and_reinitialize_my_catalog.asp"
}
// -->
</script>
</head>
<body>
<table width=100% border=1 cellpadding=2 cellspacing=0>
<tr><th class=main_th>Index Server</th></tr>
<tr>
<td>
<a href="index_service.asp">Load clean page</a> <b>|</b>
<a href="scopes.asp">Scopes</a> <b>|</b>
<a href="test_query.asp?catalog=my_catalog">Test query</a> <b>|</b>
<a href="general_query.asp?catalog=my_catalog">General query</a>
<b>|</b>
<a href="registry_values.asp">Registry values</a> <b>|</b>
<a href="javascript:are_you_sure();">Delete and reinitialize
my_catalog</a>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>
<table width=100% border=1 cellpadding=2 cellspacing=0>
<tr><th>Actions</th></tr>
<tr>
<td>
<a href="index_service_start.asp" >Start index service</a> <b>-</b>
<a href="index_service_stop.asp" >Stop index service</a> <b>|</b>
<a href="index_service_pause.asp" >Pause index service (allow
queries only)</a> <b>-</b>
<a href="index_service_continue.asp">Continue index service</a>
<br>
<a href="index_service_autostart_enable.asp">Enable autostart</a>
<b>|</b>
<a href="index_service_autostart_disable.asp">Disable
autostart</a>
<br>
<font color=ff0000><b>Remember to load a clean page after stop,
start or continue.</b></font>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>
<% response.flush %>
<%
dim is_admin_obj
dim found_catalog
dim is_catalog_obj
dim i
set is_admin_obj = createobject("microsoft.isadm")
response.write("<table width=100% border=1 cellpadding=2 cellspacing=0>")
response.write("<tr><th colspan=3>Index Server Status</th></tr>")
response.write("<tr><th>Is running</th><th>Is paused</th><th>Is
stopped</th></tr>")
response.write("<tr>")
if(is_admin_obj.isrunning = true) then
response.write("<td><font color=ff0000><b>True</b></font></td>" & vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
if(is_admin_obj.ispaused = true) then
response.write("<td><font color=ff0000><b>True</b></font></td>" & vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
if((is_admin_obj.isrunning = false) and (is_admin_obj.ispaused = false)) then
response.write("<td><font color=ff0000><b>True</b></font></td>" & vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
response.write("</td></tr></table>" & vbcrlf)
response.write("<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>")
response.flush
response.write("<table width=100% border=1 cellpadding=2 cellspacing=0>")
response.write("<tr><th colspan=5>Catalog Summary</th></tr>" & vbcrlf)
response.write("<tr><th>Catalog</th><th>Is Running</th><th>Is
Paused</th><th>Is Stopped</th><th>Actions</th></tr>" & vbcrlf)
found_catalog = is_admin_obj.findfirstcatalog()
for i = 1 to 100
response.write("<tr>" & vbcrlf)
err.clear
if (found_catalog = true) then
set is_catalog_obj = is_admin_obj.getcatalog()
response.write("<td>")
response.write(is_catalog_obj.catalogname)
response.write("</td>" & vbcrlf)
on error resume next
if (is_admin_obj.isrunning) then
dim count
count = 0
if(is_catalog_obj.iscatalogrunning = true) then
response.write("<td><font color=ff0000><b>True</font></b></td>"
& vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
if(is_catalog_obj.iscatalogpaused = true) then
response.write("<td><font color=ff0000><b>True</font></b></td>"
& vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
if(is_catalog_obj.iscatalogstopped = true) then
response.write("<td><font color=ff0000><b>True</font></b></td>"
& vbcrlf)
else
response.write("<td>False</td>" & vbcrlf)
end if
response.write("<td>")
response.write("<a href='catalog_stop.asp?catalog_name=" &
is_catalog_obj.catalogname & "'>Stop catalog</a> <b>-</b> " & vbcrlf)
response.write("<a href='catalog_start.asp?catalog_name=" &
is_catalog_obj.catalogname & "'>Start catalog</a> <b>|</b> " & vbcrlf)
response.write("<a href='catalog_pause.asp?catalog_name=" &
is_catalog_obj.catalogname & "'>Pause catalog</a> <b>-</b> " & vbcrlf)
response.write("<a href='catalog_continue.asp?catalog_name=" &
is_catalog_obj.catalogname & "'>Continue catalog</a><br>" & vbcrlf)
response.write("<a
href='catalog_force_master_merge.asp?catalog_name=" &
is_catalog_obj.catalogname & "'>Force master merge</a> <b>|</b> " & vbcrlf)
response.write("<a href='catalog_delete.asp?catalog_name=" &
is_catalog_obj.catalogname & "&catalog_path=" &
is_catalog_obj.cataloglocation & "'>Delete catalog</a> <b>|</b> " & vbcrlf)
response.write("<a href='catalog_empty.asp?catalog_path=" &
is_catalog_obj.cataloglocation & "'>Empty catalog</a> " & vbcrlf)
response.write("</td>")
end if
on error goto 0
found_catalog = is_admin_obj.findnextcatalog()
else
exit for
end if
response.write("</tr>")
next
response.write("</table>" & vbcrlf)
%>
<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>
<% response.flush %>
<form method=post action=catalog_add.asp name=form1>
<table width=100% border=1 cellpadding=2 cellspacing=0>
<tr><th colspan=2>Add Catalog</th></tr>
<tr><th>Parameter</th><th>value</th></tr>
<tr>
<td>Catalog name</td>
<td><input type=text name=catalog_name size=80></td>
</tr>
<tr>
<td>Physical path</td>
<td>
<input type=text name=catalog_path size=80>
<input type=button value="Browse..."
onclick="s_display_select_server_folder_or_file(document.form1.catalog_path,
'folder', '', '<%=s_physical_path_for_js%>')">
</td>
</tr>
<tr>
<td colspan=2>
<input type=submit value="Add catalog">
</td>
</tr>
</table>
</form>
<% response.flush %>
<br>
<%
dim status, stateinfo
found_catalog = is_admin_obj.findfirstcatalog()
for i = 1 to 100
err.clear
if (found_catalog = true) then
set is_catalog_obj = is_admin_obj.getcatalog()
response.write("<br>")
response.write("<table width=100% border=1 cellpadding=2
cellspacing=0>")
response.write("<tr><th colspan=5>Catalog Details for: " &
is_catalog_obj.catalogname & "</th></tr>" & vbcrlf)
%>
<tr><td colspan=2>
<a href="index_service.asp">Load clean page after stop, pause or
continue</a> <br>
<a href="catalog_stop.asp?catalog_name=<%= is_catalog_obj.catalogname
%>" >Stop catalog</a> <b>-</b>
<a href="catalog_start.asp?catalog_name=<%=
is_catalog_obj.catalogname
%>" >Start catalog</a> <b>|</b>
<a href="catalog_pause.asp?catalog_name=<%=
is_catalog_obj.catalogname
%>" >Pause catalog</a> <b>-</b>
<a href="catalog_continue.asp?catalog_name=<%=
is_catalog_obj.catalogname %>" >Continue catalog</a> <b>|</b>
<a
href="catalog_force_master_merge.asp?catalog_name=<%=is_catalog_obj.catalogname
%>">Force master merge</a> <b>|</b>
<a href="catalog_delete.asp?catalog_name=<%=
is_catalog_obj.catalogname %>" >Delete catalog</a> <b>|</b>
<a href="catalog_empty.asp?catalog_path=<%=
is_catalog_obj.cataloglocation %>">Empty catalog</a>
</td></tr><tr><td>
<%
response.write("<tr><th width=200px>Field</th><th
width=500px>Value</th></tr>" & vbcrlf)
response.write("<tr><td><b>Catalog name</b></td><td><b>" &
is_catalog_obj.catalogname & "</b></td></tr>" & vbcrlf)
response.write("<tr><td>Catalog location</td><td>" &
is_catalog_obj.cataloglocation & "</td></tr>" & vbcrlf)
if (is_admin_obj.isrunning) then
if(is_catalog_obj.iscatalogrunning = true) then
response.write("<tr><td><font color=ff0000><b>Is
running</td><td><font color=ff0000><b>True</td></tr>" & vbcrlf)
else
response.write("<tr><td>Is running</td><td>False</td></tr>" &
vbcrlf)
end if
if(is_catalog_obj.iscatalogpaused = true) then
response.write("<tr><td><font color=ff0000><b>Is paused (queries
only)</td><td><font color=ff0000><b>True</td></tr>" & vbcrlf)
else
response.write("<tr><td>Is paused (queries
only)</td><td>False</td></tr>" & vbcrlf)
end if
if(is_catalog_obj.iscatalogstopped = true) then
response.write("<tr><td><font color=ff0000><b>Is
stopped</td><td><font color=ff0000><b>True</td></tr>" & vbcrlf)
else
response.write("<tr><td>Is stopped</td><td>False</td></tr>" &
vbcrlf)
end if
err.clear
on error resume next
if(is_catalog_obj.isuptodate = true) then status = status
if(err.number = 0) then
if(is_catalog_obj.iscatalogrunning = true) then
if(is_catalog_obj.isuptodate = true) then
response.write("<tr><td><font color=ff0000><b>Is up to
date</td><td><font color=ff0000><b>True</td></tr>" & vbcrlf)
else
response.write("<tr><td><font color=ff0000><b>Is up to
date</td><td><font color=ff0000><b>False</td></tr>" & vbcrlf)
end if
else
response.write("<tr><td><font color=ff0000><b>Is up to
date</td><td><font color=ff0000><b>No (not indexing)</td></tr>" & vbcrlf)
end if
else
response.write("<tr><td><font color=ff0000><b>Is up to
date</td><td><font color=ff0000><b>No (catalog stopped)</td></tr>" & vbcrlf)
end if
response.write("<tr><td>Delayed filter count</td><td>" &
is_catalog_obj.delayedfiltercount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Documents to filter</td><td>" &
is_catalog_obj.documentstofilter & "</td></tr>" & vbcrlf)
response.write("<tr><td>Filtered document count</td><td> " &
is_catalog_obj.filtereddocumentcount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Fresh test count</td><td>" &
is_catalog_obj.freshtestcount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Index size (mb)</td><td>" &
is_catalog_obj.indexsize & "</td></tr>" & vbcrlf)
response.write("<tr><td>Percent merge complete</td><td>" &
is_catalog_obj.pctmergecomplete & "</td></tr>" & vbcrlf)
response.write("<tr><td>Pending scan count</td><td>" &
is_catalog_obj.pendingscancount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Persistent index count</td><td>" &
is_catalog_obj.persistentindexcount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Query count</td><td>" &
is_catalog_obj.querycount & "</td></tr>" & vbcrlf)
stateinfo = ""
if(is_catalog_obj.stateinfo = 0) then stateinfo =
stateinfo + "Started"
if(is_catalog_obj.stateinfo and 1) then stateinfo =
stateinfo + "Shadow merge, "
if(is_catalog_obj.stateinfo and 2) then stateinfo =
stateinfo + "Master merge, "
if(is_catalog_obj.stateinfo and 4) then stateinfo =
stateinfo + "Scan required, "
if(is_catalog_obj.stateinfo and 8) then stateinfo =
stateinfo + "Annealing merge, "
if(is_catalog_obj.stateinfo and 16) then stateinfo =
stateinfo + "Scanning, "
if(is_catalog_obj.stateinfo and 32) then stateinfo =
stateinfo + "Recovering, "
if(is_catalog_obj.stateinfo and 64) then stateinfo =
stateinfo + "Index migration merge, "
if(is_catalog_obj.stateinfo and 128) then stateinfo =
stateinfo + "Low memory, "
if(is_catalog_obj.stateinfo and 256) then stateinfo =
stateinfo + "High IO, "
if(is_catalog_obj.stateinfo and 512) then stateinfo =
stateinfo + "Master merge paused, "
if(is_catalog_obj.stateinfo and 1024) then stateinfo =
stateinfo + "Read only, "
if(is_catalog_obj.stateinfo and 2048) then stateinfo =
stateinfo + "Battery power"
if(is_catalog_obj.stateinfo and 4096) then stateinfo =
stateinfo + "User Active, "
if(is_catalog_obj.stateinfo and 8192) then stateinfo =
stateinfo + "Starting, "
if(is_catalog_obj.stateinfo and 16384) then stateinfo =
stateinfo + "Reading USNs"
response.write("<tr><td>State info</td><td>" &
is_catalog_obj.stateinfo & ": " & stateinfo & "</td></tr>" & vbcrlf)
response.write("<tr><td>Total document count</td><td>" &
is_catalog_obj.totaldocumentcount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Unique key count</td><td>" &
is_catalog_obj.uniquekeycount & "</td></tr>" & vbcrlf)
response.write("<tr><td>Word list count</td><td>" &
is_catalog_obj.wordlistcount & "</td></tr>" & vbcrlf)
on error goto 0
else
response.write("<tr><td>Index server is not
running</td><td> </td></tr>" & vbcrlf)
end if
response.write("</table>" & vbcrlf)
found_catalog = is_admin_obj.findnextcatalog()
else
exit for
end if
response.flush
next
%>
<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>
<table width=100% border=1 cellpadding=2 cellspacing=0>
<tr><th>Page path</th></tr>
<tr><td><%=request.servervariables("path_translated")%></td></tr>
</table>
<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>
<%
dim input_entry
response.write("<table width=100% border=1 cellpadding=2 cellspacing=0>")
response.write("<tr><th colspan=2>Form variables</th></tr>")
response.write("<tr><th>Parameter</th><th>value</th></tr>")
for each input_entry in request.form
response.write("<tr><td>" & input_entry & "<td>" &
request.form(input_entry) & " </tr>" & vbcrlf)
next
response.write("</table>")
response.write("<table border=0 cellspacing=0 cellpadding=0><tr><td
height=5px></td></tr></table>")
response.write("<table width=100% border=1 cellpadding=2 cellspacing=0>")
response.write("<tr><th colspan=2>Querystring variables</th></tr>")
response.write("<tr><th>Parameter</th><th>value</th></tr>")
for each input_entry in request.querystring
response.write("<tr><td>" & input_entry & "<td>" &
request.querystring(input_entry) & " </tr>" & vbcrlf)
next
response.write("</table>")
%>
</body>
</html>