出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3198] Re:無題
投稿者：kevinさん 2003/02/15 10:13:56
ケビンです。
マルチポストはやめましょう（ルールです。）
この問題は解決しているはずですから、
この質問欄はすぐに削除するか、解決していることを
表示しましょう？


> 初めて書き込みします。
> 仕事でASPが必要で勉強しております。
> 以下のようなASPファイルを作ったのですが。
> 以下の中で、＾＾＾＾＾でマークしてあるところのように、セレクト文にサーバー側で宣言した変数を入れるのって、ダメなんでしょうか？
> よかったら、教えていただけないでしょうか．．．おねがいします。
>
>
>
> 【以下、ASPファイル　login.asp】
>
> <%
> Dim RecTEST
> Dim strSQL
> Dim strLANK
>
> '////////////DBとの接続オープン////////////
> Set ObjConn = Server.CreateObject("ADODB.Connection")
> ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
> Server.Mappath("login.mdb")
> '////////////DBとの接続オープンここまで////////////
>
> Dim strFLAG,strID
> strFLAG = Request.Form("flag")
> strID = Request.Form("id") 'UserIDテキストボックスの内容を取得する変数
>
>
> If strFLAG = "1" Then
> Response.Redirect "TestErr.asp?strErrCode="+strFLAG 'フラグが1の時、エラーページにジャンプ
> End If
>
> strSQL = "SELECT Lank FROM T_Syain WHERE UserID='&strTEST&' " 'セレクト文作成
> Set RecTEST = ObjConn.Execute(strSQL) 'セレクト文実行
>
> If RecTEST.EOF = False Then
> strLANK = RecTEST.Fields("Lank").Value
> End If
>
> %>
>
> <html>
> <head>
> <title>ログイン</title>
> <Script Language="JavaScript">
> <!--
> function test(){
> document.form01.lank.value = '<%=strLANK%>';
> }
>
> //-->
> </Script>
> </head>
> <body bgcolor="#CCCCCC">
> -- Login --<br>
> <form name="form01" method="post" action="login.asp">
> FLAG:<input type="text" name="flag" value="">
> <br>
> UserID:<input type="text" name="id" value="">
> <br>
> PassWord:<input type="text" name="pass" value="">
> <br>
> Lank:<input type="text" name="lank" value="">
> <br>
> <input type="button" name="login" value="ログイン" onClick="test()">
> <input type="button" name="reset" value="リセット">
> </form>
> </body>
> </html>
> <%
> ObjConn.Close
> Set ObjConn = Nothing
> %>
無題 　 looplopさん [2003/02/11 23:03:51] [3190]
　 Re:無題 　 kevinさん [2003/02/15 10:13:56] [3198]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