返回首頁
當前位置: 主頁 > 網絡編程 > Asp實例教程 >

ASP通用修改和增加函數示例代碼

時間:2010-05-13 11:07來源:知行網www.aotfjk.live 編輯:麥田守望者

 

  1. 一般來說編數據庫類的程序主要要解決的問題無非是添加,刪除,修改和查詢。這類編程都非常的簡單。接下來我利用一點空余時間發一個函數里面包含和添加和刪除功能。實驗的架構可以使用IIS.5WEB服務器ACCESS數據庫。這個我其實不用說的很詳細了,因為大家都應該知道的。我就直接把函數貼出來。大家只要稍微修改即可使用。  
  2.  
  3.  
  4. --------------------------------------------------------------------------------  
  5.  
  6. <%     
  7. sub AdminEdit()     
  8.   dim Action,rsCheckAdd,rs,sql     
  9.   Action=request.QueryString("Action")     
  10.   if Action="SaveEdit" then '保存編輯管理員信息     
  11.     set rs = server.createobject("adodb.recordset")     
  12.     if Result="Add" then '創建網站管理員     
  13.       set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")     
  14.       if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名是否存在     
  15.         response.write "<mce:script language=javascript><!--     
  16.  alert('" & trim(Request.Form("AdminName")) & "管理員已經存在,請換一個登錄名再試試!');history.back(-1);     
  17. // --></mce:script>"     
  18.         response.end     
  19.       end if       
  20.       sql="select * from Ameav_Admin"    
  21.       rs.open sql,conn,1,3     
  22.       rs.addnew     
  23.       if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10  then     
  24.         response.write "<mce:script language=javascript><!--     
  25.  alert('管理員登錄名必填,且字符數為3-10位!');history.back(-1);     
  26. // --></mce:script>"     
  27.         response.end     
  28.       end if           
  29.       if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16  then     
  30.         response.write "<mce:script language=javascript><!--     
  31.  alert('管理員密碼必填,且字符數為6-16位!');history.back(-1);     
  32. // --></mce:script>
------分隔線----------------------------
標簽(Tag):asp代碼 asp實例 ASP函數
------分隔線----------------------------
推薦內容
猜你感興趣
湖南刘雪龙黑彩