ASP操作Access数据库的程序。（转）

<%
'--- 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