飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接:
" b% }8 X: @, ^ [/ G/ `0 \. C
<%
, {3 A2 ^8 r. \4 o: C# w" A
set conn=server.createobject("adodb.connection")
2 T; A- ?8 O4 q' W, U$ N+ p$ U7 |
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# @% J- F$ y( U9 w" Y/ e
%>
$ m( ?7 j7 H" U( O4 x6 v; Z
7 K3 h4 W5 L, S. n8 G# i
. u3 \ ]! _" o! @6 C% q; X% i
打开数据库:
, p& e$ l" `/ N! J# V
exec="select * from 数据库表"
3 w( p' H. w8 L! _) X- \: V
set rs=server.createobject("adodb.recordset")
w2 Q1 W3 F/ d3 Z9 I, ^8 t5 s' n
rs.open exec,conn,1,1
" C/ j- |% g, Q1 z( ]- ^
参数1,1为读取
+ K8 g( m0 o( J% h0 D; H
* N: e! z* \ k0 ^4 b" ?# t
读取内容格式:<%=rs("字段")%>
( o j2 |: I( K7 M4 c
, G. |& M' {' j2 Y4 i" M
添加记录处理程序:
$ J* k6 N0 V" q& z0 z9 P7 F* g
<%
% I" h- [4 X8 u5 E6 p1 ?7 s
set conn=server.createobject("adodb.connection")
- `0 J( X( H8 B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
5 J3 \& u/ @' Z' \% q$ T! |
name=request.form("字段") name,tel,message为提交表单所设置的字段值
, {# ~7 U: T8 r! J
tel=request.form("字段")
" ?; ], w4 ~/ ^# Z, N
message=request.form("字段")
1 Y" ]7 u$ t+ |; w4 R
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
% h- m: z$ v6 ^
conn.execute exec 使用execute提交
; F9 U) r! T; E! i
conn.close
0 ^/ b) w: r6 E& N
set conn=nothing
$ ~3 |/ ]" g& v
%>
# j/ Y3 N6 A; a* P, Z5 o
" ^; @$ S9 p0 K4 X
搜索处理程序:
8 _6 I% C2 y# Y( V: e
<%
" [5 z% d! \, y- ~. ^) y4 w
name=request.form("字段") name,tel为提交表单所设置的字段值
& z/ w; Y3 u+ u0 J8 b/ |
tel=request.form("字段")
. J' I! m' ~8 r5 @; N
set conn=server.createobject("adodb.connection")
$ ]1 }: s" y. b" F3 B! Q! P0 ? j
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 X1 m, E; Q5 d$ H. L
exec="select * from 表 where name='"+字段+"' and tel="+字段
( f" L/ k) J* }
set rs=server.createobject("adodb.recordset")
. u0 V; _* ~$ X3 ?4 Z
rs.open exec,conn,1,1
5 H4 ]" ?, s2 O) F2 e$ W8 `
%>
6 B+ z1 F1 g- T" C) M: |
'页面搜索到的内容导出来
* t |: N0 a8 _6 ~* m
<%
+ O/ ]. V9 F9 @+ g$ [
do while not rs.eof
( K# S4 C1 i9 g7 D% V* z/ V# v
%><tr>
8 d3 e: k* o& G) T6 u# ^" _& D
<td><%=rs("name")%></td>
6 X: ~2 J8 _* {# c! R8 J
<td><%=rs("tel")%></td>
9 S6 x/ O( m" F" `+ B
<td><%=rs("time")%></td>
/ _9 P/ S) k- L! \% f# [
</tr>
$ a6 L+ T* O H9 V' Z
<%
+ h( Y0 V5 J+ Y, C" @# y
rs.movenext
6 I4 h O" N( T5 Q/ A
loop
% H; j. @ r2 e# q- ]9 u3 A
%>
4 Y1 Y( ]( e2 ~4 O; }
) Q- h& {$ R' o6 D$ J
删除记录处理程序:
* t8 h7 l6 U. [7 b8 L
<%
% G( T5 v2 z; [ ~- h4 A* M
set conn=server.createobject("adodb.connection")
8 v9 a# M' I# ^6 x; N( Q+ E
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
( t% x6 Y- Z3 p# J9 B
exec="delete * from 表名 where 编号="&request.form("id")
6 [3 r1 {; j2 E' D1 P: _
conn.execute exec
8 Y% m* ~. k1 \0 W( l" c* t
%>
4 ]) s1 q/ c- K( ~
$ h# a' P4 a) K( P. e
9 e; S% R( U- C3 o5 f( \! b2 R
修改记录处理程序:
. f1 u9 c$ {; z+ a* f* \
<%
5 o+ [: b% a" ~4 |& d
set conn=server.createobject("adodb.connection")
/ d1 e: s& @. |$ w3 n3 o
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
z# I6 M; u8 U0 j4 W) X1 R
exec="select * from 表名 where 编号="&request.form("id")
: C/ m: {( E6 f2 b4 H- U% y. m+ _
set rs=server.createobject("adodb.recordset")
$ Y6 T, ]* x2 ?, z4 Y
rs.open exec,conn,1,3 '1,3为修改意思
' b" v9 Q; Y5 s. I h
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
, Q4 D5 B/ J# Z4 b0 E
rs("tel")=request.form("字段")
2 s: } [( f, S; x: b! h/ |
rs("message")=request.form("字段")
2 q: T' B9 h8 q. p$ R
rs.update
3 c+ @# Q: X0 [! k' M
rs.close
. k% r: o: S( r0 b9 W1 D$ h, R, r
set rs=nothing
Z; h% y9 R7 X5 p4 H6 E" H4 C
conn.close
0 T8 r8 R" w7 Z( |
set conn=nothing
" ~/ m: Q8 N! T! [
%>
& v4 e1 f9 N7 [
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
+ E1 S" ~ W H! A5 e+ l
# V9 Q: B* n7 g# R- B7 O
后台登陆处理程序例子:
) i, B/ f8 V( F* ~/ ^
<%
. J' b( S) }7 C9 s1 ]
dim name,password
/ K) B' e7 S4 D
name=request.form("name")
: K1 {9 A3 }0 X2 O0 o
password=request.form("password")
% m( P0 q y6 F! i* ~3 L8 d& y* I
dim exec,conn,rs
# y/ p: p8 b) j9 \2 J
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
% y+ w% i1 m/ H9 Y
set conn=server.createobject("adodb.connection")
; L m# N2 q6 @% o1 X; d
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# H8 d! B5 S$ r) p4 c
set rs=server.createobject("adodb.recordset")
) y( L. U/ X& j( C. U! f
rs.open exec,conn
; x3 O6 u& e1 s' x
if not rs.eof then
3 ]' T$ C( D; V! B7 ]/ ^& ]
rs.Close
. G7 h) A- Y) O ]0 Q
conn.Close
3 D4 ^ J3 q! o; ?
session("checked")="yes"
7 S! e2 G3 ~- z/ h$ s/ w
session("check")="right"
% g3 [' `# E" G- O
response.Redirect "index.asp"
) \6 J2 b4 n* U& R
else
$ m4 D% `0 P4 K* k6 l
session("checked")="no"
% P/ [- P" d @2 H# N O% F* a
session("check")="wrong"
2 p/ a/ Y3 ]; i7 d
response.Redirect "login.asp"
& x% }7 W5 L% C$ [. w* [" M/ x
end if
4 T: y& b2 ~" A
%>
" }. b/ @7 h1 o% g! q& u
L; b/ N4 p! t3 i
每个后台页面加上:
; m" c3 r p! s# i3 V
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
6 Q* A) Y6 U1 ?
response.Redirect "login.asp"
% i m1 \ j% x& a5 L
else
6 l2 H: H4 L) @7 Q3 [: u
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2