ASP中数据的增、删、改、查
'ms sql链接数据库配置语句
<%
Dim dbtype
dbType = "MSSQL"
Dim strConn
strConn = "driver={SQL Server};server=(local);uid=sa;pwd= ;database=数据库名"
Dim db
Set db = Server.CreateObject("ADODB.Connection")
db.Open strConn
%>
'可单独存于目录下命名“conn.asp”;便于修改
……………………………………………………………………………………
数据显示
……………………………………………………………………………………
<!--#include file="conn.asp"--> '调用外部链接数据库asp程序
<%
dim rs
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 5 * from 表名 where 条件 order by ID desc"
rs.open sql,conn,1,1 '打开数据库,进行只读操作
if rs.eof then '判断数据库内有无信息,防止读取错误;bof:表示光标位置在第一条记录前 eof:表示光标位置在最后一条记录前
else
do while not rs.eof
%>
'显示内容块,在要显示的地方插入
<li><a href="链接页面.asp?id=<%=rs("id")%>"><%=rs("biaoti")%></a></li>
<%
'循环显示数据
rs.movenext
loop
rs.close '关闭数据库
set rs=nothing '断开链接
'在子页显示所有的“标题”
<%
Dim rs
Set rs = Server.CreateObject("ADODB.recordset")
sql = "select * from xinwen order by id desc"
rs.open sql,db,1,1
if rs.eof then
else
do while not rs.eof
%>
<li><a href="02.asp?id=<%=rs("id")%>"><%=rs("biaoti")%></a></li> 'li 让内容按行显示
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
'在文本页面显示”内容“
<%
Dim rs
Set rs = Server.CreateObject("ADODB.recordset")
sql = "select * from xinwen where id="&request("id")
rs.open sql,db,1,1
if rs.eof then
else %>
<%=rs("neirong")%>
<%
end if
rs.close
set rs=nothing
%>
数据写入
……………………………………………………………………………………
<!--#include file="conn.asp"--> '调用外部链接数据库asp程序
<%
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from 表名"
rs.open sql,conn,1,3 '打开数据库,进行更改操作
rs.addnew 'rs数据库表添加新内容
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs("mail")=request("email")
rs("code")=request("zip")
rs.update '更新表
rs.close '关闭
%>
数据修改
……………………………………………………………………………………
<!--#include file="conn.asp"--> '调用外部链接数据库asp程序
<%
if request("栏目名称")="值" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
.................
remark=Trim(Request.Form("remark"))
sql="select * from member where m_id="&m_id '打开表
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("member_name")=member_name
.................
rs("remark")=remark
rs.update
rs.close
set rs=nothing
end if
%>
数据删除
……………………………………………………………………………………
<!--#include file="conn.asp"--> '调用外部链接数据库asp程序
<%
if Trim(Request.form("action"))="del" then
ID = Trim(Request.form("ID"))
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID ="&ID
rs.open sql,conn,1,3
rs.delete
rs.close
end if
%>