飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
' y6 Z8 v- H5 Y: I7 `( D
<%
4 [' I1 N% o6 H+ z. g
set conn=server.createobject("adodb.connection")
1 k: A$ r3 m1 m5 ?5 N: s+ @
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% m( q' L' O5 ]2 ~5 D' s
%>
& t% M/ _7 K5 j1 T
: }. O) a$ E- v8 _. U+ Q
! \) j* m' f* T1 s1 w2 v+ w
打开数据库：
+ o- Q1 o# X& R& v8 X
exec="select * from 数据库表"
& O+ M& z* }9 u% q' w+ z4 z
set rs=server.createobject("adodb.recordset")
$ P _$ v8 L( K8 W& Q
rs.open exec,conn,1,1
, R7 q5 M$ Y) ?8 k0 ^4 V
参数1，1为读取
1 y d+ C8 f, R" y0 Z) g
1 s" I- u2 J5 E" z
读取内容格式：<%=rs("字段")%>
/ d5 F8 _( q- U# c5 k7 X
. Y$ T6 Y6 Q0 T u) q4 \, S, s) P
添加记录处理程序：
) W$ T8 o4 O- |
<%
5 [: w& z. |, \# V) Z/ p
set conn=server.createobject("adodb.connection")
/ D# t. d& f9 C c' \' Y
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 e# R( Y2 O7 _' ?2 g6 |) M! t- h
name=request.form("字段") name,tel,message为提交表单所设置的字段值
. x0 i2 h# _# I/ ^. L. l
tel=request.form("字段")
1 Q: C+ b# j; N( g
message=request.form("字段")
( c- D! x e& g- h8 Z! P
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
8 N. N7 k, E$ g3 |9 n' h
conn.execute exec 使用execute提交
4 }8 e3 B- }& D0 Y8 e# u
conn.close
8 C( e. K- k/ _& {8 o9 b
set conn=nothing
6 f9 ?) r: r, m z7 j! I( ^4 T
%>
9 t9 _. k7 \3 \& u! s! V" i
9 @3 }; s: b# h
搜索处理程序:
% V, @+ ]3 g7 B' U4 `0 ?, C
<%
( i5 r" T% f! P% l; ?* T
name=request.form("字段") name,tel为提交表单所设置的字段值
* m5 _- [/ ^1 y3 J: [! H" `+ C4 m5 d! L
tel=request.form("字段")
. A2 |2 U' L: @+ e. d* [
set conn=server.createobject("adodb.connection")
% u2 p! F" ~! x& |: m- Q
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# H( b. J, l x
exec="select * from 表 where name='"+字段+"' and tel="+字段
9 N' F# p" z4 R
set rs=server.createobject("adodb.recordset")
" Y$ W, ~7 m5 o% ?" |9 Z
rs.open exec,conn,1,1
6 M9 j. g4 x- J2 k* t/ z B0 Q, \1 h
%>
- }8 i. X# C+ J- h2 _/ ?
'页面搜索到的内容导出来
# O) O& G5 O5 C, W% e# I) @" f# B
<%
# P( F/ X: O4 ~7 k* L; l1 p
do while not rs.eof
. B& e% A- _. _: ]" a n9 _3 A
%><tr>
' ~% W1 z; s# _! d
<td><%=rs("name")%></td>
% I1 P0 M$ ^5 R' g
<td><%=rs("tel")%></td>
8 `& \7 L" n# h! D$ M
<td><%=rs("time")%></td>
) d' @, l7 _- y
</tr>
* A, Q- P6 n. Y4 o% X/ E- q* _& W
<%
- z6 E# F7 J" A. M' F; b
rs.movenext
, d3 e- c+ [7 ?% S: d- Z$ l5 K
loop
: Y7 m; }+ j/ m; W2 j$ \6 m
%>
( \! L* `8 p/ o5 h
% I9 T+ q* w# V0 ^1 o
删除记录处理程序:
- f* G0 P; @& t; k8 v) l
<%
* h: \8 k6 |& ~5 X6 y$ f. z
set conn=server.createobject("adodb.connection")
2 f' V& K6 J; G# E
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" S0 Z3 e8 |, |4 ~" L) y' b
exec="delete * from 表名 where 编号="&request.form("id")
6 c3 q j9 Q$ b) E# k
conn.execute exec
! W, @9 w5 d6 ~! _
%>
: `1 Q+ H$ k; o( L# c
) r7 I% U8 ?1 |) p8 c! h2 D( H/ H
8 ~2 F/ ]0 g f0 W( {& A
修改记录处理程序:
/ ^8 a# P# T/ o
<%
- I' J- [* V% A5 B! G; ]) Z* h3 q4 |
set conn=server.createobject("adodb.connection")
1 d |+ ]' [3 J( u. K5 T- _
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, Z3 m1 d" X) ?% W4 r# X6 _6 g
exec="select * from 表名 where 编号="&request.form("id")
9 b$ g* c7 s2 D* e/ v/ C
set rs=server.createobject("adodb.recordset")
' o; r$ w& K# Y/ ?
rs.open exec,conn,1,3 '1,3为修改意思
+ m! V! T( H3 _+ {
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
5 o. v' _6 ?) Y0 h! ?5 g
rs("tel")=request.form("字段")
7 K+ G+ J% R! M5 l) B
rs("message")=request.form("字段")
9 P* b' \8 P$ v" f0 H% Y
rs.update
* p" F, j3 d4 M* L, T
rs.close
# c; t' c* k; `% }5 D5 w; j
set rs=nothing
# n: ]4 \; `5 U/ r1 i% G: `
conn.close
2 }/ }* k+ b( Z5 ? d
set conn=nothing
% @! R3 p s1 O1 ]7 S
%>
' I: f* x/ d0 N: ?# c4 j% g1 k
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
/ E6 U% o/ z% L. X0 c) Z& i7 K
, X$ y& R+ v( N2 `0 V
后台登陆处理程序例子:
6 q# o6 P$ @: r2 X% e3 n. J2 v
<%
2 y- m& \; e( I: M. D+ _, ~
dim name,password
9 f& {" d' o7 g8 \( n& s! ]
name=request.form("name")
9 \: c6 k% t( f" ?
password=request.form("password")
9 s/ q# v+ @6 n, Y! }
dim exec,conn,rs
& M9 A+ l. w$ W0 I
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
S" _7 p$ _/ U3 ~0 L
set conn=server.createobject("adodb.connection")
! I6 v$ n; J& C# M# ^( r+ x
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 ~- J: ?6 @* T. M. a
set rs=server.createobject("adodb.recordset")
* F6 J- j0 D3 h
rs.open exec,conn
* L7 r/ c/ ~/ d) M4 y* C
if not rs.eof then
/ C8 t/ f+ u$ u" o0 \
rs.Close
6 i- ?" f. T+ o2 g/ f
conn.Close
) j9 i( ?6 e& c$ s! M w$ Q
session("checked")="yes"
5 T( }6 }' O2 h1 Z4 L
session("check")="right"
, s* Y1 W, K! K* D: j
response.Redirect "index.asp"
5 b/ k( v- Z, i1 {6 `8 u! ^
else
" k. Y- k7 D( t" D
session("checked")="no"
1 w# G3 P2 W* b" [" G9 `
session("check")="wrong"
3 D/ x' V7 {, @, w
response.Redirect "login.asp"
: i. h9 M+ Y8 C( J8 I% ^; O5 u. T
end if
2 p3 M- m) p# e* `. b
%>
. O: |; [4 V* M0 ]$ V
1 m9 ?) n+ a j' \
每个后台页面加上:
& V( V4 ^! w1 R
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
- M7 {& _5 U3 ^: H8 b* l
response.Redirect "login.asp"
4 o" C) h5 s2 y
else
) H1 _) \9 e. v; x0 {0 b6 {5 n6 X
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2