显示sql数据库所有表的名称（带删除功能）
2018-09-06 10:58
<%
Define your sql info here
strSQLDSN = xxxx
strSQLUsername = sa
strSQLPassword =
This is where we connect to our sql server(WINDOWS平台上强大的数据库平台)
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 = nbsp;
shownull = -null-
If Request.QueryString(action) = del Then
Delete_Data
Else
Then
A table has been selected
Page_Head
Display_Table_Names
If Request.QueryString(msg) = deleted Then
)
)
Else
)
End If
Display_Table_Info
Else
No table has been selected.
Page_Head
Display_Table_Names
End If
End If
Sub Page_Head
%>
<BODY aLink=#0663bf leftMargin=0 link=#0663bf topMargin=0 vLink=#0663bf MARGINHEIGHT=0
<%
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
vbCrLf)
Response.Write( vbCrLf)
Response.Write(<table border=1 cellpadding=0 cellspacing=0 width=36%
vbCrLf)
vbCrLf)
<font
vbCrLf)
上一篇：asp base64编码中文