API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 16th, 2011
253
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 9.41 KB | None | 0 0
raw download clone embed print report
  1. <%@ Language=VBScript %>
  2. <!--
  3.    SQL Queries via ASP
  4.    
  5.    Developed by Ketan Vyas, Net-Square
  6.    
  7.    v1.1 Sept 15, 2003.
  8.  
  9.    Added connection provider support for MySQL ODBC and Foxpro
  10.  
  11.    v1.0 June 16, 2001.
  12.    
  13.    Added connection provider support for Oracle servers
  14.    
  15.    v0.9 June 11, 2001.
  16.    
  17.    This page allows for remote SQL queries to be performed via a
  18.    web page. Currently, it requires connection information for the
  19.    database.
  20.    
  21.    Present version works only for MS-SQL server. Other providers shall
  22.    be included later.
  23. -->
  24. <html>
  25. <head>
  26. <title>SQL Query over HTTP</title>
  27. <style type="text/css">
  28.  PRE
  29.  {
  30.    font-family: Monaco, Courier-new, Lucida, Courier;
  31.    font-size: 10pt;
  32.    color: black;
  33.  }
  34. </style>
  35. </head>
  36. <body>
  37.  
  38. <h1><u><font face="Arial" size="5" color="#000080">
  39. SQL Query over HTTP</font></u></h1>
  40.  
  41. <%
  42.  IF request.form ("Message")="true" THEN
  43.   strServerName=request.form("ServerName")
  44.   strDatabaseName=request.form("DatabaseName")
  45.   strUserName=request.form("UserName")
  46.   strPassword=request.form("Password")
  47.   strQuery=request.form("Query")
  48.   strDbsource=request.form("Dbsource")
  49.   strOther=request.form("other")
  50.   strCon=request.form("Constr")
  51.   strDSN=request.form("DSN")
  52.  
  53.   Response.write("<table align= 'left' border='0'>")
  54.   Response.write("<tr>")
  55.   Response.write("<td>")
  56.  
  57.   Response.write("<form action='#' method='POST'>")
  58.   Response.write("<table align= 'left' border='0'>")
  59.   Response.write("<tr>")
  60.   Response.write("<td valign='top' align='right'><b><font face='Arial' size='2'>
  61.                  Server Name:</font></b></td>")
  62.   Response.write("<td><font face='Courier New'><input type='Text' name='ServerName'
  63.                  size='30' value="+ strServerName +"></font></td>")
  64.   Response.write("<td align='right'><b><font face='Arial' size='2'>
  65.                  User Name:</font></b></td>")
  66.   Response.write("<td><font face='Courier New'><input name='UserName'  size='14'
  67.                  value="+ strUserName +"></font></td>")
  68.   Response.write("</tr>")
  69.   Response.write("<tr>")
  70.   Response.write("<td valign='top' align='right'><b><font face='Arial' size='2'>
  71.                  Database Name:</font></b></td>")
  72.   Response.write("<td><font face='Courier New'><input name='DatabaseName' size='30'
  73.                  value="+ strDatabaseName +"></font></td>")
  74.   Response.write("<td align='right'><b><font face='Arial' size='2'>
  75.                  Password:</font></b></td>")
  76.   Response.write("<td><font face='Courier New'><input name='Password' size='14'
  77.                  value="+ strPassword +"></font></td>")
  78.   Response.write("</tr>")
  79.   Response.write("<tr>")
  80.   Response.write("<td valign='top' align='right'><b><font face='Arial' size='2'>
  81.                  Connection String:</font></b></td>")
  82.   Response.write("<td><input type='text' name='ConStr' size='30' value='"+
  83.                   strCon +"'></td>")
  84.   Response.write("</tr>")
  85.   Response.write("<tr>")
  86.   Response.write("<td valign='top' align='right'><b><font face='Arial' size='2'>
  87.                  Driver:</font></b></td>")
  88.   Response.write("<td><select size='1' name='Dbsource'>")
  89.  
  90.   IF(strDbsource = "SQL Server") THEN
  91.    Response.write("<option selected>" + strDbsource + "</option>")
  92.    Response.write("<option>Oracle ODBC Driver</option>")  
  93.    Response.write("<option>Microsoft Access Driver (*.mdb)</option>")
  94.    Response.write("<option>MySQL ODBC 3.51 Driver</option>")
  95.   END IF
  96.   IF (strDbsource = "Oracle ODBC Driver") THEN
  97.    Response.write("<option selected>" + strDbsource + "</option>")
  98.    Response.write("<option>SQL Server</option>")
  99.    Response.write("<option>Microsoft Access Driver (*.mdb)</option>")
  100.    Response.write("<option>MySQL ODBC 3.51 Driver</option>")
  101.   END IF
  102.   IF (strDbsource = "Microsoft Access Driver (*.mdb)") THEN
  103.    Response.write("<option selected>" + strDbsource + "</option>")
  104.    Response.write("<option>SQL Server</option>")
  105.    Response.write("<option>Oracle ODBC Driver</option>")
  106.    Response.write("<option>MySQL ODBC 3.51 Driver</option>")
  107.   END IF
  108.   IF (strDbsource = "MySQL ODBC 3.51 Driver") THEN
  109.    Response.write("<option selected>" + strDbsource + "</option>")
  110.    Response.write("<option>SQL Server</option>")
  111.    Response.write("<option>Oracle ODBC Driver</option>")
  112.    Response.write("<option>Microsoft Access Driver (*.mdb)</option>")
  113.   END IF
  114.  
  115.   Response.write("</select>")
  116.   Response.write("</td>")
  117.   Response.write("</tr>")
  118.   Response.write("<tr>")
  119.   Response.write("<td valign='top' align='right'><b><font face='Arial' size='2'>
  120.                  Query String:</font></b></td>")
  121.   Response.write("<td colspan='3'><font face='Courier New'><textarea rows='4'
  122.                  name='Query' cols='69'>"+ strQuery +"</textarea></font></td>")
  123.   Response.write("</tr>")
  124.   Response.write("<tr>")
  125.   Response.write("<td><input type='HIDDEN' name='Message' value='true'></td>")
  126.   Response.write("</tr>")
  127.   Response.write("<tr>")
  128.   Response.write("<td>")
  129.   Response.write("<td colspan='3'>&nbsp;<input type='submit' value='Execute Query'></td>")
  130.   Response.write("</tr>")
  131.   Response.write("</table>")
  132.   Response.write("</form>")
  133.  
  134.   Response.write("</td>")
  135.   Response.write("</tr>")
  136.   Response.write("<tr>")
  137.   Response.write("<td>")
  138.  
  139.   Response.write("<BR>")
  140.   Response.write("<HR>")
  141.   Response.write("<p>")
  142.   Response.write("</p>")
  143.  
  144.   set objCon = server.createobject("ADODB.Connection")
  145.  
  146.   IF(strDSN = "") THEN
  147.    IF(strCon = "") THEN
  148.       IF(strDbsource = "Microsoft Access Driver (*.mdb)") THEN
  149.           objCon.ConnectionString= "Driver=" + strDbsource + ";server=" + strServerName +
  150.           ";uid=" + strUserName + ";pwd=" + strPassword + ";DBQ=" + strDatabaseName
  151.        ELSE
  152.           objCon.ConnectionString= "Driver=" + strDbsource + ";server=" + strServerName +
  153.           ";uid=" + strUserName + ";pwd=" + strPassword + ";database=" + strDatabaseName
  154.        END IF
  155.    ELSE
  156.     objCon.ConnectionString= strCon
  157.    END IF
  158.   ELSE
  159.    IF(strCon = "") THEN
  160.     objCon.ConnectionString= "Driver=" + strDbsource + ";DSN=" + strDSN + ";uid=" +
  161.     strUserName + ";pwd=" + strPassword
  162.    ELSE
  163.     objCon.ConnectionString= "DSN=" + strDSN + ";" + strCon
  164.    END IF  
  165.   END IF
  166.  
  167.   objCon.Open
  168.  
  169.   Response.write("Database Connection Opened")
  170.   Response.write("<p>")
  171.  
  172.   Set RS = objCon.Execute(strQuery)
  173.  
  174.   Select Case RS.eof
  175.    Case False
  176.  
  177.     RSArray = RS.getrows
  178.  
  179.     Number_Of_Fields = Cdbl(UBound(RSArray, 1))
  180.     Number_Of_Records = Cdbl(UBound(RSArray, 2))
  181.     Response.Write "<table border=1 bordercolorlight='#000000' cellspacing='0'
  182.                    cellpadding='0' bordercolordark='#C0C0C0'>"
  183.     Response.Write "<tr>"
  184.  
  185.     For A = 0 to Number_Of_Fields
  186.      Response.Write "<td valign='middle' height='30' bgcolor='#000080'>"
  187.      Response.Write "<font color='#FFFFFF' face='Arial' size='3'><b>"
  188.      Response.Write RS.Fields(A).Name
  189.      Response.Write "</b></font>"  
  190.      Response.Write "</td> "
  191.     Next
  192.  
  193.     Response.Write "</tr>"
  194.  
  195.     For R = 0 to Number_Of_Records
  196.      Response.Write "<tr>"
  197.      For F = 0 to Number_Of_Fields
  198.       Response.Write "<td><pre>"
  199.       Response.Write RSArray(F, R)
  200.       Response.Write "</pre></td> "
  201.      Next
  202.      Response.Write "</tr>"
  203.     Next
  204.     Response.Write "</table>"
  205.    Case True
  206.     Response.Write "No Records were found"
  207.   End Select
  208.  
  209.   Response.write("</td>")
  210.   Response.write("</tr>")
  211.  
  212.   Set RS = Nothing
  213.   objCon.Close
  214.   Response.write("<tr>")
  215.   Response.write("<td>")
  216.   Response.Write "Database Connection Closed"
  217.   Response.write("</td>")
  218.   Response.write("</tr>")
  219.   Response.write("</table>")
  220.  
  221.  ELSE
  222. %>
  223.  <form action='#' method='POST'>
  224.   <table align='left' border='0'>
  225.    <tr>
  226.     <td valign='top' align='right'><b><font face='Arial' size='2'>
  227.     Server Name:</font></b></td>
  228.     <td><font face='Courier New'><input type='Text' name='ServerName' size='30'>
  229.     </font></td>
  230.     <td align='right'><b><font face='Arial' size='2'>User Name:</font></b></td>
  231.     <td><font face='Courier New'><input name='UserName'  size='14'></font></td>
  232.    </tr>
  233.    <tr>
  234.     <td valign='top' align='right'><b><font face='Arial' size='2'>Database Name:
  235.     </font></b></td>
  236.     <td><font face='Courier New'><input name='DatabaseName' size='30'></font></td>
  237.     <td align='right'><b><font face='Arial' size='2'>Password:</font></b></td>
  238.     <td><font face='Courier New'><input name='Password' size='14'></font></td>
  239.    </tr>
  240.    <tr>
  241.     <td valign='top' align='right'><b><font face='Arial' size='2'>
  242.     Connection String:</font></b></td>
  243.     <td ><input type='text' name='ConStr' size='30'></td>
  244.    </tr>
  245.    <tr>
  246.     <td valign='top' align='right'><b><font face='Arial' size='2'>Driver:
  247.     </font></b></td>
  248.     <td>
  249.      <select size='1' name='Dbsource'>
  250.      <option>Oracle ODBC Driver</option>
  251.      <option>Microsoft Access Driver (*.mdb)</option>
  252.      <option>MySQL ODBC 3.51 Driver</option>
  253.      <option selected>SQL Server</option>
  254.      </select>
  255.     </td>
  256.    </tr>
  257.    <tr>
  258.     <td valign='top' align='right'><b><font face='Arial' size='2'>
  259.     Query String:</font></b></td>
  260.     <td colspan='3'><font face='Courier New'>
  261.     <textarea rows='4' name='Query' cols='69'></textarea></font></td>
  262.    </tr>
  263.    <tr>
  264.     <td><input type='HIDDEN' name='Message' value='true'></td>
  265.    </tr>
  266.    <tr>
  267.     <td>
  268.     <td colspan='3'>&nbsp;<input type='submit' value='Execute Query'></td>
  269.    </tr>
  270.   </table>
  271.  </form>
  272. <%END IF%>
  273. </body>
  274. </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!