飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
7 R8 V! x$ h% e7 j0 j
<%
1 D9 |/ j4 u: L( R8 w8 k
set conn=server.createobject("adodb.connection")
: v% A1 X7 y Q! k/ _$ D
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 G% r- ~! J+ m9 k% x
%>
; E1 O6 E5 H) n! I
9 T$ W3 _8 l* r4 y
0 I7 C) _/ @4 m( u3 J' Q
打开数据库：
& T8 }2 J3 v- i1 z
exec="select * from 数据库表"
( x* n8 H& J: o# w' S S: s- i" @
set rs=server.createobject("adodb.recordset")
" @; h: c' ?6 h* S1 u
rs.open exec,conn,1,1
" f0 f" X+ A6 l/ G- v f
参数1，1为读取
! E! Z% N8 e1 ]) ^( v, y
" A# L7 U0 X, A/ M- U: b
读取内容格式：<%=rs("字段")%>
) [4 _" w+ [4 G$ U
0 _% i3 i8 v/ @& B# u4 s
添加记录处理程序：
3 M1 M; c' X% V9 q4 z( D; W
<%
/ b% F& t7 ?" X. A T8 `
set conn=server.createobject("adodb.connection")
( \7 p/ X* Q! D3 L" T$ m5 [
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 C. A' Z9 D1 T0 \3 R
name=request.form("字段") name,tel,message为提交表单所设置的字段值
) q. K7 S0 b+ ` Z/ q" `# M) S5 h
tel=request.form("字段")
: s& y: \* }6 O+ n
message=request.form("字段")
$ | S1 d) I+ y' O7 M( n: o; v d
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
G8 A9 d$ }5 B
conn.execute exec 使用execute提交
) H9 u; s4 e b* t+ c1 s
conn.close
1 M. U7 j/ {! J5 P s$ k+ A: T
set conn=nothing
; H5 W, C# W N! g8 X* h6 c
%>
& d X1 P+ T9 N/ }5 J
/ {; R/ n, Q3 }2 H
搜索处理程序:
* B" E+ F* p5 i/ p% o
<%
4 |/ x+ u( d, h! y# S) H
name=request.form("字段") name,tel为提交表单所设置的字段值
0 b2 q$ Z. |# x
tel=request.form("字段")
5 W) y- P4 `0 h
set conn=server.createobject("adodb.connection")
) p8 i1 E8 Y9 {! u/ x; m
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
7 v" H7 V( S5 c+ A
exec="select * from 表 where name='"+字段+"' and tel="+字段
9 G6 j9 J9 B6 T% u. W8 a7 e8 ]
set rs=server.createobject("adodb.recordset")
Q. P; @+ U& s% ~2 w1 T
rs.open exec,conn,1,1
* K5 O6 W$ m. t ]5 p7 R, W
%>
4 D9 m+ v* s- {- G% M/ d6 W
'页面搜索到的内容导出来
' J A' g; {5 r. I
<%
1 N+ ]' x# o) y1 Y5 b2 k' A
do while not rs.eof
! w$ @$ H: E8 `
%><tr>
J1 u+ l. ~0 B$ u6 t8 A1 @. h* Z
<td><%=rs("name")%></td>
$ b# M' ^% X/ |7 S: C" Y4 [' {
<td><%=rs("tel")%></td>
9 q* Y$ ^4 u: J) ~' V' ]
<td><%=rs("time")%></td>
0 U* t" [2 a5 @7 {# X& Q% @
</tr>
: w/ q$ |$ s( `& d9 I& _/ w
<%
( Y0 R* D2 q5 N5 O
rs.movenext
+ a# a9 K4 Q c% l0 z- Y
loop
- ~. k, x: w+ X" p) |2 D- Y! g
%>
5 R* n j9 b) Z/ h! q; ^6 Y: h
* V- W0 L: T" I/ m
删除记录处理程序:
{. r1 M$ S, |* w/ u! X3 ^& g
<%
* @" _4 w! A/ |1 O5 C
set conn=server.createobject("adodb.connection")
# S5 r& G; t$ x" @3 R3 L
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; @7 |: l0 A0 V7 \: F; e
exec="delete * from 表名 where 编号="&request.form("id")
- B- Z: `/ e g, z" u. _) H3 P5 S
conn.execute exec
9 x3 n& d9 @0 m K& Q; b5 ~4 N0 d
%>
( q$ w9 l( s" |' H/ o$ ~, O) r
1 U6 X9 w% {/ C3 A7 C& b$ \% I
1 n& j: C- y! I$ X6 s. N, d
修改记录处理程序:
# J6 c% Q9 C# K! E5 }/ Q- ]
<%
0 m8 d3 D/ ?, C
set conn=server.createobject("adodb.connection")
7 _& y* ?; j5 ]; S2 X1 u
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
3 Z3 ]9 {" B' H2 v3 `% K
exec="select * from 表名 where 编号="&request.form("id")
% }. ^: k& p3 E- d
set rs=server.createobject("adodb.recordset")
/ n J+ i& S% j3 s+ {6 [: R
rs.open exec,conn,1,3 '1,3为修改意思
, I, |' Y8 _+ N4 C% o" |- f
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
9 A% J5 _, Y+ x# o# F" R# U
rs("tel")=request.form("字段")
/ J) \' f7 ^0 }3 W0 d; Z$ C1 V
rs("message")=request.form("字段")
% R* |! e' t2 L& ?, z
rs.update
3 y% B( [3 N* M7 P% m" V
rs.close
$ B8 z; G2 P3 q: B l+ F
set rs=nothing
9 {. y' W, d' R. M
conn.close
* y$ T1 ^* z) }
set conn=nothing
# g! G3 m) d# }
%>
/ p( E u4 \) n" v; _0 U
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
0 e( ` w( c1 }7 H% e1 M
" X" H1 S' {5 h* H
后台登陆处理程序例子:
2 H; G) X5 l# s" `
<%
* N3 g$ K/ B, s9 w
dim name,password
% g- j [" K8 g/ Z A" N1 D" z, @4 `0 @# U) c
name=request.form("name")
' }; j. H6 u' U7 d' y. m5 K: @
password=request.form("password")
, P( w1 h- v! k' v% \& k; R. H
dim exec,conn,rs
: r1 K2 G6 L: J3 o+ x7 _
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
3 t" w3 k; @+ B. p( [
set conn=server.createobject("adodb.connection")
! z' g2 ?% t9 s0 U
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 G5 M" p' R1 c7 {. }: L
set rs=server.createobject("adodb.recordset")
; C& k' i3 d. [8 S
rs.open exec,conn
# r! e# j5 Q; b/ g8 ^* @
if not rs.eof then
" M" S+ K0 R, [" S8 K2 ?
rs.Close
5 O o% Q( ?; j2 D3 ?
conn.Close
( S: @$ i. y0 `( k2 v
session("checked")="yes"
2 J& R" n, P1 ^+ c1 z/ W
session("check")="right"
0 c; v/ q: a. S
response.Redirect "index.asp"
8 ~5 C5 E, R$ L) p
else
( U2 e; d5 B8 k7 X' q8 ~1 Q: p
session("checked")="no"
3 |5 |( W! {* C# W$ a6 o9 u( K8 ]
session("check")="wrong"
. `, U3 y \* `7 V
response.Redirect "login.asp"
( s" j: m5 _% G' y
end if
! g& P3 I9 m; S( c0 U
%>
t& V3 n: ?! S3 j
3 P+ N- J4 {* ?7 m7 t
每个后台页面加上:
: M" X+ |* t! u5 V% }5 X4 \& Z
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
% A, }2 o2 S0 A5 G+ h/ }) B
response.Redirect "login.asp"
, ~/ [# t* U/ w9 |' o# v% N
else
( s6 q. B( J* g' t2 ]7 t) f" w: w8 _
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2