飞翔无限fxwx.com广西经贸职业技术学院论坛

标题: [建站技术]每个ASP程序员必备的知识 [打印本页]

作者: 月中水    时间: 2009-10-16 01:12
标题: [建站技术]每个ASP程序员必备的知识
数据库连接:0 j. M/ W6 q5 F% n. N9 d$ t
<%# {; K- d8 N/ \7 f7 r  Y
set conn=server.createobject("adodb.connection")
( v; S1 ?. r, T( m2 K2 Yconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
! M; A& q* h! y- Q6 G0 j( L%>
0 h& i' S1 D4 Q& T& l0 r+ A( t8 @4 O$ p& V% C% X1 S' K8 j

! }4 `0 b# e! L" e/ u: l# a打开数据库:& M$ G( R/ @" |! K& S) m) w8 @
exec="select * from 数据库表"
( q; Y, o7 m: u5 b( c2 V( Sset rs=server.createobject("adodb.recordset")
, B' Y' z+ E+ J, @& l! ^rs.open exec,conn,1,1
3 t1 `8 y0 ]) Q/ N% ~参数1,1为读取
7 u# L! U2 p" N. H0 @) {1 R- k
# x+ g0 U* ^. m% X5 T读取内容格式:<%=rs("字段")%>
& ]+ u$ k, Q# `4 L6 r
! [8 S0 \+ Y+ G/ S3 t添加记录处理程序:1 P" |8 ~  @# k) {( ]1 {; }+ _
<%: a& e  o4 n: X
set conn=server.createobject("adodb.connection")* r* A3 ?- H4 e( t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
1 i' T0 s+ H8 p  Nname=request.form("字段")  name,tel,message为提交表单所设置的字段值
% F" k2 `: A( a( Ltel=request.form("字段")
+ o0 j. I* s; M$ c3 ^message=request.form("字段")
4 c/ F- }+ f3 q2 yexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开3 z( U6 @! O" Y3 j
conn.execute exec  使用execute提交
9 A4 `5 N$ h( i+ W6 `. `conn.close- S: O" w8 S! v! t: L
set conn=nothing) s& N/ B/ }& m2 y
%>( O5 }5 i: d. K) o/ E
0 ]  g' o2 ]1 Q% l5 f
搜索处理程序:( Z% `2 x& y$ @' U2 P0 Q5 V* _$ k" P
<%) k0 i0 V# U, D' V% H3 u
name=request.form("字段") name,tel为提交表单所设置的字段值- W+ v5 l) U% F# C
tel=request.form("字段")  U  l) B. V* i
set conn=server.createobject("adodb.connection")5 W- \- G6 o* f- {
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")! \6 O0 n+ ?4 Z1 \4 D& \) m% z
exec="select * from 表 where name='"+字段+"' and tel="+字段
% B$ ]$ V# V+ d( X9 E# H1 O  rset rs=server.createobject("adodb.recordset")
& k2 K8 ?& g' Y5 ors.open exec,conn,1,1/ m0 _. i" R  e$ z2 E! F
%>: q4 G) d1 O7 V! F- e& E
'页面搜索到的内容导出来
2 s- t/ M, x9 D8 L% d; j<%
( t! A+ i: I* m1 }4 B/ O. F! S5 udo while not rs.eof
& K& u. N% F. x8 Y& X# V- }" ]%><tr>% V; a! X: n8 r/ D
<td><%=rs("name")%></td>
, }* b5 ?' s0 x  ]* K! W<td><%=rs("tel")%></td># j0 T+ i0 h- U. O- q& W, }
<td><%=rs("time")%></td>- l5 _  l. A; ?
</tr>
7 T/ m, C8 @3 g8 L<%
# P/ d/ ]0 `: k; [rs.movenext, f- L7 q4 [# T( d0 W/ A; n. ?
loop0 Y9 S0 C5 ?. j3 m
%>
  i  E; l- w# H* Q4 R+ c! H% d* s7 j! b9 s: }$ Z, r
