TA的每日心情 | 衰 2019-8-18 09:37 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
数据库连接:- c6 P9 A6 D/ ^; m* J
<%
2 O+ l+ X+ G, S8 g' _set conn=server.createobject("adodb.connection")
( o; T0 g' F: }1 [( ]5 J+ h4 Gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 C; D5 ~, E6 X; O" r9 n" W' A) d& N) a%>0 C) [1 D4 i* y5 z' }4 [
, ~1 ], q: U+ F+ L0 o/ S6 D
' x$ I. x0 O P/ C' c打开数据库:( o/ `5 t' e% g
exec="select * from 数据库表"
+ g+ b1 W8 Q5 T m0 U% hset rs=server.createobject("adodb.recordset")
# G+ q2 Q# }9 ], n- G7 P- O8 ~rs.open exec,conn,1,1
; T9 z% B- B) ^, {& _参数1,1为读取
0 ?: ?8 W; H$ o: y
) O4 |+ w0 ] \1 u( n- n0 H" U6 W读取内容格式:<%=rs("字段")%>1 E$ P6 ]1 ~9 Q) }
. N `& b6 n. U( a, X& ~: Y# j
添加记录处理程序:5 `3 O+ }1 V; G0 Y' j
<%* \: D* ^ C# n% v
set conn=server.createobject("adodb.connection")
/ @1 [& q5 z6 jconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! c; e0 V0 a6 l+ z( X+ I& y. pname=request.form("字段") name,tel,message为提交表单所设置的字段值
# M: A# Y8 x9 z) A2 G# n; O: ?tel=request.form("字段")
' o; B7 p" O/ X: [1 Mmessage=request.form("字段")
. U% C4 X3 B9 ?exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开$ J- w* f: i) U. ^- f- G1 H
conn.execute exec 使用execute提交
9 ], y$ I; r, w0 Y2 Y1 hconn.close
+ d. @! x0 v# Z( N, Q) N6 w" U0 Vset conn=nothing. U& |& X. o$ ^' R
%>
' z \ H" [2 C
2 a- A" s5 `0 w# q: X1 |搜索处理程序:
! T- A( e/ K2 {+ r2 R# r# O<%
; K6 u1 K6 q+ \ @name=request.form("字段") name,tel为提交表单所设置的字段值
4 r6 G) a( i1 G! @2 jtel=request.form("字段")
- j @, K8 D# s9 _: P% bset conn=server.createobject("adodb.connection"): M% D6 t$ ]2 w. W4 c0 R) a
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")- p$ T+ C, d) _5 q& j' C$ G( J/ x
exec="select * from 表 where name='"+字段+"' and tel="+字段$ L* s% j4 G# u* _
set rs=server.createobject("adodb.recordset")1 q. `) r6 i6 H9 j5 [
rs.open exec,conn,1,15 [* T6 p- g$ c) P" m
%>8 ]# w' K4 [# G$ ]+ m/ O
'页面搜索到的内容导出来
0 {: o% y& u& m7 a<%4 \0 [) Q/ g# Q9 {* }
do while not rs.eof# Q! r' [+ |9 g& C6 ?
%><tr>
) H- a2 U! f! n7 B, P/ O1 L* ~% c<td><%=rs("name")%></td>) }6 e9 q6 `; a( {" h+ i
<td><%=rs("tel")%></td>
$ `$ m' o& X, [* U; E. }<td><%=rs("time")%></td>
" v- }3 P" ?# l</tr>
: t3 x0 k7 R/ c. U7 i( `. H$ {<%! m, p! `$ a0 f/ K0 Q
rs.movenext
; B, \; o( e/ z; `7 a# X6 F. { Kloop( |9 i, y* V2 b# K4 ~
%>; K; V d5 e& m# ^
; C# } Z8 A" q( X3 m删除记录处理程序:
* Z3 u. c3 O, p6 ?* H( R<%" |$ G/ r) x" F+ M& Q6 H- `+ d
set conn=server.createobject("adodb.connection")
. {; @( ]; a! ~! Lconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 M" u8 a+ ?9 U$ J% r" L, Eexec="delete * from 表名 where 编号="&request.form("id"). |0 e; l; t& Y% f* q
conn.execute exec
& P* b5 V$ l8 b* L9 f/ H* W%>0 q$ E7 p E, Q: ?8 i
1 |; b& |: L3 O# P7 V5 j" f: _5 h9 H3 u8 c! K: ^* F0 O
修改记录处理程序:9 |) i$ v( b6 _
<%
6 h \( C' N% g/ D; e- cset conn=server.createobject("adodb.connection")
$ a H; j9 R4 D0 H4 B' Nconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名"). O H( g3 ]7 ~$ f K
exec="select * from 表名 where 编号="&request.form("id")$ X6 I" d8 P5 ?' a/ g
set rs=server.createobject("adodb.recordset")
( `/ V+ h- O- ]: K" p8 ]rs.open exec,conn,1,3 '1,3为修改意思* P+ j1 B. p3 U# v$ N
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值0 S$ D+ l- L$ s8 ~
rs("tel")=request.form("字段")
7 L0 O, G0 v; Y& drs("message")=request.form("字段")
/ K B3 w0 M3 [* Brs.update
& |. S' c. w4 f" ?6 V0 ?: @rs.close( I) ^7 R9 M$ P1 {3 }
set rs=nothing5 S- x& c6 ?: C
conn.close5 ]6 |& b0 {% J8 \
set conn=nothing
9 O9 n8 X( P& u%>
+ |. s: t9 Z0 N修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
. C6 r* ~' l9 W4 A; c) f3 b$ V8 x
后台登陆处理程序例子:
( o& f& S- S* N+ ~- [1 {<%
+ Y2 C5 S: X7 Z6 L8 g5 Xdim name,password
; T1 v* n+ E9 H! h4 B) lname=request.form("name")
) x( @1 ]. w) b% [5 tpassword=request.form("password")
* z3 G8 e. C# z' gdim exec,conn,rs
' b# P, r' X, G# j+ ^! K$ Dexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"# \4 o; i/ ~" S) D; I! _/ a
set conn=server.createobject("adodb.connection")# W5 ?8 ~8 y& G2 ]0 Q0 j
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 o$ y- d7 V6 r$ r5 zset rs=server.createobject("adodb.recordset")% q$ C+ L6 p& a, ` u
rs.open exec,conn/ Z; s( [! t3 x2 Z
if not rs.eof then* {; q6 r2 u2 n% D. h
rs.Close2 R+ n ?& T x
conn.Close' ~5 X" b( s' [, E
session("checked")="yes"! w0 L) ^ H) T) Q, q: ?
session("check")="right"6 T2 y- I0 D: I& o# Q" [# \
response.Redirect "index.asp"
; O5 C0 z5 y5 a' I$ Zelse/ e* `) k( ? R6 ~$ d7 V
session("checked")="no" d8 M/ m% H) I
session("check")="wrong"8 v: k, h! C& b- ?# x* V
response.Redirect "login.asp"
" T! E8 Y: C k1 \" z r; |end if
' n4 b' w& N& _ R%>
! x" q4 j: I- x' |' I% j
3 `7 I) o* O5 q每个后台页面加上:0 G' w6 |2 q+ S8 W9 m2 g
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量) Y7 U, Y4 V8 k" A/ r
response.Redirect "login.asp"
* r/ [9 f/ ^4 v$ \0 ]* Helse, S. e' s3 Z& m: Q2 i* z) O
%> |
|