飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
& S, {1 K1 K: [! l6 B; Q
<%
# C6 ~. C6 H3 j$ d- X/ Z4 O
set conn=server.createobject("adodb.connection")
" F! c# ^" Q6 ~- i1 ~% H
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, n; y; V" U) ^3 I# F
%>
^: Z. ]1 [. \
) q7 }/ m+ G+ D
9 e( t' J; |* a( Z9 ?
打开数据库：
: m4 S; s/ o1 v* S
exec="select * from 数据库表"
+ q6 W8 v5 `8 R: Y
set rs=server.createobject("adodb.recordset")
" x" a$ ^# S* M6 l6 p, [
rs.open exec,conn,1,1
5 S6 |6 e4 ]4 x5 |1 U; \& k
参数1，1为读取
7 C5 J' y! k$ u; [! J
9 T* J' T: H `: o0 o
读取内容格式：<%=rs("字段")%>
* V. }; O( n: P2 d4 M. }
1 u$ o! S- \. `" {5 v d
添加记录处理程序：
H" t0 F% f$ Z+ k9 X/ u! s
<%
& w8 ?! k. V ]- k( B0 |0 T( ~
set conn=server.createobject("adodb.connection")
/ L0 E: H, I% a2 v
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. h* r) s( r l+ y9 i- S2 L% R
name=request.form("字段") name,tel,message为提交表单所设置的字段值
' B& O4 [& j' V' H5 b$ B
tel=request.form("字段")
+ r: h5 I% N" M" q4 V0 h4 |
message=request.form("字段")
3 u& v( Q$ f) ~$ q* o
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
& ^/ M% @6 _1 B' T6 A8 G4 v
conn.execute exec 使用execute提交
' K/ c: U! H) T' x* q' X
conn.close
C) U% j4 r6 Y" o) ^
set conn=nothing
/ N* b9 y: b& r& O* U5 ^& t
%>
5 R0 C) J& }$ d" c1 w y% \2 i
/ E! n( b6 n! C! g4 X+ D' D ~
搜索处理程序:
' `3 e, g8 m- {0 L
<%
d8 d+ J/ j& ?2 A
name=request.form("字段") name,tel为提交表单所设置的字段值
) S, Z; x+ U1 k5 l" a
tel=request.form("字段")
) Y) v- A' c! M4 C; E$ l: f9 R
set conn=server.createobject("adodb.connection")
8 E, F# V8 a: d! K$ t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; q$ K; G& r: ~# l' r* I
exec="select * from 表 where name='"+字段+"' and tel="+字段
% @4 ?9 p4 [ q$ g# g! K; Y, _
set rs=server.createobject("adodb.recordset")
- n6 @9 z. ]$ p2 x8 V9 M* A: a6 e! U
rs.open exec,conn,1,1
/ D; t4 t9 l% e# \) F
%>
}4 y1 ~6 R3 f& Y2 B
'页面搜索到的内容导出来
2 b; v1 O8 {7 g6 ?
<%
5 K: d2 Y% U1 R: a4 h9 H
do while not rs.eof
( Q+ @6 q$ z, k7 Z: d
%><tr>
2 ~4 k' S, y* A$ y( _
<td><%=rs("name")%></td>
7 `! Y& k; X0 _1 v9 f! c$ a
<td><%=rs("tel")%></td>
0 p8 X/ S) f3 l& X
<td><%=rs("time")%></td>
# X% X- w C* g, ]. @8 [
</tr>
* M8 c+ J; x* t, D
<%
3 m7 D* u7 N- |( s' s0 _7 r" ]$ P
rs.movenext
% S7 o) g0 f. }
loop
2 d0 Q1 ]7 y$ Z: v$ }
%>
$ D. m5 w7 T2 d4 r
8 H" x2 H# t3 ?
删除记录处理程序:
" L* d a2 C% M. v k& a5 q* v3 a& j, k
<%
. E6 F8 k P) z7 k# J; y9 M
set conn=server.createobject("adodb.connection")
% ]! Z$ ~8 j9 p- T* {4 f) n" o
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) G0 f8 y: E6 J u8 f
exec="delete * from 表名 where 编号="&request.form("id")
0 V9 w6 o! O" F% [5 ?% v
conn.execute exec
: Z; z1 x* @! i( l" |5 l0 B
%>
4 `! E% g& R3 x% c% I! W% [' B
$ z' O' r, }3 f- R E9 d4 B
2 _5 v R0 l" v4 W8 W! s' v4 q
修改记录处理程序:
) j, o1 r5 t' O- ]1 U3 ~
<%
/ J! S2 C! z8 q, E* h# _$ H
set conn=server.createobject("adodb.connection")
. W$ B6 O( c6 G: @6 d' b' d
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) W( R/ \* _2 |+ p$ T8 ?
exec="select * from 表名 where 编号="&request.form("id")
6 [+ u/ s! o) e$ v2 P) L' S6 [
set rs=server.createobject("adodb.recordset")
; K$ P; L8 m. D* m
rs.open exec,conn,1,3 '1,3为修改意思
. X0 `5 _2 W; U' w) w
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
4 @6 }2 s7 B2 S/ n$ i
rs("tel")=request.form("字段")
; w* i' F! m" J h. X$ b
rs("message")=request.form("字段")
+ e/ w- }# f3 S; O: Y/ m: v
rs.update
; i+ g& f! R. l. r- Q6 ^
rs.close
# U; p6 X: ^5 |- J0 L/ R9 p
set rs=nothing
' h7 w* R+ l7 c- R# i6 M
conn.close
. h& o- h/ X. C7 n/ ^* X
set conn=nothing
! y* `: O/ D! C: I* i3 B: w
%>
3 H3 }" h B9 u
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
( o" b' o7 E( C, S5 L
/ A; k' J: B6 \, f% S2 v
后台登陆处理程序例子:
4 E# _0 l% k5 Z% ]/ R" d
<%
* r4 H, @7 @, q& v/ G6 T9 [
dim name,password
& I4 }4 A4 }6 L" `* ^
name=request.form("name")
, `- C3 Q; v3 R k3 H( Y. U
password=request.form("password")
v; P: B% s4 j
dim exec,conn,rs
. d h2 S! A; f0 _! w8 U1 H) |
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
2 G4 \$ N# D' J4 }8 n% q# b7 w
set conn=server.createobject("adodb.connection")
) ^/ g" l5 M1 m4 C% n4 v$ M
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
9 _' b$ Q N# s
set rs=server.createobject("adodb.recordset")
% U I5 n; r) s7 n- w6 ]
rs.open exec,conn
: O" D$ H# c, }1 E
if not rs.eof then
# W* ]1 G7 d% p0 m' [
rs.Close
& }, G4 ^( z/ e' {
conn.Close
6 h& _! M% e" B `% P
session("checked")="yes"
2 [# C( H8 `2 M/ X/ r6 K( d4 ]
session("check")="right"
4 z, m0 Z+ ?& p: y5 A! C/ \5 R1 Y
response.Redirect "index.asp"
" x# d( [+ P3 ?
else
, X9 _/ r* k7 Z. w6 N2 k+ e
session("checked")="no"
6 V% F& \9 Z2 O: m% m8 `
session("check")="wrong"
' p0 R, O# [7 _
response.Redirect "login.asp"
# H( ]3 q V; F5 i
end if
8 ?- u* b* F* i
%>
2 i! J5 N( r( G% a( A
; N3 X& d, h& J7 y. f9 Q: n
每个后台页面加上:
+ ]: G. s5 z. s: O. p( M
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
; O8 m: U) H8 y+ ?' r( N* j
response.Redirect "login.asp"
7 F6 @+ D% w" W( P
else
^7 y5 Q" p/ \
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2