飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
5 h8 q* b* @9 F& a2 J# m. Y1 W& x; s5 i% V
<%
, V. z* ?0 ~% S: s; g; T: v
set conn=server.createobject("adodb.connection")
9 Q8 M4 W& }: @. l3 e4 \6 ?
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; H! V7 b" Q* ~5 L
%>
; w& ?# C9 t% n, j7 q" w
! z; W; N2 R" i. [3 w
1 z1 O6 D2 q Y5 R2 \! b) f( p& [
打开数据库：
2 _) O& l( D2 G* p* q+ L
exec="select * from 数据库表"
5 d+ u9 x, N9 b) c, {
set rs=server.createobject("adodb.recordset")
7 C7 G* L& c6 C0 e9 ?9 o" Z% [
rs.open exec,conn,1,1
9 l" C" d& t. ~. E2 N
参数1，1为读取
! _" i8 Z( g, d1 M
3 Q' }# U7 E t, D/ l' v6 D! g
读取内容格式：<%=rs("字段")%>
! l! r2 l, [/ o! ~6 @! E
& x, u: D1 z2 }6 d
添加记录处理程序：
: G1 F. ?: s/ U/ U7 [/ D
<%
; h" W* X+ H5 F- Y& n9 | }
set conn=server.createobject("adodb.connection")
+ T( j% h d& o7 n' D4 \+ L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; j. i$ z4 p, J4 H# m7 o
name=request.form("字段") name,tel,message为提交表单所设置的字段值
2 R+ F7 K& i$ c( |
tel=request.form("字段")
5 b7 e1 L( s, j; ~; m
message=request.form("字段")
$ @+ D" Q+ u4 B( F/ \$ R8 S
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
4 h( A6 B5 i9 U$ F* \& l& c0 J
conn.execute exec 使用execute提交
2 U" u8 [+ f5 {) Z& l, m; ^
conn.close
4 C1 [4 ]3 J* a: }7 G' |3 d$ x
set conn=nothing
+ e r. H5 k3 J" `
%>
0 `9 N5 }- F4 O0 _3 B; s" O9 c0 J
5 T0 l. t7 x1 i9 P7 x. e
搜索处理程序:
2 w9 P$ A9 o( v
<%
- y0 w# g7 k+ d# i0 u
name=request.form("字段") name,tel为提交表单所设置的字段值
9 Y( a) b8 W. k2 X" z( W& C
tel=request.form("字段")
$ L$ }# j# L) }: [
set conn=server.createobject("adodb.connection")
1 m; d% B3 T# H/ A6 n5 C
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, p% u7 A; ~; _3 c( | T, V: t$ x+ D
exec="select * from 表 where name='"+字段+"' and tel="+字段
" s. r5 v' G0 W; a& G
set rs=server.createobject("adodb.recordset")
5 y8 v5 O) G' ~
rs.open exec,conn,1,1
7 e3 x7 V7 ?8 \* N9 H
%>
$ ]/ `) D( s7 P8 A+ }( C
'页面搜索到的内容导出来
3 Q2 Q7 s( ^$ R
<%
0 ?+ l2 n0 r$ q6 }9 m
do while not rs.eof
, ~0 Z/ K4 R: p) ]6 V5 a5 j- T
%><tr>
9 K1 ^* ]% b* S7 J# _5 _1 E5 M
<td><%=rs("name")%></td>
! C' ^: O$ q9 h5 d7 e
<td><%=rs("tel")%></td>
2 B* {) t) F+ X$ c9 b
<td><%=rs("time")%></td>
; C0 @ l) A o+ A4 Z; N
</tr>
+ ~) l8 M1 }: y) u/ D
<%
) P% L C) F' \' x7 b; Y' E' C" K
rs.movenext
0 o# m4 d! L' I
loop
7 }: B& Q7 p, u) `; q
%>
# K' R- \# P! a) p! z3 X
( e! O% k3 A1 e2 \0 n( n$ v
删除记录处理程序:
_, {8 ]% i1 [
<%
! g) P3 s) }* w. J
set conn=server.createobject("adodb.connection")
+ U g3 h4 [0 k
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" c. o c/ P% O4 G1 @! V
exec="delete * from 表名 where 编号="&request.form("id")
3 ] O1 \2 q1 W! r( K/ {9 n
conn.execute exec
- ]: M, |5 X7 t1 W
%>
f( h) y) {3 a8 x1 z
% W* V3 P1 i) m% s+ R$ u6 J$ @
7 B L' z: a4 K6 c$ w8 z
修改记录处理程序:
) b( ^3 a7 ?# {$ I$ o' ~" |+ v& n
<%
& w8 i6 e( x$ z$ I0 [; y/ q
set conn=server.createobject("adodb.connection")
& k3 g% W2 q- s- \' O0 K
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 ]: o1 y( m/ @
exec="select * from 表名 where 编号="&request.form("id")
' g$ m; |7 Y0 Q: }! _: S) r# {1 ^% I
set rs=server.createobject("adodb.recordset")
9 q6 ~- }0 o' V* {' F5 V
rs.open exec,conn,1,3 '1,3为修改意思
7 B0 G2 t2 K1 x& m: L L5 E
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
8 C8 X, I) C3 J- E1 `! n- k `; L' @
rs("tel")=request.form("字段")
0 p% `; |9 @" m9 \* ^
rs("message")=request.form("字段")
+ T% Q( `) r. \4 R" H) H9 I
rs.update
- R" r1 e( h7 T' W u2 a) ?
rs.close
. b& n" u2 g9 Z1 }2 j0 i- p
set rs=nothing
/ T% a5 k4 W4 @6 h
conn.close
' x3 L- y. X: p) j# i
set conn=nothing
3 x Q- N8 N) ^) r( }" A( W
%>
) ?! s: \, O% r" I& f/ P% g
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
6 f. s6 X3 v9 ]" E1 v
! v5 x! V4 H" H- s" M: a0 p1 F: w
后台登陆处理程序例子:
' v3 M% U) E4 ?
<%
: T9 t% t) Z% m/ }/ z. g% p
dim name,password
$ L2 `$ l2 r+ W) B: N1 d n4 k/ T
name=request.form("name")
( k" Z! A, }" Y7 H- V, n5 T! w
password=request.form("password")
' L9 g( i1 H. y' o6 }) t4 b8 x" A
dim exec,conn,rs
( { j. W$ R: U/ C' S" G% ~
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
1 a( m3 [: V: p
set conn=server.createobject("adodb.connection")
1 ^. q& q/ R/ {! {
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ x+ a& F6 \' N- ~
set rs=server.createobject("adodb.recordset")
1 f. Q9 W% ~% @8 g
rs.open exec,conn
: R4 O- w4 i+ s) D# Y# J5 i
if not rs.eof then
& h( g' B' k5 r/ C' {- a ]
rs.Close
3 m3 p& O* X+ o1 U
conn.Close
4 W( K! {/ ^; ^ F& d! E
session("checked")="yes"
# G& q" V) g& n5 z n
session("check")="right"
3 h) H( F1 E8 `3 B9 F' `" r
response.Redirect "index.asp"
; M9 A, w. J$ c
else
1 p! l0 A) k& T0 z
session("checked")="no"
0 A7 p8 g- b9 `- G3 c
session("check")="wrong"
1 V5 }$ x* O, G' R0 e8 l3 W
response.Redirect "login.asp"
+ ?$ o `9 k/ k7 [
end if
/ y$ |- m( d7 {+ N: x) ~
%>
$ ^: v: N1 B" d/ t. y* a% R9 j
6 f* I% r1 p0 p: m; w3 r
每个后台页面加上:
- t1 e5 l4 D7 A/ ?4 {3 ?
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
/ N& _/ @' b1 H$ M& M3 Y& Q
response.Redirect "login.asp"
* }+ k7 s4 T3 \
else
6 m( w+ v( g5 C6 G& v! _
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2