在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000888 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

ajax 添加 dhtml

利用asp连接远端Oracle数据库方法!

[分享]仿PHP操作数据库的类

ASP与存储过程

SqlServer数据库的备份和恢复措施

HIBERNATE - 符合Java习惯的关系数据库持久化

将数据库(access)升级为sqlserver需要注意的问题

一份ASP学习笔记(连载二)

通过JDBC操纵Oracle数据库LOB字段的几种情况分析

不建立系统DSN,通过JDBCODBC bridge连接数据库
发表文章
自己做的一个数据库添加函数!

作者:lcs     提交人:lcs     发布时间:05-05-29     文章类型:原创     浏览量:3029
参考链结:http://    
关键字:添加|数据库
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000888]

很久没做东西了,为了毕业设计不得不重新开始,但是发现自己以前学的东西都忘完了,就知道个思想了,哈哈!够了,开始说这个函数吧!
我把这个文件放到了function中了,文件名是updatetodb.asp,你们自己看着放只要路径对就可以了
action="../function/UpdateToDB.asp?InsertTable=clients&CheckIt=client_name&RedirectUrl=../clients/editclient.asp?ID=<%=ID%>"

这把form中的action给了个参考,主要传递三个参数,一个要添加的表名,一个是主键名,一个是添加成功后转向的页面

<!--#include file="connect.asp"-->'这个来建立数据库连接的大家可以自己写我就不写了
<%
  'on error resume next
  dim StrGetFormName,StrGetFormvalue,StrsqlInsert,InsertTable,RedirectUrl,StrInsertName,StrInsertValue
  InsertTable=Request.QueryString("InsertTable")
          '得到要添加的数据库名字
  RedirectUrl=Request.QueryString("RedirectUrl")
        '得到添加完数据后要转向的页面
  CheckIt=Request.QueryString("CheckIt")
        '得到添加的数据是否存在(其实是主键)
  if InsertTable<>"" then
    if CheckIt<>"" then
          '判断表和主键是否为空值
      strsqlcheck="select * from "&InsertTable&" where "&CheckIt&"='"&request(CheckIt)&"'"
      Set objRscheck = Server.CreateObject("adodb.recordset")
          objRscheck.Open strsqlcheck,objConn,1,1
          'response.write strsqlcheck
          'response.end
          if not objRscheck.eof then
            response.write "<script language='javascript'>alert('此项目已经存在!');history.back();</script>"
            'response.write "<p align='center'>请<a href='javascript:history.back();'>返回</a></p>"
            response.end
          end if
          objRscheck.close
          set objRscheck=nothing
    end if
      StrsqlInsert="insert into "&InsertTable&"("
'主要是这比较难点,利用循环来实现添加
    for i=1 to Request.Form.Count
      StrGetFormName=Request.Form.Key(i)
      StrGetFormvalue=getstring(Request.Form(i))
      if i=1 then
        StrInsertName=StrGetFormName
        StrInsertValue=StrGetFormvalue
      else
        StrInsertName=StrInsertName&","&StrGetFormName
        StrInsertValue=StrInsertValue&"','"&StrGetFormvalue
'这就不怎么解释了,相信大家明白主要是把字段名和字段的值连接起来
      end if     
    next
    StrsqlInsert=StrsqlInsert&StrInsertName&") values('"&StrInsertValue&"')"'添加数据
    'response.write StrsqlInsert
    'response.end
    objConn.execute StrsqlInsert
    strsql="select @@identity as id"
    Set objRs = Server.CreateObject("adodb.recordset")
          objRs.Open strsql,objConn,1,1
          if not objrs.eof then
            IID=objrs.fields("id")'得到刚才插入数据字段编号下面的我就不再解释什么了,很容易理解的
          end if
    if RedirectUrl<>"" and RedirectUrl<>"close" then
      if instr(RedirectUrl,"?")>0 then
        Response.Redirect RedirectUrl & "&IID=" & IID
      else
        Response.Redirect RedirectUrl & "?IID=" & IID
      end if
    elseif RedirectUrl="close" then
      response.write "<script language='javascript'>window.opener.location.reload();window.close();</script>"
      'Response.Write "<p align=center>数据插入成功,请<a href='#' onclick='window.opener.location.reload();window.close()'>返回</a></p>"
      response.end
    elseif RedirectUrl="script" then
      response.write "<script language='javascript'>" & request("script") & "</script>"
      response.end
    else
      Response.Write "<p align=center>数据插入成功,请<a href='#' onclick='history.go(-1)'>返回</a></p>"
      Response.End
    end if
  else
    Response.Write "<p align=center>请传入数据库名称!方式:QueryString</p>"
    Response.End
  end if
 
  if err then
    Response.Write "<p align=center>数据插入失败,请重试或者检查你的submit按钮的名称是否为空!</p>"
    Response.End
  end if
 
%>

对于那些字段很多的表单很使用的,不必那么麻烦写rs(“字段名”)=value了哈哈,你用用就知道了,但是有一个缺点就是表单中的每个对象都要以字段名命名,而且字段中没有的名字不可以做为表单的名字,那位如果可以解决这个问题的话,帮我补上,哈哈,完了,单元这个小程序能使大家少辛苦点!^_^悔^_^于5月29日写于河南

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
qweqwe        2009/12/29 11:17:00
:)
One important aspect of blogging is backlinks. Any wow power leveling internet marketing expert that is an actual expert at wow power leveling internet marketing will not dispute the importance of backlinks when trying to rank well within the serps. When trying to build backlinks to aion kina a blog the first thing you must aion kinah do is have plenty of posts which are link bait meaning they are unique and helpful so other webmasters or bloggers would aion power level want to throw you a link. Instead of harming it, cheap aion power leveling as it was believed previously, it helped to keep several 重庆二手电脑 illnesses at bay and Resveratrol was the reason why. At the time, Resveratrol was classified with other substances warcraft gold that could be found in wine.
法官        2006/7/12 17:02:00
:)
这个是干什么地
lcs        2005/6/11 18:02:00
:)
说具体点,我还是不明白!
firefly        2005/6/6 10:01:00
:)
好!!数据表的结构可以通过查系统表或者adox获取。
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2021 Yup Studio, all rights reserved.  
300.7813