私のしたいことは、
(1)リンクボタンを押すと、
(2)csvファイルを作成し、
(3)作成したcsvファイルのダウンロードを行う
というものです。

そこで、以下のようなプログラムを作成したのですが、上手くいきません。
まず、リンクボタンは
<% Response.Write"[<a href=" & FileName & " onclick='set()'>保存</a> ]" %>


次に、関数化したプログラムは、
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
<!--
sub set()
Dim i, fs,csv,flnm

flnm=<% = Request.Form("FileName") %>

Set fs = CreateObject("Scripting.FileSystemObject")
Set csv = fs.CreateTextFile(flnm,True)

'項目名を書き込む

'Serverからデータを取得
strSQL="select * from dtTbl "
Set rs = db.DbCreateDynaset(strSQL,0)
rs.MoveFirst

'データがなくなるまで繰り返す
Do Until rs.EOF=True

dtSQL=""
For i=0 to 17
dtSQL = dtSQL & rs.fields.item(i).value & ","
Next
dtSQL=dtSQL & rs.fields.item(18).value

'ファイルに書き込む
csv.WriteLine(dtSQL)

'次の行を読み込む
rs.MoveNext
Loop

'ファイルを閉じる
csv.Close
end sub
-->
</SCRIPT>


このプログラムは関数にしなければ正常に動作していました。
簡単なJavaScriptの関数を変わりにおいてみたところ、
そのプログラムは正常に動作したので、onclickは使えると思うのですが・・・
どこが間違っているのでしょうか?
ちなみにこの他の部分も、VBScriptで作成しています。
今日中に仕上げなければならないので、困っています。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

