广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
' u& C. \9 G8 I4 L0 \" B% O- {
<%
0 }3 }4 K% V: G) O& M" O" F
set conn=server.createobject("adodb.connection")
' _& a7 N( f D u, z% v+ G* F9 l
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% u( t- F3 `' |1 {2 i8 J" c! \ V
%>
, S& m! g* i0 h4 ]" O3 Z/ a0 R
: X" g- v9 a8 w& n' ^
7 e) p- Q* H A+ e, Y; p
打开数据库：
0 R% C' ^1 g1 t( K/ \ {- w
exec="select * from 数据库表"
. f: a5 |" q$ X0 K5 p s0 A
set rs=server.createobject("adodb.recordset")
& C+ D& c0 {' Q" d% B. ~! h+ j
rs.open exec,conn,1,1
8 V6 o1 g; t* S8 U/ W
参数1，1为读取
! l* ~& P- B' @; ` w+ J
8 W. J! O) v1 F. d& d
读取内容格式：<%=rs("字段")%>
; q( C k* p' ~
* P9 w3 e( B0 I3 K
添加记录处理程序：
- K( f& a4 o7 N x2 b
<%
3 u% n4 w7 m* b! T
set conn=server.createobject("adodb.connection")
7 U1 F% \/ ^9 m% U2 ]* _1 k
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* u1 S5 p. o* q0 l( K
name=request.form("字段") name,tel,message为提交表单所设置的字段值
8 J) i# a9 O+ A) n U8 Z' W
tel=request.form("字段")
, y U& n& d" A2 P% D" h
message=request.form("字段")
1 U3 }: x, I( F8 g4 @
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
2 j% R( N6 t2 i b/ U
conn.execute exec 使用execute提交
+ E0 x0 i7 m# M( h
conn.close
9 t4 W3 t- a6 D2 y; ^, j0 p& E
set conn=nothing
# |# q5 n- J! ]+ n! ?3 ?
%>
9 @9 p- ^# s# b
% ]: P4 }. ?9 _# L
搜索处理程序:
: ^) u* {3 h4 S- B: C
<%
. E' ^( g' E6 o! X9 e
name=request.form("字段") name,tel为提交表单所设置的字段值
. J0 [) o' K) V( w) s7 I) D
tel=request.form("字段")
: ~' e4 e+ C# {$ b. k
set conn=server.createobject("adodb.connection")
& D% X% [8 a2 g B2 r; x3 O
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 k$ N2 q! _/ c8 J" q* k9 ~
exec="select * from 表 where name='"+字段+"' and tel="+字段
; l( \8 l5 b+ R% X. T6 t) P2 X
set rs=server.createobject("adodb.recordset")
H! {. L6 [8 [% x% O5 G7 U
rs.open exec,conn,1,1
+ S4 p! E6 O4 q% E
%>
6 \# c K3 L6 x& b1 [6 p3 N; {% P2 y
'页面搜索到的内容导出来
0 {1 P4 _% } d
<%
W) k* m( k- ]1 P
do while not rs.eof
; u; M u! y5 ], f8 R3 g* N: n
%><tr>
4 c' s. _6 |0 O' ^; Z: a! ]
<td><%=rs("name")%></td>
7 S; ?( A# h4 ?' Y, h* j# c7 Z: \# ?
<td><%=rs("tel")%></td>
/ k" z$ O. f/ e) m: [
<td><%=rs("time")%></td>
4 c. Z# S, [/ |9 h1 y
</tr>
; C% {* L5 Q) u( g
<%
" j" G1 r; ]. n; d5 Y1 T: z
rs.movenext
8 R! y! r R8 Z G; L% s* r1 o
loop
0 L/ k+ I u7 x+ }% }2 _
%>
! Z* k, p$ x8 T" r2 u4 ?3 e
, h0 s) \+ N" u- e
删除记录处理程序:
0 M) s g# m' |" N0 [
<%
9 ]; E+ T* q! i, n8 d
set conn=server.createobject("adodb.connection")
) J6 k% `& { G8 l8 V7 }; j( ~& D
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% d q" Z, s, i8 b" p
exec="delete * from 表名 where 编号="&request.form("id")
" S1 S% A; B2 R: ^) f# P
conn.execute exec
/ i% K! k9 n8 e, D3 T
%>
+ E9 U) O( o& j" C5 @
5 d* L; T: R" k$ z0 R! a
6 V6 h+ |1 H4 Q& a+ U
修改记录处理程序:
+ k5 v" W7 O2 ?( g- v. c5 q
<%
v. g4 r4 @9 a4 j! z7 q2 Z
set conn=server.createobject("adodb.connection")
; l2 C s3 z5 ~1 K, N1 R L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ I2 I- V6 w U- g7 j
exec="select * from 表名 where 编号="&request.form("id")
* q! e- f0 o8 L
set rs=server.createobject("adodb.recordset")
8 L0 i3 R: A8 S! e2 m
rs.open exec,conn,1,3 '1,3为修改意思
6 G0 P% R& W; @' G& M
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
/ n1 D4 b; z/ Q2 ?- q) W7 k
rs("tel")=request.form("字段")
& T5 r5 V% ~1 i2 b8 W0 g
rs("message")=request.form("字段")
& O& y4 G. v" N& B6 N: |$ w4 ?1 |5 S
rs.update
& f. a/ f7 D* W R& i" R& j# K
rs.close
' f( H* B$ L; U- X
set rs=nothing
4 n) s3 n- o8 r& W( l: T
conn.close
( Y2 \5 ^! m9 z" a: Z
set conn=nothing
5 q- F# ~8 E F5 J/ I
%>
: E$ v) J' U8 L$ u+ a
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
( t. y& H$ t5 x. D8 _/ ?: c
( E4 D9 T- r: A4 z4 {
后台登陆处理程序例子:
; Q. B* o* I/ u) B0 ], A
<%
: N$ U) q& d6 [2 P6 Z A% i
dim name,password
& D. O; g0 p- n4 g% d: I
name=request.form("name")
0 Z6 @2 j+ }# N( `
password=request.form("password")
; z9 s! d8 F' m2 t0 j+ a
dim exec,conn,rs
$ `: A' j7 I$ P+ v" j
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
( y' d2 f' l6 r
set conn=server.createobject("adodb.connection")
" l' i0 _. O8 n* J
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 b( @ o* e3 `. i" r
set rs=server.createobject("adodb.recordset")
; P- B. s5 ^2 ]# E
rs.open exec,conn
7 J4 [/ v) }6 g0 p: @
if not rs.eof then
5 l) D. }+ r+ N
rs.Close
- c q4 Q* m! `
conn.Close
& a2 f5 T6 G, L% n0 h4 _
session("checked")="yes"
3 i' n& G a; ?; H
session("check")="right"
$ L9 q- @3 P& m# O* z) S7 s
response.Redirect "index.asp"
: S. g' j+ e5 x
else
3 Q5 ?( F# P1 W4 E$ P" Z p
session("checked")="no"
* ?9 G& ^0 }+ {6 Z2 \: w
session("check")="wrong"
4 K; o$ N, L' x% n, A
response.Redirect "login.asp"
; N& ~) k2 H9 O
end if
8 x4 F$ G& D+ m) W& Y3 [1 Q
%>
7 F4 b/ b, i5 Y- p- k
! e0 z- t2 L& ^. o% N2 y: p* n* _" U
每个后台页面加上:
8 ?5 u" l7 S7 y3 F( Z4 ?' o
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 P6 n. O/ y2 r! S+ }, ?4 H; q" ^
response.Redirect "login.asp"
( }7 @4 Q# Z6 C: v0 s ~
else
( }; s) A- }+ ^# H
%>
欢迎光临 广西经贸职业技术学院论坛 (http://www.gxjmbbs.com/)
Powered by Discuz! X3.2