出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ）

出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
【PR】パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。

Topに戻る

掲示板に戻る

検索

削除

管理者

[5402] Re:ラジオボタンの情報を渡すには

コメントする

投稿者：まさみさん 2005/10/25 15:58:34

<HTML>
<HEAD>
<META Http-Equiv="Content-Type" Content="text/html;charset=Shift_JIS">
<TITLE>■表示■</TITLE>
<link rel="stylesheet" type="text/css" href="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX">
<script type="text/JavaScript"></script>

</HEAD>
<BODY>
<%
'--On Error Resume Next

'-- データ取得 ---------------------------------------------------------------------------------------------
'// HTMLから取得方法
Dim NAME
Dim CD
Dim KATE
Dim DAYF
Dim DAYE
Dim l_SUM

NAME = Request.Form("w_NAME")
CD = Request.Form("w_CD")
KATE = Request.Form("w_KATE")
DAYF = Request.Form("w_dayf")
DAYE = Request.Form("w_daye")
'------------------------------------------------------------------------------------------------------------

'-- 初期値設定-----------------------------------------------------------------------------------------------
StrDispMsg = "" '// ﾒｯｾｰｼﾞの初期化
l_SUM = 0 '//合計のデフォルトを０に
l_count = 2 '//合計のデフォルトを０に
'------------------------------------------------------------------------------------------------------------

Response.Write "<form name=""F1"" action=""http://www.index_0"" target=""_blank"" method=""POST"">"

If G_blnErrFlg = False Then
StrDispMsg = StrDispMsg & "<table border=1 cellspacing=1 cellpadding=5 Width=""300"">"
Response.Write StrDispMsg
Do While Not G_oraDynaset.EOF
StrDispMsg = ""
StrDispMsg = StrDispMsg & "<tr>"
StrDispMsg = StrDispMsg & "<td width=""100"" bgcolor=""ffcc33"">"
StrDispMsg = StrDispMsg & "<A href=""#"" onclick=""document.F1.submit();"" >"
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_CD"" value= '" & CStr(G_oraDynaset.Fields("CD")) & "' >"
StrDispMsg = StrDispMsg & CStr(G_oraDynaset.Fields("CD")) & ":" & CStr(G_oraDynaset.Fields("ITEM"))
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_NAME"" value= '" & NAME & "' >"
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_CD"" value= '" & CD & "' >"
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_KATE"" value= '" & KATE & "' >"
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_DAYE"" value= '" & DAYE & "' >"
StrDispMsg = StrDispMsg & "<INPUT type=""hidden"" name=""w_DAYF"" value= '" & DAYF & "' >"
StrDispMsg = StrDispMsg & "</A>"
StrDispMsg = StrDispMsg & "</td>"
StrDispMsg = StrDispMsg & "<td align=""right"">"
StrDispMsg = StrDispMsg & CStr(G_oraDynaset.Fields("GOUKEI"))
l_SUM = l_SUM + CStr(G_oraDynaset.Fields("GOUKEI"))
StrDispMsg = StrDispMsg & "</td>"
StrDispMsg = StrDispMsg & "<td align=""right"">"
StrDispMsg = StrDispMsg & l_SUM
StrDispMsg = StrDispMsg & "</td>"
StrDispMsg = StrDispMsg & "</tr>"
Response.Write StrDispMsg
G_oraDynaset.MoveNext
Loop
StrDispMsg = StrDispMsg & "</table>"
Set G_oraDynaset = Nothing
End If

Response.Write "</form>"

%>
</BODY>
</HTML>

Oracleに接続してSQLをまわしています。

削除する