应该可以，帮你查了一下，下面是一个例子
+ |7 q9 I( S3 o- N- e8 _
) V8 E* y1 ^8 T# j; |My Vbscript will read text file and loads into a sql server table. it seems , its working fine. i need to automate this process and it can evry day at 6:00 monday through friday. i also want to know if this scheduler generates log file, so that i will know the reason if the script is not run for some reason at the particualr time. please help me out. Thanks in advance, Vasu.
, }- k# l* m9 A. [, ]& iScript:
2 l3 `: R( ~8 z2 t( s$ O5 N. W _2 l9 M$ f' b7 t. \" x
Dim OBJdbConnection1 e$ O, a' F9 `9 Y7 ]
Set OBJdbConnection = CreateObject("ADODB.Connection")
$ _% t; O) V% J* E( U0 c Set RS = CreateObject ("ADODB.Recordset")& w% J+ k$ l; j7 u9 A2 v& v
Set SQLStmt = CreateObject("ADODB.Command")
: S( _3 E C" c. a+ Q0 z4 F OBJdbConnection.C: U* M7 H/ x" O: x- J5 M
OBJdbConnection.Open) l+ A" W1 e6 }$ `5 R( g5 `( l, S: C r
set rs=createobject("adodb.recordset")
( g. u" e: r$ O! `! z RS.open "cds_Cat",OBJdbConnection,3,35 |8 R ?- E0 W
Set fs = CreateObject("Scripting.FileSystemObject")
! U& [7 X6 z: r
" m3 @3 l' d4 S$ w3 G# y; `+ X filename="cat.txt"5 V# J# |% J( P$ v( y# @
Set readfile=fs.OpenTextFile(filename,1,False)
* [4 p& Y; u" A5 m+ P6 n/ t Do while not readfile.atendofstream
' w& F4 Z! L7 O7 }. y6 s C on error resume next
. {* X {4 y W( W; D0 I; T Text=readfile.readline
3 Y# u/ }" c4 [2 y' v' n! t
2 f1 F( Q9 r! F& H$ h e3 t7 K CAT = split(Text, " ", 2)
) U9 F7 H) {) A! j1 s& t3 U5 l2 _. N. U9 f
rs.addnew9 x! ]& p a1 D3 K) Z2 D( D4 W) i3 L, F9 d
rs("CatID")=CAT(0): U$ l. A- V5 i
rs("AtrID")=CAT(1)' I' A. g3 O8 w# v% a/ F0 {7 E) c* U ^
& o' Z7 { J# U! c& @1 k rs.update
0 T. {- ?) |, n1 I. b. E7 \ count=count+1
3 i j# I. ^9 x: i& g( \( X loop- B, J& k: F, z9 j2 g3 B+ h! D. A
readfile.close1 U( c+ ]5 h3 C% b% L" w' }3 ~
set readfile=nothing6 z2 [+ `3 U% O# s2 Z6 S- _
set fs=nothing% w; h' G+ g' P, x3 W
rs.close
% F8 V0 ]' n* ]. v& h: V& {$ e0 a3 N set rs=nothing
3 T% N- ^& w; E( F; b) k) | conn.close
' ?8 g( E( ~3 @, t- z set conn=nothing
4 X( w3 f& E6 ?2 y) u# }! |
' ?; G6 w* z z[ 本帖最后由 mwpq 于 2007-6-13 17:09 编辑 ]
