飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接:
/ C @" ]) S! M/ I1 d h
<%
. X% G: F+ i: h2 i ?1 B
set conn=server.createobject("adodb.connection")
2 O! U3 ^! f* B8 B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ H, k+ @6 t4 U: L
%>
3 r# g* K7 ~' r% M
8 V. t( d# h$ ~& Q8 x2 n' h
8 o0 e5 e% w& L* q# M8 h T5 E
打开数据库:
2 k7 o: e7 y2 O; b# D
exec="select * from 数据库表"
}) Y1 r+ C4 ^8 V/ }/ r W% L
set rs=server.createobject("adodb.recordset")
# ?* m9 Z' Y9 T1 O# P
rs.open exec,conn,1,1
2 m' `# R" b- F: \
参数1,1为读取
0 g- y& ]* A# x7 o
0 i) w( c6 Z9 _
读取内容格式:<%=rs("字段")%>
& ] r) b) s, j/ R- a1 |* L
! u- V% z7 O$ f! p) X, t% k
添加记录处理程序:
) L H! J4 Z, p& n
<%
" Y5 ^4 q- K7 @* n
set conn=server.createobject("adodb.connection")
2 a/ \; ]% O# \# R
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 T* h! J: v; @% T e
name=request.form("字段") name,tel,message为提交表单所设置的字段值
& `- p$ C" v- @* k, r8 @
tel=request.form("字段")
/ D' y+ L: Q+ M( S9 e2 u% I
message=request.form("字段")
- F; d7 r9 N: }) L+ k+ [2 y5 @
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
4 Q- z7 g a% l; r0 I" l+ U
conn.execute exec 使用execute提交
/ n K8 b- w$ N7 k4 q+ u9 L- `8 G
conn.close
% r0 }% i3 X' Y& G( R' e/ ]6 r
set conn=nothing
+ \8 M& b8 ?1 D O8 E; ~$ ^/ [5 [
%>
4 h# A- ?3 R3 D$ j9 i( d5 b3 {
' O' d2 j* _% _& |& f$ ]/ Y( m
搜索处理程序:
3 C6 d o5 X f- n2 c, {- \
<%
! L+ ~/ K/ J1 h* i/ U3 v7 |) v% @
name=request.form("字段") name,tel为提交表单所设置的字段值
5 x4 g8 o; ]1 f: B' n
tel=request.form("字段")
4 f: }# m8 h* Z! l% q* H
set conn=server.createobject("adodb.connection")
+ L, S2 B4 X" L1 J$ [
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 I! \! p1 A# n+ F+ T- r
exec="select * from 表 where name='"+字段+"' and tel="+字段
; b1 R! Z' d2 Q9 C; S V! h- D9 P+ z
set rs=server.createobject("adodb.recordset")
7 c# Q( p, X8 a
rs.open exec,conn,1,1
0 R L7 Q+ @" P/ W* [
%>
) J# P8 W7 A7 Q8 Z6 a
'页面搜索到的内容导出来
( ~6 s* s+ F, l& s3 X% a M
<%
7 I+ C( x2 E* d0 T; n! u/ j
do while not rs.eof
' L! a k, y n$ c# Z5 I. o' X
%><tr>
& V5 T& Q2 U% W% w& Q
<td><%=rs("name")%></td>
, h+ m- U) R; F$ v) @. _4 t
<td><%=rs("tel")%></td>
& h; [) J r! ? N _( O* l
<td><%=rs("time")%></td>
: o) S' V f" R) D# l3 {9 u
</tr>
2 ] t. ]; i3 u, E3 p6 k ?4 \' B
<%
* ]. W! D6 U- q: _4 [
rs.movenext
' @# [$ U, R! K5 `
loop
; d0 F& u" e/ D
%>
" C$ Y) `6 J; ~9 _# K
+ ^/ c- |. e; `$ B
删除记录处理程序:
! G a/ i. d W! Y j2 h: X \
<%
0 T! @+ z( V0 m1 c+ u( G5 W
set conn=server.createobject("adodb.connection")
2 Y/ F5 E. E/ L6 Q
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( h+ |6 k" i$ P1 U
exec="delete * from 表名 where 编号="&request.form("id")
* o- F, M/ y( Q8 B" n; ^
conn.execute exec
3 g7 A$ g+ Z7 E2 G, {
%>
) x; t! _0 i7 J6 O: t8 Y7 p
% F% N% Q8 l$ n. F
% O6 a. j0 O+ A7 i# C. [
修改记录处理程序:
9 m: M& k- r3 `* `7 _
<%
+ @4 @! n, v& ~- R% g- i
set conn=server.createobject("adodb.connection")
3 P2 Z8 ~/ B9 z
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
) r& @/ |/ y+ Y# g' X; z) q
exec="select * from 表名 where 编号="&request.form("id")
! E, [ C" z( s- p1 c; p
set rs=server.createobject("adodb.recordset")
Q& Y- T4 d& ]8 v& K. S; x
rs.open exec,conn,1,3 '1,3为修改意思
/ |5 @2 y- A4 ?* L9 X+ t
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
3 \2 S3 }, W# I Q3 ?. K
rs("tel")=request.form("字段")
, g: U8 ^+ h; m
rs("message")=request.form("字段")
7 }& g* h& m& o, X( o5 }9 Z1 I
rs.update
& I; i, T8 ]* g4 f [
rs.close
* R- c% C9 }7 R9 [
set rs=nothing
9 ?% g% ^* O7 f
conn.close
+ Y9 h5 H# N2 ], B
set conn=nothing
9 u$ }( ~* ?, k4 ^3 o
%>
8 s# g8 g% E V( {" q7 l- n
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
* X: ^ \. v" [5 F# X
- f0 M: R' S- J+ A! f! @
后台登陆处理程序例子:
2 }# N% E8 S. @
<%
) Z$ c ], a/ ^* E2 E& ]7 m8 W
dim name,password
0 A1 ] V) g% W/ S* H
name=request.form("name")
# p0 f$ W6 `' z3 D
password=request.form("password")
C) J, r) n$ z" y
dim exec,conn,rs
1 f3 t5 W6 ^, \, X0 t
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
1 o2 y$ @0 L" k0 h- ]' I& |
set conn=server.createobject("adodb.connection")
. v" I) ^/ e( [/ E1 }
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# C5 u9 B% \, W+ F1 J
set rs=server.createobject("adodb.recordset")
2 K$ o0 {: ]* o7 |/ Z
rs.open exec,conn
0 l& ^ R& d a; K4 Y( w
if not rs.eof then
4 ?8 n) J5 Y& p
rs.Close
/ M1 z& c1 |' A3 i% p
conn.Close
5 S$ l8 f! c& i
session("checked")="yes"
" M% e; d7 |6 y2 N3 M9 e/ A# Q
session("check")="right"
1 c9 T& i* u6 M I9 ? Y. \, W
response.Redirect "index.asp"
5 E1 U# O/ a1 n; c _
else
8 ~2 X& D% f0 P9 E6 F+ D3 _) L! t7 x
session("checked")="no"
" A! e2 l1 S" V1 W+ N1 ?! _7 j
session("check")="wrong"
2 a$ X! F- g# D5 J3 |% w' i) k
response.Redirect "login.asp"
/ B2 n% e h' W q% r
end if
; A+ ~7 r- K6 G( a! f
%>
7 D0 {' p6 h+ b j! U8 g$ ~5 S1 D
& m5 _9 A2 @& X. I
每个后台页面加上:
0 w8 C8 s" E3 {6 H
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
7 I1 s: x0 w+ n( T6 P( B, ^
response.Redirect "login.asp"
5 V2 _# h7 Q4 X1 T& [) w5 J4 `
else
. L3 G+ E7 Q5 z8 [. h. q# }) x
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2