根本的にクライアントサイドとサーバーサイドを一緒に考えていらっしゃるようで・・・(^^;



  onclick="set()"



  <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  </SCRIPT>

内にある関数は呼び出せません。

クライアントサイドから呼び出せるのは(基本的には)クライアントサイドの関数だけです。

この回答への補足

では、
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
ではなく、
<SCRIPT LANGUAGE="VBScript">
とすればよいのでしょうか?

しかし、
(1)行3:識別子がありません。
(2)行63:構文エラーです。
と、2つのエラーがでてきてしまいます。

関数にしなければ動作するのですが、
関数にする時には、プログラムの書き方も違ってくるのでしょうか?
    

補足日時:2002/01/30 11:02
    • good
    • 0
この回答へのお礼

基本的なところがわかっていなかったようです。
まだまだ勉強がたりませんね。
結局、この部分は関数化するのはやめました(^。^;
別の方法で完成させました。
でも、別の関数を作成することができました。
ありがとうございました。

お礼日時:2002/01/31 10:18

私も似たような質問を以前ここでし、皆さんのおかげで解決しました。

(質問番号114813)
ただ違うのは(2)csvファイルを作成の部分は、ファイルを作成せずにそのままcsvファイルをダウロードさせる方法です。
以下その方法です。

リンク元のリンク部分
<a href="csvdown.asp?FILENAME=<%Response.Write FileName%>">保存</a>

csvdown.aspの先頭(<body>や<html>などはすべてとる)
<%
Response.ContentType = "text/csv"
Response.AddHeader "Content-Disposition","filename=" & Request("FILENAME")
'CSVデータを作成
Response.Write "1,2,3" & vbNewLine
Response.Write "2,3,4" & vbNewLine
%>
ただ方法か違うため「VBScriptの関数化」の回答にはなってませんね

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=114813
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
結局、昨日なんとか完成しました!!
こういう方法もあるのですね。
これからの参考にさせていただきます(^。^)

お礼日時:2002/01/31 10:15

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q と <% %>は違うの??

ASP開発をしています。

あるASPでIncludeファイルで配列宣言
Dim gsABC(10)を宣言します。

Includeファイルの中身
<Script Language="VBSCRIPT" RUNAT="SERVER">
Dim gsABC(10)
</script>

そして、ASPファイルでその変数gsABC(0)を
使おうとするとエラーが発生します。

けれども、Includeファイルの中身を
<%
Dim gsABC(10)
%>

にすると正常に動きます。
2つは同じものだと思っていたのですが、
これによって違うものなのかと認識するように
しなければと思ってますが・・・

どこが違うのか分かりません。

どなたか分かりやすく簡単でいいですから
説明して頂けないでしょうか?
よろしくお願いします。

Aベストアンサー

おすすめは後者の 「 <% Dim gsABC(10) %> 」です。
Includeでしたら別に構いませんが、前者だとASPやHTMLに拡張子を決めてしまうとソースが丸見えです。
開発でもやりましたが、VB系のソースは基本的に後者だと思っています。

参考URL:http://tryasp.winscom.co.jp/sample/

QASP上のVB SCRIPT記述(result setからcountを取得する方法)

初心者です。
ASP上のVB SCRIPT記述(result setからcountを取得する方法)が分かりません。

Set rsRet= MyConn.Execute(strSql)
nCltCnt = 0
If Not rsRet Is Nothing Then
nCltCnt = rsRet.Count
End If

という記述をしたのですが、エラーになります。メッセージは以下の通りです。

●エラー タイプ
Microsoft VBScript 実行時エラー (0x800A01B6)
オブジェクトでサポートされていないプロパティまたはメソッドです。: 'Count'
xxx.asp, line 110


サポートされていないのであれば、result setからの件数の取得を教えて下さい。
どなたかアドバイス宜しく願います。

Aベストアンサー

>現在、ADOを使用してます
ADOでは、Countプロパティはありません。RecordCountプロパティを使用します。
 nCltCnt=rsRet.RecordCount

ですが、ADOのマニュアルを見ると、「前方スクロールカーソル」ではレコード数が取れないこと、「プロバイダやカーソルタイプ」によってはサポートしないことが明記されています。ですので、
 Set rsRet=MyConn.Execute(strSql)
では、前方スクロールとなるため、取得できません。
ですので、レコードセットのOpenメソッドを使い、前方スクロールカーソルでないタイプを選ぶことと、OLE DBプロバイダがRecordCountプロパティをサポートするかどうかを調べてください。

ちなみに、私はDBがOracleだったので、oo4oを使い、GetRowsメソッドを使い、配列の大きさを見て、レコード数を数えました。

>ミドルウェアって、compatible; MSIE 5.01; Windows NT) ということで宜しいんでしょうか?
ミドルウェアとは、まさに、ADO、DAO、RDO、oo4oのことをさしています。

>将来的にはRDOに変更する
余計なことかもしれませんが、RDOは将来性がないと思います。ADOでもODBCが使えますので、ADOのままにされることをお勧めします。

>各々で使用可能なメソッド
ADOは、ADOがインストールしてあるコンピュータで「ADO*.chm」で検索してもらえば、ヘルプファイルが見つかると思います。
RDOは、ヘルプファイル自身が、情報が少ないので、MSDNをお勧めします。
DAOは、同じく「DAO*.chm」または「DAO*.hlp」でヘルプが見つかると思います。

>現在、ADOを使用してます
ADOでは、Countプロパティはありません。RecordCountプロパティを使用します。
 nCltCnt=rsRet.RecordCount

ですが、ADOのマニュアルを見ると、「前方スクロールカーソル」ではレコード数が取れないこと、「プロバイダやカーソルタイプ」によってはサポートしないことが明記されています。ですので、
 Set rsRet=MyConn.Execute(strSql)
では、前方スクロールとなるため、取得できません。
ですので、レコードセットのOpenメソッドを使い、前方スクロールカーソルでないタ...続きを読む

Aベストアンサー

gotoPageFromAA011
という関数は、JavaScriptの関数です。

書き方や呼び出し方云々の問題ではなく、直接実行はVBScriptで行える場所にはありません。

Call gotoPageFromAA011()
↑よってこの部分は不要です。


要は、ログインボタンエレメントを取得して、クリックさせてあげると、中で勝手にJavaScriptが実行します。


gotoPageFromAA011をコメントアウトし、以下のコードを追加してください。

'Call gotoPageFromAA011() ← コメントアウト

'↓以下追加
Call SubmitFunctionCall(objIE.Document)

Sub SubmitFunctionCall(p_doc)
Dim l_divLogin
Set l_divLogin = p_doc.getElementById("loginForms")

Dim l_divSec
Set l_divSec = l_divLogin.ChildNodes(0)

Dim l_htmTbl
Set l_htmTbl = l_divSec.ChildNodes(0)

Dim l_htmTblRow
Set l_htmTblRow = l_htmTbl.Rows(0)

Dim l_htmTblCell
Set l_htmTblCell = l_htmTblRow.Cells(1)

Dim l_htmBtn
Set l_htmBtn = l_htmTblCell.ChildNodes(0)
Call l_htmBtn.Click()
End Sub


ってかこの手の質問は、「ASPカテゴリ」ではなく、「JavaScriptカテゴリ」か「VBカテゴリ」に質問した方が素早い回答を得られますよ。

gotoPageFromAA011
という関数は、JavaScriptの関数です。

書き方や呼び出し方云々の問題ではなく、直接実行はVBScriptで行える場所にはありません。

Call gotoPageFromAA011()
↑よってこの部分は不要です。


要は、ログインボタンエレメントを取得して、クリックさせてあげると、中で勝手にJavaScriptが実行します。


gotoPageFromAA011をコメントアウトし、以下のコードを追加してください。

'Call gotoPageFromAA011() ← コメントアウト

'↓以下追加
Call SubmitFunctionCall(objIE.Document)

Sub Subm...
続きを読む

Q"<%=date変数%>" を "<%=date18(←仮数字)%>"とHTML上で表示させたい

いつもお世話になっております。
現在ASPでプログラムを作成していますが。

<%= %> で囲まれた中に更に変数(<%= %>)を入れることになりました。
どの様にすれば
HTMLソースに value="<%=date変数%>"と表示出来ますか
アドバイスお願いいたします。

以下ソースを記載します。

<!-- カレンダー設置関数 -->
<% Function cal(num)
   Dim a
   Dim str
%>
   <input type="text" name="date<%=num%>" id="date<%=num%>" onClick="cal<%=num%>.write();
<%
   a = 2
   Do Until a > 26
    if a <> num then
%>
     cal<%=a%>.hide();
<%
    Else
    End if
    a = a + 1
   Loop
   Response.Write str
   Response.Write " "" "
%>
   onChange="ca<%=num%>.getFormValue(); cal<%=num%>.hide();" value="<%=date<%=num%>%>"【←問題の箇所です】>
   <br>
   <div id="caldiv<%=num%>"></div>
<%End Function%>

いつもお世話になっております。
現在ASPでプログラムを作成していますが。

<%= %> で囲まれた中に更に変数(<%= %>)を入れることになりました。
どの様にすれば
HTMLソースに value="<%=date変数%>"と表示出来ますか
アドバイスお願いいたします。

以下ソースを記載します。

<!-- カレンダー設置関数 -->
<% Function cal(num)
   Dim a
   Dim str
%>
   <input type="text" name="date<%=num%>" id="date<%=num%>" onClick="cal<%=num%>.write();
<%
   a = 2
   ...続きを読む

Aベストアンサー

実際に試したわけじゃないですけど、普通に &lt;%=date変数%&gt; で
できませんか。
(実体参照)

Q『列名 '担当者CD' があいまいです。』

VS2005のASP.NETで開発しております。
ここで、SelectCommandにて、2つ目のテーブルより名称を参照しようとJOIN関数をしようしましたら『列名 '担当者CD' があいまいです。』とのエラーメッセージです。 これはどこが悪いのでしょうか?
いろいろ修正してみたのですが解りません。
解る方がおりましたらアドバイスを頂けないでしょうか?
よろしくお願いいたします。

Aベストアンサー

複数のテーブルから、同じ名前の列をとりだす場合、どちらのテーブルの値なのか特定できないため、このエラーがでます。
なので、担当者CDの前にテーブル名をつけましょう。

例えば以下のようなテーブルがふたつあるとして…
テーブル1
担当者CD
担当者名

テーブル2
ID
担当者CD

SELECT テーブル2.担当者CD
FROM テーブル2
INNER JOIN テーブル1
ON テーブル1.担当者CD=テーブル2.担当者CD
WHERE テーブル2.担当者CD='99999'
ORDER BY テーブル2.担当者CD

のように書きます。(列が多い場合は、テーブルに別名をつけてあげると、多少、楽できるかも)


人気Q&Aランキング

おすすめ情報