28,406
社区成员
发帖
与我相关
我的任务
分享
<%
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "xxxx" '要sa帐号
Set oRS = CreateObject("ADODB.RecordSet")
With oRS
.CursorLocation = 3
.Open "SELECT num FROM tbl WHERE 1=0", oConn, 1, 4
End With
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("c:\xxx.txt",1)
Do While Not oFile.AtEndOfStream
oRS.AddNew
oRS("num") = oFile.ReadLine
Loop
oRS.UpdateBatch
oRS.Close
Set oRS = Nothing
sql = "select distinct * into #Tmp from tbl;drop table tbl;select * into tbl from #Tmp;drop table #Tmp;"
oConn.Execute sql
oConn.Close
Set oConn = Nothing
%>