executesql.asp

一套比较完整的内部技术支持全部源代码,请大家共同分享

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/tar.asp" -->
<%if session("isadmin")="1" then

dim str
str=trim(request.form("sql"))

set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Source=str
rs.open()

if Lcase(mid(str,1,1))="s" then
	response.write "<table border=1><tr>"
	for i=0 to rs.Fields.count-1
		response.write "<td>" & rs(i).name & "</td>"
	next
	response.write "</tr>"
	do while not rs.eof
		response.write "<tr>"
		for i=0 to rs.Fields.count-1
			response.write "<td>" & rs(i) & "</td>"
		next
	response.write "</tr>"
	rs.movenext
	loop
	response.write "</table>"
end if
%>

<%
end if%>