飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
$ ]8 b; J) s) u
<%
5 o& w; P: }0 C3 S, i9 n5 A T
set conn=server.createobject("adodb.connection")
3 R: F+ E+ C6 s" ~8 f
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 }# F/ @% v( z/ u3 N% G
%>
9 ^) T" k @4 L6 |
8 k. e: v, M4 z5 \! X; V
1 C, }. B7 t, ?& S! Z3 }4 g
打开数据库：
2 v$ J/ M2 p3 V& z5 X
exec="select * from 数据库表"
- D3 K- v! }0 {, U0 E4 Y
set rs=server.createobject("adodb.recordset")
4 E* U$ H/ G! P @3 z
rs.open exec,conn,1,1
( u e$ H+ z: u0 l7 Z
参数1，1为读取
: S% i# S, [+ x$ K
3 a& Z' N' V& B$ W9 _/ l1 W2 a
读取内容格式：<%=rs("字段")%>
; X) H# F$ ]* a3 o6 p2 H# M
]) |8 B; e5 K. D; q
添加记录处理程序：
8 o# ~' C1 \) G3 v& n) j! L, M
<%
, f# E/ T& A/ Z4 m+ o
set conn=server.createobject("adodb.connection")
' l6 |5 S, o( ~2 I+ Q j
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
4 I8 a( O @, }: C- P, S9 t3 S: L
name=request.form("字段") name,tel,message为提交表单所设置的字段值
* A3 `, ]4 g4 s* c& \ |8 X
tel=request.form("字段")
8 ]# ]- ~+ m E( j6 {2 V5 {
message=request.form("字段")
) I. {/ q1 [5 d3 ]. I" X; {1 R
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
! m2 m# X& Q$ v& N5 c# `% |
conn.execute exec 使用execute提交
) q9 a' D; s+ ?- b( {- i6 _( q) g
conn.close
% n% s- d, `& X
set conn=nothing
5 f* T+ @% G; a! e8 q& B; J( g2 S
%>
, r l I# [7 c* B6 T
& C# U, x8 f2 ]9 b0 f' B
搜索处理程序:
. w" p% j" o; N% M* U: J
<%
0 g& \8 Q1 S& g8 ?- }8 E9 Q% ]
name=request.form("字段") name,tel为提交表单所设置的字段值
9 ?+ c) e; J! {# w4 `5 |
tel=request.form("字段")
- R4 S, ]3 O6 T2 t" F
set conn=server.createobject("adodb.connection")
7 U* Z5 I1 ]. M }5 n9 s
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 N5 }! ?/ T9 ~
exec="select * from 表 where name='"+字段+"' and tel="+字段
1 H4 F- }1 R5 \3 G8 j# Q
set rs=server.createobject("adodb.recordset")
! b+ g0 D9 n( N$ l8 G7 Z
rs.open exec,conn,1,1
. l2 @7 V. D2 @2 @
%>
& x4 t, s/ M! `) S
'页面搜索到的内容导出来
) g3 i: _/ h4 k) A
<%
: t+ v; ^) a0 Z2 Y
do while not rs.eof
8 M! t5 ?& U. k3 }3 K
%><tr>
4 V, I1 b" l+ E5 P% f$ m
<td><%=rs("name")%></td>
8 o& J {# y; |" o; [# p
<td><%=rs("tel")%></td>
y) M6 f7 ]( ^( b. a
<td><%=rs("time")%></td>
0 p7 P, A# _% t3 o" ?( c1 B! a' z
</tr>
* t. x" l, H4 y3 B
<%
) Z) T( C; J, A: K
rs.movenext
1 p8 q0 I* M+ [8 O
loop
9 \, m& J; A1 N/ }$ i' b6 \- K/ z
%>
5 |& c1 s6 L- a, ]. F
! [7 s/ \% x8 U$ j8 H
删除记录处理程序:
3 B6 X3 a0 S/ d( V E( f
<%
* z2 ?8 y4 V% T, {) r/ z
set conn=server.createobject("adodb.connection")
" S, B7 i- W2 [' s4 t, N4 l9 [: j9 C
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
6 U! J G8 c7 T' Z( w1 w' ~
exec="delete * from 表名 where 编号="&request.form("id")
) k+ S% N1 m. R E
conn.execute exec
1 v. {% F, J8 C. q
%>
; n4 R- w* I4 ^& w6 r, L
0 Q3 S! F0 B3 q5 X
. p0 m- X" H6 P5 C5 {% Q8 \& A3 L3 ` x
修改记录处理程序:
% L, Y x, E J. z( C- |5 C
<%
+ q0 n, ~% p) @
set conn=server.createobject("adodb.connection")
7 e) i3 C6 a+ v- r
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 n! g) E* A1 I) v+ p/ s* c9 u
exec="select * from 表名 where 编号="&request.form("id")
* O4 f, q* w0 b1 n/ r
set rs=server.createobject("adodb.recordset")
& W. ?0 z" d2 t5 G) f
rs.open exec,conn,1,3 '1,3为修改意思
4 T, o9 M8 H c; W8 @
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
' Z- Z' }% H8 m2 B
rs("tel")=request.form("字段")
7 |+ c* r* S: K' D
rs("message")=request.form("字段")
5 ^3 o4 z, m7 V
rs.update
- ^9 ?/ m) V( L# F6 N- F
rs.close
- H1 ?6 v6 M3 S" ]
set rs=nothing
0 i- b8 e- o: s; h
conn.close
" l4 @* c! A* [; ?( a5 N, B$ l6 p
set conn=nothing
7 B* i; c- E, b! t; ]" c5 g
%>
/ Q. d# T! X/ m X7 T0 z1 j
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
0 V6 A( _- H6 _, j! s
+ n6 y4 n" R5 X5 e% ?% W, q4 V
后台登陆处理程序例子:
! G; S i7 t' Q
<%
' k6 ~/ }: s5 I* W$ O5 _
dim name,password
. r }3 ?7 m4 _( @' B
name=request.form("name")
! K3 m- v9 F+ T0 U6 R+ z: N
password=request.form("password")
1 r |/ @6 Z, C1 s$ ]3 Z3 s
dim exec,conn,rs
$ o( h$ Y9 Y8 d+ `' `
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
7 ~" b/ g1 ^6 m; @
set conn=server.createobject("adodb.connection")
/ c' b) W! k+ g1 I7 E: K5 d
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. {+ o, h) O$ R: x
set rs=server.createobject("adodb.recordset")
: T5 i( M( `2 g6 U& g
rs.open exec,conn
% U5 O6 i- A/ v- R0 e+ ~7 x6 v
if not rs.eof then
# s: a D8 N* ?5 C r3 P4 w
rs.Close
l# w' w* a9 N2 V# k! ^
conn.Close
% A% `3 h; {# q
session("checked")="yes"
7 `+ B2 b4 v" J* k( Y
session("check")="right"
O7 D8 N) A& d" C' \
response.Redirect "index.asp"
8 s" f" H7 j. b8 H
else
1 }# {) e6 E v3 q3 ~0 A& r2 S: j
session("checked")="no"
/ @7 |, v2 X! t3 `& {% W v' E
session("check")="wrong"
5 Q3 H; A+ r" s. E, L& t& D
response.Redirect "login.asp"
$ J9 i! b% t7 N# U i" N
end if
/ c4 P! _' r; ]+ W: H
%>
. Q6 y1 F5 h7 A% Y' P% n" }7 `
" c X( @1 r% m$ G2 ?& s, O3 y
每个后台页面加上:
2 P& e0 [+ [& H2 Z
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
3 j5 j& e$ R6 y8 q% o, w: W2 j6 y# ]
response.Redirect "login.asp"
6 Z: Q3 A/ W1 s5 V
else
& }, W( C. D t8 V
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2