</p> //调用方法
2 x0 ~9 m4 w) w( m4 h5 o, C1 { //accselect acc = new accselect();. r; J( O8 Q# M- a y3 q
//acc.sql = "select * from dtt where d_id=?";
% p6 W0 W: E' ]+ S# ~- } //acc.t = 10;
( w: K9 i( j G$ O& r //acc.v = 1;# C8 l2 S* k a4 u( o
//OleDbDataReader oda = acc.getOdd(OleDbType.VarChar);1 H& l: n# {/ c; n* L1 @5 f
//Repeater1.DataSource = oda; S8 o7 D' t; M2 D# P
//Repeater1.DataBind();
1 D, J6 O2 c3 @ ]! H function acc_sql(sql,adotype,adodct,strlong,values)+ s. v! L: Y5 A2 _9 g
dim connstring,mycmd,myrs,conn1 @5 j; ^( Z: d; \
connString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db1.mdb"): M9 O8 E: S5 q- N8 O& ~
set conn = Server.CreateObject("Adodb.Connection")
, H& s, I4 |, x V9 N% J+ } conn.ConnectionString = connString
! c8 `8 F! l) Z; n! J U# \ conn.open()* B4 k, I1 n! I
set mycmd = Server.CreateObject("ADODB.Command")
0 @ ^, w; U1 g" j/ v mycmd.ActiveConnection=conn
: f, s0 ?7 l) Y2 o. ` X O/ S mycmd.CommandText=sql
, p$ e8 n6 W9 d$ |/ v! Q9 R; h mycmd.Prepared = true( z! A8 Y1 l# g6 N2 n
set mypar = mycmd.CreateParameter("temp",adotype,adodct,strlong,values)
; B8 G) o+ Y& w mycmd.Parameters.Append mypar
8 X3 D8 L. M2 K, m8 t% g* U7 e set myrs = mycmd.Execute; n. d2 h! r5 b$ u5 z; m* x- [) z
set acc_sql=myrs5 t4 o* r3 w8 M! w3 _$ ^ S
end function
6 | R2 z7 K7 L+ C ’调用方法
% x4 X, V. U& S) S1 j/ d& x4 V ’dim rs
8 P/ ~1 N$ K7 E ’sql="select * from users where id=? order by id" P1 c* f5 O0 Y* M) \
’set rs=acc_sql(sql,3,1,4,1)3 o6 K& _2 [4 j: V6 R0 H
’if not rs.eof then
- c- H( b2 N$ V' `" E ’response.Write(rs(1))
}( N6 w. r. b% ` ’end if |