<% Dim Quit Dim FSO Dim ConString Dim Cat Dim Conn Dim RS Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Cat = Server.CreateObject("ADOX.Catalog") Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Dim path path = request.Form("txtPath") If FSO.FileExists(path) Then ConString = "Provider='Microsoft.Jet.OLEDB.4.0';data source='" & path & "';" Conn.Open (ConString) Cat.ActiveConnection = Conn Quit = False Else Quit = True response.write "<center><h3><font color=red>Path dont exist</font></h3></center>" End If %> <html> <head> <TITLE>SQL</TITLE> <LINK href="styles.css" type=text/css rel=stylesheet> <script language="JavaScript"> Function Validate() { return true; } Function SetSQL() { var i; var d; d=document.form1; i=d.Tables.selectedIndex; if (i==-1) return; document.form1.showRS[0].checked=true; document.form1.txtSQL.value="Select * From [" + document.form1.Tables.options[i].value + "]"; document.form1.submit(); } </script> </head> <% Dim showresult Dim showRS Dim path If Quit = False Then ConString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & path End If sql = Trim(request.Form("txtSQL")) showRS = request.Form("showRS") If Quit = False Then If sql <> "" Then Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open (ConString) Set RS = Conn.execute(sql) If showRS = "yes" Then If RS.EOF = False Then showresult = True Else showresult = False End If End If End If End If %> <BODY bgcolor="#FFFFFF"> <center> <form name=form1 method=post action="" onsubmit="return Validate()"> <table border="0" cellpadding="1" cellspacing=1 width="98%" height="386" collapse" bgcolor="lightblue"> <tr> <td class=tableborder width="43%" colspan="2" align="center" bgcolor=lightblue height="13">SQL</td> <td width="19%" align="center" class=tableborder bgcolor=lightblue height="13">Table Name</td> </tr> <tr> <td width="43%" colspan="2" height="200" bgcolor="white"> <textarea name="txtSQL" cols="50" rows="15" style="width:100%;height:100%"><%=sql%> </textarea> </td> <td width="19%" height="294" bgcolor="#FFFFFF" valign="top"> <select styles="Width:100%" name="Tables" size="22"> <% If Quit = False Then For i = 0 To Cat.Tables.Count - 1 If Cat.Tables(i).Type = "TABLE" Then response.write "<option value=" & Cat.Tables(i).Name & ">" & Cat.Tables(i).Name & " (Table)" & "</option>" ElseIf Cat.Tables(i).Type = "VIEW" Then response.write "<option value=" & Cat.Tables(i).Name & ">" & Cat.Tables(i).Name & " (Query)" & "</<option>" End If Next End If %> </select> </td> </tr> <tr> <td class=tableborder bgcolor=lightblue width="9%" height="22">Path : </td> <td align=left width="39%" height="22" bgcolor="#FFFFFF" > <input style="Width:100%" type="text" name="txtPath" size="50" value="<%=path%>"> <td align=center width="19%" height="22" bgcolor="#FFFFFF"> <input type=button value="Show" onclick="JavaScript:SetSQL()"> </td> </tr> <tr> <td class=tableborder bgcolor=lightblue width="11%" height="19">Database Type : </td> <td width="32%" height="19" bgcolor="#FFFFFF"> <select name="select"> <option value="0">Select One</option> <option value="access97">Access 97</option> <option value="access2k" selected>Access 2000</option> <option value="sqlserver">SQL Server</option> </select></td> <td width="19%" height="19" bgcolor="#FFFFFF"> </td> </tr> <tr> <td width="62%" colspan="3" align="center" height="13" bgcolor="#FFFFFF"> <%If showrs="yes" then%> <input type="radio" name="showRS" value="yes" checked> Display Result <input type="radio" name="showRS" value="no"> No Restult <%else%> <input type="radio" name="showRS" value="yes"> Display Result <input type="radio" name="showRS" value="no"> No Result <%End If%> </td> </tr> <tr> <td width="62%" colspan="3" align="center" height="13" bgcolor="#FFFFFF"> <input type="submit" name="Assign" value="Execute"></td> </tr> </table> <p> </p> </form> <% With response .write "<table width='98%' border='0' cellspacing='1' cellpadding='3' bgcolor=black>" .write "<tr bgcolor=white>" .write "<td align=center class=tableborder bgcolor=lightblue width='20px'>#</td>" If Quit = False Then For i = 0 To RS.fields.Count - 1 .write "<td class=tableborder bgcolor=lightblue>" .write RS.fields(i).Name .write "</td>" Next .write "</tr>" End If Dim n n = 1 If Quit = False And showresult Then Do While Not RS.EOF .write "<tr bgcolor=white>" .write "<td align=center>" & n & "</td>" For i = 0 To RS.fields.Count - 1 .write "<td>" .write RS.fields(i).Value .write "</td>" Next .write "</tr>" RS.movenext n = n + 1 Loop Else If path <> "" Then .write "<tr bgcolor=white><td colspan=100>No Record Found</td></tr>" End If End If .write "</table>" End With %> <a href=logout.asp>Logout</a> </center> <p align=center> </p> </BODY> </html> <% Set Cat = Nothing Set RS = Nothing Set Conn = Nothing %>
|