飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
* J' t5 T8 n; ^ e
<%
& O4 a" N8 b: C- A% f+ J
set conn=server.createobject("adodb.connection")
0 l) ]' ~5 Y P; w4 q/ R& K- f6 u
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
P7 e# J& e- V# l P- _$ {
%>
[5 j) K- R8 E
, W) O9 T0 w8 U
5 B9 E. X1 u: @1 D, X* l9 P# \
打开数据库：
d% u& z, e/ x8 s- m) U2 ?( L* e
exec="select * from 数据库表"
6 p3 {+ O# N; ^6 ~
set rs=server.createobject("adodb.recordset")
. Z1 l9 [5 k( S9 R' y- ?
rs.open exec,conn,1,1
1 Q. J+ E5 E$ H) d) \) k* n" Y2 U
参数1，1为读取
2 {% e7 `: I% a: x
; e- k& Y( |3 [) j0 d6 Y' x
读取内容格式：<%=rs("字段")%>
' ]/ ~- H* m7 @- t. Y0 u6 n1 h
5 x a8 w: t8 l4 o
添加记录处理程序：
. t, O3 r5 Z6 R4 o" I
<%
) N! H2 H% U" E2 o- p
set conn=server.createobject("adodb.connection")
& P, j: D4 N" S
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" Q: T+ |$ J$ q" v7 T) S8 l/ O; G
name=request.form("字段") name,tel,message为提交表单所设置的字段值
# @. D( M0 ^$ `+ c
tel=request.form("字段")
8 ]8 H# L7 J# b/ |% X( _
message=request.form("字段")
' t4 `- R; I) k- I# }+ O: t
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
; H( Z0 c' o: {
conn.execute exec 使用execute提交
. O. V! D- o+ V8 I3 _( t4 C
conn.close
! Z1 d: f( [3 A! _2 _- X. `
set conn=nothing
" ]3 b# W) Q8 u `1 o
%>
( o, X4 H. b- C J- e5 W5 X
. O$ O# C; q3 E- V+ r* l! A
搜索处理程序:
) V- {! v! I$ \4 T' o9 K: O2 W
<%
$ x# Y2 e+ M; F5 S: A8 ^
name=request.form("字段") name,tel为提交表单所设置的字段值
* `5 Z5 T" L: ?" g0 D/ `
tel=request.form("字段")
# o4 ` q. m1 q1 B( t- L
set conn=server.createobject("adodb.connection")
, o8 ~, \& Z( C9 m. f" \5 N' Z
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
$ v& }9 V" B$ U
exec="select * from 表 where name='"+字段+"' and tel="+字段
, ~3 C3 z7 x* m% b( i
set rs=server.createobject("adodb.recordset")
# M% m6 E7 |0 a# p
rs.open exec,conn,1,1
/ q4 y! e8 ?6 U7 r3 n0 t1 F
%>
* X1 J- L& b6 f. F% ?% y
'页面搜索到的内容导出来
+ c' b. L6 b7 P5 C2 H4 T
<%
" B6 A( m% n; _- n
do while not rs.eof
# D0 r6 _' |( I1 p3 A/ m
%><tr>
9 N% D" H: _3 I: ^/ |! W
<td><%=rs("name")%></td>
' z/ R1 U" s5 x) r$ _+ ]- L5 \
<td><%=rs("tel")%></td>
; [8 F5 R- t u+ R/ i
<td><%=rs("time")%></td>
* ^7 Y, R+ O. I' P( @% L
</tr>
4 ?; I; c: o0 T+ a
<%
0 B$ N* H" z- l
rs.movenext
% ~& r, e3 K" n$ {, ^+ ?! {' u
loop
s; t% J9 t8 [0 R
%>
( e. o8 Q3 R3 O. e
/ ~ b G, ~9 N7 @6 T+ p
删除记录处理程序:
( s$ l" V i! P+ Y+ g! _
<%
1 C; {9 r9 p% y' D- a3 Z
set conn=server.createobject("adodb.connection")
, }& ?; }* l8 f- S+ |
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
" e) ^7 `1 K' ?; k4 ~1 D
exec="delete * from 表名 where 编号="&request.form("id")
, w; r# c8 ^3 _8 `+ z
conn.execute exec
& y& U4 q8 Z+ n4 h( c. @. ]1 h1 i9 O: x6 _
%>
6 P# ?5 q; Y7 d
+ z& I3 p' g, e4 R7 c! N6 W
" R+ Q- o. N, _/ r
修改记录处理程序:
. B+ l8 s2 m% g& t) _
<%
a+ m/ t+ L( V" v
set conn=server.createobject("adodb.connection")
* [: L! q* k1 f5 Y2 F8 s9 [
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' ~" H( _. p5 x' ]# K
exec="select * from 表名 where 编号="&request.form("id")
1 s0 z& U6 z& z9 G& a0 m
set rs=server.createobject("adodb.recordset")
+ I6 P2 i" K7 ^# p6 i
rs.open exec,conn,1,3 '1,3为修改意思
7 l; ~2 m: W4 @
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
6 N) w# ^ `' M
rs("tel")=request.form("字段")
& q! \$ c; D6 K2 J
rs("message")=request.form("字段")
, O- V- M0 K! s- B
rs.update
; V. n# E) }2 D" w0 U( v
rs.close
6 r/ z' j! i7 {& g% ?
set rs=nothing
9 D* z* m E4 `! F( ~ o
conn.close
1 l Z+ S9 h$ v, D, N5 y' Q
set conn=nothing
5 Q' @3 U1 w# b" A2 ]
%>
( n) y7 a9 Q& |
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
0 i1 Q3 a- L) c) X9 N. D
2 q7 {# o! M1 p6 i$ B1 b3 x
后台登陆处理程序例子:
* |( Z% p0 }' L1 S* G+ \% T( Z/ E& R2 E
<%
7 I6 G0 F# k/ ]! `# P, _" ^! k
dim name,password
7 t( @. R7 T3 Q" q6 _
name=request.form("name")
0 h8 r( g( X; A8 j
password=request.form("password")
8 i; N& J7 V. V% x
dim exec,conn,rs
! y1 _" z# ~* m: ^
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
+ `, F9 E" M) P v6 K* r0 x( X
set conn=server.createobject("adodb.connection")
+ F5 N& S( y: _4 z. e% d- n9 l
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 F' N& X& N$ K# M- `
set rs=server.createobject("adodb.recordset")
+ P2 @9 Y) E* w0 g. b
rs.open exec,conn
P! ]; O J; W
if not rs.eof then
6 [" s" e' A: B1 a' Y: o
rs.Close
3 m) p7 R0 k% D2 b& b5 s# W3 ]
conn.Close
5 y* S4 h9 d$ X: K: \; J7 L" z
session("checked")="yes"
0 y) p. ` Q! t$ a( `0 X
session("check")="right"
! A+ N/ q6 R/ F0 w
response.Redirect "index.asp"
6 C g! m w- p9 P9 h
else
P# Y& S4 G5 M0 I# c' O; v1 k
session("checked")="no"
) ^/ ?0 C5 t/ l
session("check")="wrong"
' Q, _! h- T! U% Z+ S. {7 ]
response.Redirect "login.asp"
7 d+ Y0 @! J- V9 I6 ^
end if
7 D h v" j5 G' S' i
%>
: O5 ^* R6 F7 ]- a% O
" a9 A- Z* ~7 h# U* M- X1 L3 e
每个后台页面加上:
6 r! Q" Y2 B" R5 m# ~
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
; b, E9 n* W0 i# \' F
response.Redirect "login.asp"
7 M% p: e+ v: U% u
else
0 a, N* I: {9 ?7 z7 e( a+ K4 X
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2