asp 通用修改和增加函數(shù)代碼
更新時(shí)間：2009年09月25日 22:03:36 作者：
一般來說編數(shù)據(jù)庫類的程序主要要解決的問題無非是添加，刪除，修改和查詢。這類編程都非常的簡單。
接下來我利用一點(diǎn)空余時(shí)間發(fā)一個(gè)函數(shù)里面包含和添加和刪除功能。實(shí)驗(yàn)的架構(gòu)可以使用IIS.5WEB服務(wù)器ACCESS數(shù)據(jù)庫。這個(gè)我其實(shí)不用說的很詳細(xì)了，因?yàn)榇蠹叶紤?yīng)該知道的。我就直接把函數(shù)貼出來。大家只要稍微修改即可使用。
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存編輯管理員信息
set rs = server.createobject("adodb.recordset")
if Result="Add" then '創(chuàng)建網(wǎng)站管理員
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名是否存在
response.write "<script language=javascript><!--
alert('" & trim(Request.Form("AdminName")) & "管理員已經(jīng)存在，請(qǐng)換一個(gè)登錄名再試試！');history.back(-1);
// --></script>"
response.end
end if
sql="select * from Ameav_Admin"
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then
response.write "<script language=javascript><!--
alert('管理員登錄名必填，且字符數(shù)為3-10位！');history.back(-1);
// --></script>"
response.end
end if
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript><!--
alert('管理員密碼必填，且字符數(shù)為6-16位！');history.back(-1);
// --></script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>"
response.end
end if
rs("AdminName")=trim(Request.Form("AdminName"))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
rs("Password")=Md5(Request.Form("Password"))
rs("UserName")=trim(Request.Form("UserName"))
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_
Request.Form("Purview153")
rs("Explain")=trim(Request.Form("Explain"))
rs("AddTime")=now()
end if
if Result="Modify" then '修改網(wǎng)站管理員
sql="select * from Ameav_Admin where ID="&ID
rs.open sql,conn,1,3
rs("AdminName")=trim(Request.Form("AdminName"))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
if trim(Request.Form("Password"))<>"" then
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>20 then
response.write "<script language=javascript><!--
alert('管理員密碼必填，且字符數(shù)為6-20位！');history.back(-1);
// --></script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>"
response.end
end if
rs("Password")=Md5(Request.Form("Password"))
end if
rs("UserName")=trim(Request.Form("UserName"))
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_
Request.Form("Purview153")
rs("Explain")=trim(Request.Form("Explain"))
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript><!--
alert('成功編輯網(wǎng)站管理員！');changeAdminFlag('網(wǎng)站管理員');location.replace('AdminList.asp');
// --></script>"
else '提取管理員信息
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Admin where ID="& ID
rs.open sql,conn,1,1
AdminName=rs("AdminName")
Working=rs("Working")
UserName=rs("UserName")
Purview=rs("AdminPurview")
Explain=rs("Explain")
rs.close
set rs=nothing
end if
end if
end sub
%>
復(fù)制代碼 代碼如下:
<%
sub AdminEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存編輯管理員信息
set rs = server.createobject("adodb.recordset")
if Result="Add" then '創(chuàng)建網(wǎng)站管理員
set rsCheckAdd = conn.execute("select AdminName from Ameav_Admin where AdminName='" & trim(Request.Form("AdminName")) & "'")
if not (rsCheckAdd.bof and rsCheckAdd.eof) then '判斷此管理員名是否存在
response.write "<script language=javascript><!--
alert('" & trim(Request.Form("AdminName")) & "管理員已經(jīng)存在，請(qǐng)換一個(gè)登錄名再試試！');history.back(-1);
// --></script>"
response.end
end if
sql="select * from Ameav_Admin"
rs.open sql,conn,1,3
rs.addnew
if len(trim(Request.Form("AdminName")))<3 or len(trim(Request.Form("Password")))>10 then
response.write "<script language=javascript><!--
alert('管理員登錄名必填，且字符數(shù)為3-10位！');history.back(-1);
// --></script>"
response.end
end if
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript><!--
alert('管理員密碼必填，且字符數(shù)為6-16位！');history.back(-1);
// --></script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>"
response.end
end if
rs("AdminName")=trim(Request.Form("AdminName"))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
rs("Password")=Md5(Request.Form("Password"))
rs("UserName")=trim(Request.Form("UserName"))
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_
Request.Form("Purview153")
rs("Explain")=trim(Request.Form("Explain"))
rs("AddTime")=now()
end if
if Result="Modify" then '修改網(wǎng)站管理員
sql="select * from Ameav_Admin where ID="&ID
rs.open sql,conn,1,3
rs("AdminName")=trim(Request.Form("AdminName"))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
if trim(Request.Form("Password"))<>"" then
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>20 then
response.write "<script language=javascript><!--
alert('管理員密碼必填，且字符數(shù)為6-20位！');history.back(-1);
// --></script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript><!--
alert('兩次輸入的密碼不一樣！');history.back(-1);
// --></script>"
response.end
end if
rs("Password")=Md5(Request.Form("Password"))
end if
rs("UserName")=trim(Request.Form("UserName"))
rs("AdminPurview")=Request.Form("Purview111") & Request.Form("Purview112") & Request.Form("Purview113") &_
Request.Form("Purview114") & Request.Form("Purview115") & Request.Form("Purview116") &_
Request.Form("Purview117") & Request.Form("Purview118") & Request.Form("Purview119") &_
Request.Form("Purview120") & Request.Form("Purview121") & Request.Form("Purview122") &_
Request.Form("Purview123") & Request.Form("Purview124") & Request.Form("Purview125") &_
Request.Form("Purview126") & Request.Form("Purview127") & Request.Form("Purview128") &_
Request.Form("Purview129") & Request.Form("Purview130") & Request.Form("Purview131") &_
Request.Form("Purview132") & Request.Form("Purview133") & Request.Form("Purview134") &_
Request.Form("Purview135") & Request.Form("Purview136") & Request.Form("Purview137") &_
Request.Form("Purview138") & Request.Form("Purview139") & Request.Form("Purview140") &_
Request.Form("Purview141") & Request.Form("Purview142") & Request.Form("Purview143") &_
Request.Form("Purview144") & Request.Form("Purview145") & Request.Form("Purview146") &_
Request.Form("Purview147") & Request.Form("Purview148") & Request.Form("Purview149") &_
Request.Form("Purview150") & Request.Form("Purview151") & Request.Form("Purview152") &_
Request.Form("Purview153")
rs("Explain")=trim(Request.Form("Explain"))
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript><!--
alert('成功編輯網(wǎng)站管理員！');changeAdminFlag('網(wǎng)站管理員');location.replace('AdminList.asp');
// --></script>"
else '提取管理員信息
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_Admin where ID="& ID
rs.open sql,conn,1,1
AdminName=rs("AdminName")
Working=rs("Working")
UserName=rs("UserName")
Purview=rs("AdminPurview")
Explain=rs("Explain")
rs.close
set rs=nothing
end if
end if
end sub
%>
相關(guān)文章
asp 常用函數(shù)用法...2006-10-10
修改文件的名字和修改文件夾的名字的asp代碼2008-11-11
ASP是否可以定時(shí)觸發(fā)事件...2007-01-01
把網(wǎng)頁中的(電話，qq等數(shù)字)生成圖片的ASP程序
下面的代碼可以將網(wǎng)頁中一些防止別人直接復(fù)制或采集的不錯(cuò)的隱藏部分?jǐn)?shù)字信息，例如電話可以起到防止別人搜索。2008-11-11
asp下實(shí)現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼
asp下實(shí)現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼...2007-08-08
asp下實(shí)現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼
asp下實(shí)現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼...2007-11-11
值得收藏的一些HTML、JavaScript、ASP代碼...2006-10-10
TSYS 新聞列表JS調(diào)用下載...2007-01-01
ASP 處理JSON數(shù)據(jù)的實(shí)現(xiàn)代碼
今天看網(wǎng)頁才發(fā)現(xiàn)了ASP也能處理JSON數(shù)據(jù)?呵呵，剛才論壇上看到一個(gè)兄弟寫的文章，沒有測試，不過理論上一定是可以的，之前腳本之家小編也發(fā)過類似的文章都可以看下2017-07-07
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的實(shí)現(xiàn)代碼
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的代碼,有點(diǎn)亂，大家根據(jù)需要自己查找下。2010-04-04