<% ' 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 & ";pwd=" & strSQLPassword & "" adoConn.Open ConnectionString Set adoRS = Server.CreateObject("ADODB.Recordset")
' now we will 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>成功刪除數據</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
onChange=""top.location.href=this.options[this.selectedIndex].value"">" & vbCrLf) Response.Write(" <option selected value>請選擇表名進行查看.</option>" & vbCrLf) strSQL = "SELECT name FROM sysobjects WHERE xtype = 'U' AND (Not (id) = 133575514) ORDER
BY name" Set adoRS = adoConn.Execute(strSQL) Do While Not adoRS.EOF Response.Write "<option value=""index.asp?table=" & adoRS("name") & """>" &
cellpadding=""0""" & vbCrLf) Response.Write(" cellspacing=""0"" width=""100%"">" & vbCrLf) Response.Write(" <tr>" & vbCrLf) Response.Write(" <td></td>" & vbCrLf) Response.Write(" </tr>" & vbCrLf) Response.Write(" <tr>" & vbCrLf) ' This selects the table that we want to use. strSQL="select * from " & Request.QueryString("table") & "" set adoRS=adoConn.execute(strSQL) ' Now lets start the table Response.Write("<table border=""1""><tr>" & vbCrLf) ' this will find all the fields in that table and write them out FOR EACH fieldname IN adoRS.fields Response.Write("<td><b><font size=""2"">" & fieldname.name & "</font></B></TD>") NEXT ' fieldname Response.Write("<td><b><font size=""2"">刪除</font></B></TD>") Response.Write(" </tr>" & vbCrLf) DO UNTIL adoRS.eof Response.Write("<tr>") FOR EACH fieldname IN adoRS.fields strFieldValue=fieldname.value strField=fieldname.name IF isnull(strFieldValue) THEN strFieldValue=shownull END IF IF trim(strFieldValue)="" THEN strFieldValue=showblank END IF IF strField = "ID" OR strField = "id" THEN strRecordID = strFieldValue END IF Response.Write("<td valign=top><font size=""2"">" & strFieldValue &
"</font></td>" & vbCrLf) NEXT Response.Write("<td valign=top><font size=""2""><a href=""index.asp?table=" &
