如何将这段VB代码用JScript脚本写出来

来源：百度知道 编辑：UC知道 时间：2024/06/14 04:01:04
Sub GenerateScriptIPSecCmd()
Dim szTempalte As String
szTempalte = ReadFile("IPSecCmd.bat.Template")

Dim rsIPBlack
Set rsIPBlack = CurrentDb.OpenRecordset("IP Black")

Dim szIPBlack As String
szIPBlack = ""

While Not rsIPBlack.EOF
Dim szLine As String
szLine = "IPSecCmd -w REG -p ""Block Spam Mail"" -r ""Rule [ID]"" -f [FROM][/MASK]+0:25:TCP -n BLOCK"
szLine = Replace(szLine, "[FROM]", rsIPBlack("From"))

If rsIPBlack("Mask") > "" Then
szLine = Replace(szLine, "[/MASK]", "/" + rsIPBlack("Mask"))
Else
szLine = Replace(szLine, "[/MASK]", "")
End If

szLine = Replace(szLine, "

里面相应的函数也要改用jscript 否则会出错的

function GenerateScriptIPSecCmd(){
var szTempalte = ReadFile("IPSecCmd.bat.Template");

var rsIPBlack = CurrentDb.OpenRecordset("IP Black") ;

var szIPBlack = "" ;

while (!rsIPBlack.EOF ){
var szLine = "IPSecCmd -w REG -p ""Block Spam Mail"" -r ""Rule [ID]"" -f [FROM][/MASK]+0:25:TCP -n BLOCK" ;
szLine = szLine.replace("[FROM]", rsIPBlack("From"));

if(rsIPBlack("Mask") > ""){
szLine = szLine.replace("[/MASK]", "/" + rsIPBlack("Mask")) ;
}
else {
szLine = (szLine.replace("[/MASK]", "");
}

szLine = szLine.replace( "[ID]", rsIPBlack("ID")) ;
szIPBlack = szIPBlack + szLine + "\n" ;

rsIPBlack.MoveNext ;
}