ASP代码直接增加、删除ACCESS表和字段_ASP教程

推荐：ASP技巧:rs.getrows方法
GetRows()方法是将数据从 Recordset 复制到二维数组中，这是一个二维数组，第一个下标标识字段，第二个则标识记录号 所以rsArray = rs.GetRows() rsArray(0, 0)就表示记录集第一行的第一字段值 rsArray(1, 0)就表示记录集第一行的第二字段值 数组的数据是保

本例主要讲述如何应用Create、Drop和Alter语句增加、删除ACCESS表和字段，代码如下：

<%
''''''''''''''''''''''''''''''''''''
' 增加、删除表和字段
' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,field2...])
' type:counter;text(num);char(num),varchart(num);memo;short;long;single;double;date/time;logical;currency;oleobject
' ├Drop Table 表名
' ├Alter Table 表名 Add Column field type[(size)][not null]
' ├Alter Table 表名 Drop Column field
''''''''''''''''''''''''''''''''''''
Dim objConn,strsql
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("webjxcom.mdb")
strsql = "Create table mzwucom(id counter primary key,name char(20),url char(50),hits short)"
objConn.execute(strsql)
strsql = "Alter table mzwucom add column field1 text(20)"
objConn.execute(strsql)
strsql = "Alter table mzwucom add column field2 text(20)"
objConn.execute(strsql)
strsql = "Alter table mzwucom drop column field2"
objConn.execute(strsql)
strsql = "drop table mzwucom"
objConn.execute(strsql)
%>

分享：Asp Fso文件/文件夹操作类
和前面提到的一样，这个也只是把一些函数压在一起。实际上用一些函数集的方法放程序中更好。 主要功能： 1,创建删除文件夹 2,获取某个文件夹里的文件夹名称和个数 3,获取某个文件夹里的文件名称和个数 4,检查某个文件夹是否存在 5,检查某个文件是否存在 6,删