Program | data | database | Display <%
' Define your SQL info here
STRSQLDSN = "xxxx"
Strsqlusername = "sa"
Strsqlpassword = ""
' This is where we connect to our SQL Server
Set adoconn = Server.CreateObject ("ADODB. Connection ")
ConnectionString = "dsn=" & Strsqldsn & "Uid=" & Strsqlusername & ";p wd=" & Strsqlpassword & ""
Adoconn.open ConnectionString
Set adors = Server.CreateObject ("ADODB. Recordset ")
' Now we'll just difine a couple things
Showblank = ""
Shownull = "-null-"
If request.querystring ("action") = "Del" Then
Delete_data
Else
If request.querystring ("table") <> "Then
' A table has been selected
Page_head
Display_table_names
If request.querystring ("msg") = "deleted" Then
Response.Write ("<p><br></p>")
Response.Write ("<font color=" "#FF0000" ><b> "successfully delete data </b></font>")
Else
Response.Write ("<p><br></p>")
End If
Display_table_info
Else
' No table has been selected.
Page_head
Display_table_names
End If
End If
Sub Page_head
%>
<HTML>
<HEAD>
<title>sql viewer</title>
<body alink= #0663bf leftmargin= "0" link= "#0663bf" topmargin= "0" vlink= "#0663bf" marginheight= "0"
Marginwidth= "0" >
</HEAD>
<p><br></p>
<%
End Sub
Sub Delete_data
strSQL = "Delete from" & Request.QueryString ("table") & "Where id=" "&
Request.QueryString ("id") & "'"
Set adors = Adoconn.execute (strSQL)
strURL = "index.asp?table=" & Request.QueryString ("table") & "&msg=deleted"
Response.Redirect (strURL)
End Sub
Sub Display_table_names
Response.Write ("<div align=" "Center" "><center>" & VbCrLf)
Response.Write ("" & VbCrLf)
Response.Write ("<table border=" "1" "cellpadding=" "0" "cellspacing=" "0" "width=" "36%" "
Bordercolor= "" #9b9180 ">" & vbCrLf)
Response.Write ("<tr bgcolor=" "#9b9180" ">" & vbCrLf)
Response.Write ("<td width=" "100%" "><p align=" "Center" "><font
Color= "" #FFFFFF "" ><strong>sql viewer</strong></font></td> "& vbCrLf)
Response.Write ("</tr>" & VbCrLf)
Response.Write ("<tr bgcolor=" "#dcd8d1" ">" & vbCrLf)
Response.Write ("<td width=" "100%" "><div align=" "Center" "><center><table border=" "0")
Cellpadding= "" 0 "" "& VbCrLf)
Response.Write ("cellspacing=" "0" "width=" "100%" ">" & vbCrLf)
Response.Write ("<tr>" & VbCrLf)
Response.Write ("<td width=" "100%" "> </td>" & vbCrLf)
Response.Write ("</tr>" & VbCrLf)
Response.Write ("<tr>" & VbCrLf)
Response.Write ("<td width=" "100%" "Nowrap><center> <select size=" "1" "
Name= "" Table "" style= "" Font-family:verdana; Font-size:8pt ""
Onchange= "" Top.location.href=this.options[this.selectedindex].value "" > "& vbCrLf)
Response.Write ("<option Selected value> Please select Table name to view .</option>" & vbCrLf)
strSQL = "SELECT name from sysobjects WHERE xtype = ' U ' and (not (id) = 133575514) Order
By name "
Set adors = Adoconn.execute (strSQL)
Do as not adors.eof
Response.Write "<option value=" "Index.asp?table=" & Adors ("name") & "" > "&
Adors ("name") & "</option>"
Adors.movenext
Loop
Response.Write ("</select> </cent