Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath(DBToCreate) & _
";Jet OLEDB:Engine Type=5;"
' Engine Type=5 = Access 2000 Database
' Engine Type=4 = Access 97 Database
Set catNewDB = Nothing
End Sub
禁止站外提交表单的asp代码如下：
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......
要用ASP来操作SQLite数据库，前提条件是在服务器上得安装SQLite的ODBC驱动程序，可到这个站点上下载安装：http://www.ch-werner.de/sqliteodbc/，安装好后就可以像使用Access一样来使用SQLite了！下边是一个SQLite数据库结构：
引用内容
Create TABLE admin(username text,age integer);
我们再来用ASP演示下如何对SQLi ......
