出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
onFocusイベント処理について 　 はりさん [2002/02/04 14:02:08] [1593]
　 Re:onFocusイベント処理について 　 Tomitomiさん [2002/02/04 14:41:32] [1594]
　 　 Re:onFocusイベント処理について 　 はりさん [2002/02/04 15:44:12] [1595]
　 　 　 Re:onFocusイベント処理について 　 Tomitomiさん [2002/02/04 16:31:02] [1597]
　 　 　 　 Re:onFocusイベント処理について 　 はりさん [2002/02/04 17:46:31] [1598]
　 Re:onFocusイベント処理について 　 喜平さん [2002/02/04 22:26:42] [1600]
[1593] onFocusイベント処理について
投稿者：はりさん 2002/02/04 14:02:08
質問です。

一つのフォーム上に
2つのテキストボックス(name=textvalue)
1つのhidden(name=test)
が配置してあります。

sub textvalue_onfocus(index)
test.value = index
end sub

をしたいと思っています。この際に2つのテキストボックスのインデックス値を取る場合にはどのようにすればよいのでしょうか？
[1594] Re:onFocusイベント処理について
投稿者：Tomitomiさん 2002/02/04 14:41:32
こんにちは、Tomitomiです。

> 一つのフォーム上に
> 2つのテキストボックス(name=textvalue)
> 1つのhidden(name=test)
> が配置してあります。
>
> sub textvalue_onfocus(index)
> test.value = index
> end sub
>
> をしたいと思っています。この際に2つのテキストボックスのインデックス値を取る場合にはどのようにすればよいのでしょうか？

私の認識としては、多分コントロール配列は無理です。
とりあえず、私のいつもやる考え方と似てるのでサンプルとして、

<form method="POST" action="--WEBBOT-SELF--" name="F1">

<p>これがhiddenと仮想して<input type="text" name="test" size="20"><br>
<br>
<input type="text" name="T1" size="20" onfocus="document.F1.test.value='1';"><br>
<input type="text" name="T2" size="20" onfocus="document.F1.test.value='2';"><br>
<input type="text" name="T3" size="20" onfocus="document.F1.test.value='3';"><br>
<input type="text" name="T4" size="20" onfocus="document.F1.test.value='4';"><br>
<input type="text" name="T5" size="20" onfocus="document.F1.test.value='5';"><br>
<input type="text" name="T6" size="20" onfocus="document.F1.test.value='6';"></p>
<p><input type="submit" value="送信" name="B1"><input type="reset" value="リセット" name="B2"></p>
</form>
[1595] Re:onFocusイベント処理について
投稿者：はりさん 2002/02/04 15:44:12
Tomitomiさん解答ありがとうございます。

もう一つ質問をしてもよろしいでしょうか？

今　これと同時にASP＆ADOを使ってレコードセットのページングをしようと思っています。

MicroSoftに載っていたものを変更しようと思ったのですが・・・

<%@language="vbscript" %>
<% Option Explicit%>
<%
dim iPageNum,iRowsPerPage

Main 'MAIN関数を呼んでいる

sub Main()
dim rst
dim ssql

if Request.QueryString("iPageNum") = "" then
iPageNum = 1
else
iPageNum = Request.QueryString("iPageNum")
iPageNum = cint(iPageNum)
end if

iRowsPerPage = 2

ssql = "select * from M_bbs"

set rst = getRecord(objcon,ssql)

writetableheadder rst
writetablebody rst,iRowsPerPage,iPageNum
showNavBar rst

cleanup rst
end sub

function getRecord(objcon,ssql)
dim rst

objcon.open session("connectionstring")

set rst = server.CreateObject("ADODB.recordset")
set rst.ActiveConnection = objcon

rst.CursorLocation = aduseserver

'型は、Long型
'rst.CacheSize = clng(iRowsPerPage)

rst.Open ssql,,adOpenDynamic,adLockReadOnly

set getRecord = rst
end function

sub writetableheadder(rst)
dim fld

Response.Write "<table width='80%' border=1>"
Response.Write "<tr>"

'表の列見出しを作成します
for each fld in rst.Fields
Response.Write "<td><b>" & fld.name & "</b></td>"
next
Response.Write "</tr>"
end sub

sub writetablebody(rst,iRowsPerPage,iPageNum)
dim iloop
dim fld

iloop = 1

rst.PageSize = iRowsPerPage
'rst.AbsolutePage = iPageNum