删除记录处理程序:% y5 n& ?/ @8 F* p" f
<%
* _- K& g: D6 Uset conn=server.createobject("adodb.connection")$ ~: I2 [! D. @% A: p3 d) g4 |1 X/ _
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 v" y- N: W5 T" m* {exec="delete * from 表名 where 编号="&request.form("id")5 Y& X! g- S% I, P
conn.execute exec
% y* h$ E7 L% E! J  \. ~%>
! ^9 ^7 C$ J. J6 l8 N. p+ R7 q8 p) ~. g3 y& |8 v; v
7 |5 D  w  s! H( f/ I4 h; ~
修改记录处理程序:6 |5 I0 x4 I, P4 Z8 h% a: z" f
<%8 m+ M3 ?" y! N) |/ h2 X+ N5 |- D
set conn=server.createobject("adodb.connection")
( e- W9 [' E% T6 _4 Z! o9 j  Cconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
2 h" ]$ E$ R( O  }: M) y9 nexec="select * from 表名 where 编号="&request.form("id")! U! m2 d6 K- v. t) Q
set rs=server.createobject("adodb.recordset")' A8 l8 S+ L- X0 O3 I* r* r" i3 O
rs.open exec,conn,1,3  '1,3为修改意思$ v3 M- j' N0 f' c5 ^% q/ E
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值' F- x9 P! u% l8 p- r; |
rs("tel")=request.form("字段"); x2 {2 x  w; C! O
rs("message")=request.form("字段")* B; Z7 l2 `+ t, v" L! V: k- R
rs.update
5 L# R$ {% _. J  {rs.close
) b- _1 ]( u4 g0 wset rs=nothing
: `% {; F, y8 n* y' d% sconn.close. W7 |$ S8 r3 h' D
set conn=nothing
+ G3 H2 W) j. U3 p/ g%>2 M& b: ]  f5 w1 [
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序/ N, L. n, `- Y4 n9 p

3 I8 U8 w( i3 J后台登陆处理程序例子:1 W9 H% T& A: ]; Y4 G
<%
  d- Z- |% J' a0 o; {dim name,password
3 m0 a* R1 W+ b/ t7 Q1 sname=request.form("name")
9 e+ \, N) @( A9 \  v! b" m; f/ Gpassword=request.form("password")
/ r5 L8 c, n- N1 x7 {dim exec,conn,rs
3 C0 c5 G! a2 I4 k5 w, B$ jexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"- `' [( b5 D( V$ h6 I4 Y9 O
set conn=server.createobject("adodb.connection")1 ?6 K# t4 _; L* ^% p& Z7 t
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
. o' W9 x1 n6 J, M; yset rs=server.createobject("adodb.recordset"), N& u; g5 {. @* ^8 {# m7 m6 {; `
rs.open exec,conn) `3 w# S; x. I
if not rs.eof then0 x0 V! l% n+ H+ X
rs.Close9 h$ G% Q) D# i4 ^! _
conn.Close' C' [' t0 j! {! `' ^) j4 g; k
session("checked")="yes", g+ G9 L! R. S& U: A8 ~$ o4 a' [
session("check")="right"
+ u- h/ e4 T$ f: Z- Zresponse.Redirect "index.asp"
$ H4 l" \4 x, V  ?  C: I) {1 C3 nelse
9 C: i6 `# R  U+ e) Hsession("checked")="no"
1 P! P4 \1 t7 ]& @4 N# y  N% I& Vsession("check")="wrong"1 i  @5 d5 R/ a2 L- h% j  O% [
response.Redirect "login.asp". s( V: v" h% I
end if, ^6 o9 r8 P& w6 x9 w
%>7 U' I4 j% e+ u. h- Z4 C# S

" {2 K. }' }7 P7 z每个后台页面加上:
( U4 h! ^% k# G) N6 r8 Z  T<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量' \1 J, X# I/ t) A& ~9 K+ y3 N, B
response.Redirect "login.asp"  * W; o3 `: x4 n3 m
else
" @' s' A# Z2 p%>




欢迎光临 飞翔无限fxwx.com广西经贸职业技术学院论坛 (http://gxjmbbs.com/) Powered by Discuz! X3.2