ado ---.asp界面 : 增、删、改、查

//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>

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值