ASP 连接数据库 – exchen's blog

ConnectOK.asp

<%  
 Dim Conn, ConnStr  
 Set Conn = Server.CreateObject("Adodb.Connection")  
 ConnStr = "Driver={SQL Server};Server=192.168.0.93;UID=sa;PWD=123;database=test;"  
 Conn.Open ConnStr  
 sqlquery = "insert into TestTable (TestColumn1,TestColumn2) values ('aaa','bbb')"  
 Set recadd = Conn.execute(sqlquery)  
%>

Dim Conn, ConnStr

Set Conn = Server.CreateObject("Adodb.Connection")

ConnStr = "Driver={SQL Server};Server=192.168.0.93;UID=sa;PWD=123;database=test;"

Conn.Open ConnStr

sqlquery = "insert into TestTable (TestColumn1,TestColumn2) values ('aaa','bbb')"

Set recadd = Conn.execute(sqlquery)

转载请注明：exchen's blog » ASP 连接数据库

与本文相关的文章