<%
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