软件开发培训班 >> 编程开发 >> VbScript


vbs鎻愮ず娌℃湁鍦ㄨ鏈烘墽琛寃indows鑴氭湰瀹夸富鐨勬潈闄愩�傝涓庣郴缁熺鐞嗗憳鑱旂郴

鏈�杩戝湪椤圭洰涓娇鐢╒BS鏉ュ疄鐜板浘鐗囩殑鎵归噺鍒犻櫎鍜屾壒閲忓鍏ュ姛鑳斤紝浣嗕笉鐭ラ亾涓轰粈涔堬紝鍙鍦ㄦ垜鏈哄櫒涓婁竴杩愯VBS鏂囦欢灏辨彁绀衡�滄病鏈夊湪璇ユ満鎵цwindows鑴氭湰瀹夸富鐨勬潈闄愩�傝涓庣郴缁熺鐞嗗憳鑱旂郴銆傗�濈殑閿欒銆備笅闈㈣创鍑烘湰浜虹殑瑙ｅ喅鏂规硶锛屽苟闄勪笂鍥剧墖鎵归噺瀵煎叆鍙婃壒閲忓垹闄ょ殑VBS浠ｇ爜銆?/p>

濡傛灉鍙槸鍥犱负鏉冮檺闂鍙互鏌ョ湅杩欑瘒鏂囩珷锛?/p>

浠ョ鐞嗗憳韬唤杩愯绋嬪簭鐨剉bs鍛戒护

1銆佹鏌ョ郴缁熸槸鍚︾姝娇鐢ㄤ簡鑴氭湰杩愯锛屽嵆鎵撳紑鈥淚NTERNET閫夐」鈥濈殑鈥滃畨鍏ㄢ�濋�夐」鍗￠噷鈥滆嚜瀹氫箟绾у埆鈥濓紝鐪嬬湅鈥淎ctiveX绌轰欢鍙婃湇鍔♀�濈鐢ㄧ殑閫夐」銆?br /> 2銆佽繍琛?regsvr32 scrrun.dll锛屽嵆鎵撳紑杩愯杈撳叆CMD锛岃緭鍏egsvr32 scrrun.dll锛屽啀鍥炶溅銆?br /> 3銆佹渶鍏抽敭鐨勪竴姝ワ紝鍗崇湅鐪嬫敞鍐岃〃閲岀殑杩欎釜浣嶇疆HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows Script HostSettings鍦ㄥ彸杈圭殑绐楀彛涓槸涓嶆槸鏈変釜鍚嶄负 Enabled鐨凞WORD閿�?鏈夌殑璇濇妸瀹冨垹闄ゆ垨鑰呮妸鍊艰涓?1 鍗冲彲銆?br /> 4銆侀噸鏂拌繍琛孷BS鏂囦欢鍗冲皢姝ｅ父銆?/p>

VBS鎵归噺瀵煎叆鍥剧墖鍔熻兘 

'****************** Const ****************
'---- CuRsorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CuRsorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- Custom Values ----
Const cuDSN = "test"

Const cuUsername = "sa"
Const cuPassword = ""

'*************** main sub ******************

Call ImageExport()

'*************** define function ***********

Function ImageExport()
  'on error resume next
  Dim sSQL,Rs,Conn,sfzRs,sFilePath,sImgFile,xml
  Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    ' Create Stream Object
  set Ados=CreateObject("Adodb.Stream")
    Ados.Mode=3
    Ados.Type=1

  Set Conn=CreateObject ("adodb.Connection")
  Conn.CuRsorLocation =adUseClient
  Call Init_Connection(Conn)
  Set Rs=CreateObject ("adodb.recordset")
  Set sfzRs=CreateObject ("adodb.recordset")
  
  sFilePath=WScript.ScriptFullName
  sFilePath=left(sFilePath,len(sFilePath)-len(WScript.ScriptName))  
ssql="SELECT RYBH, PHOTO FROM TP_ZPXX WHERE (RYBH IN (SELECT DISTINCT RYBH FROM TP_BMKM WHERE (KSZQBH = 18) AND (JFBZ = 1)))"
  sfzRs.Open sSQL,Conn,adOpenForwardOnly 
  iSuc=sfzRs.RecordCount 
  
  'Get SFZH From DataBase and import images
  while not sfzRs.EOF 
    sImgFile= sFilePath & sfzRs("RYBH") & ".jpg"  
    Ados.Open     
    Ados.Write (sfzRs("PHOTO").GetChunk(4500000))    
    Ados.SaveToFile sImgFile,1     
    sfzRs.MoveNext     
    Ados.Close 
  wend 
  
  sfzRs.Close 
  Conn.Close 
  
  'Release Object
  set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing
  
  msgbox iSuc & "寮犵収鐗囧鍑烘垚鍔?,64 ,"鐓х墖瀵煎嚭"
    
  

  'Quit 
  WScript.Quit
  
