操纵数据库 ( 查询内容 ) ： <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

<%
On Error Resume Next
tablename = "student"
connstr="Driver={SQL Server};Server=192.168.0.10;UID=test;PWD=test1;Database=wawa"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")       '建立recordset对象
sql="select * from "&tablename                           '构造SQL语句
set rs=conn.execute(sql)                                     '送出SQL
while not rs.eof                                          '一个循环把记录集中的记录全部输出
values="<Font Size=10 color=red>"&rs("sno")&rs("grade")&"&nbsp"&rs("stu")
response.write values & "<br>"
rs.movenext                                  '将指针移动到下一条记录
wend                                        '循环结束
rs.close                                      '这几句是用来关闭数据库
conn.close                                                   
set rs=nothing
set conn=nothing
%>

 

操纵数据库 ( 修改内容 ) ：

 

<%

On Error Resume Next

tablename = "student"

connstr="Driver={SQL Server};Server=192.168.0.10;UID=test;PWD=test1;Database=wawa"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

set rs=server.createobject("adodb.recordset")

sql="update " &tablename &" set grade=grade-5"    '构造修改SQL语句(update后要有空格)

conn.Execute sql                         '送出SQL                               

rs.close                                      '这几句是用来关闭数据库

conn.close                                                   

set rs=nothing

set conn=nothing

%>

 

 

 

 

 

操纵数据库 ( 删除内容 ) ：

 

<%

On Error Resume Next

tablename = "student"

connstr="Driver={SQL Server};Server=192.168.0.10;UID=test;PWD=test1;Database=wawa"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

set rs=server.createobject("adodb.recordset")        '建立recordset对象

sql="delete from "&tablename&" where sno='08'"    '构造删除SQL语句

conn.Execute sql                          '送出SQL                               

rs.close                                      '这几句是用来关闭数据库

conn.close                                                    

set rs=nothing

set conn=nothing

%>

 

操纵数据库 ( 添加内容 ) ：

 

<%

On Error Resume Next

tablename = "student"

connstr="Driver={SQL Server};Server=192.168.0.10;UID=test;PWD=test1;Database=wawa"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

set rs=server.createobject("adodb.recordset") '建立recordset对象

sql="insert into "&tablename&"(sno,grade,stu) values ('08','86','小刚')" '构造添加SQL语句

conn.Execute sql                         '送出SQL                               

rs.close                                      '这几句是用来关闭数据库

conn.close                                                    

set rs=nothing

set conn=nothing

%>