广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
# L, h- I( U* ^+ ]" @1 T& p+ w
<%
" Y- G' [8 k5 D) T$ u k
set conn=server.createobject("adodb.connection")
! H5 h4 H9 H3 d2 m' w: Z
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 _& q4 o+ t5 o, H! n
%>
# ^" S, Q5 m3 K" ~3 j) q3 f8 x5 |+ Q! f# i0 R
4 ^0 {! s3 E7 k7 i
" ~$ ]' u, D9 z, b1 c/ `4 Q
打开数据库：
; r# J2 f/ Q8 a+ e/ _* _
exec="select * from 数据库表"
# v! H/ U" w m2 Q+ g1 [
set rs=server.createobject("adodb.recordset")
7 [ a' P9 U3 P* a) e
rs.open exec,conn,1,1
6 N! e) b- l% [! T
参数1，1为读取
8 [/ g. ~& F4 |9 }
# d$ }5 U; V+ ?; Z* y
读取内容格式：<%=rs("字段")%>
% i5 s2 O) S) O! g+ [+ ?" {2 Y$ S
2 }: g1 q9 _+ U) L4 Q3 \
添加记录处理程序：
$ v% P8 s# z+ h# t; v" N0 ^
<%
& _7 r( r. F: V) x; z
set conn=server.createobject("adodb.connection")
4 A& S" z: G7 E6 z$ W
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 s' G- m3 I# H4 r/ `
name=request.form("字段") name,tel,message为提交表单所设置的字段值
]9 c! d5 i" Q" L
tel=request.form("字段")
' _6 Y$ Y& T1 X% M
message=request.form("字段")
- R# n: D; H' C
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
# t# d) O* Y$ q" d* ~
conn.execute exec 使用execute提交
( j+ j- z9 V* ^9 Z- s* v4 n7 Y+ b
conn.close
1 e; n& O. u5 w
set conn=nothing
- |$ h/ |! Q5 s7 ~, v
%>
, h2 g( a {& }3 N2 j
8 i8 S* x7 G& Y1 q% m4 g; j+ R/ o
搜索处理程序:
" n3 ?1 g$ v& {& J" M
<%
# G+ b5 |, L* x- ^4 i S Q* ~
name=request.form("字段") name,tel为提交表单所设置的字段值
S& D, E0 H* J w- i3 D
tel=request.form("字段")
( G5 Q* r- o) B. X
set conn=server.createobject("adodb.connection")
! l3 V# n3 ~- v
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, T9 A+ n, R( S6 b R% F i* @
exec="select * from 表 where name='"+字段+"' and tel="+字段
( r G( ?, _0 p9 s5 _0 k
set rs=server.createobject("adodb.recordset")
% f- O2 \! x, A& t
rs.open exec,conn,1,1
* h5 K* L3 L. z4 A5 ^' n
%>
: v' ~9 d4 \" h/ v/ n/ Y# O
'页面搜索到的内容导出来
8 V! |* e) D: {+ L- q" l0 E
<%
& x- m- {8 r! x' w1 K
do while not rs.eof
2 I( k, W. x/ i: e1 g+ p
%><tr>
5 x) Z& I0 F3 C" v& m: M) q
<td><%=rs("name")%></td>
& @/ {$ s0 L. d+ S! J
<td><%=rs("tel")%></td>
* c- B' q1 ?8 G0 D
<td><%=rs("time")%></td>
; k. J, O) Y# V2 L/ b) H: b2 X) G
</tr>
1 X* J3 c2 _$ l! @5 ^ V4 l# V+ w
<%
6 F. E! Y' }& ^7 d% \! `: w. ]3 D
rs.movenext
1 j2 Z. ?+ | X% B) C9 |6 u
loop
5 _" i* ^1 e; x5 r3 r& d: Y8 P, I
%>
, i5 |6 G, T' z3 D- Z
( p6 _4 u6 T7 p0 V
删除记录处理程序:
' d( p$ o; Y4 |) K1 N: e1 M! M7 `
<%
7 \( _0 l$ M8 n) q2 ]# v. B
set conn=server.createobject("adodb.connection")
6 w. _2 _" o& S4 U/ k. E) ?0 e# A
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; b! X& ~4 U, U4 ?& r
exec="delete * from 表名 where 编号="&request.form("id")
+ z. C1 @8 O' ]) E
conn.execute exec
1 y+ w4 ]9 m) n8 \$ ?, M) I5 L
%>
' V+ t- N3 H* _' e
2 ?* O: b* L% L9 l. J0 T1 {; O
0 `5 R& a$ z+ H& |) o
修改记录处理程序:
! ?, M/ o8 @$ h" v
<%
; u! U7 Z# u! y: m
set conn=server.createobject("adodb.connection")
8 O$ q; x9 \/ | J' t5 n
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 Z8 a% X; @: x# u- z# q8 l; u
exec="select * from 表名 where 编号="&request.form("id")
: i: s5 F6 C+ a3 B: R6 e: X( ^. ^
set rs=server.createobject("adodb.recordset")
6 p4 E) c, L8 ^( Y$ d
rs.open exec,conn,1,3 '1,3为修改意思
7 p# V3 s9 e3 K4 y$ N
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
4 k; w( |) k: g/ [" w' r
rs("tel")=request.form("字段")
3 A; g7 V2 [; n
rs("message")=request.form("字段")
2 |( c& |$ J* \5 g7 s
rs.update
' E' \6 |" s: t2 D
rs.close
* H8 o. r% H2 W7 o* f( x
set rs=nothing
3 ]& E6 r9 |4 \* B6 i8 F7 d. i5 R
conn.close
. c1 {" q7 i, y
set conn=nothing
+ B! R. t, e( V0 G d5 \( |
%>
! b' r9 L( }8 ]) S/ Z
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
8 ]) w6 k [% y* J4 Z; `+ ]
/ E$ t$ I$ J( V% a8 g6 ~" y
后台登陆处理程序例子:
! a8 Q: f: g/ A c. T% v9 _
<%
: V; q% p! g0 g' Y: ^, K1 d, r
dim name,password
( m% _( z0 N6 a/ I) a. j+ N
name=request.form("name")
2 a: d, o7 [* y" l, S/ S
password=request.form("password")
0 y: n5 b: [* Y6 w
dim exec,conn,rs
, M6 E# J- t+ ^
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
/ v$ O8 a- D* D
set conn=server.createobject("adodb.connection")
$ \( w! @% g( z, h
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) v+ r" [( ]) X4 O
set rs=server.createobject("adodb.recordset")
+ A. j6 N5 R* _
rs.open exec,conn
& z; i/ c8 T/ D7 Y p6 s" Q1 L
if not rs.eof then
# m! D* G5 l: [, }
rs.Close
) Z& [$ |8 s- C! m( [9 W* |2 \
conn.Close
$ u6 ]4 u. \: G1 j8 `* o: ?# @1 n
session("checked")="yes"
2 ^/ A! f' ~/ h4 n* a" R
session("check")="right"
0 w; r7 J2 p7 q# o! d. r
response.Redirect "index.asp"
; R; i3 k9 c5 i
else
: V x3 Y6 Q w& K/ z
session("checked")="no"
! ^5 f9 W5 g5 U6 h3 @
session("check")="wrong"
! u0 |( p9 F w* [% u: N: t- L; ^
response.Redirect "login.asp"
# B) S+ |- D; i% X3 n
end if
; E/ D$ {1 U$ p
%>
. Z! A" n# g4 O+ N! R
* @" }% z. [, g* c/ R4 E/ j
每个后台页面加上:
: D9 v$ ?+ g' V8 ^! d6 O
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
# |6 b1 U+ ?2 F# Q* M- f0 Q
response.Redirect "login.asp"
7 q' P* y+ {5 i) M5 @4 Z
else
0 O+ Y- ]# Z6 ?; X+ C$ r( l
%>
欢迎光临 广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2