ASP全般の変更と機能コードの追加

著者：Eve Cole 更新時間：2025-03-17 19:48:02

一般に、データベースプログラムを作成する際に解決すべき主な問題は、追加、削除、変更、クエリにほかなりません。このタイプのプログラミングは非常に簡単です。次に、空いた時間を利用して、追加機能と削除機能を含む関数を作成します。実験的なアーキテクチャでは、IIS.5WEB サーバーの ACCESS データベースを使用できます。実はこれについては詳しく説明する必要はありません。誰もが知っているはずです。関数を直接投稿します。少し変更するだけで誰でも使用できます。

次のようにコードをコピーします。

subAdminEdit()

dim アクション、rsCheckAdd、rs、sql

アクション=request.QueryString(アクション)

if Action=SaveEdit then '編集した管理者情報を保存します

set rs =server.createobject(adodb.recordset)

if Result=Add then 'Web サイト管理者の作成

set rsCheckAdd = conn.execute(select AdminName from Ameav_Admin where AdminName=' & trim(Request.Form(AdminName)) & ')

存在しない場合 (rsCheckAdd.bof および rsCheckAdd.eof)、「この管理者名が存在するかどうかを判断する」

response.write <script language=javascript><!--

alert(' & trim(Request.Form(AdminName)) & 管理者はすでに存在します。別のログイン名でもう一度お試しください!');history.back(-1);

// --></script>

応答.終了

終了する場合

sql=select * from Ameav_Admin

rs.open SQL,conn,1,3

rs.addnew

len(trim(Request.Form(AdminName)))<3 または len(trim(Request.Form(Password)))>10 の場合

response.write <script language=javascript><!--

alert('管理者のログイン名は必須であり、文字数は 3 ～ 10 文字である必要があります!');history.back(-1);

// --></script>

応答.終了

終了する場合

len(trim(Request.Form(Password)))<6 または len(trim(Request.Form(Password)))>16 の場合

response.write <script language=javascript><!--

alert('管理者パスワードが必要です。文字数は 6 ～ 16 文字でなければなりません!');history.back(-1);

// --></script>

応答.終了

終了する場合

if Request.Form(Password)<>Request.Form(vPassword) then

response.write <script language=javascript><!--

alert('2回入力したパスワードは異なります!');history.back(-1);

// --></script>

応答.終了

終了する場合

rs(管理者名)=trim(リクエスト.フォーム(管理者名))

Request.Form(Working)=1 の場合

rs(作業中)=リクエスト.フォーム(作業中)

それ以外

rs(作業中)=0

終了する場合

rs(パスワード)=Md5(リクエスト.フォーム(パスワード))

rs(ユーザー名)=trim(リクエスト.フォーム(ユーザー名))

rs(AdminPurview)=リクエスト.フォーム(Purview111) & リクエスト.フォーム(Purview112) & リクエスト.フォーム(Purview113) &_

リクエスト.フォーム(Purview114) & リクエスト.フォーム(Purview115) & リクエスト.フォーム(Purview116) &_

リクエスト.フォーム(Purview117) & リクエスト.フォーム(Purview118) & リクエスト.フォーム(Purview119) &_

リクエスト.フォーム(Purview120) & リクエスト.フォーム(Purview121) & リクエスト.フォーム(Purview122) &_

リクエスト.フォーム(Purview123) & リクエスト.フォーム(Purview124) & リクエスト.フォーム(Purview125) &_

リクエスト.フォーム(Purview126) & リクエスト.フォーム(Purview127) & リクエスト.フォーム(Purview128) &_

リクエスト.フォーム(Purview129) & リクエスト.フォーム(Purview130) & リクエスト.フォーム(Purview131) &_

リクエスト.フォーム(Purview132) & リクエスト.フォーム(Purview133) & リクエスト.フォーム(Purview134) &_

リクエスト.フォーム(Purview135) & リクエスト.フォーム(Purview136) & リクエスト.フォーム(Purview137) &_

リクエスト.フォーム(Purview138) & リクエスト.フォーム(Purview139) & リクエスト.フォーム(Purview140) &_

リクエスト.フォーム(Purview141) & リクエスト.フォーム(Purview142) & リクエスト.フォーム(Purview143) &_

リクエスト.フォーム(Purview144) & リクエスト.フォーム(Purview145) & リクエスト.フォーム(Purview146) &_

リクエスト.フォーム(Purview147) & リクエスト.フォーム(Purview148) & リクエスト.フォーム(Purview149) &_

リクエスト.フォーム(Purview150) & リクエスト.フォーム(Purview151) & リクエスト.フォーム(Purview152) &_

リクエストフォーム(Purview153)

rs(説明)=trim(リクエスト.フォーム(説明))

rs(追加時間)=now()

終了する場合

if Result=Modify then 'Web サイト管理者の変更

sql=select * from Ameav_Admin where ID=&ID

rs.open SQL,conn,1,3

rs(管理者名)=trim(リクエスト.フォーム(管理者名))

Request.Form(Working)=1 の場合

rs(作業中)=リクエスト.フォーム(作業中)

それ以外

rs(作業中)=0

終了する場合

if トリム(リクエスト.フォーム(パスワード))<> then

len(trim(Request.Form(Password)))<6 または len(trim(Request.Form(Password)))>20 の場合

response.write <script language=javascript><!--

alert('管理者パスワードは必須であり、6 ～ 20 文字である必要があります!'); History.back(-1);