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

月中水

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


打开数据库：
: {3 @* m' C4 ~+ g, P" a: Y& aexec="select * from 数据库表"
, g( N7 f5 N. C( G- }' s) Eset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
参数1，1为读取

读取内容格式：<%=rs("字段")%>

) E! G0 O5 z# `" M1 _添加记录处理程序：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
name=request.form("字段")  name,tel,message为提交表单所设置的字段值
3 N# [& n( C5 V* W7 qtel=request.form("字段")
. R: H& }# U/ N+ |message=request.form("字段")
exec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
conn.execute exec  使用execute提交
conn.close
set conn=nothing
%>

& ~1 a& b7 r* M+ m; v, w+ G搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
$ R& l8 y; d4 ^$ ?) A/ V8 v6 x% Ntel=request.form("字段")
set conn=server.createobject("adodb.connection")
* u: v& S; f1 d7 r1 tconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; J, O+ ?$ i4 q3 V# uexec="select * from 表 where name='"+字段+"' and tel="+字段
' ~8 q3 a3 p6 A4 v+ Gset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
* o7 ]2 h8 Q+ g/ ?+ x" ]- j%>
& q2 ^/ D- y2 s! ?6 }'页面搜索到的内容导出来
<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
  q& ^( K+ b4 @0 D1 I5 M<td><%=rs("tel")%></td>
" Z6 z+ }# i& ?% ?9 ~<td><%=rs("time")%></td>
</tr>
<%
! H2 ]$ c" J+ ~6 trs.movenext
% W0 Q! T  v9 H) b2 ploop
%>

删除记录处理程序:
( _6 |" \2 |+ ?0 }0 m' e$ T9 u1 A6 Z! r<%
2 J9 L, d; I5 V- @( v: o. oset conn=server.createobject("adodb.connection")
+ k- m; [( ?# ~6 r) E7 Hconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
! W. a  X! d; g& _: W%>
* O& b9 W' Q( E

2 a3 `' D( d9 |% q修改记录处理程序:
; m  t: Y. a. E7 |<%
) i! M% P4 o2 ?3 Uset conn=server.createobject("adodb.connection")
9 C0 U! q* Q; S, ]2 t) _conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
0 o( x0 U7 a& C' I6 s( I. Fset rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3  '1,3为修改意思
rs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
4 \% n7 f& C) ]0 Q7 _" Grs.update
rs.close
set rs=nothing
- `% ^  ]# F8 D* b- S( b5 mconn.close
2 @8 F, ~$ e8 o- M3 c# X) Zset conn=nothing
%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

后台登陆处理程序例子:
" ~( j( l7 m9 Z# X' `<%
dim name,password
name=request.form("name")
& q' R( ]. o" L& vpassword=request.form("password")
dim exec,conn,rs
exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
/ g% L- W# D* ^1 Fsession("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
$ e$ N" {6 s- oelse
# r) N$ H4 Z1 I9 qsession("checked")="no"
+ ]+ E( L* \4 O: @session("check")="wrong"
response.Redirect "login.asp"
end if
%>
5 j3 V7 x1 V- _( k  F9 x
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
- B: G, A) N! ~5 r$ @. kresponse.Redirect "login.asp"  
else
  z1 Y2 A, i0 X. q%>