<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=blah"
' 建立連接
Dim strSQL
strSQL = "CREATE TABLE test (name varchar(50), age int)"
conn.Execute strSQL