程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> asp 根據表單自動生成sql語句的函數

asp 根據表單自動生成sql語句的函數

編輯:關於SqlServer


     每次在操作數據庫的時候最煩的就是根據表單提交的內容寫sql語句,特別是字段比較多的時候很麻煩,動不動就容易寫錯。所以我就寫了下面的生成sql語句的函數,用了用覺得還可以。

程序代碼:

<%
'========以下所有函數都沒有加入容錯機制,所以一定要保證參數的正確性========
'================參數說明================
'此Function返回的是插入數據的sql語句
'注意:使用此Function必須使form裡的字段名和數據庫裡的字段名一致
'並且按鈕不能為submit,要為button,通過Javascript的submit方法提交表單
'objForm必須為request.Form
'tbName為插入數據的表名
'numStr為不需要用單引號引起來的字段,字段之間用逗號(,)分割,沒有請用""代替
'=======================================
Function insertStr(objForm,tbName,numStr)
dim tbFIEld()
dim tbfIEldVal()
i=0
for each objItem in objForm
redim preserve tbFIEld(i)
tbFIEld(i)=objItem
redim preserve tbfIEldVal(i)
numPos=instr(numStr,objItem)
if numPos<>0 then
tbfIEldVal(i)=trim(objForm(objItem))
else
tbfIEldVal(i)="'"&trim(objForm(objItem))&"'"
end if
i=i+1
next
insertStr="insert into "&tbName&"("&join(tbField,",")&") values("&join(tbfIEldVal,",")&")"
End Function

'===================參數說明=========================
'此Function返回的更新數據的sql語句
'注意:使用此Function必須使form裡的字段名和數據庫裡的字段名一致
'並且按鈕不能為submit,要為button,通過Javascript的submit方法提交表單
'objForm必須為request.Form
'tbName為更新數據的表名
'whereFIEld為更新的條件字段,有多個請用(,)分割
'whereJoin為更新的條件字段有多個時設置是and還是or
'numStr為不需要用單引號引起來的字段,字段之間用逗號(,)分割,沒有請用""代替
'===================================================
Function updateStr(objForm,tbName,whereFIEld,whereJoin,numStr)
    dim setFIEldVal()
    dim whereStrArr()
    i=0
    t=0
    for each objItem in objForm
        wherePos=instr(whereFIEld,objItem)
        if wherePos=0 then
            redim preserve setFIEldVal(i)
            numPos=instr(numStr,objItem)
            if numPos<>0 then
                setFIEldVal(i)=objItem&"="&trim(objForm(objItem))
            else
                setFIEldVal(i)=objItem&"='"&trim(objForm(objItem))&"'"
            end if
            i=i+1
        else
            redim preserve whereStrArr(t)
            numPos2=instr(numStr,objItem)
            if numPos2<>0 then
                whereStrArr(t)=objItem&"="&trim(objForm(objItem))
            else
                whereStrArr(t)=objItem&"='"&trim(objForm(objItem))&"'"
            end if
            t=t+1
        end if
    next
    wherePos2=instr(whereFIEld,",")
    if wherePos2<>0 then
    whereStr=" where "&join(whereStrArr," "&whereJoin&" ")
    else
    whereStrArray=whereStrArr
    whereStr=" where "&whereStrArray(0)
    end if
    updateStr="update "&tbName&" set "&join(setFIEldVal,",")&whereStr
End Function
'==============參數說明=================
'此Function返回更新數據的sql語句
'只是更新條件不是通過form提交過來的比如session等
'conditions為更新的條件
'numStr為不需要用單引號引起來的字段,字段之間用逗號(,)分割,沒有請用""代替
'======================================
Function updateStr2(objForm,tbName,conditions,numStr)
    dim setFIEldVal()
    i=0
    for each objItem in objForm
        redim preserve setFIEldVal(i)
        numPos=instr(numStr,objItem)
        if numPos<>0 then
            setFIEldVal(i)=objItem&"="&trim(replace(objForm(objItem),"'",""))
        else
            setFIEldVal(i)=objItem&"='"&trim(replace(objForm(objItem),"'",""))&"'"
        end if
        i=i+1
    next
    updateStr2="update "&tbName&" set "&join(setFIEldVal,",")&" where "&conditions
End Function

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved