通用修改和增加函數【ASP】

 

    一般來說編資料庫類的程式主要要解決的問題無非是添加，刪除，修改和查詢。這類編程都非常的簡單。接下來我利用一點空餘時間發一個函數裡麵包含和添加和刪除功能。實驗的架構可以使用IIS.5WEB伺服器ACCESS資料庫。這個我其實不用說的很詳細了，因為大家都應該知道的。我就直接把函數貼出來。大家只要稍微修改即可使用。

 

<%<br />sub AdminEdit()<br /> dim Action,rsCheckAdd,rs,sql<br /> Action=request.QueryString("Action")<br /> if Action="SaveEdit" then '儲存編輯管理員資訊<br /> set rs = server.createobject("adodb.recordset")<br /> if Result="Add" then '建立網站管理員<br /> set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")<br /> if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名是否存在<br /> response.write "<mce:script language=javascript><!--<br /> alert('" & trim(Request.Form("AdminName")) & "管理員已經存在，請換一個登入名稱再試試！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> sql="select * from Ameav_Admin"<br /> rs.open sql,conn,1,3<br /> rs.addnew<br /> if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then<br /> response.write "<mce:script language=javascript><!--<br /> alert('管理員登入名稱必填，且字元數為3-10位！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then<br /> response.write "<mce:script language=javascript><!--<br /> alert('管理員密碼必填，且字元數為6-16位！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> if Request.Form("Password")<>Request.Form("vPassword") then<br /> response.write "<mce:script language=javascript><!--<br /> alert('兩次輸入的密碼不一樣！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> rs("AdminName")=trim(Request.Form("AdminName"))<br /> if Request.Form("Working")=1 then<br /> rs("Working")=Request.Form("Working")<br /> else<br /> rs("Working")=0<br /> end if<br /> rs("Password")=Md5(Request.Form("Password"))<br /> rs("UserName")=trim(Request.Form("UserName"))<br /> rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_<br /> Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_<br /> Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_<br /> Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_<br /> Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_<br /> Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_<br /> Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_<br /> Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_<br /> Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_<br /> Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_<br /> Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_<br /> Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_<br /> Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_<br /> Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_<br /> Request.Form("Purview153")<br /> rs("Explain")=trim(Request.Form("Explain"))<br /> rs("AddTime")=now()<br />end if<br />if Result="Modify" then '修改網站管理員<br /> sql="select * from Ameav_Admin where ID="&ID<br /> rs.open sql,conn,1,3<br /> rs("AdminName")=trim(Request.Form("AdminName"))<br /> if Request.Form("Working")=1 then<br /> rs("Working")=Request.Form("Working")<br /> else<br /> rs("Working")=0<br /> end if<br /> if trim(Request.Form("Password"))<>"" then<br /> if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>20 then<br /> response.write "<mce:script language=javascript><!--<br /> alert('管理員密碼必填，且字元數為6-20位！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> if Request.Form("Password")<>Request.Form("vPassword") then<br /> response.write "<mce:script language=javascript><!--<br /> alert('兩次輸入的密碼不一樣！');history.back(-1);<br />// --></mce:script>"<br /> response.end<br /> end if<br /> rs("Password")=Md5(Request.Form("Password"))<br /> end if<br /> rs("UserName")=trim(Request.Form("UserName"))<br /> rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_<br /> Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_<br /> Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_<br /> Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_<br /> Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_<br /> Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_<br /> Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_<br /> Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_<br /> Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_<br /> Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_<br /> Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_<br /> Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_<br /> Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_<br /> Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_<br /> Request.Form("Purview153")<br /> rs("Explain")=trim(Request.Form("Explain"))<br />end if<br />rs.update<br />rs.close<br /> set rs=nothing<br /> response.write "<mce:script language=javascript><!--<br /> alert('成功編輯網站管理員！');changeAdminFlag('網站管理員');location.replace('AdminList.asp');<br />// --></mce:script>"<br /> else '提取管理員資訊<br />if Result="Modify" then<br /> set rs = server.createobject("adodb.recordset")<br /> sql="select * from Ameav_Admin where ID="& ID<br /> rs.open sql,conn,1,1<br /> AdminName=rs("AdminName")<br /> Working=rs("Working")<br /> UserName=rs("UserName")<br /> Purview=rs("AdminPurview")<br /> Explain=rs("Explain")<br /> rs.close<br /> set rs=nothing<br />end if<br /> end if<br />end sub</p><p>%>