飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
1 J, a9 f( A3 @) j0 R, y9 L" e
<%
, n3 H/ X6 ^( L. r8 V6 Q; E* A2 q
set conn=server.createobject("adodb.connection")
e6 O& R( v3 I- A% k
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 R& h% o% e. V6 r r
%>
) g9 j/ U" p% h- r" i$ Y
$ L4 c6 x) ]$ X. {
1 c6 G: U2 f. p6 t
打开数据库：
1 m+ x0 O) A1 b. P, @+ w
exec="select * from 数据库表"
0 @# B% @5 a' N* ~; W4 g
set rs=server.createobject("adodb.recordset")
$ h5 [/ K/ v) ?$ G# v: i8 y4 X
rs.open exec,conn,1,1
0 ~8 Y" b1 d/ c/ e
参数1，1为读取
- m6 c: u3 w3 W! e, W# T1 T! j
" f" C' \3 p7 Y. _
读取内容格式：<%=rs("字段")%>
, K T ?4 n; r: l5 l/ j
6 f4 j7 ]9 k) ?
添加记录处理程序：
, Z9 a5 Z7 T x( O! s, N+ V
<%
% `' B8 n, {/ n' p9 I
set conn=server.createobject("adodb.connection")
* l: W% q7 G* m t' |3 J/ {( _5 p
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 f3 ]/ t* J) b0 Q% f$ G, ]
name=request.form("字段") name,tel,message为提交表单所设置的字段值
+ L. |: n! h0 I
tel=request.form("字段")
; H. E0 j5 g. r1 K8 t' k+ a
message=request.form("字段")
/ H/ n, R! _/ t) A& B
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
0 ^/ z; N- N" M' |. p9 Q7 y7 O
conn.execute exec 使用execute提交
2 v% h# f: ?2 a; z7 _' \7 t
conn.close
& \6 H* s8 _5 a: i) t
set conn=nothing
* e+ s: h7 o& Q$ G: u
%>
# c+ N1 ^! c9 O5 k! d, U6 t0 b/ D
: H3 t l. R. |3 B9 z/ z# Z
搜索处理程序:
; {' R. l8 [$ }7 W# n2 J
<%
6 l p. a$ G6 T1 Z/ [
name=request.form("字段") name,tel为提交表单所设置的字段值
7 Y* X7 v3 L, ?0 Y" m5 k1 q+ Z
tel=request.form("字段")
7 t. d& E7 d! l3 ?' Y
set conn=server.createobject("adodb.connection")
( w: g* z" x2 U1 W1 f: c0 @
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ g/ U: j" r: ^+ a) {6 N5 c( B3 g. u
exec="select * from 表 where name='"+字段+"' and tel="+字段
, T# n' I+ m+ F+ ^1 L0 c, g; V
set rs=server.createobject("adodb.recordset")
. o; y) |# O E! L5 A
rs.open exec,conn,1,1
3 N: S6 j& K* w; B- R' \1 l
%>
0 M' z% m" ~, \! M' o. _
'页面搜索到的内容导出来
1 X! z+ `! S0 J6 S
<%
w' O/ _8 [& s
do while not rs.eof
1 b* \' t; V) [1 O: g3 w5 J# k" c: \9 T: d
%><tr>
! [: ^2 ?" Y6 G* A8 ^) L* e+ W+ F
<td><%=rs("name")%></td>
/ B h" V5 M. K% l0 G
<td><%=rs("tel")%></td>
" k- [( z- j1 @
<td><%=rs("time")%></td>
1 o; G; |8 S O/ i' e( t) G1 i- v9 @
</tr>
5 l0 K$ b& g! z) W! x- r8 Z$ T9 ~& b
<%
2 Y! ^. T% W" }& v7 E* S2 d/ z7 x
rs.movenext
3 C9 H0 g# k }* N# G& @
loop
, G$ M) c3 q% D4 e
%>
8 _: ^0 {1 Q" G, k6 R
, t+ t; D( p9 c
删除记录处理程序:
9 V: b3 r- v3 Z1 V1 W3 i, Y
<%
( T5 J/ Y+ \, I8 L& X3 V+ J
set conn=server.createobject("adodb.connection")
y5 {6 i- a4 n, V$ S# ^
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 f1 {% K3 F7 O% F' {; H5 Q6 z
exec="delete * from 表名 where 编号="&request.form("id")
! \! b3 z- W' Y j' ]
conn.execute exec
& g3 F& P# w( j
%>
- U- c# C# ^2 J" Q) K+ ?" a _' V
) P6 _! n3 f$ {5 t1 x+ q: z9 d
3 i9 J% ^2 z; v |$ Z
修改记录处理程序:
8 n7 J1 U. {$ y* ^! j3 z" b. S- j
<%
3 j" m W! b; @. @9 O) D
set conn=server.createobject("adodb.connection")
. N2 B& V+ n0 ^
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. }4 Q+ r" a# j
exec="select * from 表名 where 编号="&request.form("id")
* R* O2 i# W$ j6 P/ O9 a2 B
set rs=server.createobject("adodb.recordset")
. I) f# f7 Y! v
rs.open exec,conn,1,3 '1,3为修改意思
) t+ P: U! S9 o
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
. H$ Q4 F% q L4 r' ?3 M& q0 I. }7 u
rs("tel")=request.form("字段")
/ A: }3 D* A1 Y {
rs("message")=request.form("字段")
$ h/ F4 T. t0 `1 F& W. ^2 y! {
rs.update
. {* {. O6 t& M3 f0 `
rs.close
7 b4 N3 d4 p$ ?8 }
set rs=nothing
" n5 H: ]2 N _
conn.close
; u2 {6 |" C! o- z, }6 h: z- h
set conn=nothing
3 v( |$ ?4 D5 N7 E
%>
. U" g/ C% Q' A
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
2 W m( i" b% V/ z g6 `
( ^ ]" h8 J, h4 F3 ~4 Y. E
后台登陆处理程序例子:
, Y$ S* _! t8 o+ c" @$ d
<%
) m' V4 o' F h9 {" X) \( o
dim name,password
- N8 u! q0 {) _" G" p( r; g
name=request.form("name")
/ e {& Z: [6 s$ v& a5 A
password=request.form("password")
( H8 e$ k' Z4 y- I7 t' |" o
dim exec,conn,rs
: v7 t7 L* C; w4 X& j; w% @
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
& x- J9 c1 X9 j! _4 s
set conn=server.createobject("adodb.connection")
8 x4 w/ p* i- q4 R% |1 _, v( X
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
\7 C$ H& a% V% A; F# [
set rs=server.createobject("adodb.recordset")
' d* Y; e6 w3 d5 s, y
rs.open exec,conn
+ ?) t7 M$ B$ H+ W7 e
if not rs.eof then
; W0 Q: Z! K. F+ I# W6 F: @
rs.Close
9 P: ^& x$ b( b3 v4 c# n
conn.Close
9 E& `$ ~/ C( \5 b+ T
session("checked")="yes"
- l7 I7 A9 c1 H3 P4 k
session("check")="right"
6 J$ s0 {8 A, l9 U9 a$ }# B. o
response.Redirect "index.asp"
$ g+ ^ q u+ I' s
else
" U7 e, [2 W, w) Y, h
session("checked")="no"
5 m3 z1 g! Z9 }0 s4 C
session("check")="wrong"
8 E4 l" ^0 ~: O' ^
response.Redirect "login.asp"
- Q. o+ H8 D+ `! t4 i6 f' x
end if
8 d" Y5 ~( @6 q7 @7 r! v' b
%>
( v" Q* w7 D& r! f# f* Y
. |9 y! o1 S. k: ~
每个后台页面加上:
% L; F2 P# h W$ o I
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
* h, D, k$ `5 ~
response.Redirect "login.asp"
$ x( Z! @5 |1 g$ q6 ^# N2 B
else
! U7 I0 C! ~) @2 \4 G/ ]
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2