| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1871 人关注过本帖
标题:自动生成添加,删除,修改代码(仅以此代码献给ASP新手,望其再接再厉)
只看楼主 加入收藏
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
结帖率:66.67%
收藏
 问题点数:0 回复次数:11 
自动生成添加,删除,修改代码(仅以此代码献给ASP新手,望其再接再厉)
自动生成添加,删除,修改代码(仅以此代码献给ASP新手,望其再接再厉)
程序自动生成SQL和ACCESS的添加,修改,删除代码。
界面如下:
图片附件: 游客没有浏览图片的权限,请 登录注册


ShowDB.rar (2.93 KB)
收到的鲜花
  • hams2010-07-14 08:38 送鲜花  9朵   附言:原创内容
搜索更多相关主题的帖子: 自动 代码 再接再厉 ASP 
2010-05-27 10:53
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
自己先顶一个!

程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2010-05-27 10:54
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:0 
不错,思路清晰,代码简洁,帮你顶个!

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-05-27 14:48
lgytxl521
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-5-22
收藏
得分:0 
怎么用呀,小菜在线等
2010-06-02 21:36
xinyi_2009
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-6-12
收藏
得分:0 
顶一下!
2010-06-12 12:58
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
收藏
得分:0 
希望能增加识别字段和单选、多选
2010-06-12 22:59
wei94480381
Rank: 1
来 自:荆州
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-6-9
收藏
得分:0 
顶一个
2010-06-16 19:16
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
收藏
得分:0 
其中代码修改为以下内容,好像可以自动识别字段类型了,但不知实际使用会不会出错
sub Showsql(stable,coderType)
     set rs=server.createobject("adodb.recordset")
     rs.open "select * from "&stable&"",conn,1,1'==数据一定是存在的==
     if coderType="add" then
         fieldstr = ""
         valuestr = ""
          for i=1 to rs.fields.count - 1
             T=rs.fields(i).name
             P=rs.fields(i).type
             if fieldstr="" then
                 fieldstr = T
             else
                 fieldstr = fieldstr&","&T
             end if
             val = "trim(Request.Form("""&T&"""))"
             if valuestr="" then
             '2010-7-13 添加文本和备注字段识别 hp3325
                if p=202 or p=203 then
                      valuestr = "'""&"&val&"&""'"
                else
                      valuestr = """&"&val&"&"""
                end if
             '添加结束
             else
             '2010-7-13 添加文本和备注字段识别
                if p=202 or p=203 then
                      valuestr = valuestr&","&"'""&"&val&"&""'"
                else
                      valuestr = valuestr&","&"""&"&val&"&"""
                end if
             '添加结束
             end if
         next
         Response.Write("insert into "&stable&" ("&fieldstr&") values ("&valuestr&")")
         
     elseif coderType="update" then
         fieldstr = ""
         for i=1 to rs.fields.count - 1
         T=rs.fields(i).name
         P=rs.fields(i).type
         val = "trim(Request.Form("""&T&"""))"
              if fieldstr="" then
             '2010-7-13 添加文本和备注字段识别
                if p=202 or p=203 then
                      fieldstr  = T&"='""&"&val&"&""'"
                else
                      fieldstr  = T&"=""&"&val&"&"""
                end if
             '添加结束
              else
             '2010-7-13 添加文本和备注字段识别
                if p=202 or p=203 then
                      fieldstr  = fieldstr&","&T&"='""&"&val&"&""'"
                else
                      fieldstr  = fieldstr&","&T&"=""&"&val&"&"""
                end if
             '添加结束
              end if
         next
         Response.Write("update "&stable&" set "&fieldstr&" where "&rs.fields(0).name&"=""&"&rs.fields(0).name&"")
     elseif coderType="del" then
         Response.Write("delete from "&stable&" where "&rs.fields(0).name&"=""&"&rs.fields(0).name&"")
     end if     
end sub
'==sql形式代码处理==

[ 本帖最后由 hp3325 于 2010-7-14 00:03 编辑 ]
2010-07-13 23:59
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
收藏
得分:0 
没有人理解的呀
2010-07-24 17:18
冰镇柠檬汁儿
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:北京
等 级:版主
威 望:120
帖 子:8078
专家分:6657
注 册:2005-11-7
收藏
得分:0 
很难得的一点是编码习惯很好,尤其是缩进,这样使得代码结构很清晰。
现在的asp代码不知道有几个人能写这么规范了,反正论坛里很多请教问题的代码都是混乱的。
赞一个

本来无一物,何处惹尘埃
It is empty at all here, Why pm 2.5 is so TMD high!
2010-07-24 17:30
快速回复:自动生成添加,删除,修改代码(仅以此代码献给ASP新手,望其再接再厉)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018931 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved