飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
, A& ]6 q) k. l
<%
" E2 F9 R0 g6 C
set conn=server.createobject("adodb.connection")
, E, ?4 }8 m3 v
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
g8 d% i: y8 V6 V, ?8 V2 G$ m7 U
%>
4 f# x5 q; x2 c9 n3 w- {5 G: y
( |$ R7 s r0 ]5 |
. g+ v( k1 J2 [+ Q x( a8 \3 k
打开数据库：
$ h: I4 c+ U0 f7 K: i1 w( o- `
exec="select * from 数据库表"
3 k7 `; @" A x: w
set rs=server.createobject("adodb.recordset")
% i+ n# g3 |# [1 J, |
rs.open exec,conn,1,1
' ` h7 I7 c; E4 V% E8 U
参数1，1为读取
( w' `8 E6 E2 [3 u. g/ s1 D, q2 G% X
& [9 \3 L2 o6 V; G3 l
读取内容格式：<%=rs("字段")%>
5 K# s% s+ e$ d2 N! x6 w$ H4 N- a
# U: \, z7 o( P4 k' i; \* e$ J. X
添加记录处理程序：
* e5 ^$ C5 ]# G4 ^! Y4 P$ j" b8 O
<%
0 t9 E$ F) h, B4 g+ U
set conn=server.createobject("adodb.connection")
" s/ h; T ]/ v: w, L1 L( m0 a4 Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 c0 J) s F; Y2 K$ O
name=request.form("字段") name,tel,message为提交表单所设置的字段值
2 B0 `! ^7 t4 Z/ g) \- w% v
tel=request.form("字段")
- S( p9 B) Y2 b) Y9 O
message=request.form("字段")
# B* G' B4 L) Q5 v
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
/ X. o3 } R2 p1 i0 W( f7 R& P
conn.execute exec 使用execute提交
1 G$ l, f d* J$ f
conn.close
+ u' A) f* `6 c
set conn=nothing
n% M& j4 J! b! W( T
%>
: V7 m5 n3 m) l5 M* O
7 e. w. u2 s+ y4 d" U, i
搜索处理程序:
* k4 q' W& q! \; ~0 q
<%
% I7 a; Y2 s+ y. v7 s+ {' n
name=request.form("字段") name,tel为提交表单所设置的字段值
* ^& t$ c$ L2 N) u" ^
tel=request.form("字段")
& U. b' @; b! z' p& `) y
set conn=server.createobject("adodb.connection")
7 ], z$ J. v( q" G
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; ~$ l: c' R* ~ l
exec="select * from 表 where name='"+字段+"' and tel="+字段
! I6 p0 ^' o Z ?, F
set rs=server.createobject("adodb.recordset")
9 M3 m! `3 I" e# h
rs.open exec,conn,1,1
7 E- O2 b9 s9 M8 |7 @ N
%>
8 P( @8 R9 i* Z3 v. R
'页面搜索到的内容导出来
$ ?4 s6 x ?# J' t' v: m5 m6 ^
<%
2 X; q7 K# @) F7 g; N1 `
do while not rs.eof
; e9 C+ k$ u& m6 ~) L3 ^) P
%><tr>
1 Y/ u2 I! z @& I3 I
<td><%=rs("name")%></td>
2 A4 s; G( W3 r8 n& ^3 c7 c
<td><%=rs("tel")%></td>
. S1 }6 W- P l
<td><%=rs("time")%></td>
: e7 h. D4 a/ O: O, X8 V
</tr>
, Q7 A$ [( ]9 V9 B% W+ {
<%
( y( U0 j7 j, w
rs.movenext
* A/ G* ~) C5 y3 P
loop
( u4 n) |' c* H( b3 u" L# N
%>
4 V$ I- S k. E' O
! {$ g" Y& {' M( [; l
删除记录处理程序:
7 L2 d3 C; W. ]" G- Q+ O( I
<%
3 R; b+ o6 i; E j
set conn=server.createobject("adodb.connection")
! a, j/ `5 P5 k. K! `
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 ?. W. T3 k: d1 x8 C4 z7 d3 ?2 g* r
exec="delete * from 表名 where 编号="&request.form("id")
! {3 N% I" Q, ~; }9 A
conn.execute exec
+ v/ _0 W; v: T$ c
%>
" F* n3 U2 m& L/ j
# a' _2 V; X n5 W j! P' q/ i) d
$ a$ T; |( f" t g8 t4 @: s
修改记录处理程序:
! d% K* h$ w. `
<%
+ A6 y% e9 `5 C" [8 Q+ g, {1 _( w0 h
set conn=server.createobject("adodb.connection")
4 j7 z2 c( u, d4 J
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" L+ }+ b1 G+ L1 s. Q4 X0 I4 N
exec="select * from 表名 where 编号="&request.form("id")
/ K8 _, z" a- ~
set rs=server.createobject("adodb.recordset")
; i' q) C: ~. o' i6 {1 L& S$ B+ k
rs.open exec,conn,1,3 '1,3为修改意思
$ c5 O. `+ T4 _2 b2 m7 h- ~8 D
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
( J- H, X! `% h9 k7 L" x- s; u
rs("tel")=request.form("字段")
+ |3 j" _$ \* b- H
rs("message")=request.form("字段")
) T: X% e c/ d
rs.update
. k' v( g& v% L! ]2 ^7 w M& a
rs.close
0 U& z; F! k3 T- |- I$ E
set rs=nothing
c4 R7 ^* z T p, V
conn.close
- r( U$ S0 Q3 M$ d: d( [
set conn=nothing
0 p' a8 c7 H; V$ m G5 B
%>
1 o) k O% |% m/ m! A
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
! J2 h9 h3 t* j* i
& ]# W2 }3 f( i+ E
后台登陆处理程序例子:
& x: g' P \3 J% t r1 V( O3 |
<%
/ L, h, i- O" c0 C
dim name,password
! w" b- f1 D7 y Y* l
name=request.form("name")
, k' C3 ]! P" \: z: I i4 ]/ D
password=request.form("password")
}9 p( ^/ T9 q3 a
dim exec,conn,rs
# j% b. v7 w# x( I( N( o
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
% m7 ~$ _) g- j& O) ~) d
set conn=server.createobject("adodb.connection")
! S- v( Z7 F9 D0 `0 `" n
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! _/ [. Y5 x% r1 a
set rs=server.createobject("adodb.recordset")
8 f! p; X3 R0 H# W& N0 t
rs.open exec,conn
; `8 ~/ J9 `; n: |7 n- v* x3 a# A
if not rs.eof then
y' m! N6 u: F* J, K8 t
rs.Close
; y! X* v( M) \6 y3 s
conn.Close
2 X( u" N! d" U' c+ p9 J% q
session("checked")="yes"
2 y) j) M1 _6 { E4 q
session("check")="right"
1 S- g E: p! B& {
response.Redirect "index.asp"
, _$ ~; S. X0 d
else
/ _, \ @3 i* p2 i
session("checked")="no"
/ O. W4 I* l/ _
session("check")="wrong"
8 y* Q) Q9 |( N* l {
response.Redirect "login.asp"
N6 o6 P3 [6 ]' L
end if
4 z' y$ h$ o" t& p4 {+ M* V( P
%>
5 ?. v m$ ~* d! U3 _
9 d2 T- p( j& V) o& Z0 F+ z
每个后台页面加上:
# y, ~( V8 Z7 H6 @! c
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
0 {8 h5 `. f" N$ R
response.Redirect "login.asp"
; {) S% n0 ^9 R9 N |% ?9 u
else
; L0 u; s4 j4 v$ x( s
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2