出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3190] 無題
投稿者：looplopさん 2003/02/11 23:03:51
初めて書き込みします。
仕事で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 ＹａｓＮｅｔ