ConnectOK.asp
1 2 3 4 5 6 7 8 |
<% 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 连接数据库