'現在のレコードページを書き出します
do while (not rst.EOF) and (iloop <= iRowsPerPage)
Response.Write "<tr>"
for each fld in rst.Fields
Response.Write "<td>" & fld.value & "</td>"
next

iloop = iloop + 1
rst.MoveNext
Response.Write "</tr>"
loop
Response.Write "</table>"
end sub

sub ShowNavBar(rst)
dim iPageCount
dim iloop
dim sScriptName

Response.Write "<br><br>"
sScriptName = Request.ServerVariables("SCRIPT_NAME")

if iPageNum > 1 then
Response.Write "<a href=" & sScriptName & "?iPageNum="
Response.Write (iPageNum - 1) & "><< Previous</a>"
end if

iPageCount = rst.PageCount
do until iloop > iPageCount
if iloop = iPageCount then
Response.Write " <b>" & cstr(iloop) & "</b>"
else
Response.Write " <a href=" & sScriptName & "?iPageNum=" & _
cstr(iloop) & ">" & iloop & "</a>"
end if
iloop = iloop + 1
loop

if not rst.EOF then
Response.Write " <a href=" & sScriptname & "?iPageNum="
Response.Write (iPageNum + 1) & "> Next >></a><br>"
else
Response.write "<br>"
end if

Response.Write "Page " & iPageNum & " of " & iPageCount & "<br>"
Response.Write rst.RecordCount & " Records"
end sub

sub cleanup(rst)
if not rst is nothing then
if rst.State = adstateopen then rst.Close
set rst = nothing
end if
objcon.close
end sub
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>ASPからのレコードをページングする(ShowNavBarn)</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>

一応、Global.asaの中でADOのTypeLibの宣言はしています。
（msado15.dll）を参照しています。
ただし、これを実行すると

「エラー タイプ
　　　ADODB.Recordset (0x800A0BB9)
　　　引数が間違った型、許容範囲外、または競合しています。
　　　/mypage/pagecount.asp, line 43」
と表示されてしまいます。　あとレコードセットのカウントもなぜかとれず絶えず、「-1」と表示されてしまいます。これは一体どういった原因からなのですか？　よろしければ　アドバイスの方お願いします。


[1597] Re:onFocusイベント処理について
投稿者：Tomitomiさん 2002/02/04 16:31:02
こんにちは、Tomitomiです。

> 「エラー タイプ
> 　　　ADODB.Recordset (0x800A0BB9)
> 　　　引数が間違った型、許容範囲外、または競合しています。
> 　　　/mypage/pagecount.asp, line 43」
> と表示されてしまいます。　あとレコードセットのカウントもなぜかとれず絶えず、「-1」と表示されてしまいます。これは一体どういった原因からなのですか？　よろしければ　アドバイスの方お願いします。

まず、ソースを全部載せても多分だれも解析しません。ｗ
なぜならば、間違い探しをするために掲示板に参加しているわけではないので。

ページングの前にADOで接続して表示するといったことはできましたか？
それができていれば、ページングはプロパティをいじるだけなのでそうそう難しくないように思えます。

あと、RecordCountが-1になる件はこの掲示板の検索で、「RecordCount」として検索してみてください。
多分答えが見つかります。では
[1598] Re:onFocusイベント処理について
投稿者：はりさん 2002/02/04 17:46:31
ありがとうございました。
検索を行った結果　解決することが出来ました。
やはり自分もカーソルの問題にぶつかっていました。
[1600] Re:onFocusイベント処理について
投稿者：喜平さん 2002/02/04 22:26:42
> 一つのフォーム上に
> 2つのテキストボックス(name=textvalue)
> 1つのhidden(name=test)
> が配置してあります。
>
> sub textvalue_onfocus(index)
> test.value = index
> end sub
>
> をしたいと思っています。この際に2つのテキストボックスのインデックス値を取る場合にはどのようにすればよいのでしょうか？

vbscript でコントロール配列が使えるかどうかという疑問と
同じ内容ですよね。
　まったく出来ないということではありません。
vb と同じようには、かけませんが、それなりな記述は可能です。

<form method=post name="Form1">
<input type=text NAME="textvalue"　onFocus="javascript:js_textvalue_onfocus(this,0)">
<input type=text NAME="textvalue" onFocus="javascript:js_textvalue_onfocus(this,1)">
<input type=button NAME="cmd1" >
</form>

<script language=javascript>

function js_textvalue_onfocus(argControl,index)
{
vb_textvalue_onfocus (argControl,index)
}

</script>

<script language=vbscript>
sub vb_textvalue_onfocus(argControl,index)

argControl.value = index

end sub
</script>

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