ASP チュートリアル: すべての ASP プログラマーに必要な知識
データベース接続:
引用した内容は以下の通りです。
<%
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
%>
データベースを開きます。
引用した内容は以下の通りです。
exec=select * from データベーステーブル
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,1
パラメータ1、1を読み出す
読み取りコンテンツ形式: <%=rs(field)%>
レコードハンドラーを追加します。
引用した内容は以下の通りです。
<%
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
name=request.form (フィールド) name、tel、messageはフォーム送信時に設定するフィールド値です
tel=リクエスト.フォーム(フィールド)
メッセージ=リクエスト.フォーム(フィールド)
exec=テーブル名(フィールド)の値に挿入 ('+フィールド+') カンマで区切られた倍数
conn.execute exec は実行に実行を使用します
接続閉じる
conn=何も設定しない
%>
検索ハンドラー:
引用した内容は以下の通りです。
<%
name=request.form(field) name,tel はフォーム送信用に設定されたフィールド値です
tel=リクエスト.フォーム(フィールド)
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
exec=select * from table where name='+field+' および tel=+field
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,1
%>
'ページ内で検索したコンテンツをエクスポートします
<%
rs.eof ではないときに実行します
%><tr>
<td><%=rs(名前)%></td>
<td><%=rs(tel)%></td>
<td><%=rs(時間)%></td>
</tr>
<%
rs.movenext
ループ
%>
レコードハンドラーの削除:
引用した内容は以下の通りです。
<%
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
exec=delete * テーブル名からnumber=&request.form(id)
conn.execute exec
%>
レコード ハンドラーを変更します。
引用した内容は以下の通りです。
<%
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
exec=select * from table name wherenumber=&request.form(id)
set rs=server.createobject(adodb.recordset)
rs.open exec,conn,1,3 '1,3 は意味を変更するものです
rs(name)=request.form(field) 'name、tel、messageはフォーム送信用に設定されたフィールド値です
rs(電話)=リクエスト.フォーム(フィールド)
rs(メッセージ)=リクエスト.フォーム(フィールド)
rs.アップデート
rs.close
rs=何も設定しない
接続閉じる
conn=何も設定しない
%>
レコード変更実行プログラム:ID番号入力ページ>>>>該当IDデータのエクスポート>>>>>>直接変更用プロセッサ
バックグラウンドログインハンドラーの例:
引用した内容は以下の通りです。
<%
暗い名前、パスワード
名前=リクエスト.フォーム(名前)
パスワード=リクエスト.フォーム(パスワード)
ディム実行、接続、rs
exec=select *from テーブル名 where(名前='&フィールド&' およびパスワード='&フィールド&')
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=&server.mappath(データベース名)
set rs=server.createobject(adodb.recordset)
rs.open exec,conn
そうでない場合は、
rs.閉じる
接続閉じる
セッション(チェックあり)=はい
セッション(チェック)=右
応答.リダイレクトインデックス.asp
それ以外
セッション(チェックあり)=いいえ
セッション(チェック)=間違っています
応答.リダイレクトログイン.asp
終了する場合
%>
各バックエンド ページに追加します。
<%if not session(checked)=yes then 'セッションでチェックされた文字列変数を定義します
応答.リダイレクトログイン.asp
それ以外
%>