飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接:
# Z3 m. P% G) Z3 i
<%
7 x# A3 ]% F& W- \1 `4 p" r' X
set conn=server.createobject("adodb.connection")
: {0 A* V5 ]) B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; k0 K) v; \8 O5 C/ ^) h% c
%>
0 m7 m5 j% }3 I/ w' I. E3 Q
* A) v9 N' t- I$ r! o! I
" o, u2 ]# h; v5 X7 h) X1 w4 B
打开数据库:
: a0 Z2 k* |; u; R4 v. g
exec="select * from 数据库表"
i( y' U) X* }7 s
set rs=server.createobject("adodb.recordset")
1 [3 [) @# k7 P- \( W
rs.open exec,conn,1,1
4 X0 y' b# g1 b
参数1,1为读取
2 v+ C {; o0 b: X+ q
: N9 F! t, c/ q0 D s7 M/ f+ i$ M
读取内容格式:<%=rs("字段")%>
; U( X8 s0 i/ W7 E0 j: V! A
, B" z8 F. Q2 ~
添加记录处理程序:
. G/ n2 [" j! @ ?
<%
1 `1 C3 n% v C3 v
set conn=server.createobject("adodb.connection")
2 I) p0 T" R7 l5 Z: ?) a# H; M
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 @$ h2 O6 q4 w' K: d) G" Q
name=request.form("字段") name,tel,message为提交表单所设置的字段值
2 U3 O6 |& c! y* G N* Z
tel=request.form("字段")
g2 i+ g2 y# M5 ^- h- W
message=request.form("字段")
% v$ h0 U' I0 @7 y' Q# j
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
3 Y0 h, R7 b) W
conn.execute exec 使用execute提交
6 ?8 z, }. o7 i
conn.close
6 l( b# g# n/ H* Y1 Z
set conn=nothing
5 L" e2 R j* s# m$ P8 D9 R. I4 E
%>
5 Q6 ?% o% w( n+ \. @9 B+ w" ^
" ?2 |0 c7 p+ H5 {+ ]* F
搜索处理程序:
1 z: p/ q' T) c* e* h' x
<%
2 o3 o+ g' T6 C- G2 z3 o
name=request.form("字段") name,tel为提交表单所设置的字段值
' d- z' K0 F/ Z3 Y
tel=request.form("字段")
2 p/ ]" u( P8 j6 H' z
set conn=server.createobject("adodb.connection")
. m+ V$ u+ O+ C: E
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ K- d+ `- V- s( }' ] @+ f
exec="select * from 表 where name='"+字段+"' and tel="+字段
, ^' {1 T: I" F3 d! X, I
set rs=server.createobject("adodb.recordset")
: E! b# A. @+ ~. E, ?6 g
rs.open exec,conn,1,1
# l J6 r5 H# I% y8 R) [
%>
/ g6 U2 X8 g) ?% b
'页面搜索到的内容导出来
5 S. F5 @' O! h S4 \
<%
5 A2 [! N' [/ W( }$ Q! l
do while not rs.eof
: y& v6 e! ~5 t$ }: x* C
%><tr>
! K/ m `$ |# H. o! j& W8 ]! B, |
<td><%=rs("name")%></td>
1 O6 j& Z5 k9 X5 X3 O. J+ g+ d
<td><%=rs("tel")%></td>
% }0 j$ v6 X! l* f( t
<td><%=rs("time")%></td>
* o2 I" u5 o N9 w
</tr>
4 q2 I5 g; |3 w- v" C
<%
* x1 A& ~' r' n6 h a
rs.movenext
3 J# i8 {2 i; O& F: C: E4 q% t
loop
+ ]! b& u4 g( t$ z* F v) E) N8 ]2 a- E
%>
9 ^) g$ i% t% H i; j* j
2 N7 R, y1 O3 t; V& a) R
删除记录处理程序:
& a" i- K! j& c* o* H( L/ }
<%
; ^/ ^7 Z) l% ~ D
set conn=server.createobject("adodb.connection")
7 H* o0 l% I8 s0 v; ~# \# H- g- m7 w
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 n2 j" M4 s% {/ L" A, a
exec="delete * from 表名 where 编号="&request.form("id")
! ~2 _1 F3 q2 A- ]/ r) @
conn.execute exec
. y5 Q K+ [0 O; y* @4 Z0 g
%>
! [2 t# n: I0 J' Z" u9 a' J' g
: L; X! i6 c X' q* E L, F
$ d) w$ _) S% w1 h- \
修改记录处理程序:
" d& r V) L! v5 c' E4 k
<%
2 W5 h2 _! G, j# Q5 c- Y K
set conn=server.createobject("adodb.connection")
9 c( E* I7 x% @9 ~) ?( }1 G. _
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; C2 S. n# i% o4 j9 {5 D1 t
exec="select * from 表名 where 编号="&request.form("id")
' g3 S' S6 A8 q, B; w |
set rs=server.createobject("adodb.recordset")
% Q) Z; h4 [5 W& I4 g7 j0 Z
rs.open exec,conn,1,3 '1,3为修改意思
" h x1 U+ l1 e, f* Y4 t
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
5 v$ p. ?) \6 T" \
rs("tel")=request.form("字段")
: }4 s/ L r: S1 _; ^( J3 g% J5 }
rs("message")=request.form("字段")
- P$ [9 {) \4 s6 ?( b: j; B0 \
rs.update
: `1 ?! K1 b6 k/ z' B: ~. H
rs.close
0 c! P/ u: L" e* ?
set rs=nothing
& Q. P4 t7 ~7 T0 v) Z/ B
conn.close
; b' i8 \ K3 U' D" U* E! ?4 _, r
set conn=nothing
5 h9 ^: X9 A) ^5 w N" [7 k
%>
6 X0 V* F7 G! U$ y7 f6 {% q( D% f
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
# i, @) e( \1 [/ ?8 r
4 _' w( v1 l y% S p' t6 A
后台登陆处理程序例子:
0 ?' Q3 g8 T, u) S5 @. ?
<%
6 D$ P S# M9 A! j& b$ ~, _
dim name,password
; {$ g# V5 l( o. Y
name=request.form("name")
+ i& y' ~" p- b6 B3 A. d! g! H
password=request.form("password")
) U' i" r5 ?3 i" s4 x
dim exec,conn,rs
6 ]8 t- y; d7 o4 V9 y0 g& N5 [
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
% n9 v, _ T7 s$ b9 r; ~+ F
set conn=server.createobject("adodb.connection")
2 k( ~* A3 ~8 H( T
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% l2 ~( T9 n8 z( O( j
set rs=server.createobject("adodb.recordset")
5 z! f- Z1 Q& E8 a7 U
rs.open exec,conn
: N" v3 |: f5 p, C3 I4 b
if not rs.eof then
! E6 t5 N" O6 U% K+ @0 n
rs.Close
( W7 k6 u1 T' |( d
conn.Close
$ w* J: ]* h7 u( n3 }
session("checked")="yes"
! N& e5 \+ C% @5 p5 {
session("check")="right"
2 d& F; C6 |/ s/ K' A# n$ K
response.Redirect "index.asp"
/ x* B" E9 R7 \, g7 x
else
9 c. G5 ?4 B) e, Q
session("checked")="no"
3 i2 f+ W$ z1 a: G
session("check")="wrong"
1 N0 b7 Y0 `' g5 C9 T" u$ b& }7 M, N1 }$ ?
response.Redirect "login.asp"
/ @: @ Q3 E7 A. t
end if
3 ^( T( S9 O8 i
%>
* U* ~# B, X- m
. m' e) x, x2 s! Q0 B/ t$ B5 P9 f W
每个后台页面加上:
' E/ z! X; D" f
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 z: J+ e: Q2 E c% |1 p
response.Redirect "login.asp"
9 c1 d9 c* A+ `8 A
else
9 Y. `! V$ Y" a- h4 @( N
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2