广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
" o; ]% u$ e7 H* G- j& n
<%
# Y. \% T' |' [% ~( d4 ~: j
set conn=server.createobject("adodb.connection")
! o+ y( f: r! {/ T0 d
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( v# Q4 q$ T' h, v: i9 i
%>
7 `4 s# Q0 t+ [; `% L8 ]9 m
/ K. e2 l" X8 z9 v
- b4 d& t5 o! M1 S
打开数据库：
+ Y3 e9 A, o8 _6 f; K+ t" D( d
exec="select * from 数据库表"
7 g: O3 }/ q2 Y+ F; I, d- J' O
set rs=server.createobject("adodb.recordset")
7 T9 }* _3 A8 R% w* b
rs.open exec,conn,1,1
3 D0 G# z' G6 f9 V
参数1，1为读取
: B. O( A4 O7 I% W: ?% W }
( i; R" ]* J5 C; B1 W; V+ Y- |
读取内容格式：<%=rs("字段")%>
+ H- S- M v+ ?8 }4 ^# a* J
Y1 d5 U9 b1 [4 o3 y; C8 t
添加记录处理程序：
D5 m2 K- f+ _
<%
P/ C) r! B d4 m6 @
set conn=server.createobject("adodb.connection")
6 y; Y6 ~* I O. h) j
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; z2 k3 |, T) E9 u- p0 ^
name=request.form("字段") name,tel,message为提交表单所设置的字段值
' }9 a e) E( H, H) p
tel=request.form("字段")
6 O2 @4 \4 a4 z
message=request.form("字段")
1 S4 m( ]% w A! [& D8 W! \$ C
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
Q' J2 f+ ?8 r5 T C
conn.execute exec 使用execute提交
+ y; U9 ]1 _+ P& ^
conn.close
- c5 ]" L; }4 I7 E& p
set conn=nothing
+ ]2 G, O B1 }- Y2 y% H
%>
. y$ l5 t& T( x" z
* e! r5 Q) C; C3 `' ~/ v
搜索处理程序:
/ a9 f+ x9 V( ^. v/ w* S
<%
! g& ]' L1 L, P" V' N$ o
name=request.form("字段") name,tel为提交表单所设置的字段值
. v' h+ |( o) Q
tel=request.form("字段")
" A; j2 |3 D, D' M
set conn=server.createobject("adodb.connection")
- h, _7 O) F! l/ L2 }. Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 c0 i6 Q$ u9 b* k7 f
exec="select * from 表 where name='"+字段+"' and tel="+字段
8 q+ }% J5 p/ b: t# G
set rs=server.createobject("adodb.recordset")
! Y( I9 n) m2 `9 D+ f8 l
rs.open exec,conn,1,1
% f! I" X- p4 ~# ]" ^
%>
0 ?" b4 y, w8 X5 \! W, D) {
'页面搜索到的内容导出来
' u; [. J, N/ h2 \* t
<%
6 s: Q# K. \ c+ M/ k2 q
do while not rs.eof
( K; f" C _8 ~
%><tr>
& G* T( L, J6 G' F# c
<td><%=rs("name")%></td>
0 c8 |$ x* [7 ~( Z; k" @/ J
<td><%=rs("tel")%></td>
# {& i8 `2 a, l1 K* a! L, k0 f
<td><%=rs("time")%></td>
3 G( g6 h! Z! o- \
</tr>
/ e6 j& O- F5 I- z) u
<%
1 g# m7 k' T/ _0 r$ J$ ~
rs.movenext
! X+ P2 x5 m: B/ \' n
loop
/ i: R0 T2 D8 ^
%>
0 G& }5 a3 @8 O% o
; z) W& x/ g, L7 O5 r" N
删除记录处理程序:
) h- [9 X+ s- ^' a8 ]
<%
: Y- ?4 |6 ?+ e* g3 Z
set conn=server.createobject("adodb.connection")
$ V9 Z/ S) {4 p4 _# m e# U2 O
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 N8 z" r# A7 O- D1 A( p; N; `' @
exec="delete * from 表名 where 编号="&request.form("id")
" U" T" {& J3 J l
conn.execute exec
( V2 T; q2 A) P9 l: k
%>
* B& j# O6 a: `; q
. h4 [% e' R, D. ^
! t0 l; G* Y9 ?% D& c4 o
修改记录处理程序:
& P3 t; y+ T! i" S
<%
* X% m: M0 {. E: m+ m5 l' C7 o% ?
set conn=server.createobject("adodb.connection")
C I0 b# C+ U% t* X, T% E, w
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; ^% M7 k; @5 B8 |
exec="select * from 表名 where 编号="&request.form("id")
! c; r2 Q4 n b' g
set rs=server.createobject("adodb.recordset")
8 A! R( ^+ s: `6 X
rs.open exec,conn,1,3 '1,3为修改意思
# F% Q5 \5 Q! N# o& o
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
. e; k0 Q% `- B# ]
rs("tel")=request.form("字段")
( `/ S. h t4 u% F( P
rs("message")=request.form("字段")
+ e' c5 W. X0 U$ D
rs.update
" _1 u' \1 O0 ^2 ]( v
rs.close
/ H! R) G! H" Y- d0 F
set rs=nothing
! h8 C% F% l6 v" T: I& s2 g
conn.close
3 w# d3 p) u( v n& _, N9 q0 _
set conn=nothing
5 z/ p' j2 q5 L) D
%>
8 I( a; R E9 a: h9 O- N: ~1 t
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
9 V* H e0 ?2 G1 s# B; I
0 K+ Z& x0 U! e; |- w2 w
后台登陆处理程序例子:
. w7 I3 E3 z# Z/ {
<%
3 j" _3 N( u7 }6 @$ C
dim name,password
2 P0 i: |% O1 P, }$ B- w
name=request.form("name")
/ t# c5 X! \& M8 z2 S' y c8 G
password=request.form("password")
2 Z9 l1 P3 W! y, A3 u. G; R6 x
dim exec,conn,rs
, V( q4 ~8 j; S/ |, \* G
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
4 L ]5 c. m4 h( V
set conn=server.createobject("adodb.connection")
' `2 g& a# M2 P+ T7 A
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! U9 i9 V6 o5 K) X# r$ o1 X
set rs=server.createobject("adodb.recordset")
4 \% G2 g9 F' Y: {- n2 d
rs.open exec,conn
: M* R4 o! i! y% n+ p
if not rs.eof then
4 {3 y4 a8 _9 X# ]1 h/ j
rs.Close
9 { f0 k7 h- B2 c
conn.Close
; i2 M/ D' R0 h9 @
session("checked")="yes"
/ R* K8 {7 L! X
session("check")="right"
: W) ~# F4 R& T( y" D1 O) s
response.Redirect "index.asp"
" e/ k) M6 r0 ?3 g- |4 F
else
( l$ j. r# J6 O5 M ~
session("checked")="no"
7 J3 |* y; v, K. c# a
session("check")="wrong"
7 B0 [4 m, A- _5 p' b& F0 L
response.Redirect "login.asp"
8 V: W0 D; L' M$ ?+ o/ d; V: i
end if
' c* ~9 R) m( N% P$ V
%>
: g ^! C( ^. X0 g' a
% E7 v" A4 `* f8 @3 V1 c8 P0 N1 ^
每个后台页面加上:
0 _: [+ Q/ I# s& }& z) T# ?
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
' @3 F. T8 G; Z k# Q* b! Z
response.Redirect "login.asp"
& K) v7 o2 I, D: w; s* l
else
& `% |" q4 Y7 U. Y
%>
欢迎光临 广西经贸职业技术学院论坛 (http://www.gxjmbbs.com/)
Powered by Discuz! X3.2