[建站技术]每个ASP程序员必备的知识

月中水

数据库连接：
<%
4 O1 `6 E- M6 a3 I9 H( kset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
% d' `( U4 R+ q, L9 ]) \3 n3 L* y0 M+ Z3 a%>

: ~' S  t/ Q/ i0 m
打开数据库：
exec="select * from 数据库表"
" l7 ]1 J5 U7 \  dset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
1 a1 {/ p$ A. s
读取内容格式：<%=rs("字段")%>
7 a" c) N! U" l5 M; M
! \8 P- A# @( h& Y添加记录处理程序：
7 a( `9 d* e# |<%
# `( X; z/ q4 I# y: Z+ [set conn=server.createobject("adodb.connection")
* T' x! `! y% D% a- G, Gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
' a$ |4 N& b4 ^6 ]tel=request.form("字段")
& t0 b8 L: |, `) Imessage=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
( M  z' N' D) Pconn.close
, v7 r& _/ p+ G  m( jset conn=nothing
6 |( q; f+ f4 ^! Z# U( ^%>

( H; W8 t$ K6 v! A1 q3 U搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
2 F$ g# B3 \9 V/ ]! Htel=request.form("字段")
& C0 e. A, I7 {- y* q4 Iset conn=server.createobject("adodb.connection")
* T) l5 M0 g7 f) l6 k/ Gconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表 where name='"+字段+"' and tel="+字段
8 C' r5 _2 g2 z& I  s( Tset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
, q. _' z2 r* C1 l% S%>
'页面搜索到的内容导出来
<%
" b) j9 W6 }9 E0 G8 n, c( jdo while not rs.eof
%><tr>
<td><%=rs("name")%></td>
! l% C+ R1 s5 m5 ]2 y<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
</tr>
<%
) Y. c. O2 }+ a. Xrs.movenext
; Q3 D+ `+ m7 tloop
%>
+ ?" d1 |; @* X6 s
2 s8 D5 c, j  q0 m9 K删除记录处理程序:
: o1 _+ m# q' o! e0 c6 R, P! S<%
$ f# F3 h, c& d  Y+ N4 m, nset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
%>


  P* K: g. f6 N9 [修改记录处理程序:
3 F9 q8 s; s( |7 b<%
, V4 E" v% F: Aset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; g% E- m( t' ]3 o7 `exec="select * from 表名 where 编号="&request.form("id")
3 S! F( K* w# q: @/ iset rs=server.createobject("adodb.recordset")
. J& E# ~  q; \& Z5 _3 nrs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
6 _9 l, G5 i  _  E% J4 Ors("tel")=request.form("字段")
8 b  L; I4 `' ~$ [rs("message")=request.form("字段")
rs.update
rs.close
set rs=nothing
conn.close
5 U. D& E- j5 |( l. F' Q' jset conn=nothing
%>
4 [% l7 c5 ]0 S修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
( h$ o% ~/ \# Q4 O7 r9 ~0 ~
后台登陆处理程序例子:
; k) M6 A: a& C2 x# \7 M8 ?& k3 F<%
dim name,password
name=request.form("name")
2 A7 O0 \0 u6 A5 E3 ?4 T( ~/ Rpassword=request.form("password")
dim exec,conn,rs
6 C: e, n2 B) E0 M. [exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
8 {9 l8 k6 V3 B/ |set rs=server.createobject("adodb.recordset")
rs.open exec,conn
" r1 z+ K' ^5 \& E) zif not rs.eof then
& `. u& ^5 S. L+ E! w) E$ {rs.Close
conn.Close
* f3 A3 u6 Q" ~- x9 z+ A' o0 |session("checked")="yes"
session("check")="right"
2 I+ V2 |8 x( ]5 O! Rresponse.Redirect "index.asp"
: d" y1 ^( N9 V; \  y6 c8 Ielse
) |& @3 T% z2 [& tsession("checked")="no"
  W3 [/ m+ _7 ~, k* i8 ssession("check")="wrong"
response.Redirect "login.asp"
end if
%>
, M/ Q8 R/ {" ~/ }6 Z
" f- L  |$ n- }5 ]! g; Q每个后台页面加上:
6 a/ Q2 ~( @/ B6 P- f- c, x<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
response.Redirect "login.asp"  
7 x8 x$ k9 Y5 c) o: k+ [3 ^6 Y; `. jelse
$ |+ S) d! w& T: R& x%>