广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
2 G. S) X) k+ @1 @5 D
<%
$ c; c6 [3 N+ D+ R# f- O
set conn=server.createobject("adodb.connection")
' }" `/ ]+ m& }* Q
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 Y7 a5 d2 J) [+ b0 N
%>
# G$ W4 i% N2 D! x; U3 x( @" t
3 N- d! h) F1 e( K& b5 c( @
; g# N9 g7 n! m1 S6 S9 y% R! D
打开数据库：
, u' L! o2 r4 a- a
exec="select * from 数据库表"
# B# Q& `- R4 N R2 N$ H+ u' j
set rs=server.createobject("adodb.recordset")
7 z1 c2 G& F" b. F3 r% x
rs.open exec,conn,1,1
& M c2 u/ K+ [
参数1，1为读取
c' s' q8 j, O2 l) v
0 \ ?; n- V; p# F. L S- e0 s
读取内容格式：<%=rs("字段")%>
! j: x9 ^- a C8 d! T# V
( R g6 }! j+ D ^ I
添加记录处理程序：
6 s: k" B6 T$ J. V! c7 ]- B
<%
- \$ R- l( F# N" n$ w1 q! u: Y+ T
set conn=server.createobject("adodb.connection")
* ]* p9 x0 C4 T( _! L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
& `0 j" T) s* p& I I* S, ?+ E8 e) w
name=request.form("字段") name,tel,message为提交表单所设置的字段值
s& A; f) l6 h6 Q
tel=request.form("字段")
4 w" V5 t0 o N5 ~+ @! D8 W
message=request.form("字段")
) Y) ?' @, n! ?; O. u
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
( P3 l# p \/ Z. t
conn.execute exec 使用execute提交
g# E. P8 H6 Y6 o' G; u
conn.close
& c3 ?( e( D$ n" Z
set conn=nothing
& p4 G6 w! D# z
%>
" \& w* e/ H& t1 m0 l: A
# T: a) r. }' P4 ~5 Y/ _
搜索处理程序:
( |! n" F# \! M
<%
9 I. P2 S* n" s8 h/ d( ~
name=request.form("字段") name,tel为提交表单所设置的字段值
' q0 f5 z. T- v A7 C5 K
tel=request.form("字段")
: C L2 p" p( Y6 x, L2 W
set conn=server.createobject("adodb.connection")
% Q; u- b# Y* j8 W/ ?, V$ F, B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 E/ |# v" X+ B; \- v; T' |
exec="select * from 表 where name='"+字段+"' and tel="+字段
" B* c( L! `; T1 [5 A& P
set rs=server.createobject("adodb.recordset")
$ O+ R& b9 ]7 U7 @2 [2 U Q
rs.open exec,conn,1,1
9 k. x; t" f5 E2 V: L- J1 M
%>
% F- l9 d: E z2 C
'页面搜索到的内容导出来
& c; s/ j0 U& f; G4 h
<%
, M7 G7 L/ X3 _% d: s
do while not rs.eof
& u+ W& X1 c: \" P9 k! w* i
%><tr>
# ^" X) c" J# T0 Q8 X% G* U
<td><%=rs("name")%></td>
8 l& n) I! e1 U5 ^$ g
<td><%=rs("tel")%></td>
% R6 f K) C1 g/ e& r
<td><%=rs("time")%></td>
. S% h, ^( a8 I& @. q
</tr>
7 R% t8 Y# F! ]; ?8 ]5 }
<%
$ k( U7 ^; z O3 o, h9 V3 h
rs.movenext
: M% s7 K3 L6 U7 k, h5 Q! l: v) ^
loop
. [, ~" F# \8 q: N1 J! a
%>
' L1 o( t. p1 \
% r& e' W6 C3 W9 {. B! Y
删除记录处理程序:
& v3 u7 x# S# [7 X& l: u
<%
/ k0 m) ?. b! \6 ^& r( ~
set conn=server.createobject("adodb.connection")
% Q, s, [5 u% ^4 h; V
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 f8 l4 c$ J f3 y5 e
exec="delete * from 表名 where 编号="&request.form("id")
2 {6 w2 Q) o, G/ y; T! S# T
conn.execute exec
, v4 T. F. Q% r) N$ E: b8 x; A
%>
S5 t4 `5 V ]
1 L8 U5 p" n1 c/ K! V% F
% K5 u! {# K/ B0 G, h* z
修改记录处理程序:
) q! t: R# {1 Z! C0 f9 s
<%
/ {1 F7 i. r: F- S9 y0 K; o
set conn=server.createobject("adodb.connection")
) O. y" \! S' A* c
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 c8 X- ^% l0 S
exec="select * from 表名 where 编号="&request.form("id")
( p. B: t2 P; }/ G2 O3 n E/ I7 V
set rs=server.createobject("adodb.recordset")
" w& f7 ]! @ Y" S. a' V
rs.open exec,conn,1,3 '1,3为修改意思
* q! o" h. C1 q l
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
6 E* R1 T( D, k, {0 G
rs("tel")=request.form("字段")
/ }' N( m7 j1 x2 B& ?
rs("message")=request.form("字段")
" }, P( ]2 B; M9 ?
rs.update
# ~% `6 U9 i5 x
rs.close
! l% n8 { G; g) Z
set rs=nothing
2 F- \" T4 @& r/ {0 Q1 J" F
conn.close
1 y3 H* l" D; x, k3 Z M9 X
set conn=nothing
, A- V4 P/ c" q0 S" V- K
%>
1 D0 v; r! p' m
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
3 Q# g) S5 l6 o, s7 P2 d
; j4 |$ @- Z6 ~# Q# v& G- B
后台登陆处理程序例子:
- R4 q6 t3 a2 h& ~
<%
' _( F8 ` J7 ~" n8 a* P$ l
dim name,password
3 l' m* W0 J0 ]
name=request.form("name")
" c6 z. r5 P$ b6 t4 a9 j' f
password=request.form("password")
4 Q3 s6 Y+ z, s2 }6 W
dim exec,conn,rs
9 B; E1 r% X8 A* W! b
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
7 ? F- t5 n) r9 P' {' K! a
set conn=server.createobject("adodb.connection")
3 H3 k2 \0 g( O% U8 t# G
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 T& g3 ?% _" i0 m7 g
set rs=server.createobject("adodb.recordset")
7 M; _, R& u/ @9 K, S
rs.open exec,conn
$ P$ [8 d1 _7 b+ _1 v
if not rs.eof then
0 e. [( u4 |+ `: H% f
rs.Close
3 G2 c0 T% D* b0 r7 I' q4 J% h
conn.Close
$ \9 w! R& ]" m
session("checked")="yes"
_% f' X/ w. \/ w& q+ h
session("check")="right"
. V7 n5 }- R& i6 B0 f7 ^/ ?5 B
response.Redirect "index.asp"
( c( Y- c' P* Y9 j
else
7 P1 l9 Y; g. ]" y1 b9 n" n/ V, F
session("checked")="no"
6 g0 o8 T1 v7 n i2 v
session("check")="wrong"
3 w/ Z5 D: _! t/ P
response.Redirect "login.asp"
; t6 M2 x1 c i# f1 @ E
end if
7 D! [3 x: t, m
%>
- A' {+ e1 D; |- i" k9 b, m1 L
# F' J v3 p2 W( K" U. B
每个后台页面加上:
) J+ Z- S* M8 @% Q: y& J
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
" x/ v- h9 X' s6 Z4 c
response.Redirect "login.asp"
- g7 b9 m- [ ^4 c- \/ y) s
else
7 _9 s2 O9 D [+ \
%>
欢迎光临 广西经贸职业技术学院论坛 (http://www.gxjmbbs.com/)
Powered by Discuz! X3.2