admin_db_executesql.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file=admin_sb.asp--><%
  2. '====================================================================
  3. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  4. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  5. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  6. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  7. '====================================================================
  8. %> <br>
  9. <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  10.   <tr> 
  11.     <td height="20">直接执SQL语句<br>
  12.       <%
  13.    call showsqlinput
  14. if Request.QueryString("action")="exe" Then
  15. Dim strsql
  16. strsql=Request.form("sql")
  17. if Request.form("rs")<>"" and strsql<>"" then
  18. executesql strsql,1
  19. elseif Request.Form("nors")<>"" and strsql<>"" then
  20. executesql strsql,2
  21. end if
  22. end if
  23.   %>
  24.       <p></p></td>
  25.   </tr>
  26. </table>
  27. <%sub showsqlinput
  28. %>
  29. <table width=96% align="center">
  30.         <tr> 
  31.           
  32.     <td><form name="form1" method="post" action="admin_db_executesql.asp?action=exe">
  33.         <p> 注意:待执行SQL语句(警告:执行语句要<font color="#FF0000">万分小心</font>!) <br>
  34.           &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;执行SQL语句有两个选项,如果要求得到记录集,请点击第一个提交按钮,否则请选第二个<br>
  35.           <br>
  36.           <textarea name="sql" cols="80" rows="7"><%=Request.form("sql")%></textarea>
  37.         </p>
  38.         <p> 
  39.           <input type="submit" name="rs" value="得到记录集">
  40.           &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  41.           <input type="submit" name="nors" value="不要记录集">
  42.         </p>
  43.       </form>
  44.       <br> </td>
  45.         </tr>
  46.       </table>
  47. <%
  48. end sub
  49. function executesql(sql,sqltype)
  50. 'on error resume next
  51. dim rs,i
  52. set conn = Server.CreateObject("ADODB.Connection")
  53. connc = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../"&const_AccessDatabase&"")
  54. conn.open connc
  55. conn.Errors.Clear 
  56. Response.write "<font color=red>SQL语句:"&sql&"</font><br>"
  57. if sqltype=1 then
  58. set rs=conn.Execute (sql)
  59. if not rs.eof then
  60. %>
  61. <table border=1 cellspacing=0 cellpadding=0 width=600 align=center>
  62.  <tr>
  63.   <% For i=0 to Rs.Fields.Count-1%>
  64.  <th><%=Rs(i).Name%></th>
  65.   <%next%>
  66. </tr>
  67. <% While not Rs.Eof%>
  68. <tr>
  69. <% For i=0 to Rs.fields.count-1%>
  70. <td><%=Rs(i)%></td>
  71. <%Next%>
  72. </tr>
  73. <%
  74. Rs.movenext
  75. Wend
  76. rs.close
  77. end if
  78. elseif sqltype=2 then 
  79. conn.execute (sql)
  80. end if
  81. end function
  82. %>