//ado---.asp界面
<html>
<head>
<title></title>
<style>
table,tr,td{
border-spacing: 0;
border-collapse: collapse;
}
</style>
</head>
<body>
<%
'.asp界面
'ole db连接
set conn = Server.CreateObject("ADODB.Connection")
'连接串需要注意sqlserver的实例名,是否是默认,非默认必须要写出来
conn.Open "provider=sqloledb;data source=.;initial catalog=AspDB;user id=sa;password=123456;"
sql = "select * from userTable"
set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
'获得连接信息与查询结果行数
'循环结果输出
'do While not rs.eof
'Response.write(rs(0)&","&rs(1)&","&rs(2)&"<br/>")
'rs.MoveNext
'Loop
'rs.close()
'新增
'sql="INSERT INTO userTable (name,pass)"
'sql=sql & " VALUES "
'sql=sql & "('" & "xxx" & "',"
'sql=sql & "'" & "yyyyy?" & "')"
'on error resume next
'conn.Execute sql,recaffected
'更新
'sql="UPDATE userTable SET "
'sql=sql & "name='" & "ssss" & "',"
'sql=sql & "pass='" & "QQdd" & "'"
'sql=sql & " WHERE id='" & 1 & "'"
'on error resume next
'conn.Execute sql
'删除
'sql="DELETE FROM userTable"
'sql=sql & " WHERE id='" & 2 & "'"
'on error resume next
'conn.Execute sql
'关闭
'conn.close
%>
<table border="1">
<tr>
<%
for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next
%>
</tr>
<%
do until rs.EOF
%>
<tr>
<%for each x in rs.Fields%>
<td>
<%
Response.Write(x.value)
%>
</td>
<%
next
rs.MoveNext
%>
</tr>
<%
loop
rs.close
'conn.close
%>
</table>
</body>
</html>