create.asp ----------------------------------------------------------------------- <% 'Option Explicit Server.Scripttimeout = 1000 On Error Resume Next
' Define your sql info here strSQLDSN = "xxxx" strSQLUsername = "sa" strSQLPassWord = ""
' This is where we connect to our sql server Set adoConn = Server.CreateObject("ADODB.Connection") ConnectionString = "dsn=" & strSQLDSN & ";uid=" & strSQLUsername & ";pwd=" & strSQLPassword & "" adoConn.Open ConnectionString 'Set adoRS = Server.CreateObject("ADODB.Recordset")
' get sql from ip.txt Set fso = Server.Createobject("Scripting.FilesystemObject") If fso.Fileexists(Server.Mappath("ip.txt")) then Set a = fso.OpenTextFile(Server.Mappath("ip.txt"), 1, False) Do While a.AtEndOfStream <> True sql = a.readline adoConn.Execute (sql) Loop a.close set a = nothing Else Response.Write "文件沒找到" Response.End End if Set fso = Nothing
