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,創(chuàng)建刪除文件夾 2,獲取某個文件夾里的文件夾名稱和個數 3,獲取某個文件夾里的文件名稱和個數 4,檢查某個文件夾是否存在 5,檢查某個文件是否存在 6,刪