|
|
を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>新規ユーザーの追加処理</title>
</head>
<body bgcolor=#ffffff text=#000000>
<h1>新規ユーザーの追加処理</h1>
<% Call START()%>
<HR>
</body>
</html>
<%
Sub START()
If Request("mode") = "addnew" Then
ret = USERCHK() 'ユーザーを重複チェックする
If ret = 0 Then
'データを追加する
Call add_data() 'MDBへ追加する
Response.Write "<hr>"
Response.Write "正常終了<br>"
Response.Write "<h2>作成が終了しました</h2><br>"
Response.Write "テストを兼ねてログインしてみてください<br>"
Response.Write "<a Href='test068.html'>ログイン処理へ戻る</a><br>"
Else
Response.Write "<hr><font color='red'><b>"
Response.Write "ユーザーＩＤが重複してます</b></font><br>"
Response.Write "<b>再度データを入力してください</b><br>"
Call input_data() 'データの入力
Response.Write "<a Href='test068.html'>戻る</a><br>"
End If
Else
Call input_data() 'データの入力
End if
End Sub
Sub add_data() 'マスターへデータを追加する
'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
Set db=Server.CreateObject("ADODB.Connection")
'データアクセスにはJet.OLEDB.4.0を使うことを設定
db.Provider = "Microsoft.Jet.OLEDB.4.0"
'次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
db.ConnectionString = Server.MapPath("db068.mdb")
'やっとデータベースを開ける
db.open
'SQL文を作る
strSQL = "INSERT INTO t_user"
strSQL = strSQL & "(userid, [password], username, lastlogin) VALUES("
strSQL = strSQL & "'" & Request.Form("userid") & "'"
strSQL = strSQL & " , '" & Request.Form("pass") & "'"
strSQL = strSQL & " , '" & Request.Form("username") & "'"
strSQL = strSQL & " , #" & now & "#"
strSQL = strSQL & ")"
'strSQL = "INSERT INTO t_user(userid) Values('ZZZZ')"を発行したい
Response.Write "発行するSQL=" & strSQL & "<hr>"
'SQL文の発行
db.Execute(strSQL)
db.Close 'データベースも閉じようよ
Set db = Nothing 'お行儀よくオブジェクトも開放しましょう
End Sub
Function USERCHK() 'ユーザーが存在するかチェックする
'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
Set db=Server.CreateObject("ADODB.Connection")
'データアクセスにはJet.OLEDB.4.0を使うことを設定
db.Provider = "Microsoft.Jet.OLEDB.4.0"
'次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
db.ConnectionString = Server.MapPath("db068.mdb")
'やっとデータベースを開ける
db.open
'SQL文を作る
strSQL = "Select * From t_user " 'ユーザーマスター(*)セレクト
strSQL = strSQL & "WHERE userid = '" & Request.Form("userid") & "' "
'お約束のレコードセットの作成 SQL文の発行
Set rs = db.Execute(strSQL)
'ユーザーＩＤが存在したか？
If rs.EOF = True Then 'データ無しの時
USERCHK = 0 'データが無いので、チェックはＯＫです。
Else
USERCHK = -1 'データがあったので、エラーをセットする
End If
rs.Close '開いていたレコードセットを閉じる
db.Close 'データベースも閉じようよ
Set db = Nothing 'お行儀よくオブジェクトも開放しましょう
End Function
Sub input_data() 'データ入力フォームの表示
Response.Write "<table bolder=1>"
Response.Write "<FORM ACTION='test068-2.asp' METHOD='POST'>"
Response.Write "<INPUT type='hidden' NAME='mode' VALUE='addnew'>"
Response.Write "USER ID:<INPUT TYPE='text' NAME='userid' SIZE='12'><br>"
Response.Write "パスワード:<INPUT TYPE='password' NAME='pass' SIZE='12'><br>"
Response.Write "お名前:<INPUT TYPE='text' NAME='username' SIZE='20'>"
Response.Write "<BR>"
Response.Write "<INPUT TYPE='submit' VALUE='登録'>"
Response.Write "<INPUT TYPE='reset' VALUE='クリア'>"
Response.Write "</FORM>"
Response.Write "</table>"
End Sub
%>
| 商品:服と靴関係を紹介(広告)
服と靴など →の人気
-
(デュカス)dyukas ボーダーブラウジングチュニック 2363084 5月15日 最近販売
-
(ラソックス) rasox マルチ グラデーション ボーダー柄 アンクル 5月15日 伸び率UP
-
(コーエン)COEN B UV PK 76206122010 → 5月14日 最近販売
-
(ビー・ブイ・ディ)B.V.D. B.V.D. New York ドット 5月14日 伸び率UP
-
(ナノ・ユニバース)nano・universe セミピークドシャツジャケ 5月13日 最近販売
-
（トリンプ）Triumph スロギー フィット マキシ ショーツ → 5月13日 伸び率UP
-
(ユナイテッドアローズ グリーンレーベル リラクシング)UNITED A 5月12日 最近販売
-
(ナノ・ユニバース)nano・universe スリムレギュラー カーゴ 5月12日 伸び率UP
続き(一覧)を見る
|