</p> //调用方法9 g0 x- m/ w9 T. w" E+ d' E
//accselect acc = new accselect();$ Z, Z) R% \2 D+ O! l' S
//acc.sql = "select * from dtt where d_id=?";
' l5 H- `; ?/ L8 ~5 w+ } y //acc.t = 10;& D; [/ q$ c- d% }
//acc.v = 1;
, v3 |2 F% w+ I: P! v! }% { //OleDbDataReader oda = acc.getOdd(OleDbType.VarChar);
$ C3 U9 U( B8 m0 D9 M //Repeater1.DataSource = oda;
. m* w) A- S0 e | //Repeater1.DataBind();
8 A% a0 `; E) I% Z function acc_sql(sql,adotype,adodct,strlong,values)( s7 q H( g8 `) U' i. Y1 H! }( ~
dim connstring,mycmd,myrs,conn% l. _2 d; h7 I# G l
connString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb")3 a3 n& J' m$ i }8 A; s
set conn = Server.CreateObject("Adodb.Connection")
" G" G, r# S' _ conn.ConnectionString = connString+ Y% J0 D0 n, ^5 N9 o
conn.open() \* Z F& t1 p+ e) k' A
set mycmd = Server.CreateObject("ADODB.Command")
9 q( n4 x3 E" @# [ mycmd.ActiveConnection=conn
8 m) r) H: w* l mycmd.CommandText=sql/ s' f0 |+ f+ W9 g, P4 D! I6 V/ \
mycmd.Prepared = true+ p: j) i8 W# c% B1 |# Z
set mypar = mycmd.CreateParameter("temp",adotype,adodct,strlong,values)+ |# {* d! h/ Z6 ]; D4 [4 X& Z
mycmd.Parameters.Append mypar
- X! S! ^$ v3 r% m+ b% x set myrs = mycmd.Execute
! t' W* T, Y7 t9 z' \( B9 x set acc_sql=myrs
1 X4 B" ?& b ~# k end function
& G8 O; x* g/ ?, S& V ’调用方法2 U4 J) T/ _3 w2 n# P
’dim rs
5 D! g2 m3 D0 M) X% r ’sql="select * from users where id=? order by id"
q" S" s* o& X ’set rs=acc_sql(sql,3,1,4,1)
' g9 t! o) |" L: @1 u ’if not rs.eof then9 E/ a7 q' G$ L
’response.Write(rs(1))' z6 d* z: m5 u Z
’end if |