广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
& h8 \7 B: h; L4 g
<%
. X) f7 ?9 X; U% J2 i
set conn=server.createobject("adodb.connection")
8 M* i* ~0 W# a( }2 [1 F2 [" u
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ k7 y R$ q4 {5 ?8 a# V
%>
9 ?# ?$ |8 ?+ ]' n
& G9 [6 G" L6 o
5 c( P7 ]9 |* j
打开数据库：
% o# U: C/ P% }! h6 m% m( K3 A) ^5 m
exec="select * from 数据库表"
6 y" l% C8 |( h* t9 S
set rs=server.createobject("adodb.recordset")
" v) @0 X% f: q$ c" `5 b
rs.open exec,conn,1,1
5 T: a( r9 t( a! n
参数1，1为读取
7 e) w8 H$ P& j
3 R5 {1 h- b: }) E3 ~3 h# ~* P% c
读取内容格式：<%=rs("字段")%>
* E5 M+ ^8 f; Y
/ }. v8 C9 t1 s
添加记录处理程序：
' j$ {0 G% U, Z1 z1 M% I h; i
<%
/ D" r% a9 [5 q& }$ B1 o# ?
set conn=server.createobject("adodb.connection")
. }' l6 |2 z7 B z$ ]; j9 Z
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 E7 x) ]" j* g, c
name=request.form("字段") name,tel,message为提交表单所设置的字段值
, ]$ r7 L9 b4 ?3 b' P. [
tel=request.form("字段")
4 v1 q# q( h5 q1 `' o9 y% c5 F2 q8 c
message=request.form("字段")
& @) }) V4 A" t4 q* Y" @
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
( m9 e. q) a. f# c$ R5 v+ I: d
conn.execute exec 使用execute提交
0 S* L" C( j1 z' d
conn.close
- ^$ o9 Q: |( @4 _' h) N4 k
set conn=nothing
9 o \ y2 X6 w$ H7 s, i/ M y
%>
5 u% S! a$ f6 r6 C8 N
5 }0 @5 M* { u+ S0 v0 i
搜索处理程序:
r( @ {! b: e% P# Z
<%
7 }& K8 c/ K0 x" |# e+ {2 @8 `
name=request.form("字段") name,tel为提交表单所设置的字段值
$ j# g6 E/ v& i' ]; g/ j) q
tel=request.form("字段")
9 R+ s$ M0 i) s0 X* F8 \- I
set conn=server.createobject("adodb.connection")
1 A4 [4 E, x9 U% N7 c7 a
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- p4 \& k6 ?, {. J0 _
exec="select * from 表 where name='"+字段+"' and tel="+字段
& y$ q/ l, k8 n7 O
set rs=server.createobject("adodb.recordset")
) i2 w9 x) W1 K# o# C
rs.open exec,conn,1,1
" q1 Z& `. H9 E1 y! U
%>
3 M( j1 G/ {) K @ |
'页面搜索到的内容导出来
! `1 ^$ v/ E9 T1 }8 F1 n( O8 Y
<%
3 e% S) L# ? D
do while not rs.eof
; g$ ~2 Q6 r8 d1 p5 Y: z
%><tr>
5 a8 e: o- ]; d' a& Z H
<td><%=rs("name")%></td>
& i1 c" L% E" T3 n
<td><%=rs("tel")%></td>
4 n" f# V7 d' }) D7 u- r
<td><%=rs("time")%></td>
& e' w& O$ @# i; H" U; c
</tr>
. Z$ z5 M/ [7 @& Q/ e0 U
<%
M" r2 [1 }( q. C' z
rs.movenext
8 D9 Q& B6 e; s
loop
& T: k$ |5 c# p* g3 a
%>
8 \& X- A+ v1 b3 D$ S) e1 I! x
1 y. v4 ~, }" i# {/ Y Z6 w
删除记录处理程序:
1 A& }' g8 S5 w% G
<%
$ J5 h5 v$ d: a/ p8 ]' j
set conn=server.createobject("adodb.connection")
( t' k7 A) s4 h' E% ^
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
+ ~2 g0 L* ` M
exec="delete * from 表名 where 编号="&request.form("id")
# i6 X$ m9 i6 f0 |) d/ k: \7 Z, D+ E
conn.execute exec
+ [& Y% u4 P+ A; U7 x* B! f
%>
7 }9 q/ I+ [# H3 c3 U9 ~" L
3 g; {" L+ H1 z7 _+ h6 G, V; j
" G% J3 V- A& b o4 G$ y% m6 A9 d
修改记录处理程序:
7 q7 _! a) r- a+ d2 ^
<%
% F- q, j# m( z5 R% S- [
set conn=server.createobject("adodb.connection")
5 j. J5 e |' }4 W9 o. q
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! L7 X! p7 P& n3 Z; m) h
exec="select * from 表名 where 编号="&request.form("id")
% ~' j0 ~" N7 K
set rs=server.createobject("adodb.recordset")
$ W9 ?+ g" m; m( S0 s
rs.open exec,conn,1,3 '1,3为修改意思
8 d! Q! O$ F5 J5 Y; G, W1 i! w
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
F0 e5 F o% W6 x. {3 }+ K( Y
rs("tel")=request.form("字段")
% P) b' B1 p! o+ G
rs("message")=request.form("字段")
$ Y( m9 B8 f" o" R3 _
rs.update
2 p/ N E% C+ `, m; o8 k
rs.close
6 c% N) C# ~% Q
set rs=nothing
! ~3 @' X' M% r1 b
conn.close
5 [( q1 p* x Q3 \5 t1 k6 `4 [- {
set conn=nothing
, B3 S$ l/ N/ J9 I2 J
%>
3 R& ^; h5 w3 t8 K
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
) c3 c$ S. O) Y1 Q: o7 F# P
+ r6 H: t8 G% E
后台登陆处理程序例子:
: ]' g& x/ j$ `% { `3 k, G
<%
' N7 [# J( ?$ H" r: _6 e
dim name,password
' G5 {+ h( d# J9 j8 k( p# Y$ K& J
name=request.form("name")
1 b0 \5 B2 I/ v+ o; L1 p" ?
password=request.form("password")
) m6 {9 N2 g" c- @3 t- D
dim exec,conn,rs
) ~( l* L- a, L' @' U/ N
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
" `* a) @6 X' S J7 ^
set conn=server.createobject("adodb.connection")
; D! \& V" {/ a7 ^4 m) {# _+ f) _
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
/ x6 Z* J- d' Z( k$ E4 q
set rs=server.createobject("adodb.recordset")
; p8 }- d+ X- @/ G- U; y% y7 \
rs.open exec,conn
8 X% a$ O* |8 U9 ^* M7 _
if not rs.eof then
9 }7 a4 z6 u" J3 k4 }/ W6 H
rs.Close
5 G# M) U9 f' [, D8 H% p
conn.Close
0 Q3 V8 P# o k
session("checked")="yes"
8 S" [1 l3 E+ Y
session("check")="right"
4 d z- m4 E# F" y) E* Y
response.Redirect "index.asp"
% |6 ?( h2 O+ A: Y1 D
else
+ m4 H3 _" @' G; Q |8 d' h
session("checked")="no"
/ H8 _# f4 w1 _' p
session("check")="wrong"
4 y! `8 p. n* Y
response.Redirect "login.asp"
* A2 ^( o0 ?( O+ ^0 p
end if
G8 O& o$ L7 Y' \. U
%>
' c: o H( m# F
9 }& M. t$ _2 _
每个后台页面加上:
3 _& A ?- t! R0 L7 U: E1 V
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
& g$ K0 Y" B0 i! }. ~. s5 U, _$ \
response.Redirect "login.asp"
2 ? x- n* P: @" r$ t: C. y
else
' ~% G, T4 u5 t
%>
欢迎光临 广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2