vbs连接sql server及写文件操作

此段代码是连接SQL SERVER的 代码内connMMSQL的参数要根据实际情况传入

Function connMMSQL(ip,user,pwd,database,strsql)
	Dim conn,Re,arr(2)
	set conn = CreateObject("ADODB.Connection")
	conn.ConnectionString="Provider=SQLOLEDB.1;Password="+pwd+";Persist Security Info=True;User ID="+user+";Initial Catalog="+database+";Data source="+ip
	conn.Open
	If conn.state=0 Then
		arr(0) = -1
	    connMMSQL = arr
	ElseIf conn.state=1 Then
	   set Re =  conn.execute(strSql)
	   If Re.EOF = False Then
	   	arr(0) = 1
	   	arr(1) = Re.GetRows
	   	connMMSQL = arr
	   ElseIf Re.EOF = True Then
	   	arr(0) = 0
	   	connMMSQL = arr
	   End If
	End If
	conn.close
	Set conn = Nothing
End Function

下面是文件操作代码　　

'判断文件是否存在
Function IsExist(file)
	Dim a,b
	Set a = CreateObject("Scripting.FileSystemObject")
	b = a.FileExists(file)
	If b = True Then
		IsExist = 1
	ElseIf b = False Then
		IsExist = -1
	Else
		IsExist = 0
	End If
	Set b = Nothing
	Set a = Nothing
End Function
 
'读取文件内容
Function ReadContent(file)
	If IsExist(file)= 1 Then
		Dim a,b,c
		Set a = CreateObject("Scripting.FileSystemObject")
		Set b = a.OpenTextFile(file,1,False)
		c = ""
		Do While Not b.AtEndOfLine
			c = c+b.ReadLine+vbcrlf
		Loop
		ReadLine = c
		b.Close
		Set b = Nothing
		Set a = Nothing
	ElseIf IsExist(file)=-1 Then
		ReadLine = -1
	ElseIf IsExist(file)=0 Then
		ReadLine = 0
	End If
End Function
'文件写入内容
Function WriteContent(file,content)
	Dim a,b,c,Msg
	Set a = CreateObject("Scripting.FileSystemObject")
	If IsExist(file)=1 Then
		Msg = MsgBox("是：即删除原文件并新建文件"&vbCrLf&"否：即在该文本未尾追加内容"&vbCrLf&"取消：即自行更改名字再执行",vbYesNoCancel,"系统提示：该文件存在")
		If Msg=6 Then
			Set b = a.OpenTextFile(file,2,False)
			b.Write content
			b.Close
			Set b = Nothing
			WriteContent = 3
		ElseIf Msg=7 Then
			Set b = a.OpenTextFile(file,8,False)
			b.Write content
			b.Close
			Set b = Nothing
			WriteContent = 2
		ElseIf Msg=2 Then
			WriteContent = 0
		End If
	ElseIf IsExist(file)=-1 Then
		Set b = a.OpenTextFile(file,2,True)
		b.Write content
		b.Close
		Set b = Nothing
		Set a = Nothing
		WriteContent = 1
	ElseIf IsExist(file)=0 Then
		WriteContent = -1
	End If
	Set a = Nothing
End Function
'MsgBox WriteContent("e:/test.txt","这是个测试程序")