广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
5 o6 B8 M7 c, o
<%
# Q# ] m: z! x, G" b; G( }
set conn=server.createobject("adodb.connection")
$ k! x+ u- l. Q2 d, G% Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ d" q( p& F* \3 Z
%>
~5 N6 [: ^4 E
" G0 c: O* s8 T) U, O. f
1 {- @/ A7 G. j. ^7 p( R
打开数据库：
5 ^ |8 X6 N3 _" \4 z7 h
exec="select * from 数据库表"
4 Q* U+ q0 ~5 {! S, h
set rs=server.createobject("adodb.recordset")
- F9 i' V% X: F3 D; r% l U- i
rs.open exec,conn,1,1
; i4 C* e. a Z* Z: ]& F l
参数1，1为读取
( j z# R- f$ G5 b2 `8 U. {' z
( A; s/ ^4 q u
读取内容格式：<%=rs("字段")%>
+ U8 T$ y4 L3 |" M) E
& M- z# G# D) Y ]! Y+ J
添加记录处理程序：
}# p; E* {6 ?) I* M
<%
8 k2 W8 R9 s8 \$ f9 P: K$ a
set conn=server.createobject("adodb.connection")
" j* X! Q. D+ p J! R4 e
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- |/ B; @% U; `% h
name=request.form("字段") name,tel,message为提交表单所设置的字段值
+ g% Q. H+ Y4 f7 m
tel=request.form("字段")
5 }; j: `0 }% R: S) F. `+ W+ X) }
message=request.form("字段")
5 t& u2 @- U% P$ z. b* V
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
# c o; Z" p% b, q b
conn.execute exec 使用execute提交
$ P. y$ k5 X$ U* a0 a
conn.close
. D$ D- K0 }; [" G& L
set conn=nothing
3 d. {+ B. S U' `
%>
4 T6 W9 P( _0 p
. z- Y1 w( m+ Z* m4 p+ z) P
搜索处理程序:
, i$ p, {/ n- |7 t
<%
! [- Y5 e( t8 H. @+ J+ u- O3 t
name=request.form("字段") name,tel为提交表单所设置的字段值
1 `. r! E* l7 R9 \
tel=request.form("字段")
& H2 B+ Q/ X9 Q+ ~: J2 e
set conn=server.createobject("adodb.connection")
$ y9 {0 I) G. N. o% B- P- w
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 A0 c$ `( P/ Y, u o2 _! d% `7 `6 e% j
exec="select * from 表 where name='"+字段+"' and tel="+字段
1 F6 ^ N. o0 O6 ?0 H
set rs=server.createobject("adodb.recordset")
- Z) t/ h& m) i4 K! g2 ^
rs.open exec,conn,1,1
$ ]$ q8 p' Z3 t
%>
3 f# H8 Q* ~9 B! M8 U
'页面搜索到的内容导出来
; \4 a0 i. h, w" @
<%
) B) W! e: T; C; o+ {# E
do while not rs.eof
4 `0 S9 v) P, `1 }
%><tr>
' g, e# |. A; e) k
<td><%=rs("name")%></td>
" v6 Z8 x3 b' u9 o$ j* Z5 k% W K
<td><%=rs("tel")%></td>
1 C' N9 l; Z5 a+ T
<td><%=rs("time")%></td>
! W5 v! ]. j2 x
</tr>
7 |; R) B& g0 ~7 T. E5 \
<%
, j* C1 ~5 l& l& \8 d. C* a# p
rs.movenext
2 U; j; k6 }2 ?0 j2 f. E
loop
: D+ k; U/ X( ]" i2 w
%>
" {' u9 D3 U3 N$ e1 @+ B1 I$ T& S
9 r7 z/ m( Z4 W& C
删除记录处理程序:
! W) P/ V& _# B
<%
/ C& g8 ^" g O& R, J" b& e; o9 c
set conn=server.createobject("adodb.connection")
: v, e, k0 I7 K X' T% `- [( \
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
: r5 W& d6 V, p4 ]
exec="delete * from 表名 where 编号="&request.form("id")
+ e( g- }0 K" c: R0 K
conn.execute exec
; z# u& e8 Y+ ] B$ W6 Y$ k
%>
: V- ]3 U0 `. l* A6 n
: Z3 d: G1 k5 _4 d1 r) Q
! Q8 \3 C, s/ t3 z" Y1 |5 C
修改记录处理程序:
4 [" ~% q: b7 i5 B9 ^
<%
/ v8 Y2 g4 o2 {& @' L5 C
set conn=server.createobject("adodb.connection")
d: D" c/ W; a% V# Z6 D+ u1 M; Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, v* _. v( z. g% E+ _+ [
exec="select * from 表名 where 编号="&request.form("id")
! o; I( q& ?& Z. X# u9 S0 x
set rs=server.createobject("adodb.recordset")
^, H, i1 o1 ^+ s6 L# j, h( e
rs.open exec,conn,1,3 '1,3为修改意思
; u; n o1 M$ _% n
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
' Z3 |4 Y, }. j& U2 e+ t. a
rs("tel")=request.form("字段")
* t! w8 p: r, c% o8 Y" F3 `* p3 x# c4 b
rs("message")=request.form("字段")
% ^: N; d) Q7 l; M! |
rs.update
@8 s7 J; y: l
rs.close
7 d9 F# F' F% s8 `
set rs=nothing
8 Y' b, |. E6 z' G
conn.close
+ ~/ O4 u" r) U
set conn=nothing
3 f- W) w: E# V1 b6 X; d
%>
" U/ f7 Z8 w8 Q' P
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
; ^$ \$ k4 _7 p1 {9 B
# Q' O) h2 ~1 y X* j) f; }
后台登陆处理程序例子:
' N0 T4 @7 E, i% a; W4 @4 C
<%
# s# F: \0 z# L+ Z$ }
dim name,password
5 x$ }) y( i" F& w! R
name=request.form("name")
: b. ?( U( J7 e, n/ q
password=request.form("password")
+ Q. W8 Y) ]) e7 `1 k
dim exec,conn,rs
. O( f3 P5 \" }- J; m" u1 N' M8 P
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
; K w$ \9 G) l
set conn=server.createobject("adodb.connection")
9 S" m' e/ C( N" k/ A0 g3 F
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" }* [% ] s$ S& }. ~- O/ F
set rs=server.createobject("adodb.recordset")
) d4 b, A2 p( R' C) Q
rs.open exec,conn
2 O6 }+ V9 ]& V% ? k9 W! h
if not rs.eof then
9 ~7 V- e, b% W5 W" G- [: S/ N( I
rs.Close
9 ]2 }" N- o3 e6 A1 M; U) }( k
conn.Close
) i" ^" b+ z0 A9 p) U0 Q1 J& _" Z# E
session("checked")="yes"
$ N/ r4 @ t5 I: }4 U- i
session("check")="right"
+ T2 a0 N& O* A2 ]. @5 K
response.Redirect "index.asp"
N3 V3 J/ \5 S
else
* a( f. V% Y. [& w% E2 u5 j
session("checked")="no"
, R. [5 y& q# Y0 V7 w
session("check")="wrong"
4 f' `" [+ ~. d* K% o3 t
response.Redirect "login.asp"
5 u7 u3 w, A9 F [% [3 W
end if
" M! [1 [) Q6 @
%>
- C% N3 c8 p8 s$ R7 X: n, |
, [( T; O0 _' U, ], h
每个后台页面加上:
" V* u% f: p i, W8 [4 z ~
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
% e F W0 m# v0 {
response.Redirect "login.asp"
0 z+ |: o3 G q3 p3 k/ d- t
else
8 ?7 [: S4 p9 `5 r
%>
欢迎光临 广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2