End Function

Function Init_Connection(Conn)
  on error resume next  
ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
        "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  Conn.Open ConnStr  

  If Err.number Then    
    msgbox "鏁版嵁搴撹仈鎺ュけ璐?,16 ,"鐓х墖瀵煎嚭"
    exit function
  End If
End Function

VBS鎵归噺鍒犻櫎鍥剧墖鍔熻兘

'****************** Const ****************
'---- CuRsorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CuRsorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- Custom Values ----
Const cuDSN = "test"

Const cuUsername = "sa"
Const cuPassword = ""

'*************** main sub ******************

Call ImageExport()

'*************** define function ***********

Function ImageExport()
  'on error resume next
  Dim sSQL,Rs,Conn,sfzRs,xml
  Dim Ados,fso,f,oShell,sErrFile,sSucFile,iErr,iSuc  'iSuc 鏂囦欢鎬绘暟
  Dim PicPath,PhysicPath,DelCount '鍒犻櫎鏂囦欢鏁?
  Set fso = CreateObject("Scripting.FileSystemObject")
  
    ' Create Stream Object
  set Ados=CreateObject("Adodb.Stream")
    Ados.Mode=3
    Ados.Type=1

  Set Conn=CreateObject ("adodb.Connection")
  Conn.CuRsorLocation =adUseClient
  Call Init_Connection(Conn)
  Set Rs=CreateObject ("adodb.recordset")
  Set sfzRs=CreateObject ("adodb.recordset")  
  
  sSQL="select sPath,sFile from ScanFile"
  sfzRs.Open sSQL,Conn,adOpenForwardOnly 
  iSuc=sfzRs.RecordCount 
  
  'Get SFZH From DataBase and import images
  while not sfzRs.EOF 
    PhysicPath="E:VBS鍒犻櫎鐓х墖灏忕▼搴? '鐗╃悊璺緞    
    Ados.Open   
    PicPath =PhysicPath & sfzRs("sPath") &"" &  sfzRs("sFile")    
    If (fso.FileExists(PicPath)) Then
      fso.DeleteFile(PicPath)  
      DelCount=DelCount+1
    end if    
    sfzRs.MoveNext     
    Ados.Close 
    if iSuc-DelCount=iSuc Then
      DelCount=0
    end if    
  wend 
  
  sfzRs.Close 
  Conn.Close 
  
  'Release Object
  set Rs=nothing:set sfzRs=nothing:set Conn=nothing:set Ados=nothing:set fso=nothing
  
  msgbox "鍏遍渶瑕佸垹闄? & iSuc & "寮犵収鐗?鍏朵腑" & DelCount & "寮犵収鐗囧垹闄ゆ垚鍔?" &iSuc-DelCount & "寮犵収鐗囨湭鎵惧埌锛?,64 ,"鐓х墖鍒犻櫎"
    
  

  'Quit 
  WScript.Quit
  
End Function

Function Init_Connection(Conn)
  on error resume next  
ConnStr = "Provider=SQLOLEDB;Data Source=192.168.64.114;" & _
        "Initial Catalog=VoteInfo;User Id=sa;Password=123456;timeout=50"
  Conn.Open ConnStr  

  If Err.number Then    
    msgbox "鏁版嵁搴撹仈鎺ュけ璐?,16 ,"鐓х墖鍒犻櫎"
    exit function
  End If
End Function

鍒版杩欑瘒鍏充簬vbs鎻愮ず娌℃湁鍦ㄨ鏈烘墽琛寃indows鑴氭湰瀹夸富鐨勬潈闄愩�傝涓庣郴缁熺鐞嗗憳鑱旂郴鐨勬枃绔犲氨浠嬬粛鍒拌繖浜?鏇村鐩稿叧windows鑴氭湰瀹夸富鐨勬潈闄愬唴瀹硅鎼滅储鑴氭湰涔嬪浠ュ墠鐨勬枃绔犳垨缁х画娴忚涓嬮潰鐨勭浉鍏虫枃绔犲笇鏈涘ぇ瀹朵互鍚庡澶氭敮鎸佽剼鏈箣瀹讹紒