Asp > Miscellaneous

DB Viewer

DB Viewer

<%@ Language=VBScript %>
<HTML>
<HEAD>
<STYLE TYPE="text/css">
Body {font-size:10;font-family:Verdana, Arial;color:Black;text-decoration:none;}


	TD,SELECT,OPTION,TextArea ,Input, {font-size:9;font-family:Verdana, Arial;color:Black;text-decoration:none;}

	TH {font-size:8pt;font-family:Verdana, Arial;color:Black;}

</STYLE> 
</HEAD>
<BODY>

<%

if Request("Action") = "ShowdB" then
	Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserID; Password=Password"
	strSQL = "SELECT name,length,xtype,isnullable FROM syscolumns WHERE id=" & Request("id") & " ORDER BY colorder ASC"
	Response.Write "<form action='db.asp' method='post'>" & vbCrLf
	Set objRS = objConn.Execute(strSQL)
	Response.Write "<TABLE BORDER=1 CELLSPACING=1><TR>" & vbCrLf
	For Each fld in objRS.Fields
		Response.Write "<TH>" & fld.Name & "</TH>" & vbCrLf
	Next
	Response.Write "</TR><TR>" & vbCrLf
	if objRS.EOF then
		Response.Write "test"
	else
		i=0
		Do While not objRS.EOF
			Response.Write "<TR>" & vbCrLf
			For Each fld in objRS.Fields
				if fld.Name = "xtype" then
					xSQL = "SELECT name FROM systypes WHERE xtype = '" & fld.value & "'"
					Set xRS = Server.CreateObject("ADODB.Recordset")
					xRS.Open xSQL, objConn
					Response.Write "<TD>" & xRS("name") & "</TD>" & vbCrLf
					xRS.Close
					Set xRS = Nothing
				elseif fld.Name = "name" then
					Response.Write "<TD><input type='checkbox' name='field" & i & "' value='" & fld.value & "'>" & fld.Value & "</TD>" & vbCrLf
				else
					Response.Write "<TD>" & fld.Value & "</TD>" & vbCrLf
				end if
			Next
			Response.Write "</TR>" & vbCrLf
			i=i+1
			objRS.MoveNext
		Loop
	end if
	
	Response.Write "</TABLE><table border=1>"
	Response.Write "<tr><td><input type='radio' name='Type' value='Insert' checked>Insert Statement</td></tr>" & vbCrLf
	Response.Write "<tr><td><input type='radio' name='Type' value='Select'>Select Statement</td></tr>" & vbCrLf
	Response.Write "<tr><td><input type='submit' value='Make Statement'></td></tr>" & vbCrLf
	Response.Write "</table>"
	Response.Write "<input type='hidden' name='Action' value='Statement'>" & vbCrLf
	Response.Write "<input type='hidden' name='Table' value='" & Request("Table") & "'>" & vbCrLf
	Response.Write "</form>"
	
	sSQL = "SELECT * FROM " & Trim(Request("Table"))
	'Response.Write sSQL & "<P>"
	Set sConn = Server.CreateObject("ADODB.Connection")
	sConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserName; Password=Password"
	Set sRS = Server.CreateObject("ADODB.Recordset")
	sRS.Open sSQL, sConn
	Response.Write "<P><b>Copy & Paste:</b></P>"
	sFldString = "<textarea cols=50 rows=15 wrap=hard id=textarea1 name=textarea1>"
	intCount = sRS.Fields.Count - 1
	for i=0 to intCount
		sFldString = sFldString &  sRS(i).Name & ","
	next
	sFldString = Left(sFldString,Len(sFldString)-1) & "

" Set RS = Nothing Set Conn = Nothing Response.Write "

" & sFldString objConn.Close Set objConn = Nothing elseif Request("Action") = "Statement" then if Request("Type") = "Select" then sSQL = "SELECT " for each item in Request.Form if instr(1,Left(item,5),"field") then if i=0 then sFields = Request.Form(item) i=1 else sFields = sFields & "," & Request.Form(item) end if end if next sSQL = sSQL & sFields & " FROM " & Request("Table") Response.Write "" & sSQL & "" else sSQL = "INSERT INTO " & Request("Table") & "(" for each item in Request.Form if instr(1,Left(item,5),"field") then if i=0 then sFields = Request.Form(item) sValues = "'"" & Request(""" & Request.Form(item) & """) & ""'" i=1 else sFields = sFields & "," & Request.Form(item) sValues = sValues & ",'"" & Request(""" & Request.Form(item) & """) & ""'" end if end if next sSQL = sSQL & sFields & ") VALUES (" & sValues & ")""" Response.Write "" & sSQL & "" end if elseif Request("Action") = "ShowT" then Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=" & Request("dB") & "; User ID=UserName; Password=Password" Dim strSQL strSQL = "SELECT id,name,crdate AS Create_Date FROM sysobjects WHERE xtype='U' ORDER BY name ASC" 'Response.Write strSQL Dim objRS Set objRS = objConn.Execute(strSQL) Response.Write "" & vbCrLf Dim fld For Each fld in objRS.Fields if fld.Name = "id" then 'do nothing else Response.Write "" & vbCrLf end if Next Response.Write "" & vbCrLf Do While not objRS.EOF Response.Write "" & vbCrLf For Each fld in objRS.Fields if fld.Name = "name" then Response.Write "" & vbCrLf elseif fld.Name = "id" then 'do nothing else Response.Write "" & vbCrLf end if Next Response.Write "" & vbCrLf objRS.MoveNext Loop Response.Write "
" & fld.Name & "
" & fld.Value & " " & fld.Value & "
" objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing else SQL = "SELECT name FROM sysdatabases ORDER BY name ASC" Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "Provider=SQLOLEDB; Data Source=martini; Initial Catalog=Master; User ID=UserName; Password=Password" Set dRS = Server.CreateObject("ADODB.Recordset") dRS.Open SQL , dConn Response.Write "" & vbCrLf While Not dRS.EOF Response.Write "" & vbCrLf dRS.MoveNext Wend Response.Write "
" & dRS("name") & "
" & vbCrLf dRS.Close Set dRS = Nothing end if %>