//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>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！