教你數據庫簡單實現添加,顯示,修改,刪除的方法

'//------------------生成SQL語句----------------小琦

sql="Update pub_doc set "&zd_name&" where id="&request("id")&""
conn.execute(sql)

response.write "修改成功!"

Response.End()
end if
end function

function read_edit_form(sl)'修改前讀取數據函數
if request("id")<>"" and request("act")="edit" and sl<>"" then'讀取要修改的數據

'------------------生成SQL語句----------------小琦
                        zd_name="" '字段名子
'--------循環memo
                        For i = 1 To sl
                                zd_name=zd_name&"memo"&i&","       
                        next
'//--------循環memo

'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)

sql="select top 1 "&zd_name&" from pub_doc where id="&request("id")&""
'//------------------生成SQL語句----------------小琦
set rs = conn.execute(sql)'查詢

response.write "<script language=java script>"'寫java script的腳本
response.write "function read_data(){"'

'--------循環賦值
                        for each i in split(zd_name,",")
                                response.write "frm."&i&".value="""&Replace(Replace(Replace(rs(i)&"||",chr(13),"\n"),chr(10),"\n"),"||","")&""";"'
                        next
'//--------循環賦值

response.write "}</script>"

end if
end function

function read_form(sl)'讀取數據函數
if request("id")<>"" and request("act")="" and sl<>"" then'讀取要查看的數據

'------------------生成SQL語句----------------小琦
'--------循環memo
                        For i = 1 To sl
                                zd_name=zd_name&"memo"&i&","       
                        next
'//--------循環memo

'去掉最后的“,”
zd_name=left(zd_name,len(zd_name)-1)

sql="select top 1 "&zd_name&" from pub_doc where id="&request("id")&""
'//------------------生成SQL語句----------------小琦
set rs = conn.execute(sql)'查詢

response.write "<sc"+"ript language=java script>"'寫java script的腳本
response.write "function read_data(){"'
'--------循環賦值
                        for each i in split(zd_name,",")
                        if rs(i)="" then kongge=" "'如果內容為空，則用空格代替
                                response.write "frm."&i&".parentElement.innerText="""&rs(i)&kongge&""";"'
                        next
'//--------循環賦值
response.write "}</scr"+"ipt>"
end if
end function