…中间是一些添加修改删除操作
如果出现错误就取消
conn.rollbacktrans ‘取消事物更改并结束事物
如果没问题,就保存
conn.CommitTrans ‘保存事物并结束事物
实现代码如下:
<%if not session(“type”)=”3″ then
response.Redirect “../login.asp”
else
%>
<!–#include file=”../conn.asp” –>
<LINK href=”https://www.home1024.com/css/home1.css” type=text/css rel=stylesheet>
<%
set rs=server.CreateObject(“ADODB.recordset”)
sql = “select * from [sushe] where m_su='”& request.Form(“su”) &”‘”
rs.open sql,conn,1,1
if rs.recordcount>0 then
response.write(“<p align=’center’>”&request.QueryString(“name”)&”:”& request.Form(“su”) &”已经入库,请添加其他”&request.QueryString(“name”)&”!”)
response.Write “<a href=’https://www.home1024.com/article/xitong_set.asp’ target=’mainFrame’>继续添加</a></p>”
rs.close
set rs=nothing
conn.close
set conn=nothing
else
rs.close
conn.begintrans ‘开启事物功能
rs.open “sushe”,conn,1,3
rs.addnew ‘插入数据到users表
rs(“m_su”)=request.Form(“su”)
rs.update
rs.close
if err.number<>0 then
conn.begintrans ‘开启事物功能
…中间是一些添加修改删除操作
如果出现错误就取消
conn.rollbacktrans ‘取消事物更改并结束事物
如果没问题,就保存
conn.CommitTrans ‘保存事物并结束事物
response.Write(“<p align=’center’>添加失败,请重新添加”&” “&” “)
response.write “<a href=’https://www.home1024.com/article/xitong_set.asp’ target=’mainFrame’>重新添加</a></p>”
else
conn.CommitTrans ‘保存事物并结束事物
response.write”<SCRIPT language=JavaScript>alert(‘添加成功!’);”
response.write”setTimeout(parent.mainFrame.document.location=’xitong_set.asp’,0)”
response.write”</SCRIPT>”
end if
end if
%>
<%end if%>
<%response.End()%>
以上就是【asp事物功能简单小应用】的全部内容了,欢迎留言评论进行交流!
© 版权声明
1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!邮箱:cxysz1@tom.com
2. 分享目的仅供大家学习和交流,您必须在下载后24小时内删除!
3. 不得使用于非法商业用途,不得违反国家法律。否则后果自负!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请联系管理员处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,请使用WINRAR解压,如遇到无法解压的请联系管理员!
8. 精力有限,不少源码未能详细测试(解密),不能分辨部分源码是病毒还是误报,所以没有进行任何修改,大家使用前请进行甄别
丞旭猿论坛
2. 分享目的仅供大家学习和交流,您必须在下载后24小时内删除!
3. 不得使用于非法商业用途,不得违反国家法律。否则后果自负!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请联系管理员处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,请使用WINRAR解压,如遇到无法解压的请联系管理员!
8. 精力有限,不少源码未能详细测试(解密),不能分辨部分源码是病毒还是误报,所以没有进行任何修改,大家使用前请进行甄别
丞旭猿论坛
THE END
暂无评论内容