IDC资讯中心
<%
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
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>请选择表名进行查看.</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") & """>" &
adors("name") & "</option>"
adors.movenext
loop
response.write(" </select> </center></td>" & vbcrlf)
response.write(" </tr>" & vbcrlf)
response.write(" <tr>" & vbcrlf)
response.write(" <td width=""100%""> </td>" & vbcrlf)
response.write(" </tr>" & vbcrlf)
response.write(" </table>" & vbcrlf)
response.write(" </center></div></td>" & vbcrlf)
response.write(" </tr>" & vbcrlf)
response.write("</table>" & vbcrlf)
response.write("</center></div>" & vbcrlf)
end sub
sub display_table_info
response.write("<div align=""center""><center>" & 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 破戒</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></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=" &
request.querystring("table") & "&id=" & strrecordid & "&action=del"">删除</a></font></td>" &
vbcrlf)
adors.movenext
loop
response.write("</table>")
adors.close
response.write(" </tr>" & vbcrlf)
response.write(" <tr>" & vbcrlf)
response.write(" <td></td>" & vbcrlf)
response.write(" </tr>" & vbcrlf)
response.write(" </table>" & vbcrlf)
response.write(" </center></div></td>" & vbcrlf)
response.write(" </tr>" & vbcrlf)
response.write("</table>" & vbcrlf)
response.write("</center></div>" & vbcrlf)
end sub
%>
