飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
6 E; P9 v- {; I; T h
<%
) M# H: [1 w' }- i9 d9 T$ K
set conn=server.createobject("adodb.connection")
' G+ ]9 i. s r* W, l+ ^ L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: f2 g- T" f# h* {+ {0 F2 c
%>
5 g; F) n2 B' z& {+ r3 w: x7 N6 g5 a
0 }9 U0 g, [4 j
8 x! I. t+ y+ {# L/ I' T
打开数据库：
d, u: _$ b: J+ H7 A
exec="select * from 数据库表"
4 Q4 A E3 W- ?
set rs=server.createobject("adodb.recordset")
9 O' s8 K3 ]% r$ m7 O/ J' A0 A+ g+ Y
rs.open exec,conn,1,1
" B: h* y0 v$ W5 U# I
参数1，1为读取
* z0 V( d% ]2 j1 u5 L: T3 f
9 d2 H, G% [9 E% F7 h) J
读取内容格式：<%=rs("字段")%>
9 F g/ k7 G" x8 c: G. y
0 m; t$ }9 {; H, i
添加记录处理程序：
* a' b% N4 A& W' W# c
<%
) w7 Z! e; P% l k# `+ S* ]1 g' d
set conn=server.createobject("adodb.connection")
! a$ }! t0 o" W% g8 l- l
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, R& q' N& E# \# N. c9 x D' k [
name=request.form("字段") name,tel,message为提交表单所设置的字段值
, [: P6 Q4 e- H
tel=request.form("字段")
$ O4 J N4 K# t6 Q
message=request.form("字段")
$ v) h/ f* D4 n* \8 u. ]6 ^
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
! X3 Q7 X. Q% X% w: J7 n
conn.execute exec 使用execute提交
+ \# G8 e* Q0 N% e9 z8 g" v
conn.close
* k6 K; }& h# U! V% ], ]
set conn=nothing
3 o+ c' K: m: H& }
%>
+ J2 g0 x# u' c- l
2 f, m9 X8 ~1 r2 Q+ j
搜索处理程序:
' h& u4 R6 b8 e
<%
+ g1 R# x- h2 J' N! G
name=request.form("字段") name,tel为提交表单所设置的字段值
& u6 |! t$ x. o
tel=request.form("字段")
7 u3 W6 z2 t! ?/ Q* ]6 E% f1 B
set conn=server.createobject("adodb.connection")
8 L& S) o; y' `' Q0 J& I- j
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 O2 f {- s3 W+ K! @
exec="select * from 表 where name='"+字段+"' and tel="+字段
}) }- Y g% W7 ], X( h
set rs=server.createobject("adodb.recordset")
* K% L" {/ E: f2 L
rs.open exec,conn,1,1
* |7 P2 z* v7 `% {+ v8 p
%>
( @: {4 `3 f% k5 z4 ^- ~
'页面搜索到的内容导出来
. T5 Z2 [3 ~3 u% d# V5 ?* i
<%
6 |6 S+ ]! u. @* ^7 Z, e/ ~- J
do while not rs.eof
% a3 g2 @$ ]. d! J
%><tr>
9 ?9 `$ ?& h0 Y( ?
<td><%=rs("name")%></td>
% \3 G& ~. Z& n4 C% H$ u% d
<td><%=rs("tel")%></td>
1 `6 S+ v3 e7 c0 j
<td><%=rs("time")%></td>
/ l7 t; {8 Y8 d5 Q8 w9 a: \
</tr>
$ E/ n+ M7 H+ O" _* {: W
<%
3 \+ h3 k9 m& y5 K3 z y0 j
rs.movenext
5 g2 q0 h6 ^5 v; ]5 J/ Y, u
loop
, A2 _8 q$ L6 q( h: A. D
%>
9 R- J; {. ?% T
, S; v4 E1 B9 R# s: K5 _
删除记录处理程序:
7 F3 H- O7 M; V b$ @9 ~/ g
<%
7 N2 n6 k1 u0 _0 E' w
set conn=server.createobject("adodb.connection")
0 i9 W0 V% I/ s w* X
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# S! g, _6 O; ]+ v
exec="delete * from 表名 where 编号="&request.form("id")
# S. j. c8 Q* E$ b7 H7 u
conn.execute exec
+ F: U! m B2 F( y) t& f
%>
+ k: ?! z. R) A# w* D9 _6 I
2 v3 p# t0 [& i( y3 T6 j4 Q
5 _/ e' ]# V9 w! Y# F/ a% r6 L
修改记录处理程序:
0 `+ j# X& {9 [* ]* k% L6 {
<%
7 Q! x: G2 @. S$ a
set conn=server.createobject("adodb.connection")
3 y6 H/ A- U! F2 y: n' w$ I
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: z, U9 I. H5 U$ E, _
exec="select * from 表名 where 编号="&request.form("id")
5 v0 [2 P8 `/ q: z
set rs=server.createobject("adodb.recordset")
# V1 U4 X% W5 t) n' ~2 i2 I J& @
rs.open exec,conn,1,3 '1,3为修改意思
; z1 _8 _/ k; H8 d! w
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
7 _. D4 D q% d/ f1 y' n
rs("tel")=request.form("字段")
. [; p% S) i$ B+ |1 y
rs("message")=request.form("字段")
" x$ } |: ~; u) b' Q
rs.update
9 v) Y4 }$ {) y+ A n, z" u
rs.close
3 Y5 f" S' S+ X! x& d- u8 L
set rs=nothing
. c% }5 z4 u4 a: }
conn.close
0 ]5 K6 J# W o4 \0 L% w, d0 I: \
set conn=nothing
- {& s0 l& r: v) B0 E5 M% s
%>
9 z+ z( H9 @4 P' ]2 e# y
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
# {* [/ z/ R0 \$ h& M
4 }: C5 x$ K( ], {
后台登陆处理程序例子:
% c: }/ e) P. w. ?" o: m
<%
2 c: H4 a1 x0 A1 [. e
dim name,password
. u' I' _( h, A$ P: u* n) |
name=request.form("name")
/ c# g- X* V7 y$ _* H& ^
password=request.form("password")
0 y' E3 g# T% x* U; A
dim exec,conn,rs
6 f( g$ N: Z0 M1 n5 S G
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
3 |4 C( y* c9 T* I4 {1 o: e
set conn=server.createobject("adodb.connection")
5 s6 I4 X9 }' H# H6 g( @0 z: Y: _9 s
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: Y( [0 U( N1 j
set rs=server.createobject("adodb.recordset")
' S- J3 `" Q7 g7 c4 b `. e
rs.open exec,conn
/ }; C4 f6 ^5 s" |, v
if not rs.eof then
# |3 g) x- a! y2 X9 P. k/ A$ \+ q
rs.Close
, {* a7 R" `" t* B# Z
conn.Close
3 _8 x- O2 `' H$ B9 b- r7 M
session("checked")="yes"
, Q; z" U( B0 e4 ]0 `# N
session("check")="right"
6 X- j2 H& j( X( ?& O) g1 a/ h. ?0 ]
response.Redirect "index.asp"
+ }/ k7 N7 h9 r; ^& b' u
else
& h& o+ H+ D. T3 S* x2 C+ t
session("checked")="no"
! E- u6 P! d1 ^2 F' y$ I
session("check")="wrong"
7 P9 ?. q* S: ]9 J! b
response.Redirect "login.asp"
2 @6 [1 p) U6 _9 u5 K2 g9 I, }2 s
end if
$ ]; ~; z1 u; r
%>
8 ^9 B1 R( T2 l. T5 l) P6 @9 U
# p6 r9 k; ?, z* |
每个后台页面加上:
7 M( ^, @7 c% y/ X4 m1 M' ~
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
2 _, s6 l4 ^6 |/ _ G9 T# G
response.Redirect "login.asp"
$ v% s' d# ^+ I, Y
else
& n; l8 }4 g+ _& f
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2