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

%>