飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
, j0 s$ @( Q! I3 j
<%
! ~* L0 h2 y' ?+ T: ~7 q* {/ y6 A
set conn=server.createobject("adodb.connection")
# E/ \$ s0 {$ Q6 {1 i7 x4 D5 f
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% i- L5 I* w6 \7 z5 J+ M/ z! D4 X
%>
+ n o" ? Y7 K
/ b0 z0 ^% |' p0 s) l
7 l. S# r3 V( x0 Y w
打开数据库：
' c2 N% j3 W# J5 ?& Z
exec="select * from 数据库表"
* s& {3 ~5 X+ r3 f
set rs=server.createobject("adodb.recordset")
0 j" U9 r) b3 K0 _
rs.open exec,conn,1,1
2 J0 g! R! u+ a! m$ Z
参数1，1为读取
8 G3 \: j) l' b' Y3 A0 @& V
1 h. N- \" D' v( T% p
读取内容格式：<%=rs("字段")%>
( i0 f8 Y. A7 Y
3 n! |4 m* H* L. H( H- u
添加记录处理程序：
1 V; v' _' s( X. g& O$ s; _0 n
<%
* U/ a. v% `9 D) R1 a
set conn=server.createobject("adodb.connection")
* P. |4 Y* c% R3 b# t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" e! x; J5 G6 a- Y& x
name=request.form("字段") name,tel,message为提交表单所设置的字段值
% w: w7 D0 D! q1 b5 l& q- F
tel=request.form("字段")
; K" I' x$ ~5 e1 x" e4 C7 y
message=request.form("字段")
" h7 p4 ]7 F' p5 S( b
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
) n$ C9 s& h6 W; p4 f9 D# p, _
conn.execute exec 使用execute提交
' u% M' L: K) N/ p; t0 E
conn.close
+ \! [+ [' Z4 n) n8 O
set conn=nothing
0 K6 E6 K- i6 U8 j2 z% `- C
%>
! U6 X1 @( }8 x+ X8 w
" u% n- o# l J' B# l
搜索处理程序:
/ U8 w) f1 Q0 C- {& Y7 {! S
<%
$ y6 [5 [4 C1 S+ `, ]
name=request.form("字段") name,tel为提交表单所设置的字段值
9 @* I& k% w5 g( F
tel=request.form("字段")
. D( f% {. U& @3 L) O6 {
set conn=server.createobject("adodb.connection")
# @ O, d ^# A( C% S) T9 t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 d# M. g, u6 {2 T9 S
exec="select * from 表 where name='"+字段+"' and tel="+字段
% O, H# c1 n+ x2 c& | o! d
set rs=server.createobject("adodb.recordset")
9 W& X: Y" R% P, ^ O
rs.open exec,conn,1,1
& N6 U Q1 p# d& ^$ p0 H4 ~' s
%>
3 k# B& a: l% o1 F4 O7 T6 j/ i
'页面搜索到的内容导出来
g: b& }# q9 Y2 m" _% m& ]& F3 ^
<%
* |: t' ]$ a5 H* S3 y
do while not rs.eof
+ n5 G8 C2 q1 j+ A+ f3 K, g
%><tr>
A6 l; S7 Y v5 z& ?" j) w
<td><%=rs("name")%></td>
; I: M3 r0 R3 e' H
<td><%=rs("tel")%></td>
- V- ~; g0 K5 E7 H5 b
<td><%=rs("time")%></td>
1 M, m$ @. q: Q6 P( f( L
</tr>
+ s: W: |. `0 Z2 x" W+ s
<%
9 E: C0 q1 _ y+ G& ^2 G- {4 o
rs.movenext
) _/ q' ]0 b1 k0 E7 w" H
loop
0 w% W# @% B1 v
%>
" I8 W8 }3 _- ]2 A5 d" L9 M& s
$ C7 @6 r; J3 e7 `" E, l5 `
删除记录处理程序:
7 n7 m# J2 H* I* T, m" J/ X
<%
k0 n- [. b, @5 u4 ^+ U
set conn=server.createobject("adodb.connection")
! V8 z5 ^/ X1 |& v, y) l' t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ N) j5 T6 L( I. U- v4 a% t& N
exec="delete * from 表名 where 编号="&request.form("id")
/ s! y2 V! }3 B; _& B% Z
conn.execute exec
* E( _* p+ G6 [# F* k
%>
- d# ~; P! U- J: e% e
( J8 I1 G! X( l" |0 W2 f
$ ]/ M* U# Q, ?/ L
修改记录处理程序:
4 @9 }% H7 |8 B
<%
9 i3 }# {& Y3 w8 w" I5 g1 ~
set conn=server.createobject("adodb.connection")
' [% x3 d8 g, x' g0 r$ L4 O. [
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 d B8 C8 i# H& Z; N, K+ ?/ |
exec="select * from 表名 where 编号="&request.form("id")
1 R! D# i4 C# B( F8 n" r
set rs=server.createobject("adodb.recordset")
0 O, ~, p8 I( S% d1 w& K
rs.open exec,conn,1,3 '1,3为修改意思
7 r+ [3 E6 E) b6 S
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
. l) Z, W6 p1 t/ _& w- E$ o8 z
rs("tel")=request.form("字段")
" ]# O7 j/ _! w f/ d9 u; V8 U
rs("message")=request.form("字段")
6 ^2 B L# h- ~$ D9 ~. F5 F
rs.update
y$ v# a$ J4 Z: i# l; N5 h; o& p3 S4 y
rs.close
1 O. h" W# w* N9 E
set rs=nothing
" v1 d* u# M0 i! D/ z$ C# z% V
conn.close
6 Z p- o1 {1 L3 ~: J" O; ?" C9 T
set conn=nothing
7 K* V% A# C/ k& c P
%>
2 s& B9 \9 `. c7 i
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
3 o) a& a/ J; |* b
6 U/ g- u) R9 p0 Q" n$ g
后台登陆处理程序例子:
- P) v5 {' S: D* Z& T9 `
<%
# S3 @2 n3 [! b' d ^1 ?# q5 \
dim name,password
- P; F, m. N6 O% d& v
name=request.form("name")
! h& f' N: `1 P/ _, K; [% z
password=request.form("password")
7 \) g9 T: A) u, {1 L9 }
dim exec,conn,rs
+ p7 ^4 M8 k4 x
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
6 X0 N/ s3 D- f8 N& {0 {, ~
set conn=server.createobject("adodb.connection")
1 H; ~ M+ X! |
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 |" T+ P6 F! X
set rs=server.createobject("adodb.recordset")
/ s0 U$ y" t! |: O( k, G4 v
rs.open exec,conn
( i4 U+ O2 T8 T; t1 p3 h
if not rs.eof then
* \* ~# i: Y z( L# X2 p
rs.Close
4 l4 u# A( T8 X! D4 }
conn.Close
% A4 E& k# O; \2 m2 Q$ t- C! O. E
session("checked")="yes"
8 h' i7 f& W0 S9 k3 J6 F3 I
session("check")="right"
& S7 L z& _) V! _
response.Redirect "index.asp"
U- G8 I* R8 w4 B! e( o. m2 w
else
: M _& ?# S4 ~
session("checked")="no"
+ t' I. u/ v( n! ^& ?5 m x
session("check")="wrong"
" @% y' {& L5 ~* {( X
response.Redirect "login.asp"
, K% G. X* G0 w$ ^7 s: \
end if
7 q8 `0 M* N |7 K5 C$ j o
%>
$ q* O' S& }" L/ ~
9 l5 Y/ k0 y4 H8 g# b6 ^
每个后台页面加上:
7 `' p3 Q( j. Y
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
2 o/ Q6 y2 K9 W$ X- R" U3 p
response.Redirect "login.asp"
: C: g- k+ v/ q; k
else
/ e- u5 r% C2 x* Z' [# q
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2