飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
& d8 [0 E- O" u# V1 q
<%
) E& j+ C, R) @, F5 B3 T9 }! Y
set conn=server.createobject("adodb.connection")
: a( l: h$ z* K. z$ L- G8 Q8 b
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ O; }0 u' y% a- T* ^
%>
1 e9 z3 _. F; p2 [5 G
$ ], L( `3 D8 |9 z. t$ ]
) }: k, P; \; v; J
打开数据库：
. |6 Z* [: l4 V
exec="select * from 数据库表"
; C* ]- s2 ~! t; G" n) ^' I& }* r
set rs=server.createobject("adodb.recordset")
. d- V: d# i$ T5 H( }: Z' |6 g& b
rs.open exec,conn,1,1
% V1 I. j2 m6 E8 ?' ~# N, E/ |
参数1，1为读取
( I% M9 K; N9 G
7 S$ N. Z0 Y, N9 [' j
读取内容格式：<%=rs("字段")%>
" n3 o9 o* _: b
, B p- U7 S& @3 Z$ I
添加记录处理程序：
% t; M3 A: }9 y* Q
<%
. c; c/ R+ d, |! F2 a/ M
set conn=server.createobject("adodb.connection")
3 ^+ g1 T) ~7 B3 y; T+ D
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ \' |3 }6 f! r5 g3 _1 C& x+ z) R
name=request.form("字段") name,tel,message为提交表单所设置的字段值
6 h, [+ [0 p, l* K4 I c$ w
tel=request.form("字段")
% ^; Q! m& T" I( X' e9 A. c- ^5 H1 n
message=request.form("字段")
. C1 w9 \3 [: o/ }
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
/ S; S& O. G, ^. v+ f3 C
conn.execute exec 使用execute提交
7 H# X0 G3 t3 R8 v- E; e) c' a
conn.close
8 c+ f/ \' v2 i* c
set conn=nothing
x0 ^- D- s9 f+ b3 A
%>
7 G. C" v: h! {/ y0 A; N
5 F) W c) j* a+ q: f3 k1 Q* Z
搜索处理程序:
1 [- X: d; I* D. d% j, W
<%
& M- W& i! d) u( R4 ?2 e8 P
name=request.form("字段") name,tel为提交表单所设置的字段值
/ p& y- q4 B" U$ f
tel=request.form("字段")
) G) N5 h( w' @1 r5 {" b2 V& T
set conn=server.createobject("adodb.connection")
9 q/ c. ^3 O, X6 V2 f" M9 w7 }
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# U, \! E# I8 V( B: I
exec="select * from 表 where name='"+字段+"' and tel="+字段
% N( r6 r: a$ {3 m/ i1 T6 N
set rs=server.createobject("adodb.recordset")
( _& l! S/ J9 D. v
rs.open exec,conn,1,1
+ g6 |: z9 }2 D- `* l
%>
, v& s% e! g- s
'页面搜索到的内容导出来
0 a! Z$ M; y3 P- q
<%
& y& s1 D9 X6 o9 T) ~+ H
do while not rs.eof
! n7 o3 c" j( ]- a! ]! k
%><tr>
0 ` p0 i( c3 l0 U! y6 o" L7 h* \' D, F
<td><%=rs("name")%></td>
# k" R' S4 o4 [+ }/ B, r+ J2 o
<td><%=rs("tel")%></td>
' v6 w' `- @" V3 G4 h, C
<td><%=rs("time")%></td>
% N) l( v! J+ j2 X( X% R. r
</tr>
% h6 B$ U- q7 k! Z+ J
<%
; |; L9 `" b1 x$ ], G
rs.movenext
4 E% C3 h3 d6 e' \$ M
loop
) x4 P" V- X, o8 @! X* g! E* p4 D( l
%>
( A+ j6 g8 W- e0 G6 T
) ]2 L: C$ _4 N' }) c
删除记录处理程序:
1 N( |6 F9 C9 }4 [' j# V& }
<%
- ~: c( [: o8 R% g
set conn=server.createobject("adodb.connection")
; w1 N$ M8 i0 I( g0 ?- a
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ R+ O k. q. I& l# e
exec="delete * from 表名 where 编号="&request.form("id")
: ~8 J! ?# Z( V4 f0 P% m
conn.execute exec
3 o9 T$ B0 ?4 ]. H6 R: S F
%>
8 S2 ~" _ p, n
9 Z2 {! t2 h" x. m# X' _2 y
/ I! ], }: C: E% D
修改记录处理程序:
. C% R( y" p9 U! O* o' x0 F% L2 B
<%
3 F E3 f6 Z9 N! F
set conn=server.createobject("adodb.connection")
( u# t9 |) M( \8 g
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. }! S' s6 I. x6 u, D1 w- a
exec="select * from 表名 where 编号="&request.form("id")
. c5 I' y+ f; j+ e& }8 g
set rs=server.createobject("adodb.recordset")
. F' i/ x4 y. e1 B5 S; x6 `2 E
rs.open exec,conn,1,3 '1,3为修改意思
9 F' F) L. j: |1 c) m# Q
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
. B4 o+ i4 y* ]$ q' t# B# @& e# ~$ N
rs("tel")=request.form("字段")
" D3 r* q1 D6 p) F( i/ e
rs("message")=request.form("字段")
( f& U" w# h7 p& C z8 K' Q
rs.update
; w8 h& P, D+ d1 c$ v; i
rs.close
N! r: {! M* j" M
set rs=nothing
6 Q# c+ m; X6 [/ o6 B: b/ x
conn.close
. y K3 K# J6 ~1 f' u
set conn=nothing
- m/ W4 ?2 h% K2 f0 } ]* T- N
%>
0 h* x0 m4 H. U3 l3 f1 e- M
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
8 T, R' }) w# z; e% ]& K; e, Z
6 c% u# v. ~, E y
后台登陆处理程序例子:
+ m3 z: U n. `; W
<%
! X8 H% M& g! v/ l; M' R* K
dim name,password
5 O+ ^( x& d$ E
name=request.form("name")
& U: U3 T+ X5 F! z" @
password=request.form("password")
7 `! ~/ J9 u+ z. T
dim exec,conn,rs
8 Y9 W! C5 C4 F" ~" d' M
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
( ]) a' [7 ]- Q; ]' o7 f& v; X7 t$ A
set conn=server.createobject("adodb.connection")
, i) S7 L' ~% P$ R- _! f! y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ ^8 I; X4 j; _2 U. e4 Q
set rs=server.createobject("adodb.recordset")
5 m, [, _ c) y4 ~+ s( ~7 s: Q
rs.open exec,conn
6 X4 f6 O/ Y3 G9 C6 A% a$ z
if not rs.eof then
: [/ _' V- D, a7 M3 ?# f0 H# N
rs.Close
' L) P1 x$ g/ e5 N9 J
conn.Close
* \! Y( W5 W8 u
session("checked")="yes"
7 l5 a, ^! F: u$ S+ L
session("check")="right"
7 {1 h- d4 W' N
response.Redirect "index.asp"
, ?- k% J' q7 f' v7 t
else
# W6 [3 l5 h# c& `3 `6 V5 V% S2 f
session("checked")="no"
% }/ A& y0 _' f( m l, p( m2 Y
session("check")="wrong"
/ P; J" i1 E3 q6 t( y
response.Redirect "login.asp"
3 A1 }" n3 C* {1 W G. l
end if
, c& i& O) @) _: `/ a [
%>
3 l$ {- d$ r$ B
9 C! O# g, q( F! b0 O" O% K
每个后台页面加上:
* K v0 s& C. G$ N, h- W* S7 f( @
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
. V5 D2 d! c% V: y7 t& q- }2 p
response.Redirect "login.asp"
D V1 F% [# o
else
, u- p$ `2 m+ _
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2