asp 环境配置到mysql数据库增删改查

更新时间:2023-04-08 23:18:20 阅读：评论：0

碰到很多错误，都一一解决，没有错误的截图，按照我的步骤，您将完成一个最基本的asp的环境配置到增删改查

本节总结

1，开启iis
2，建立“网站”，类似于phpstudy
3，odbc连接数据库，不然直接连接mysql数据库报错
4，在网站下建立文件直接访问即可，index.asp,conn.asp

需要安装的

mysql驱动（连接mysql）：https://dev.mysql.com/downloads/connector/odbc/
vs2019（不安装你就没法安装mysql驱动）：/d/file/titlepic/h4%3e%3ch3%3e2%ef%bc%8c%e5%bb%ba%e7%ab%8b%e4%b8%aa

3，`odbc连接数据库`，不连接而直接从asp文件中连接的话会报错

图解如何以ODBC方式连接mysql数据库
需要注意的是，有的人选项中没有mysql数据源驱动，所以需要下载，才会出现，然后安装，然后有想吐槽的一点，想要安装mysql还得下载vs，一直没有解决，就像是
烦死了，所以你还得下载vs，找了半天，这是唯一的解决办法，连接之后就可以进行操作了

 <%@Language="vbscript" Codepage="65001"   %> <!-- 中文显示 --><!-- 连接数据库 --><%dim connt conn = rver.CreateObject("ADODB.connection")conn.open "driver={MySQL ODBC 8.0 ANSI Driver};rver=127.0.0.1; uid=root;pwd=weicunbin123;databa=lendbook"' respon.write conn.state '是否连接成功 %><!-- 增加--修改--删除 -- 相当于接口--><%dim action,id,title,sqlaction = request.queryString("action")id = request.queryString("id")title = request.queryString("title")if action = "update" then'改 on error resume next 'Err对象保存了“错误信息”sql = "update a_book_info t title = '"&title&"' where info_id = "&id&""t res =  conn.execute(sql)if Err.number = 0 then' respon.Write("<script>alert('数据修改成功');window.history.back()</script>") call successFn("修改") el call errFn("数据修改失败或未修改") end if elif action="del" then '删on error resume next 'Err对象保存了“错误信息” sql = "delete from a_book_info where info_id = "&id&"" t res = conn.execute(sql) if Err.number = 0 then call successFn("删除") el call errFn("数据删除失败") end if elif action="add" then ' 增on error resume next 'Err对象保存了“错误信息” sql = "inrt into a_book_info(`title`) values('"&title&"')" t res = conn.execute(sql) if Err.number = 0 then call successFn("插入") el call errFn("数据插入失败") end if end if ' 函包衣数定义sub successFn(title)respon.Write("<script>alert('数据"&title&"成功');window.history.b经济学的研究方法ack()</script>")end subsub errFn(title)errMessage = "错误号:"&Err.Number & chr(10) & "错误来源:"&Err.Source & chr(10)&"错误描述:"&Err.Description & chr(10)respon.Write(errMessage)respon.Write("<script>alert('"&title&",页面未跳转');</script>")end sub%><!DOCTYPE html><html lang="en"><head><meta chart="UTF-8"><meta name="viewport" content="width=device-width, initial-scale=1.0"><title>asp增删改查</title></head><body><%'查询数据 Set rs = Server.CreateObject( "ADODB.Recordt" ) sql = "lect * from a_book_info order by info_id desc limit 0,5" rs.open sql,conn,1,3 '（1,1为只读数据,1,3为插入数据，2,3是修改数据)%><table border="1"  style="border-collap: collap;"><tr><td width="10%">id</td><td width="40%">title</td><td width="10%">操作</td></tr><%if (rs.EOF and rs.BOF) then'1、BOF 和 EOF 属性返回bai布尔型值。 '2、BOF 当前指针的位置是在第一行记录之前，则... EOF 当前指针的位置是在最后一行记录之后，则...'3、那么这句话的意思就是：如果 rs没有结束并且没有开始（表示在文本排列中），则满足条件,即没有这个数据 respon.write "no this daata" el ' 遍历数据开始do while not rs.eof '如果指针不再最后一行 ' 打印到页面上' 第一种方式 %> <tr> <td><%=rs("info_id")%></td> <td><input style="width: 100%; height: 100%;border: none; outline-color:red;" type="text" name="<%=rs("info_id")%>" value="<%=rs("title")%>"></td> <td><a href="?action=del&id=<%=rs("info_id")%>">删除</a> <a name="btn_<%=rs("info_id")%>" 物权法全文οnclick="update(this)">确认修改</a></td> </tr> <% ' 第二种方式' respon.write "<tr>" ' respon.write "<td>"&rs("info_id")&"</td>"' respon.write "<td>"&rs("title")&"</td>" ' respon.write "<td> <a href='?action=del&info_id="&rs("info_id")&"'>删文徽明习字除</a> <a href='?action=updata&info_id="&rs("info_id")&"'>确认修改</a> </td>"' respon.write "</tr>" rs.movenext '让指针向下移动一行,不然会报错loop' 遍历数据结束 end if %> </table> <br> <br> <br> <div class="add"> <input type="text" name="title" value="这是提交到数据库的内容" /> <button οnclick="add()">提交</button> </div> <script> //修改 function update(me){ //取出所对应的数据 aabc形式的词语const id = me.name.replace("btn_",'') const title = document.querySelector("input[name='"+id+"']").value window.location.href="?action=update&title="+title+ "&id="+id } //添加 function add(){ if(check()){ //判断条件 window.location.href="?action=add&title="+ document.querySelector("input[name='title']").value}}function check(){ return true;}</script></body></html>