自动生成添加，删除，修改代码(仅以此代码献给ASP新手，望其再接再厉) - 编程论坛

#2

gdk20062010-05-27 10:54

自己先顶一个！

#3

gupiao1752010-05-27 14:48

不错，思路清晰，代码简洁，帮你顶个！

#4

lgytxl5212010-06-02 21:36

怎么用呀，小菜在线等

#5

xinyi_20092010-06-12 12:58

顶一下！

#6

hp33252010-06-12 22:59

希望能增加识别字段和单选、多选

#7

wei944803812010-06-16 19:16

顶一个

#8

hp33252010-07-13 23:59

其中代码修改为以下内容，好像可以自动识别字段类型了，但不知实际使用会不会出错
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 编辑 ]

#9

hp33252010-07-24 17:18

没有人理解的呀

#10

冰镇柠檬汁儿2010-07-24 17:30

很难得的一点是编码习惯很好，尤其是缩进，这样使得代码结构很清晰。
现在的asp代码不知道有几个人能写这么规范了，反正论坛里很多请教问题的代码都是混乱的。
赞一个

#11

a1900662010-07-25 13:42

回复楼主 gdk2006

谢谢，有合新手好用再送点上来。。。。

#12

hp33252010-11-12 17:31

没人帮助测试一下呀