28,409
社区成员




<!--#include file="Inc/CONN.ASP"-->
<%
Dim conStr
Set con = Server.CreateObject("ADODB.Connection")
conStr = "Driver={Oracle in OraHome92};Server=192.168.1.51;Dbq=mlk;Uid=system;Pwd=******;"
con.Open conStr
Response.Write "<center>"
Call ControlPanel()
%>
<table style="width:99%;margin-top:5px;">
<form action="<%=Url%>" method="post">
<tr>
<td><textarea name="sql" style="width:100%;border:1px outset black;" rows="7"><%=Request("sql")%></textarea></td>
</tr>
<tr>
<td align="right"><input type="submit" value="立刻运行SQL指令" /></td>
</tr>
</form>
</table>
<%
Dim Sql,RS,i,n
n = 0
Sql = Replace(Request("sql"),vbcrlf,"")
If Sql & "" <> "" Then
On Error Resume Next
Set RS = con.Execute(Sql)
Response.Write "<div style=""text-align:left;width:99%;"">指令:“<b><font color=blue>" & Sql & "</b></font>”,运行结果:"
If Err Then
Response.Write "<font color=""red"">异常</font><br/><br/>错误号:" & Err.Number & "<br/>错误描述:<font color=red>" & Err.Description
Err.Clear
Else
Response.Write "<font color=""green"">成功</font><br/><br/>"
If RS.Fields.Count > 0 Then
Response.Write "<div style=""width:99%;overflow:auto;height:300px;"" id=""out""><div style=""width:1000%;"" id=""in""><table id=""tb"" cellspacing=""0"" cellpadding=""0"" border=""1"">"
Response.Write "<tr align=""center""><td>sn</td>"
For i = 0 To RS.Fields.Count - 1
Response.Write "<td>" & RS.Fields(i).Name & "(" & RS.Fields(i).Type & ")<br/>" & i & "</td>"
Next
Response.Write "</tr>"
Do While Not RS.Eof
n = n + 1
Response.Write "<tr><td>" & n & "</td>"
For i = 0 To RS.Fields.Count - 1
Response.Write "<td>"
If IsNull(RS(i)) Then
Response.Write "<i style=""color:blue;"">(null)</i>"
ElseIf RS.Fields(i).Type = 205 Then
Response.Write "<font color=""red"">" & Server.HTMLEncode(BIN2STR(RS(i),CharSet)) & "</font>"
Else
Response.Write Server.HTMLEncode(RS(i))
End If
Response.Write " </td>"
Next
Response.Write "</tr>"
RS.MoveNext
Loop
Response.Write "</table></div></div><script>document.getElementById('in').style.width = document.getElementById('tb').offsetWidth;</script>"
End If
End If
Response.Write "</div>"
End If
Response.Write "</center>"
Sub ControlPanel
%>
<div class="sys_banner">
<div class="sys_title">运行 SQL 指令</div>
<div class="tab16">运行 SQL 指令,该操作属于<font color=red>高度危险操作</font>,请在本地测试后再运行相应的指令。</div>
</div>
<%
End Sub
%>