height='30'> SQL操作命令:</td>"
   SI=SI&"<td><input name='SqlStr' style='width:470' value="""&SqlStr&"""></td>"
   SI=SI&"<td align='center'><input type='submit' name='Submit' value='执行' onclick='return DbCheck()'></td>"
   SI=SI&"</tr></form></table><span id='abc'></span>"
   Response.Write SI:SI=""
  
   If Len(DbStr)>40 Then
  
   Set Conn=CreateObject(ObT(5,0))
   Conn.Open DbStr
   Set Rs=Conn.OpenSchema(20)
   SI=SI&"<table><tr height='25' Bgcolor='#CCCCCC'><td>表<br>名</td>"
   Rs.MoveFirst
   Do While Not Rs.Eof
   If Rs("TABLE_TYPE")="TABLE" then
   TName=Rs("TABLE_NAME")
   SI=SI&"<td align=center><a href='javascript:FullSqlStr(""DROP TABLE ["&TName&"]"",1)'>[ del ]</a><br>"
   SI=SI&"<a href='javascript:FullSqlStr(""SELECT * FROM ["&TName&"]"",1)'>"&TName&"</a></td>"
   End If
   Rs.MoveNext
   Loop
   Set Rs=Nothing
   SI=SI&"</tr></table>"
   Response.Write SI:SI=""
  
  
  
  If Len(SqlStr)>10 Then
  
   If LCase(Left(SqlStr,6))="select" then
   SI=SI&"执行语句："&SqlStr

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象