ASP操作Access数据库的程序。（转）
日期：2011-09-11 浏览次数：20929 次
<%
'--- define DSN names in array
'--- enter one or more DSN name in the database_list array
database_list=Array("Test","test1")
'--- enable deleting table? -- Carefull!!
strEnableDeleteTable = False
'---- end declaration
'---- do not change code below this line ---------------------------------------------
field_value=Array("Integer","Double","char(255)","Memo","Date","Currency","YesNo")
field_display=Array("Integer","Number","Text","Memo","Date/Time","Currency","Yes/No")
dsn_name = Request("DatabaseName")
If Not dsn_name = "" Then
Set con = Server.CreateObject("ADODB.Connection")
Con.Provider = "sqloledb"
if dsn_name = "Test" then
ConStr = "Data Source =127.0.0.1;Initial Catalog=test;User ID=test;Password=1111"
else
ConStr = "Data Source =127.0.0.1;Initial Catalog=test1;User ID=test1;Password=1111"
end if
con.Open constr
End If
table_name = Request("TableName")
If Request("AddNewTable")<>"" Then
If Request("NewTableName") <> "" Then
SQL = "CREATE TABLE " & Request("NewTableName") & " (fldAuto Counter)"
con.Execute(SQL)
End If
End If
If Request("AddNewField")<>"" Then
If request("NewFieldName") <> "" Then
SQL = "ALTER TABLE " & table_name & " ADD " & request("NewFieldName") & " " & request("NewFieldType") & " NULL"
con.Execute(SQL)
End If
End If
If Request("DeleteTable")<>"" Then
SQL = "DROP TABLE " & Request("TableName")
Con.Execute(SQL)
End If
If Request("DeleteColumn")<>"" Then
For Each item In Request("DeleteCol")
SQL = "ALTER TABLE " & Request("TableName") & " DROP " & item
con.Execute(SQL)
Next
End If
'----- file name--------------------------------------------------------
file = Request.ServerVariables("SCRIPT_NAME")
file = strReverse(file)
pos = Instr(file,"/")
file = Left(file, pos-1)
file = strReverse(file)
%>
<%
response.write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2 Final//EN"">"
response.write "<HTML><HEAD><TITLE>Database Control</TITLE></HEAD>"
response.write "<BODY bgcolor=""#FFFFFF""><br><br><center>"
'------------------------------------------------------------
response.write "<form action=""" & file & """ method=post>"
response.write "<b><font face=verdana size=3 color=""#008080""><u>Total Database Control</u></font></b><br><br&
'--- define DSN names in array
'--- enter one or more DSN name in the database_list array
database_list=Array("Test","test1")
'--- enable deleting table? -- Carefull!!
strEnableDeleteTable = False
'---- end declaration
'---- do not change code below this line ---------------------------------------------
field_value=Array("Integer","Double","char(255)","Memo","Date","Currency","YesNo")
field_display=Array("Integer","Number","Text","Memo","Date/Time","Currency","Yes/No")
dsn_name = Request("DatabaseName")
If Not dsn_name = "" Then
Set con = Server.CreateObject("ADODB.Connection")
Con.Provider = "sqloledb"
if dsn_name = "Test" then
ConStr = "Data Source =127.0.0.1;Initial Catalog=test;User ID=test;Password=1111"
else
ConStr = "Data Source =127.0.0.1;Initial Catalog=test1;User ID=test1;Password=1111"
end if
con.Open constr
End If
table_name = Request("TableName")
If Request("AddNewTable")<>"" Then
If Request("NewTableName") <> "" Then
SQL = "CREATE TABLE " & Request("NewTableName") & " (fldAuto Counter)"
con.Execute(SQL)
End If
End If
If Request("AddNewField")<>"" Then
If request("NewFieldName") <> "" Then
SQL = "ALTER TABLE " & table_name & " ADD " & request("NewFieldName") & " " & request("NewFieldType") & " NULL"
con.Execute(SQL)
End If
End If
If Request("DeleteTable")<>"" Then
SQL = "DROP TABLE " & Request("TableName")
Con.Execute(SQL)
End If
If Request("DeleteColumn")<>"" Then
For Each item In Request("DeleteCol")
SQL = "ALTER TABLE " & Request("TableName") & " DROP " & item
con.Execute(SQL)
Next
End If
'----- file name--------------------------------------------------------
file = Request.ServerVariables("SCRIPT_NAME")
file = strReverse(file)
pos = Instr(file,"/")
file = Left(file, pos-1)
file = strReverse(file)
%>
<%
response.write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2 Final//EN"">"
response.write "<HTML><HEAD><TITLE>Database Control</TITLE></HEAD>"
response.write "<BODY bgcolor=""#FFFFFF""><br><br><center>"
'------------------------------------------------------------
response.write "<form action=""" & file & """ method=post>"
response.write "<b><font face=verdana size=3 color=""#008080""><u>Total Database Control</u></font></b><br><br&
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
