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

月中水

数据库连接：
$ N1 J/ k  }* }( i! `; n<%
  ~% a  W& q$ o4 X! w0 r+ Aset conn=server.createobject("adodb.connection")
% l. o/ I2 {8 o5 @& R& M1 Kconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# p) @8 @. a" t# Z' d( p4 O, B1 `%>


打开数据库：
exec="select * from 数据库表"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
! a# R( @/ ?1 Q, H+ h* a# r% D$ X参数1，1为读取

读取内容格式：<%=rs("字段")%>
1 N( l% ?; l; t' {
添加记录处理程序：
<%
8 S2 Q- e5 c3 N* B4 sset conn=server.createobject("adodb.connection")
: k- z1 e, y4 q/ O6 r! {# xconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
# J7 ?4 U$ J( G: k, O# h5 z* ?name=request.form("字段")  name,tel,message为提交表单所设置的字段值
- u6 D( \  P2 M# Y1 t/ ^tel=request.form("字段")
message=request.form("字段")
0 p& |3 W$ w" v4 }1 d9 G* A/ Jexec="insert into 表名(字段)values('"+字段+"')" 多个用逗号隔开
+ y  n' k9 ~' Z4 h3 Q' `3 F4 Dconn.execute exec  使用execute提交
. N3 z0 n# O( b2 L! c+ Gconn.close
set conn=nothing
%>

, ^& O7 y6 M: z$ l! D搜索处理程序:
<%
name=request.form("字段") name,tel为提交表单所设置的字段值
% O' C, J, l6 c7 {- E5 ]3 T% {tel=request.form("字段")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
' f2 S4 k4 W" m- f5 m% D& Nexec="select * from 表 where name='"+字段+"' and tel="+字段
+ Y* G. c" O) P. q* d0 A, F( ?$ @set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
4 w% G5 O' a. T5 e! ~%>
'页面搜索到的内容导出来
" N, G( {" W/ k<%
do while not rs.eof
%><tr>
' @. B( g/ D9 U& W9 S<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("time")%></td>
- }* a. |4 P5 u8 W2 j2 t+ m</tr>
  c! P  @$ ~9 ~" ?- D6 C<%
rs.movenext
! q9 N7 P+ `7 ?' h& M1 k3 s; ]loop
%>

删除记录处理程序:
<%
0 l4 X1 k* u# hset conn=server.createobject("adodb.connection")
) j4 |8 w0 p3 Q! ~7 S& dconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
; }( b) _: z! R2 }/ }/ kexec="delete * from 表名 where 编号="&request.form("id")
conn.execute exec
# o7 q" f/ t% D3 N7 B2 i%>
, }9 G* m5 Q2 A1 Y4 ^5 P. K" o
3 g. Y4 G9 T+ n. Y
5 y: b" c. p  l8 ~# }修改记录处理程序:
<%
6 ^3 u5 R3 d4 W7 Kset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
exec="select * from 表名 where 编号="&request.form("id")
set rs=server.createobject("adodb.recordset")
9 A& L) b" g4 q# M/ D5 s6 Nrs.open exec,conn,1,3  '1,3为修改意思
& l9 ^) U" t& U/ g/ vrs("name")=request.form("字段")  'name,tel,message为提交表单所设置的字段值
rs("tel")=request.form("字段")
rs("message")=request.form("字段")
rs.update
0 g% A' |" ?' i  G( T, wrs.close
set rs=nothing
conn.close
1 |& K& i, T% g0 g7 aset conn=nothing
1 a6 w% e# V0 M! T) L& g0 _, w+ R%>
修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序
( P5 T$ s9 e7 Z: T$ \1 ]4 k. a
  j- v* ^% C& Y, V# A& C  [后台登陆处理程序例子:
<%
dim name,password
name=request.form("name")
" x. Q$ F" D% Y, @password=request.form("password")
% j7 T- x( i! |7 \& Qdim exec,conn,rs
# m" U! ^5 n2 N' cexec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"
: U3 X- e& U% Z" l. H3 z1 aset conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库名")
* L+ d5 ~# o: m4 H0 Aset rs=server.createobject("adodb.recordset")
rs.open exec,conn
5 m1 k' ]5 `; O3 j; J: z$ Bif not rs.eof then
rs.Close
* S3 Z+ V1 e# l: c0 X% e  \conn.Close
session("checked")="yes"
session("check")="right"
response.Redirect "index.asp"
else
session("checked")="no"
# h3 Z; d. z. R( n  P& Asession("check")="wrong"
" l0 R- [4 t$ p3 dresponse.Redirect "login.asp"
1 D0 @: t. b' }8 I( E$ A" cend if
2 a2 `$ I7 d5 {+ g%>
: Y  u9 _( _. \
每个后台页面加上:
<%if not session("checked")="yes" then 'session里面定义一个checked字符串变量
; g) g. f8 i# P5 g8 J' P& ^response.Redirect "login.asp"  
else
%>