飞翔无限fxwx.com广西经贸职业技术学院论坛
标题:
[建站技术]每个ASP程序员必备的知识
[打印本页]
作者:
月中水
时间:
2009-10-16 01:12
标题:
[建站技术]每个ASP程序员必备的知识
数据库连接：
7 r# W% O$ _9 a- Y
<%
: |8 J( g3 Y" n$ z" [
set conn=server.createobject("adodb.connection")
' @' X( L& R L/ i9 B
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, M7 l. h; j0 [% U; a
%>
* h& Y9 ^- l+ w9 P& B$ t
+ I7 k. D# L! [- b7 X
- o N( @/ l( K7 m, O# q+ M+ l: ?
打开数据库：
! ?# y8 N/ I& n1 {! F6 ] T
exec="select * from 数据库表"
. W% X' x4 Z! @
set rs=server.createobject("adodb.recordset")
; L8 q! t" _: @( p4 L& y( S
rs.open exec,conn,1,1
5 m% Q1 v& d3 }( G" f' j* h0 c
参数1，1为读取
: k) {# S$ a1 V( D* ~& z7 I, R
- ~2 S' D: k8 B/ _% `
读取内容格式：<%=rs("字段")%>
" F. `: r7 h; V; P( q
9 Q/ h: g9 v2 `5 y8 B/ i
添加记录处理程序：
4 L. I" t- b( `! L: X( E
<%
0 M2 t3 Y3 k" q. {9 R
set conn=server.createobject("adodb.connection")
- ~) Z! F }' t4 e* G
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; k8 H* n/ N8 W+ T/ a9 M6 }; I/ I" k
name=request.form("字段") name,tel,message为提交表单所设置的字段值
8 d7 m% m; K. x
tel=request.form("字段")
- l( d+ X+ H6 g$ i2 E5 M$ l
message=request.form("字段")
: ?8 Z2 w8 j( l& q: k
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
$ R# \ H! P- t- Q" J" z% J
conn.execute exec 使用execute提交
; m6 k' R4 Q% V6 {9 ^% m" m- h. V
conn.close
' D" C0 W. D) [- F2 K/ y, [6 K& n d7 n
set conn=nothing
4 s! m2 N7 |9 X; g0 c' V
%>
* w7 f1 X. z. p' D
% x" q% o: f# c5 q3 B
搜索处理程序:
, ?" ?. Y7 v% W" }
<%
( G% o. S, B' n
name=request.form("字段") name,tel为提交表单所设置的字段值
@+ m5 V m1 B) `. F
tel=request.form("字段")
6 W# a. d, Y$ v9 v
set conn=server.createobject("adodb.connection")
* l$ B/ P. Z2 K
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* T; _1 U3 B4 \3 n, u
exec="select * from 表 where name='"+字段+"' and tel="+字段
! ]7 }* C; A. s% k- m6 ?7 D1 ~, L
set rs=server.createobject("adodb.recordset")
6 I- ^# ]% ]7 l' Y e2 p
rs.open exec,conn,1,1
+ ?- @, ~+ ]8 T8 Y- k6 o
%>
- [6 L( S5 m8 g1 e7 Y% E
'页面搜索到的内容导出来
- _, _& ^7 d4 I, ^ d2 U% N: ?% K
<%
- E% _0 c/ W$ C ?% B
do while not rs.eof
$ |$ t. e) M9 b5 a' ~' l
%><tr>
+ O- Y! O6 n9 }& ^
<td><%=rs("name")%></td>
_/ Y! a3 Z4 ^5 x5 Q1 D, J( _; ^
<td><%=rs("tel")%></td>
7 v' v' C) Q% l8 ]
<td><%=rs("time")%></td>
. S9 h/ P& I' l% T/ G
</tr>
& A% [- G# o7 c R9 v: `# v5 _
<%
( O) ^% Z: g& M$ N. ^
rs.movenext
/ a5 G5 O: D2 a0 D& D$ ~3 p: `7 W+ \8 F
loop
6 q( Q2 V: [" M( |: U7 ^
%>
$ W9 X9 U5 ^7 F( \& S2 m
! F6 H/ b0 d* q* `2 W4 S# v4 \( j
删除记录处理程序:
; y/ N% g9 {; @0 f' v
<%
. a+ @/ s! O/ @* y) h+ D
set conn=server.createobject("adodb.connection")
6 C1 b w0 b, P& C" G
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 I$ ?8 X ^( E# n# o3 I
exec="delete * from 表名 where 编号="&request.form("id")
0 f7 i! \1 R2 b) R/ F
conn.execute exec
/ b7 e$ I$ i8 v+ C7 Z% y/ P
%>
( v* }+ H; c4 u2 t& e+ k
! h3 c1 E2 h' X# y9 T
1 a; @; b$ f1 |) o( F- G" P
修改记录处理程序:
0 @( n4 y* Z( q3 i3 W
<%
7 L0 Q: T, h V* f# v* K
set conn=server.createobject("adodb.connection")
# ~0 @8 m' e& W# ~( T3 }& D
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
- H3 U6 |! C' _8 Y0 s2 ~
exec="select * from 表名 where 编号="&request.form("id")
4 `3 n5 c: J- r- Z' Y7 _# h8 E* Y
set rs=server.createobject("adodb.recordset")
0 [+ \$ Y- e( @8 _ {
rs.open exec,conn,1,3 '1,3为修改意思
. N" M% M7 V/ c2 J5 E+ B$ ?
rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值
% [& ]3 y8 D6 b1 `8 g
rs("tel")=request.form("字段")
' h$ J3 E9 M+ V" t' t/ t
rs("message")=request.form("字段")
( R$ U) i2 W8 f( F5 X$ G
rs.update
4 E. n3 R4 F( J( f1 |) X
rs.close
1 Q5 u& u; Z, Z) m
set rs=nothing
. f+ L; L6 c6 F& n6 }$ g
conn.close
% A N2 o; x. R* @
set conn=nothing
3 l: F E+ U) ?/ s, u
%>
% v8 {4 |) _ }+ f* l
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
$ U3 K$ {) ?/ K. S2 [$ W3 i2 ]9 v/ Q
. V# r* @8 n; {" Q+ t9 }1 d, v
后台登陆处理程序例子:
, i8 ^: [7 L* D$ I0 U: N' i5 P
<%
( s+ }4 j* c0 q- r4 B
dim name,password
4 L9 ?' f+ {8 ~" Y
name=request.form("name")
# m; j; H! }5 s& T1 E
password=request.form("password")
4 ^& G) o$ `1 N
dim exec,conn,rs
* X; f6 S8 x% }" e5 ~1 V
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
9 |) X) z7 G1 R+ F; ]: T
set conn=server.createobject("adodb.connection")
; T; w# R b# X( g6 R
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
y4 i4 Q5 Z1 z& G% o5 j6 ~8 P5 b
set rs=server.createobject("adodb.recordset")
+ K# m/ l/ [, ]7 f5 Y/ |
rs.open exec,conn
/ T$ Q, [2 ~' e0 N" e4 Z% z) ]( \9 d
if not rs.eof then
5 @/ s8 n6 u+ H
rs.Close
F `. A7 W' w: j3 S; z* F
conn.Close
- H! ]7 ]1 V( |' f
session("checked")="yes"
3 @0 z3 A0 R: l7 g7 f
session("check")="right"
: `' p% X0 ^3 g1 E; U
response.Redirect "index.asp"
8 K# ?, a8 E) C6 Y
else
5 x9 c' q2 Z- V1 ?
session("checked")="no"
; S0 y8 A- Z$ s# ^ H
session("check")="wrong"
) K# T+ n: I# t$ P5 \) v/ @
response.Redirect "login.asp"
* d& }: l* I5 z% H
end if
! G' `: B4 `3 l$ p1 i9 k( Y
%>
9 O. m, a: m9 i- M
6 ^- u9 @) } _
每个后台页面加上:
7 o( ?0 R; y& h2 M
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
6 j/ J8 B1 q. ~
response.Redirect "login.asp"
; P' v: K/ X7 z# e; _
else
' S; }+ I8 i: \1 I
%>
欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/)
Powered by Discuz! X3.2