飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
* Q6 C% }. L/ @9 _
<%
7 p2 b7 }# Y/ ^. w. W+ F
set conn=server.createobject("adodb.connection")
! E' W# ~8 f* \) v
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
y- _' T) ~4 ?+ K; L
%>
/ C; X5 X; {% z6 z1 C+ w
: |. ?7 i+ Q' m5 N
3 b! }& q0 l+ E+ q) q4 t9 Z
打开数据库：
, t6 Z- _1 J# @( r/ I8 \- o/ l7 m) g
exec="select * from 数据库表"
. u* u/ n8 I4 e, Z$ \7 u i/ O) e
set rs=server.createobject("adodb.recordset")
v6 Q6 @3 k9 ?8 w! c0 w
rs.open exec,conn,1,1
( l E k+ t, C M/ G
参数1，1为读取
7 [$ S: ~- c- f
# a" c/ P& \6 ]8 O/ p
读取内容格式：<%=rs("字段")%>
6 m5 ~0 B: V+ j* N0 f
2 ]; C. A* Q5 M% p1 f5 i
添加记录处理程序：
/ W7 ]- c8 H N
<%
4 A+ e) F0 @, U* g3 r
set conn=server.createobject("adodb.connection")
8 w# D; o* ?/ C b1 ]' V+ }
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, V1 S" z: N$ M a3 K6 B! \$ b3 p5 M
name=request.form("字段") name,tel,message为提交表单所设置的字段值
5 Y" Z; ]' _4 W! ~ ~
tel=request.form("字段")
8 t) i; y" f9 ^1 z7 V2 i
message=request.form("字段")
' [7 f3 m8 y( g4 m1 }) C3 d
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
' v7 E: \6 t- ^& \( w. ^6 x9 ?
conn.execute exec 使用execute提交
9 l F: P' M: g0 s0 n% ]9 B) h! |
conn.close
; ^' X' C. W, n" x, x1 Y! O
set conn=nothing
7 n( U0 N& `+ ~
%>
1 K$ X4 R2 o9 A3 v! p$ {
" r2 u# Y: S3 S! [- p* q. G% Z
搜索处理程序:
: J" h( b. t( j6 N' Y- k6 Z" z# Z
<%
+ p/ K0 C6 H' s1 L. C* R
name=request.form("字段") name,tel为提交表单所设置的字段值
" J. y V3 V+ }
tel=request.form("字段")
& j, j: j9 {4 T, \/ b, E/ O9 o( ?
set conn=server.createobject("adodb.connection")
- ?- ~/ Q: i p
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ b% S9 ]- x- ?$ X9 ~& K( A
exec="select * from 表 where name='"+字段+"' and tel="+字段
1 W1 M& t4 i- A; E2 n; g
set rs=server.createobject("adodb.recordset")
3 s. c+ p* y# x5 Z
rs.open exec,conn,1,1
5 B, l3 X% k6 Z3 j, a" j6 P
%>
. `3 [- e$ ~! {4 [
'页面搜索到的内容导出来
. ?7 J( }/ ?+ J( {& R
<%
8 h2 Z! x, a0 x7 E& c
do while not rs.eof
5 Y/ d9 A3 I, c9 n
%><tr>
+ E' _7 S; C1 W3 H! M$ a r4 P
<td><%=rs("name")%></td>
& [) n! k+ d* Q9 B0 B( f
<td><%=rs("tel")%></td>
x8 [, [8 g% f" e N9 y Q0 I! ~
<td><%=rs("time")%></td>
1 {8 g: \: W5 S+ u n$ ^, w
</tr>
; G- \+ @7 ]# d2 T
<%
4 `4 `+ p+ ]+ w9 g, K( C9 o3 s
rs.movenext
: L$ ]+ w1 ~1 d2 s( V# {, p" x1 E
loop
( q' p8 E4 l$ E4 d
%>
; G- l! Z3 V& D/ f# ~) G
. B }3 K2 z" t% q1 C& j- n
删除记录处理程序:
6 i3 r# g# p% J3 |6 F
<%
5 O. c! F. y& A+ ^
set conn=server.createobject("adodb.connection")
/ y1 X' Q+ x7 b U' ^0 C- [$ G, ~; B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( W1 ^4 z. x! e, i, ^$ H
exec="delete * from 表名 where 编号="&request.form("id")
5 u5 p X6 Q* m! [% ]7 z
conn.execute exec
# y) {$ {3 ] [# x, Q$ c
%>
6 ?8 m+ T ^3 |( z: Q
* S7 O6 l" e) C* j. \6 T' A
# W" ]: v7 ~4 _
修改记录处理程序:
) A; M$ Y/ D5 I; ]9 [4 k" C. m3 p
<%
" ?* l7 M) u2 P2 b* r9 j* k, B
set conn=server.createobject("adodb.connection")
( D2 O4 G- K# |! Y: R
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" x2 y- b( ^7 R. v! K/ U6 G9 J
exec="select * from 表名 where 编号="&request.form("id")
) z, \. ^ s* h
set rs=server.createobject("adodb.recordset")
5 }; e4 K. M( T9 ~" _/ \* b
rs.open exec,conn,1,3 '1,3为修改意思
& k; |, c; r' K8 m/ V, A# [
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
# f$ t. a; n% i3 j% x v% i7 W
rs("tel")=request.form("字段")
: G$ ^' ^+ [" N2 e- ?2 b/ g
rs("message")=request.form("字段")
7 x' b4 W. S" |) C3 w
rs.update
1 x5 t# z2 W& W) A: O, [
rs.close
3 u$ P4 a/ w4 |" y
set rs=nothing
4 y" r: q6 H' @% X; g5 D; H
conn.close
D0 a3 [4 V6 X& G4 t3 a# O
set conn=nothing
( g% ]3 K4 g; z _. i
%>
$ G9 R+ d T" Z
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
6 T6 l4 o9 c. K/ {" K: F
+ q# ?$ M, ?0 J: ^8 u. ~9 F
后台登陆处理程序例子:
% E5 ^6 B4 ^7 Z* O. o. b+ E
<%
! W$ T% J3 C6 a6 k$ e) X
dim name,password
/ F c$ R4 [& X! Q2 e+ ~
name=request.form("name")
5 `" j P* |6 O& l
password=request.form("password")
( z; W8 _! r# V) |4 F
dim exec,conn,rs
. n3 B' `0 Z2 b
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
; y" K/ ], S. h0 S* w1 w4 ~
set conn=server.createobject("adodb.connection")
' Z3 J( u. s& X/ s6 ~! c3 F
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 D; S9 V- Y5 \5 I9 H9 V
set rs=server.createobject("adodb.recordset")
0 s. J& q8 S6 O4 C% y4 n1 S4 p$ h
rs.open exec,conn
- m7 o s/ O. s5 U6 i. Z+ X6 Q# w
if not rs.eof then
; D( Q9 J4 u% C0 l: k7 f; Q, r0 I' r
rs.Close
$ m& I# K8 `* [8 k. X
conn.Close
4 n: ^/ D9 E6 c: z2 H! A
session("checked")="yes"
8 i( j$ n" ~/ A5 M
session("check")="right"
5 ~6 K$ N5 R8 d. E1 u, N; j
response.Redirect "index.asp"
# R2 k- V' q, M5 i
else
, ~1 F ~7 k9 F8 z/ j0 W8 Z3 x
session("checked")="no"
. s9 _1 m9 i e/ j' h5 d' X
session("check")="wrong"
, A7 {3 x @: `# [( j
response.Redirect "login.asp"
/ {+ z6 Y1 t9 R: K$ d0 L# y9 X
end if
: S" X7 j `# M
%>
" |4 h' S% k( K" o) x' I: m% e
. n* p6 ~4 o9 S: `5 J
每个后台页面加上:
9 g! a2 s$ t" n; `. O# V
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
+ P8 b6 Q3 B7 h X9 E& r) {
response.Redirect "login.asp"
( j4 T: n' H* H. _7 i
else
: G5 Z7 I4 P5 z6 d$ r. [
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://www.gxjmbbs.com/)
Powered by Discuz! X3.2