|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/mguerinweb/DBAdmin/ |
Upload File : |
<%@ Language=VBScript %>
<!--#include file=scripts/inc_common.asp-->
<html>
<head>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<link href="default.css" rel="stylesheet" type="text/css">
<title>DBA:Free-Type Query</title>
<script type="text/javascript" language="javascript" src="scripts/common.js" defer></script>
</head>
<body>
<% call DBA_WriteNavigation%>
<%
dim dba, strQuery, rec, AffectedRecords, pagesize, page, abspage, sClass, i, fld
strQuery = CStr(Request("query").Item)
if IsNumeric(Request("pagesize").Item) then pagesize = CInt(Request("pagesize").Item) else pagesize = 10
if IsNumeric(Request("page").Item) then page = CInt(Request("page").Item) else page = 1
if page <= 0 then page = 1
if pagesize <= 0 then pagesize = 10
set dba = new DBAdmin
dba.Connect Session(DBA_cfgSessionDBPathName), Session(DBA_cfgSessionDBPassword)
if Len(strQuery) > 0 then
set rec = dba.RunScript( _
strQuery, _
Request.Form("transaction").Item, _
Request.Form("ignore_errors").Item, _
AffectedRecords)
end if
%>
<!--BEGIN RESULTS FORM-->
<%
if Len(strQuery) > 0 then
DBA_BeginNewTable langFTQResults, "", "90%"
%>
<%
'first let's write out what was affected
for each i in AffectedRecords
DBA_WriteSuccess langRecordsAffected & " " & i & "<br>"
next
if rec.State <> adStateClosed then
rec.CacheSize = pagesize
rec.PageSize = pagesize
if rec.PageCount > 0 then rec.AbsolutePage = page
abspage = rec.AbsolutePage
%>
<h3 align="center"><%=langTotalRecords%> <b><%=rec.RecordCount%></b></h3>
<!--BEGIN EXPORT OPTIONS-->
<% if rec.RecordCount > 0 then%>
<p align=center>
* <img src="images/xml.gif" border="0" width="16" height="16"><a href="export_xml.asp?sql=<%=Server.URLEncode(strQuery)%>" alt="<%=langXMLExportAlt%>"><%=langXMLExport%></a>
* <img src="images/excel.gif" border="0" width="16" height="16"><a href="export_csv.asp?sql=<%=Server.URLEncode(strQuery)%>" alt="<%=langExcelExportAlt%>"><%=langExcelExport%></a> *
</p>
<% end if%>
<!--END EXPORT OPTIONS-->
<table align="center">
<tr><td align="center">
<form action="ftquery.asp" method="post">
<%=langPageSize%>
<select name="pagesize">
<option value="5">5</option>
<option value="10">10</option>
<option value="15">15</option>
<option value="25">25</option>
<option value="50">50</option>
</select>
<input type="hidden" name="query" value="<%=Replace(strQuery, """", """)%>">
<input type="submit" value="<%=langSubmit%>" class="button">
</form>
</td></tr>
</table>
<p align="left">
<% if abspage > 1 then%>
<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=(abspage - 1)%>&pagesize=<%=pagesize%>"><font size="1">« <%=langPrev%></font></a>
<% end if%>
<% for i=1 to rec.PageCount
if i = abspage then%>
<font size="2">[<%=i%>]</font>
<% else%>
<font size="1"> [<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=i%>&pagesize=<%=pagesize%>"><%=i%></a>] </font>
<% end if
Next
if abspage < rec.PageCount and abspage > 0 then%>
<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=(abspage + 1)%>&pagesize=<%=pagesize%>"><font size="1"><%=langNext%> »</font></a>
<% end if
i = 0
%>
</p>
<table align="center" border="1" width="100%">
<tr>
<% for each fld in rec.Fields%>
<th><%=fld.Name%></th>
<% next%>
</tr>
<%
do while not rec.EOF and i < rec.PageSize and rec.State <> adStateClosed
if sClass = "oddrow" then sClass = "evenrow" else sClass = "oddrow"
%>
<tr class="<%=sClass%>" onmouseover="style.backgroundColor='#ffdfbf'" onmouseout="style.backgroundColor=''">
<% for each fld in rec.Fields%>
<td valign="top" align="center">
<% if fld.Type <> adBinary then
if fld.Value <> "" then Response.Write Replace(fld.Value, "<", "<") else Response.Write " "
else
Response.Write "<" & langBinaryData & ">"
end if
%>
</td>
<% next%>
</tr>
<% rec.MoveNext
i = i + 1
loop
%>
</table>
<p align="left">
<% if abspage > 1 then%>
<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=(abspage - 1)%>&pagesize=<%=pagesize%>"><font size="1">« <%=langPrev%></font></a>
<% end if%>
<% for i=1 to rec.PageCount
if i = abspage then%>
<font size="2">[<%=i%>]</font>
<% else%>
<font size="1"> [<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=i%>&pagesize=<%=pagesize%>"><%=i%></a>] </font>
<% end if
Next
if abspage < rec.PageCount and abspage > 0 then%>
<a href="ftquery.asp?query=<%=Server.URLEncode(strQuery)%>&page=<%=(abspage + 1)%>&pagesize=<%=pagesize%>"><font size="1"><%=langNext%> »</font></a>
<% end if%>
</p>
<% end if
call DBA_EndNewTable
end if
%>
<!--END RESULTS FORM-->
<!--BEGIN QUERY FORM-->
<%
DBA_BeginNewTable langFreeTypeQuery, langFreeTypeQueryAlt, "90%"
if dba.HasError then DBA_WriteError Replace(dba.LastError, vbCrLf, "<br>")
%>
<p align="center"><%=langTypeSQL%></p>
<form action="ftquery.asp" method="post">
<table align="center" border="0">
<tr><td>
<textarea name="query" rows="10" cols="50"><%=strQuery%></textarea>
</td></tr>
<tr><td>
<input type="checkbox" name="transaction" value="-1"> <%=langUseTransaction%>
</td></tr>
<tr><td>
<input type="checkbox" name="ignore_errors" value="-1"> <%=langIgnoreErrors%>
</td></tr>
<tr><td align="center">
<input class="button" type="submit" value="<%=langRunIt%>" name="submit">
</td></tr>
</table>
</form>
<%
call DBA_EndNewTable
set dba = Nothing
%>
<!--END QUERY FORM-->
<!--#include file=scripts/inc_footer.inc-->
</body>
</html>