TA的每日心情 | 衰 2019-8-18 09:37 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
数据库连接:
& T) z/ {. J3 D: p) l2 w* m" h7 j# |<%
/ w5 [$ v: q- ~$ M( C" q, N _set conn=server.createobject("adodb.connection")' p2 b$ a' I1 W) ]; U; v
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")! b- B/ F V6 q- R
%>" n5 g: O. p6 Y- b. M& u
9 J0 _# N6 C, m% f; `. ^( I' m6 t- K
打开数据库:3 d7 \+ Q) E' z$ u( H9 i
exec="select * from 数据库表"
j0 M$ B* d9 [6 G) s) Sset rs=server.createobject("adodb.recordset") L; W4 U" b+ I' E- }
rs.open exec,conn,1,1 ; y% Q; z+ w4 e7 p
参数1,1为读取3 r6 P: G1 ^5 T
; E g, A8 i5 f( ]/ [9 `6 ]1 R
读取内容格式:<%=rs("字段")%>( w: P( l/ m( N. H% P' S
6 f" m `0 y1 ^3 _7 H
添加记录处理程序:
8 ^- {9 ~! }1 \1 @<%* \* h* y2 L% w1 A
set conn=server.createobject("adodb.connection")
6 q( M6 K! E# ^7 Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名"). S4 m6 M( ?" y3 p8 c+ r
name=request.form("字段") name,tel,message为提交表单所设置的字段值
( C; B% o% N5 V8 ~/ T6 Otel=request.form("字段"): ^! \ o1 i' z" s
message=request.form("字段")9 a6 z5 W' ^8 \6 m, Z% d/ Y/ |
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
% o7 G4 s( `* F' Hconn.execute exec 使用execute提交
- a$ Y# |( q0 P0 u Aconn.close) d5 e5 z- M: c0 j
set conn=nothing$ F& {6 R8 k$ ~* ~, Z/ m! u* b7 V
%>
, j9 ~$ V0 L6 G; r) `- ]
6 W6 f" L S' P; F2 T4 |搜索处理程序:
( W' G2 @, H- t* J5 }/ }. ]" k<%
* I: A5 ?' a( M, \9 e& o; Q& bname=request.form("字段") name,tel为提交表单所设置的字段值
" n5 j5 p& p8 ~; n. y3 H2 ~) J* ptel=request.form("字段")
/ d J3 `" U0 k) uset conn=server.createobject("adodb.connection")3 C" r' j* T; |7 M* ?# u0 T9 c
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 @5 |: r: F' z9 b# sexec="select * from 表 where name='"+字段+"' and tel="+字段
0 Q0 s1 }! W& X' A& `3 Wset rs=server.createobject("adodb.recordset")
& ]; ~: Z; m7 m; S! V) Xrs.open exec,conn,1,1* R' |% a4 d, p" ]+ m+ b4 [/ ]
%>2 O( W+ g8 _! s6 [+ M3 O% r7 I% I
'页面搜索到的内容导出来
/ S7 s( G4 H* x0 _: K5 ~8 g<%
# n& j4 l+ E: a( i6 b: e1 [5 Pdo while not rs.eof4 `4 v4 ^% F0 x2 j) r5 }
%><tr>' E) u: S z1 y& V! [, o9 J, I' M, H
<td><%=rs("name")%></td>( z4 N3 s$ g2 R" U- @4 Y0 }
<td><%=rs("tel")%></td>$ R, K2 ^ n A' G/ Z. U
<td><%=rs("time")%></td>
' @6 b ^; \4 Y, B" M% z' k</tr> q. t. s9 o e+ ]
<%$ {) t3 B8 }. J# |0 C% y
rs.movenext
( t) ^' ?( Q( E' C# uloop" K$ B( O. |& b$ ^1 }) Q
%>4 J+ M6 Q) a6 R3 ^
8 ^& m( Q; k. Z( W% g# X
删除记录处理程序:/ r8 d# D5 [- i
<%
. i. I1 U' e2 w0 d. K9 _( iset conn=server.createobject("adodb.connection"); s' b2 k/ P. c; y& Y& t' ]
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 E$ i- Z2 T: gexec="delete * from 表名 where 编号="&request.form("id")
3 P+ S$ `( t7 kconn.execute exec p; B4 g5 v8 Y# N0 o' {; d
%>9 N- j1 L$ k3 x! q, g
( c6 m/ L7 r$ t! J5 R( b+ X" ?7 p1 O
修改记录处理程序:$ [% l/ |4 x( x# v
<%
) d( @. W1 F7 }5 G/ W/ W7 a$ W. Lset conn=server.createobject("adodb.connection")$ _. u- W. B" X% T* \$ E
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")8 t5 N2 O- i2 w5 z9 d
exec="select * from 表名 where 编号="&request.form("id")
/ u0 `" s4 _/ F3 [5 E6 vset rs=server.createobject("adodb.recordset"): D# A6 A. o+ z) p' r0 W7 l
rs.open exec,conn,1,3 '1,3为修改意思
! O. F% n+ r5 R' D# d# Q& vrs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值' }* f9 }( n& n" {1 p' D0 N
rs("tel")=request.form("字段")) F" ]0 v+ y! m+ G! ^
rs("message")=request.form("字段")
5 W2 Z6 Y2 `* A& e9 T" lrs.update- u& U+ F- l# T
rs.close
1 b% b, L& e# @6 N7 y1 a" [7 [set rs=nothing! @/ J3 {5 l2 F& g$ U
conn.close4 Z; t' m8 g3 _* ~+ \% O2 d
set conn=nothing2 m% C" b4 [% ]! S2 d# L1 `
%>+ x# Y, V9 m; ~1 G: \" R6 T- o# n
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序! l( @4 u' c, i: W1 h+ v* @
8 N$ }; r4 @! k- Q9 R' Q+ ?; X2 d后台登陆处理程序例子:
* ^: B5 Q' y N/ x<%3 M- x& _$ f9 \! z, ]1 p
dim name,password7 z6 \. q; V& x9 C7 U1 x: d
name=request.form("name")
: f4 I4 e: c: X) I; |password=request.form("password")
9 ?) z2 h; w# Q& V: \7 cdim exec,conn,rs
: c6 ~. Q( u$ rexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
# |# q+ U5 A: L- }8 oset conn=server.createobject("adodb.connection")
4 F3 p. z8 O& E3 ]: a5 q# T' Fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* ^) s7 l2 T' @" X& }set rs=server.createobject("adodb.recordset")
6 D+ a: j' J; s; Z3 Xrs.open exec,conn
3 g/ U4 E" X- U/ X( yif not rs.eof then
$ S( h/ ?0 b7 Yrs.Close9 D& ] i# M" p% G2 |. [. ]
conn.Close& }1 N; a5 ?0 P
session("checked")="yes"$ H9 f7 I4 Y3 I8 i y3 H. `
session("check")="right"
# s) ?: A4 V$ v1 m; W' J, _$ V! wresponse.Redirect "index.asp"
( m2 [) I7 H* c- ^* x2 {, zelse( P, k% \: z. k$ c8 R; `
session("checked")="no") z* u" M" [, @4 ~9 ]% z
session("check")="wrong"
7 r; W( E2 t l$ ?) d2 z8 U8 mresponse.Redirect "login.asp"
, x4 n) T1 G) z% Fend if
: M. T" n! W* _/ J" T5 Z0 s%>
) o# x* o7 l) b2 s6 Z2 k8 a
" [( u4 I2 n: ^4 u6 f每个后台页面加上:
" r0 H3 i: X1 f/ n, e<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量, A4 l0 l: s) B
response.Redirect "login.asp" $ G1 J5 A* a- I9 ?" {( U" Y; V
else$ W, U6 O7 C, L* ^* f; v! h. Y; c
%> |
|