TA的每日心情 | 衰 2019-8-18 09:37 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
数据库连接:8 i6 _9 }% v6 S$ T. |. J
<%! w1 w: j" i @8 |
set conn=server.createobject("adodb.connection")
2 w6 a( Q5 \: E) R% {conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( |+ z0 _( ~1 I8 T, b0 T%>
4 r2 j$ G R% |% U( O% Q% c! L* P; r Q) I) Y
n% v S2 U8 h
打开数据库:
, n3 n, h' m& A( Wexec="select * from 数据库表"5 I% N' u* t# {3 H) z1 E
set rs=server.createobject("adodb.recordset")
" \8 K5 [0 i! l; H& ]: ]& D# G2 hrs.open exec,conn,1,1 ! B) c) l' D' p" T
参数1,1为读取3 ?6 C" i5 d8 c- p1 P' B
9 ]7 }$ P/ t. `' E, B. ]/ {读取内容格式:<%=rs("字段")%>' i& h, s4 \3 V
/ F$ i' y4 s2 d9 e) D8 t4 x添加记录处理程序:
/ @: g! E0 M& n. y9 m3 U& E3 g5 D<%
8 @; x' `* t3 [+ L8 h& f) X, gset conn=server.createobject("adodb.connection")
8 N& u/ n8 W! L, l7 kconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 J) R- [) R( s' b+ `; A/ C2 [6 Rname=request.form("字段") name,tel,message为提交表单所设置的字段值/ y+ L5 ~) i2 o. g' T
tel=request.form("字段")
! Y5 ^8 c4 u M( Y7 Ymessage=request.form("字段")9 o$ a2 c& u4 T7 P4 `+ q% M
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
# ~! S- c. I0 xconn.execute exec 使用execute提交
/ Q7 b( s3 ]+ K8 ~6 C# [2 Sconn.close" }9 [. ~0 n6 S; X4 T
set conn=nothing
F% c8 ]) D3 V: e%>' N: L l5 \3 G4 r0 N6 K9 C
. s+ x( q! d1 |/ J; I. H \搜索处理程序:( s$ H7 B1 Z, }0 [5 `5 L
<%
4 u6 y; ]9 {9 @+ u; Aname=request.form("字段") name,tel为提交表单所设置的字段值
' A+ k, ], H; M: Xtel=request.form("字段")3 g2 W% T6 f1 J' _8 B# S) H$ Z8 O
set conn=server.createobject("adodb.connection")
- l2 i k7 b4 [0 q6 S0 P8 lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")8 s: h. N% W/ m; c7 u
exec="select * from 表 where name='"+字段+"' and tel="+字段* l* e" Y: Z; Z0 r. t6 ?4 ^
set rs=server.createobject("adodb.recordset")
X5 ^0 y6 n8 yrs.open exec,conn,1,1
- N8 ~, S8 T% f: u%>
% u4 c9 T1 N5 s0 b$ C0 p3 b'页面搜索到的内容导出来
$ G7 ?/ I g6 [% s% E5 w! p6 m<%" R# v% h+ O( s- r% F7 U
do while not rs.eof# Y, ~( O! a6 A. p" _ H* _! q& A* @' h
%><tr>& y$ `# ^& J/ S& q
<td><%=rs("name")%></td>4 N9 `2 T2 L% e6 S! o& l
<td><%=rs("tel")%></td>" E4 R: O* A0 {& J0 z
<td><%=rs("time")%></td>
$ L2 ?# c% T( R C; B# f</tr>
& U3 w+ W% h" z9 f1 |8 q<%( e, W' }1 Q' [+ E# Q \
rs.movenext
( n8 X7 h, U$ _& p6 W" iloop! U! b' J; N \6 }0 d W' V
%>- T# X% Y+ [, N: ?: i
( V: G+ z! Y8 M2 w
删除记录处理程序:
2 g/ ]; D! W1 A$ r* q- `7 B; e0 c<%8 ]8 Y; G! O1 V) c
set conn=server.createobject("adodb.connection")
7 `: D$ l# u# q! \, ~conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. k' ]% N6 Y3 [5 `exec="delete * from 表名 where 编号="&request.form("id")( H4 a* z7 R$ U* h( b
conn.execute exec
) ]4 ~3 X4 g1 e" V5 A0 Z e, ^%>: V: u2 V: i* M* D* d/ J
$ T* o0 Z- `% X, E# U+ N) u' @
- I b0 K/ m/ v
修改记录处理程序:
% W+ k7 d9 s+ z' y1 c<%
3 m" X; e8 ^" n( J! T2 zset conn=server.createobject("adodb.connection")
: q5 S+ m! [) z D. R9 @conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! S$ V2 _9 I2 s" J0 A; Zexec="select * from 表名 where 编号="&request.form("id")7 |4 _$ D* @, ~& i1 h* s
set rs=server.createobject("adodb.recordset")8 q M$ X3 T$ V1 Y
rs.open exec,conn,1,3 '1,3为修改意思+ h, F* f0 B7 S' f
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值 A4 I- k z/ N* t3 Z+ p
rs("tel")=request.form("字段")( B$ w) K; w! O$ n( [4 ?
rs("message")=request.form("字段")4 O2 h `+ \8 V0 l: y" }
rs.update
' e5 X( I' l7 l4 z( `6 Zrs.close. `7 D& _% I' _/ Z; D
set rs=nothing
) n1 m# g, Y7 H' O# n# Q a hconn.close
: v1 W& Y1 v @ y, b+ H; \ K9 B" G* tset conn=nothing9 W5 Q% I( h3 R) D# |
%>/ x7 X V# a5 r
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
9 I8 i7 S- p9 _6 P0 `& w
' {1 m( X% Y$ c& j# g1 B! q后台登陆处理程序例子:
% A) f: K% C# t<%/ j" n; }( C) v4 O9 x6 `+ }* H4 [
dim name,password
" E' r# x+ w+ m0 S N( cname=request.form("name")( U. j) [# l/ I; r8 K& K
password=request.form("password")
0 ?+ T% h$ d/ g, J1 K: _" N; L* `dim exec,conn,rs1 T0 b3 W# X2 v6 J7 c3 N
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
2 g& e( n1 L" s3 hset conn=server.createobject("adodb.connection")) q2 n5 z6 P8 s- m5 g
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")1 J& h' Z% k4 z8 ^# O9 ]& w
set rs=server.createobject("adodb.recordset")8 y% H+ L- ?6 S6 g- \
rs.open exec,conn7 I' f$ y" t5 |( R
if not rs.eof then
4 {# M9 T; e5 J; K. `rs.Close! Q; u: q, ^# @4 x A' p1 \) J
conn.Close
; t) Y( a/ Y1 l/ @5 ^session("checked")="yes"
. Y( V* _" W1 o; Y) fsession("check")="right"
, Y, c5 c, j: @2 r% D: ]response.Redirect "index.asp"
0 f$ k' x6 `& l5 c& `else% f* M3 k/ J6 n- O- k* _
session("checked")="no") h# P8 X! n$ @
session("check")="wrong"
" [. B- V! X% o9 q# W2 wresponse.Redirect "login.asp"
+ i# [0 M# ^# p' A1 ]1 a" pend if/ p5 x7 |+ m; t" P0 I- K. K0 d4 Y) k: V
%>0 Y5 Y+ u! Q/ S/ l; s$ f
# p e9 b0 X& W每个后台页面加上:# W" w) z0 `# ]( R1 d
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量# Y; b! ]* @! a% F6 W. q
response.Redirect "login.asp"
( d" ^7 W+ R2 O# k: k! y5 E0 L, zelse( A! C9 J9 o& K" B+ [( f
%> |
|