我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp客户端/系统 > 以前收集到的一些资料---ADSI，使用ASP来实现通用的对数据库
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

以前收集到的一些资料---ADSI，使用ASP来实现通用的对数据库 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-23
非常有价值的代码，下面的代码是使用ADSI
的对象数据库概念编制成的，只要你理解了
我在前面文章说的东西，下面的代码只不过是ADSI牛刀小试而已
只要有了下面这个思路，以后不论是对付什么数据库，就是不知道
数据库的结构也不用害怕了。
<%
'--- define DSN names in array
database_list=Array("dsn_1","dsn_2","dsn_3")
'--- 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.Open "DSN=" & dsn_name
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>"
response.write "<font face=Verdana,Arial size=2><b>Database Name: </b></font>"
response.write "<select name=""databasename"">"
For i = 0 to uBound(database_list)
If database_list(i) = Request("databasename") Then
    response.write "<option value=""" & database_list(i) & """ selected>" & database_list(i)
Else
    response.write "<option value=""" & database_list(i) & """>" & database_list(i)
End If
Next
response.write "</select> "
response.write "<input type=submit name=GoDatabase value=go>"
response.write "<hr></form>"
'-------------------------------------------------------------
response.write "<form action=""" & file & "?DatabaseName=" & Server.URLEncode(dsn_name) & """ method=post>"

If dsn_name<>"" Then
    Set table = con.OpenSchema (20)
    response.write "<font face=Verdana,Arial size=2>Table Names in " & dsn_name & ": </font><SELECT NAME=TableName>"
    While Not table.EOF
        tblName = table("Table_Name")
        If Left(tblName,4) <> "MSys" AND Left(tblName,3) <> "sys" AND Left(tblName,4) <> "RTbl" Then
            If tblName = table_name Then
                response.write "<OPTION VALUE=""" & tblName & """ selected>" & tblName
            Else
                response.write "<OPTION VALUE=""" & tblName & """>" & tblName
            End If
        End If
    table.MoveNext
    Wend
    response.write "</SELECT>"
    response.write "<INPUT type=submit name=table value=go>"
    If strEnableDeleteTable = True Then
        response.write "  <input type=submit name=DeleteTable value=delete>"
    End If
    response.write "</form>"
    response.write "<form action=""" & file & "?DatabaseName=" & Server.URLEncode(dsn_name) & """ method=post>"
    response.write "<table><tr>"
    response.write "<td colspan=2><font face=Verdana,Arial size=2 color=""#ff0000"">Add New Table into " & dsn_name & "</font></td>"
    response.write "</tr><tr>"
    response.write "<th><font face=Verdana,Arial size=2>Table Name:</font></th>"
    response.write "<td><input type=text name=NewTableName></td>"
    response.write "</tr><tr>"
    response.write "<td colspan=2 align=center><input type=submit name=AddNewTable value=""Add New Table""></td></tr></table>"
    response.write "</form><hr>"
End If

If table_name <> "" AND R

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。