炮灰打脸指南txt:会ASP的人指点一下~~
来源:百度文库 编辑:高考问答 时间:2024/05/02 18:38:06
<%
dim conn,connstr,DBPath
DBPath=Server.Mappath("file.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
conn.Open connstr
set rs1=server.createobject("adodb.recordset")
sql="select * from 表名"
rs.open sql,conn,1,
'下面的是添加操作
rs.addnew
rs("字段名1")=数据
rs("字段名2")=数据
rs("字段名3")=数据
'……
rs.update
'下面的是修改操作
rs("字段名1")=数据
rs("字段名2")=数据
rs("字段名3")=数据
'……
'下面的是删除操作
rs.delete
'下面的是查询操作
a=rs("字段名1")
'……
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
update table ...
insert into table ...
delete table ...
select * from table...
connectionString...
如果只是基本的这些就可以了!
复杂的还有多线程.
就写了些基本的..
<%
dim conn
dim path
set conn=server.createobject("ADODB.CONNECTION")
path=server.MapPath("数据库相对路径")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Path
%>
以上是数据库连接
<%
set rs=server.createobject("adodb.recordset")
sql="delete from 数据库表单名称 where 删除条件 order by id desc"
rs.Open SQL,conn,1,3
%>
以上是删除
<%
set rs=server.createobject("adodb.recordset")
sql="select * from 数据库表单名称 where 条件 order by id desc"
rs.Open SQL,conn,1,3
rs.addnew '这句代表添加一条新记录
rs("表单内的表单项目")=条件 '这句代表更新此表单项目数据
rs.update '这句保存更新
%>
可怜,楼主,这程序不是突击就能学会的.
这样只能是害了自己.
多练习吧,不要仅仅应付老师这一次的作业
拿别人的代码先看看吧