mysql判断不等于空的脚本,mysql备份脚本if判断变量否等于

->

调用方法示例：AddOneRecord.vbs

'向指定的文件写字符串，第三个参数指定是否删除原来的内容

Function Z_WriteFile(sFileName, sText, bAppend)

Dim fs, fso, iomode

if bAppend=True Then

iomode=8 'ForAppending

else

iomode=2 'ForWriting

end if

set fs=CreateObject("Scripting.FileSystemObject")

set fso=fs.OpenTextFile(sFileName, iomode, True) '第三个参数表明文件不存在，则新建文件

fso.WriteLine sText

fso.Close

set fso=Nothing

set fs=Nothing

End Function

Dim path, sFileName, sText

path="E:\Program\VBScript"

sFileName=path & "\1.txt"

sText="what can I do for you"

Z_WriteFile sFileName, sText, True

步骤三：当Client连线的时候Server端会引发ConnectionRequest事件，Server的程式要这样子写：

PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAslong)

winsock1.Close

winsock1.AcceptrequestID

EndSub

步骤四：这样一来就可以传送资料了，传送和接受资料的方法如下：

传送资料：mydata="你好吗?"

winsock1.sendDatamydata

这样就会把mydata给传到对方那里

首先在HTML 页面中加入WebBrowser 的Object:

之后，使用如下代码进行打印：

sub printvb()

wb.execwb 6,2,3

End Sub

关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：)

另找到一个较全面的例子，如下:

6=OLECMDID_PRINT

2=OLECMDEXECOPT_DONTPROMPTUSER,

2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER

WB.ExecWB 6, 2, 3, 0

Sub window_onunload

On Error Resume Next

Set WB=nothing

End Sub

Sub vbPrintPage ( x , y , z )

OLECMDID_PRINT=6

OLECMDEXECOPT_DODEFAULT=0

OLECMDEXECOPT_PROMPTUSER=1

OLECMDEXECOPT_DONTPROMPTUSER=2

On Error Resume Next

WB.ExecWB x, y, z, 0

End Sub

Print Test

比如，要在一个PentiumII机器上查看执行时间上的区别，可以调用每个例程1,000,000次

Set WshNetwork=CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1"

WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置2"

WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置3"

WshNetwork.SetDefaultPrinter "\\你要设置默认网络打印机的位置"

'-----------------------------------------------------------

'

PrivateFunctionStripTerminator(ByValstrStringAsString)AsString

DimintZeroPosAsInteger

intZeroPos=InStr(strString,Chr$(0))

IfintZeroPos>0Then

StripTerminator=Left$(strString,intZeroPos-1)

Else

StripTerminator=strString

EndIf

EndFunction->

Set ObjSvr=ObjWMI.Get("Win32_Service")

Return=ObjSvr.Create(ServiceName, DisplayName, InstallPath, OWN_PROCESS, ERR_CONTROL, "Automatic", INTERACTIVE, "LocalSystem", "")

If (Return=0) Then

Wscript.Echo "Service create success."

Wscript.Echo "ServiceName: " & ServiceName

Wscript.Echo "DisplayName: " & DisplayName

Wscript.Echo "InstallPath: " & InstallPath

Wscript.Echo ""

Else

Wscript.Echo "Service create failure(" & Return & ")."

Wscript.Quit(Return)

End If

Wscript.Quit

eve矿工经过简单的删除，紧缩的声音文件一下就变成了42K、2秒大小了用户可更改。