飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
0 j. M/ W6 q5 F% n. N9 d$ t
<%
# {; K- d8 N/ \7 f7 r Y
set conn=server.createobject("adodb.connection")
( v; S1 ?. r, T( m2 K2 Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! M; A& q* h! y- Q6 G0 j( L
%>
0 h& i' S1 D4 Q& T& l0 r+ A( t
8 @4 O$ p& V% C% X1 S' K8 j
! }4 `0 b# e! L" e/ u: l# a
打开数据库：
& M$ G( R/ @" |! K& S) m) w8 @
exec="select * from 数据库表"
( q; Y, o7 m: u5 b( c2 V( S
set rs=server.createobject("adodb.recordset")
, B' Y' z+ E+ J, @& l! ^
rs.open exec,conn,1,1
3 t1 `8 y0 ]) Q/ N% ~
参数1，1为读取
7 u# L! U2 p" N. H0 @) {1 R- k
# x+ g0 U* ^. m% X5 T
读取内容格式：<%=rs("字段")%>
& ]+ u$ k, Q# `4 L6 r
! [8 S0 \+ Y+ G/ S3 t
添加记录处理程序：
1 P" |8 ~ @# k) {( ]1 {; }+ _
<%
: a& e o4 n: X
set conn=server.createobject("adodb.connection")
* r* A3 ?- H4 e( t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 i' T0 s+ H8 p N
name=request.form("字段") name,tel,message为提交表单所设置的字段值
% F" k2 `: A( a( L
tel=request.form("字段")
+ o0 j. I* s; M$ c3 ^
message=request.form("字段")
4 c/ F- }+ f3 q2 y
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
3 z( U6 @! O" Y3 j
conn.execute exec 使用execute提交
9 A4 `5 N$ h( i+ W6 `. `
conn.close
- S: O" w8 S! v! t: L
set conn=nothing
) s& N/ B/ }& m2 y
%>
( O5 }5 i: d. K) o/ E
0 ] g' o2 ]1 Q% l5 f
搜索处理程序:
( Z% `2 x& y$ @' U2 P0 Q5 V* _$ k" P
<%
) k0 i0 V# U, D' V% H3 u
name=request.form("字段") name,tel为提交表单所设置的字段值
- W+ v5 l) U% F# C
tel=request.form("字段")
U l) B. V* i
set conn=server.createobject("adodb.connection")
5 W- \- G6 o* f- {
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! \6 O0 n+ ?4 Z1 \4 D& \) m% z
exec="select * from 表 where name='"+字段+"' and tel="+字段
% B$ ]$ V# V+ d( X9 E# H1 O r
set rs=server.createobject("adodb.recordset")
& k2 K8 ?& g' Y5 o
rs.open exec,conn,1,1
/ m0 _. i" R e$ z2 E! F
%>
: q4 G) d1 O7 V! F- e& E
'页面搜索到的内容导出来
2 s- t/ M, x9 D8 L% d; j
<%
( t! A+ i: I* m1 }4 B/ O. F! S5 u
do while not rs.eof
& K& u. N% F. x8 Y& X# V- }" ]
%><tr>
% V; a! X: n8 r/ D
<td><%=rs("name")%></td>
, }* b5 ?' s0 x ]* K! W
<td><%=rs("tel")%></td>
# j0 T+ i0 h- U. O- q& W, }
<td><%=rs("time")%></td>
- l5 _ l. A; ?
</tr>
7 T/ m, C8 @3 g8 L
<%
# P/ d/ ]0 `: k; [
rs.movenext
, f- L7 q4 [# T( d0 W/ A; n. ?
loop
0 Y9 S0 C5 ?. j3 m
%>
i E; l- w# H* Q4 R+ c! H
% d* s7 j! b9 s: }$ Z, r
删除记录处理程序:
% y5 n& ?/ @8 F* p" f
<%
* _- K& g: D6 U
set conn=server.createobject("adodb.connection")
$ ~: I2 [! D. @% A: p3 d) g4 |1 X/ _
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 v" y- N: W5 T" m* {
exec="delete * from 表名 where 编号="&request.form("id")
5 Y& X! g- S% I, P
conn.execute exec
% y* h$ E7 L% E! J \. ~
%>
! ^9 ^7 C$ J. J6 l8 N. p
+ R7 q8 p) ~. g3 y& |8 v; v
7 |5 D w s! H( f/ I4 h; ~
修改记录处理程序:
6 |5 I0 x4 I, P4 Z8 h% a: z" f
<%
8 m+ M3 ?" y! N) |/ h2 X+ N5 |- D
set conn=server.createobject("adodb.connection")
( e- W9 [' E% T6 _4 Z! o9 j C
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 h" ]$ E$ R( O }: M) y9 n
exec="select * from 表名 where 编号="&request.form("id")
! U! m2 d6 K- v. t) Q
set rs=server.createobject("adodb.recordset")
' A8 l8 S+ L- X0 O3 I* r* r" i3 O
rs.open exec,conn,1,3 '1,3为修改意思
$ v3 M- j' N0 f' c5 ^% q/ E
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
' F- x9 P! u% l8 p- r; |
rs("tel")=request.form("字段")
; x2 {2 x w; C! O
rs("message")=request.form("字段")
* B; Z7 l2 `+ t, v" L! V: k- R
rs.update
5 L# R$ {% _. J {
rs.close
) b- _1 ]( u4 g0 w
set rs=nothing
: `% {; F, y8 n* y' d% s
conn.close
. W7 |$ S8 r3 h' D
set conn=nothing
+ G3 H2 W) j. U3 p/ g
%>
2 M& b: ] f5 w1 [
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
/ N, L. n, `- Y4 n9 p
3 I8 U8 w( i3 J
后台登陆处理程序例子:
1 W9 H% T& A: ]; Y4 G
<%
d- Z- |% J' a0 o; {
dim name,password
3 m0 a* R1 W+ b/ t7 Q1 s
name=request.form("name")
9 e+ \, N) @( A9 \ v! b" m; f/ G
password=request.form("password")
/ r5 L8 c, n- N1 x7 {
dim exec,conn,rs
3 C0 c5 G! a2 I4 k5 w, B$ j
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
- `' [( b5 D( V$ h6 I4 Y9 O
set conn=server.createobject("adodb.connection")
1 ?6 K# t4 _; L* ^% p& Z7 t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. o' W9 x1 n6 J, M; y
set rs=server.createobject("adodb.recordset")
, N& u; g5 {. @* ^8 {# m7 m6 {; `
rs.open exec,conn
) `3 w# S; x. I
if not rs.eof then
0 x0 V! l% n+ H+ X
rs.Close
9 h$ G% Q) D# i4 ^! _
conn.Close
' C' [' t0 j! {! `' ^) j4 g; k
session("checked")="yes"
, g+ G9 L! R. S& U: A8 ~$ o4 a' [
session("check")="right"
+ u- h/ e4 T$ f: Z- Z
response.Redirect "index.asp"
$ H4 l" \4 x, V ? C: I) {1 C3 n
else
9 C: i6 `# R U+ e) H
session("checked")="no"
1 P! P4 \1 t7 ]& @4 N# y N% I& V
session("check")="wrong"
1 i @5 d5 R/ a2 L- h% j O% [
response.Redirect "login.asp"
. s( V: v" h% I
end if
, ^6 o9 r8 P& w6 x9 w
%>
7 U' I4 j% e+ u. h- Z4 C# S
" {2 K. }' }7 P7 z
每个后台页面加上:
( U4 h! ^% k# G) N6 r8 Z T
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
' \1 J, X# I/ t) A& ~9 K+ y3 N, B
response.Redirect "login.asp"
* W; o3 `: x4 n3 m
else
" @' s' A# Z2 p
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2