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

月中水

数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
%>


% x& N/ q7 E, x, l6 D7 c/ l# i* _打开数据库：
6 x1 Q/ f! F! x$ }  B) w3 ?3 lexec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取
; _) w8 f1 K& a
  M/ {/ O2 @8 G2 ^; d读取内容格式：<%=rs("字段")%>

7 W. g4 L5 }2 u7 k" I' k添加记录处理程序：
<%
$ I" C/ S! q! ~# X% yset conn=server.createobject("adodb.connection")
. I' d1 U2 B6 }conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
tel=request.form("字段")
% }0 U! M- R# X2 F9 Nmessage=request.form("字段")
5 {$ R' Q! o: Q/ A' U: Eexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
4 ~! Z! A, x8 |  S* xconn.execute exec  使用execute提交
: W/ Y: x0 m+ oconn.close
set conn=nothing
' D. O0 C" c0 N6 y% w%>
( N) D6 z# |) `$ l' i3 [
搜索处理程序:
7 Q, N5 u$ i8 F7 d$ [. o9 @<%
# ^! H7 [" q, U% T( Nname=request.form("字段") name,tel为提交表单所设置的字段值
  t* a8 ^7 I; x" l  u0 Etel=request.form("字段")
- J/ r4 t# l- @- ^, Bset conn=server.createobject("adodb.connection")
9 L/ M2 R( t1 Z7 J. U: z* [( Mconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
, V# x+ |4 ^/ e# C0 }exec="select * from 表 where name='"+字段+"' and tel="+字段
. N* `7 W6 b' Eset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
'页面搜索到的内容导出来
3 a) F* n# e$ E7 i( Q- n* K# R<%
& ?( b/ w3 [+ G. G  g3 vdo while not rs.eof
7 Y' V* E7 d! p- y$ o0 i( _%><tr>
( O0 }6 p) B" w) b: w<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
+ `  h3 A  x: M, H' `# b0 g</tr>
( J* U6 w/ r1 n<%
, ~  @- ^* X3 t- ]) lrs.movenext
6 ~3 `/ s1 ?! m. ?8 B5 w7 ?% gloop
( f: d4 ]/ A9 d) v" \5 y& U9 z%>
* U5 p8 K4 G& K. `
删除记录处理程序:
<%
$ Z$ @; R, ~- ~6 ^set 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
1 N0 L  W& d' m7 a0 F& p6 I%>


修改记录处理程序:
<%
7 {( O2 D/ B) L; {- aset conn=server.createobject("adodb.connection")
7 z2 f  p, Y9 I& V; ?& u; Econn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
0 P% W, `- K6 u- Mexec="select * from 表名 where 编号="&request.form("id")
7 E, S2 @3 ?6 p% cset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
& y' M8 ?) x  Jrs("tel")=request.form("字段")
rs("message")=request.form("字段")
- R$ A$ U# x" g2 Brs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

  E7 \  V5 i* c( {9 Y' p后台登陆处理程序例子:
/ l& E7 @( z5 _6 d8 N<%
% |5 y1 D6 p3 U& j0 \dim name,password
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
  ~# Y* R. }3 g$ l$ fconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* @6 a% Z, }0 Y2 ]7 {set rs=server.createobject("adodb.recordset")
2 t) G+ G5 T, n# {8 J5 qrs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
( d" n; I! m* j6 a( F2 I# }session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
%>

每个后台页面加上:
; e; t: u. S0 `5 y7 k<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
5 \) \2 S# s$ V4 `5 q$ X1 }response.Redirect "login.asp"  
else
% M4 C" l6 Q+ b2 ~8 K4 t%>