＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Par ..

184:nobodyさん
05/11/01 22:40:03
お世話になります。

現在、asp上のリンクをクリックするとDBにバイナリデータで格納されているpdfファイルを読み込み、
ブラウザに表示をさせるという処理を行っているのですが、
ブラウザに表示できる端末とダウンロードのダイアログが出てきてしまう端末があります。
色々原因を探っているのですが、
今現在わかっているのはダイアログが表示される端末は
全てAcrobat Reader5.0がインストールされているものだということだけです。
しかし、Acrobat Reader5.0がインストールされていてもブラウザに表示できる端末もありました。
また、Acrobat Readerの設定（ブラウザで表示するかどうかの設定）が悪いのかと思いましたが、
pdfファイルをブラウザに放り込んでやるとちゃんとブラウザ上で表示されていました。
さらに、正常に表示できる端末では、
右クリック→対象をファイルに保存　としてやると正常にpdfを保存することが出来ますが、
ダイアログが表示される端末では　対象のファイルがありません　のようなエラーメッセージが表示されてしまいます。
ちなみに、現在他のシステムも稼動していますので、
環境を変化させないために全ての端末にAcrobat Readerの最新版をインストールするということは出来ません。

現在わかっていることはこのぐらいなのですが、
ダイアログが表示されてしまう原因は何なのでしょうか？
また、上記で「ブラウザ」と表記しているものは全てIE5.5以上です。

185:nobodyさん
05/11/02 04:34:36 8yGkDJEQ
ASPからWMIを使用し、JScriptで記述した場合の問題に直面しています。

あるフォルダの所有者を取得したいのですが、
VBScriptで以下の用に記述した場合は問題なく動作します。

<%
strFolderName = "C:\\Sample"
Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings = objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")

Dim objSD

intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)

If intRetVal = 0 Then
Response.Write( "Ownerは[" & objSD.Owner.Name & "]" )
Else
Response.Write( "Couldn't retrieve security descriptor." )
End If

On Error Resume Next
%>

186:nobodyさん
05/11/02 04:35:05 8yGkDJEQ
しかし、JScript版で以下の用に記述した場合、
'Owner' は Null またはオブジェクトではありません。と表示されます

<%
var strFile = "C:\\Sample";
var objWMIService = GetObject("winmgmts:");
var objFolderSecuritySettings = objWMIService.Get("Win32_LogicalFileSecuritySetting='" + strFile + "'");

var objSD;

varintRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD);

if ( intRetVal == 0 ) {
Response.Write( "Ownerは[" + objSD.Owner.Name + "]" );
} else {
Response.Write( "Couldn't retrieve security descriptor." );
}
%>

JScriptで記述した場合、何故objSDはundefinedになってしまうのでしょうか？
どなたかこの現象の原因のわかる方どうか解決方法のご指示をお願いします。
ｍ（＿＿）ｍ

187:nobodyさん
05/11/02 09:07:57
>>186
> var objSD;

JScriptの場合、これだけでは定義したとはいえない。
この状態で objSD の値は null 兼 undefined

188:nobodyさん
05/11/02 09:10:34
>>184
Response.ContentType を明示的に宣言してる？

189:186
05/11/02 09:56:01 8yGkDJEQ
>>187

レスありがとうございます。

自分ではGetSecurityDescriptor()にobjSDを渡せば、
内部でobjSDに対して何某かのインスタンスが生成されて
情報がセットされ戻ってくると思い込んでいたのですが、

それはつまりGetSecurityDescriptor()に渡す前に、
既に何某かの型でインスタンスを生成してobjSDに参照させていないのが
今回の原因ということでしょうか？？

190:nobodyさん
05/11/02 19:01:42
>>184
ブラウザのキャッシュを空にしたりすると動きが変わるかも知れない
それを差し引いてもAcrobatReaderの設定は揮発するから微妙なところだな

んで他のシステムではAcrobatReaderを何に使ってる？
他の同様のシステムではPDFがブラウザでちゃんと表示できてるのであれば
>>188氏の言うとおり、ContentTypeでapplication/pdfを明示的に指定することで
うまく行くようになるかも知れないと思われ

191:nobodyさん
05/11/02 20:33:25
>>186
JScriptには参照渡しが無いからそういうメソッドは使えねえべ

192:nobodyさん
05/11/02 22:59:56
>>189
>>191氏も言っているがJScriptにおける代入は "=" のみ。
関数の引数は全て読み込みのみになる。つまり値渡しか使えない。
関数の中で引数の値を変更しても、外には出れない。

193:184
05/11/02 23:46:26 jsGUnMcJ
>>188 >>190
どうもありがとうございます

>>Response.ContentType
Response.ContentTypeはapplication/pdfを指定しています。

>>キャッシュ
IEのインターネットオプションでキャッシュを削除してみたところ、
1台のみpdfが表示できるようになりました。
しかし、表示できるのは初回のみで、
2回目以降は表示できませんでした。
また、no-cacheの指定もしてみたのですが、
この指定をしてしまうと初回時に表示することが出来なくなってしまいました。
（Microsoftのサポートページにキャッシュを制限する指定をすると
ダウンロードダイアログが表示されてしまうという既知の問題が載っていましたので、
おそらくこれが原因だと思われます。）

また、他のシステムで実際にpdfが使用されているのかはよくわからないそうです。
しかし、やはり環境を変えたくないという事と、
端末は各店舗にあり、使用しているのはパソコンの素人であることから
Acrobat Readerのアップグレードはしたくないそうです。

長くなりましたので2つに分けます。

194:193続き
05/11/02 23:47:30 jsGUnMcJ
以上のことにより、代替案を考えてみました。

DBからバイナリデータを読み込み、一時ファイルとしてサーバーに書き出す。
そのファイルに対してリダイレクトを行う。

というものなのですが、この案にも問題があります。
1.ASPには標準ではバイナリデータの書き出しが出来ないので、どのようにして一時ファイルを書き出すのか。
2.pdfには個人情報が含まれているので速やかにファイルの削除をしたいが、
pdfの読み込み終了を待ってからファイルの削除をすることが出来るのか。
の2点です。

1に関しては、ADODB.Streamというものがあるそうですが、
現在ではセキュリティの問題上、IEでは使用することが出来ないそうなのです。
色々調べてみたところ、BASP21というものが存在し、
それを使用すれば書き出すことが出来るそうなんですが、
現在自宅に居るため確認が取れない状態です。

2に関しては、1日に一回バッチを走らせてファイルを削除することを考えていますが、
24時間という時間が「速やか」かと言われると問題があると思います。

>>184の内容、もしくは今回の代替案に関して
こうしたらいいのではないかという意見がありましたら教えていただけないでしょうか？

195:nobodyさん
05/11/03 11:31:14
>現在ではセキュリティの問題上、IEでは使用することが出来ないそうなのです。

その書き出しはサーバ内で行われるものでしょ？
IE関係ない。ADODB.Streamで普通に出来る。

>2.pdfには個人情報が含まれているので速やかにファイルの削除をしたいが、
>pdfの読み込み終了を待ってからファイルの削除をすることが出来るのか。

普通に考えると出来ないね。
他の方法を考えた方が良さそうだな。

あとはダメ元でcontent-disposition:attachmentとかを使ってみると
関係無さそうだけどまた状況が変わるかも…

つかそれ以前にその状況って、pdf直リンクならちゃんと開けるのか？
Content-typeをちゃんと設定してバイナリ吐くんだったら
クライアント側に流れるパケットはpdf直リンクとほぼ同じになるはずなのだが？
直リンクでちゃんと開けるのであったら…本気で解決したいなら
etherealとかでpdf直リンクの場合とバイナリ出力aspの場合の
それぞれのレスポンスヘッダをキャプチャして違いを見てみて、
違いがあったらバイナリ出力aspにヘッダを追加する。
それが一番手っ取り早い。

196:nobodyさん
05/11/03 11:35:02
>>194
AcrobatReader5 のブラウザ内表示は悲惨なんだよ。
「Web表示用に最適化」がONになってるPDFをブラウザ表示させるとページが落丁したりする。

Adobeのサポートページに色んな情報があるから見てきな。

197:nobodyさん
05/11/03 11:37:29
>>193
PDFのブラウザ表示はクライアント側の設定に依存するから
サーバ側でどんなにやったって無理なものは無理だよ。

198:186
05/11/03 20:35:58 KtvlL72l
>>191,192
レスありがとうございます。

そしてJScriptに参照渡しが無いことを始めて知りました...orz
当たり前に存在するものだと...orz

するとJScriptではGetSecurityDescriptor(引数)に値する処理は、
行えないのでしょうか？

それともまったく別の記述方法でならDACLに値するものを取得することは
可能なのでしょうか？

199:184
05/11/06 23:28:23
レスが遅くなってしまって申し訳ありませんでした。

皆さん色々なアドバイスどうもありがとうございました。
SEと相談し、結局SEが何かしら対策を考えるから今のまま作っていくことになりました。
色々アドバイスを頂いたのにもかかわらずこんな結果になってしまいましたが、
とりあえずはこのまま作っていきます。

本当にどうもありがとうございました。

200:nobodyさん
05/11/07 20:19:05
>>199
いや、元々システムの設計としては間違ってないんだよ。
AcrobatReader 5.0の動き、ひいては
そんな微妙な動きをする時代遅れの古いバージョンを使い続ける…というのが良くない。
IEやOSのバージョンが上がってるんだからプラグインもバージョン上げていかないとねえ。

まぁｶﾞﾝｶﾞﾚ

201:nobodyさん
05/11/10 16:34:58 l71/uwis
ASP.NETを使い始めたばかりで、今試行錯誤しながらテストしているのですが、HPを作る際に
画像を貼り付けたのですが、ftpでweb上にアップロードし、確認しようとしてみてみると
画像やコンボボックス等のオブジェクト類が一切表示されていません
ﾂｰﾙﾎﾞｯｸｽのWEBフォームからオブジェクトを持ってきたのですが、HTMLのオブジェクトだと
表示されるようです。
.netによるデバック時は表示されているのですが、　web上だと表示されないのは何かが
足りないからかと思うのですが、わかりません。
漠然としていて申し訳ないですが、「これがないとダメポ」というのはありますか?
XMLファイルが無いのですが、これって関係ありますか?

202:nobodyさん
05/11/10 18:10:20
【質問】ASP.NETスレ Part2【議論】
ｽﾚﾘﾝｸ(php板)

203:201
05/11/10 19:15:00
ありがとう。そっちに逝ってきます

204:668
05/11/11 11:39:15 CsKh1TLX
リストボックス内のすべての値をRequest.Formにて取得したいのですが、
現状セレクトされている値しか取得できません。
どうすれば、取得することができるのでしょうか？

205:nobodyさん
05/11/11 19:54:32
>>204
Javascriptのテクニックになるのでスレ違いだが
submitする直前にselect のmultiselectをonにして
全optionをselectedにしてからsubmitすればいい。

206:668
05/11/13 11:23:37 GnU/8u4f
>>205
ありがとうございます。
やっとできました。

207:nobodyさん
05/11/17 16:29:44
以下のbatファイルをASP化しようと思っています。

cmd /c net user vaio > I:\temp\test.txt

VBS化のソース↓
Dim WshShell
Dim rtnCode
Const SW_HIDE = 0
Set WshShell = CreateObject("Wscript.Shell")
rtnCode = WshShell.Run("cmd /c net user vaio > I:\temp\test.txt", SW_HIDE, True)
If rtnCode <> 0 Then Error rtnCode
というVBSは成功しました。
でもここからASPにできません。方法ってないですか？

208:nobodyさん
05/11/17 19:58:09
<%@ Language=VBScript %>
<html>
<head>
</head>
<body>
<%
' 処理がとまってしまう
' DOSコマンドでも同様
Dim WSHShell
Set WSHShell = Server.CreateObject("WScript.Shell")
WSHShell.Run "notepad.exe", 3, false 'メモ帳を起動します。
' Microsoft VBScript 実行時エラー (0x800A01A8)<BR>オブジェクトがありません。: ''<BR>
'Dim WSHShell
'Set WSHShell = WScript.CreateObject("WScript.Shell")
'WSHShell.Run "notepad.exe" 'メモ帳を起動します。
' Microsoft VBScript 実行時エラー (0x800A0046) 書き込みできません。: 'MsgBox'になる
' MsgBox "メモ帳を起動しました。"
%>
</body>
</html>

209:208
05/11/17 19:58:44
考えられる原因は？

210:nobodyさん
05/11/17 20:30:17
>>209の書き方がちょっとカチンとくるがヒントを出してやるか

>>207-208ともに
ASPのスクリプトがサーバ内でどういう権限で動作するかって所を考えよう

>>207はWMIを使うという選択肢もあるかも。
>>208は…そのページにアクセスするとサーバでメモ帳を立ち上げたいのか？
意味が分からん。

211:208
05/11/17 20:41:09
>>210

ありがとうっございます。
サーバ処理の概念がいまいちわかってないかもしれません。

WMIを検索して勉強してみます。

212:208
05/11/17 22:32:37
うーん。

ASPでCMD処理って敷居高いのかな。。。VBの時はすんなり出来たんだけど。

213:nobodyさん
05/11/17 23:32:08
>>212
敷居が高いの使い方がまちがっている

まあ、アクセス権限だな

214:nobodyさん
05/11/18 00:17:36
最強に強まっていいのなら
IWAM_USERをAdministratorsグループにぶち込めば
大抵の事は可能になるが。

215:nobodyさん
05/11/21 17:03:41
どうしても分からないことがありますので、どなたか教えて下さい。
以下のsampleソースを参考にメール送信フォームを作成したんですが、
CCにて、複数の宛先に送ることができません。（Toは固定アドレスです。）

参考にしたURL：URLﾘﾝｸ(narita-system.co.jp)

ASP（VBScript）部分をこんな風にしてみたんですが、objNewMail.Cc = 変数;変数とすると、
読み込みエラーを起こして、表示自体ができなくなります。

objNewMail.Ccに1つの変数のみなら正常に送信できます。

この例でいきますと、objNewMail.Ccにて変数：nameと変数：bossに送りたいのですが、どうすれば良いのでしょうか？
どうか、よろしくお願いします。

<%
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.From = Request("mail")
objNewMail.to = "XXXX@XXX.XXX.XXX"
objNewMail.Cc = Request("name");Request("boss")
objNewMail.Subject = Request("name") & "さんのご意見"
objNewMail.Body = Request("comment")
objNewMail.Send
Set objNewMail = Nothing
%>

お願いします。

216:nobodyさん
05/11/21 17:20:15
objNewMail.Cc = Request("name") & "," & Request("boss")
やないの？

217:nobodyさん
05/11/21 17:33:40
>>216
あっさり、できました！！！ありがとうございました！！
感謝します！！！

218:nobodyさん
05/11/24 01:17:36
DBからデータを取得して、
Office XP Webコンポーネントを使用して、
2軸のグラフを表示したいのですが、

どこか参考になるサイトありませんか？

219:nobodyさん
05/11/24 01:31:43
>218
[OFF2003] [HOWTO] Office Web コンポーネント (OWC) のプログラミングに役立つ各種情報とサンプル
URLﾘﾝｸ(support.microsoft.com)

220:nobodyさん
05/11/24 01:39:55
>218
サーバー側のグラフ作成機能を使用してグラフを動的に生成する方法
URLﾘﾝｸ(support.microsoft.com)

221:nobodyさん
05/11/24 10:31:12
あちこち調べてみましたがわからないので教えていただきたく。

WinServer2003+IIS6.0とOracle10gを組み合わせた
ASPのシステムを作ろうと思っています。

一つ問題がありまして、DB接続認証時にオーバーヘッドが発生しています。

> Set OraSession = CreateObject("OracleInProcServer.XOraSession")
> Set OraData = OraSession.DbOpenDatabase("DB01", "test/test", 0)

上記の処理を走らせるとOpen時に約3秒ほど待たされるのですが
これは解決の方法はあるのでしょうか？

IIS5.0の場合だと一瞬で処理が完了します。何か違いがあるんでしょうか？

222:661
05/11/27 10:29:06 j0DdBp+E
今、会社でASPの開発でInterDev6.0を使用しているのですが、
左側に行数を表示するできないのでしょうか？

223:nobodyさん
05/11/28 08:01:03
左側？

224:nobodyさん
05/11/28 23:20:24
>>222
行番号を表示ってことでしょ？
使ったこと無いから分からんが。

225:バッカーです ◆KeuXjwWDdE
05/11/29 01:26:36
インターデブ。あれ、何がいいのか未だにワカラン。
とりあえず行番号なら多分なかったと記憶してるよ。

226:nobodyさん
05/11/29 16:44:32
InterDevはサーバ側のVBScriptの部分と
クライアント側のJavascriptの部分の両方で
キーワード色分けが出来るのは良かった。
あと現在オープン中の全ファイルからの検索＆置換。

とか言いつつも結局今はsakura使ってるがｗ

まあ少なくともデザインビューは100%使ってなかったな。

227:nobodyさん
05/11/29 20:40:46
色分けに関してはPeggyシリーズがとても良い

228:nobodyさん
05/11/30 18:15:34
最近、Perl・PHPからASPをやり始めたんですが、
ASP(VBScript)についてどうしてもわからないことがあります。

フォームからのPOSTデータを Request.Form() で
取得してるんですが、どうやら100KB以上のデータは
Form では受け取れないことに気づきました。
100KB以上のデータをPOSTする際には
どのように取得するのが一般的なんでしょうか？
（例え100K以下のデータを送信する場合でも、100Kの制限がある時点で、Form は使いたくなくなります…）

調べたところ、100K以上のデータを扱う場合には
data = Request.BinaryRead(Request.TotalBytes)
で取得できるとあったんですが、このデータをどう展開していいのかわかりませんでした…。

すみませんがご教示願います。

229:nobodyさん
05/11/30 21:26:15
まあ普通どんな長文だとしてもブラウザのtextareaに
原稿用紙みっちり埋めて128枚分は書かないからなあ。
あんまり大量のデータだったらファイル添付かな。

Request.BinaryReadで取得したデータはバイト配列なので
基本的にvbscriptではまともには扱えない
（まともじゃないやり方が無いわけではないが）。
VBとかCでDLL作って処理する用だね。

230:228
05/11/30 21:34:55
>>229

レス有難うございます。
なるほど、まともに扱えないんですね…
100KB を意識しつつ Request.Form() を使うことにします。

もう一つ不明点が出てきました。

フォームのチェックボックス（name="checkbox"）を受け取った場合、
Request.Form("checkbox")(1) などで要素にアクセスできるので
配列かと思い、 IsArray( Request.Form("checkbox") ) をやったところFALSE が返ってきました。
普通の配列は TRUE が返ってくるんですがこれはそういうものなのでしょうか？
チェックボックスかどうかを判断する材料が無くて困っています。

231:nobodyさん
05/11/30 21:36:29
>>228
ADO.StreamかBASP21を使って展開するのが常識になってる。

あと、これも忘れずに

Windows 2003+IIS6で200KBを超えるファイルがアップロードできない
URLﾘﾝｸ(www.hi-ho.ne.jp)

232:nobodyさん
05/11/30 21:37:53
>>230
VB配列じゃない

233:nobodyさん
05/12/01 03:07:58
>>230
なんでname="checkbox"なんだよ
適当に分かりやすい名前つければいいじゃんｗ

234:228
05/12/01 12:15:06
>>231
別のモジュールで対応するんですね。
Win2003での不具合についても情報ありがとうございます

>>232
VB配列なるものが普通の配列って意味でしょうか？
となると普通の配列とそうでないものがあるんですね。。
（というかFormは配列じゃなくてただのオブジェクト？？）

>>233
checkbox だよってのを明示的にわかりやすくしただけです。
テストでやっていたので業務ではこんなことしませんよｗ

235:nobodyさん
05/12/01 20:36:09
普通の配列で欲しければ
split(Request.Form("checkbox"),", ")
とかでそれっぽいの取れなかったっけかな

236:nobodyさん
05/12/01 20:45:37
>>234
Formはオブジェクトですな

ちなみに配列についてはVBScript上では
Variantの配列とバイナリ配列というのがあります
Variantの配列がいわゆる普通の配列で、
バイナリ配列は配列というよりただのバイナリデータの塊。
話の流れだとRequest.BinaryRead(Request.TotalBytes)で取得できるのが後者で、
文字列に近いイメージで、ADO.Stream，MidB，AscB，Hexなどを無理やり使えば
ある程度いじることは可能。

237:nobodyさん
05/12/03 00:00:48
>>234

Request とか Session は ASP Built-In Objects だから扱いが別。
Request.Form("checkbox") は IStringList ってオブジェクトだったと思う。
Count で要素数
Item(n) で各要素 (n >= 1)

フォームで送られてくるデータは name と value の組の単なるテキストだから
checkbox かどうかを判別する方法なんてそもそも存在しないよ。

238:nobodyさん
05/12/03 01:03:29
>>237
Request.Formはコレクションｼﾞｬﾏｲｶ？

239:nobodyさん
05/12/04 20:53:53
Request.Form と Request.Form("checkbox") は違う

240:NT4.0
05/12/06 15:14:51 A31iTPx+
運用してるサーバが、突然、
「HTTP/1.1 新しい Session の作成に失敗しました」というエラーは吐くようになりました
原因わかる方いましたら、お願い致します

241:nobodyさん
05/12/06 15:18:22
メモリ不足？
一回再起動してみたら？

242:240
05/12/06 16:32:32 A31iTPx+
すいません
NT4 じゃなくて、2000 Server でした

再起動したら直ったんですけど、
原因不明のままだと、チトまずいんで・・・

243:nobodyさん
05/12/06 17:11:53 XSSghKFO
教えてください。
そこそこ閲覧のあるHPを公開したとして、ソースはなるべく短くし、DBとのやりとり(ストアド等)の数を減らしたり
してあげたほうがユーザー側にも、サーバー側にも負担って少ないですよね?
aspx.vbのソース行数を見ると1000行を軽く突破する勢いなんですが、多すぎますか?
ちなみに目標は１日1万ページビューで、SQL-SERVER+XPです

244:nobodyさん
05/12/06 17:48:36
>>242
セッションが新規作成できないくらいに、メモリ使ってるとか？
メモリを使って開放してないとか？

>>243
そこそこの定義がわからん。
1000行なんてコンマ何秒の処理だろ。

245:243
05/12/06 17:50:50
>>244
わかりにくくて申し訳ないです。
そこそこ=目標は１日1万ページビューです
ちょっと安心しました

246:nobodyさん
05/12/06 17:51:32
>>243
aspx.vbはスレ違いだが…
まあソースは短いに越したことは無いが、
1000行程度ならそう長い訳でもないだろう。
ASP.netならなおさらクラス定義やなんやかんやでソース上で行数食うしね。

DBとのやり取りも回数を減らすに越したことは無いが、
大抵はそれより「途中で無駄なデータを発生させない」ように
気をつけておいた方がいい。
たとえば20件ごとに表示するのに、データ全行取り出して
要らない部分を空読みしてスキップ、
というようなことをやるとデータが増えるにしたがってたちまち重くなる。

247:nobodyさん
05/12/06 19:00:09
ソースが短いからといって負荷が軽いとは言えない。

248:nobodyさん
05/12/06 21:58:25
asp.netってコンパイルするんでしょ？
じゃぁ1000行なんて余裕でしょ。

多少長くても、定義やセッションの切断とかを明確に書いた方が早いことが多いよ。

249:nobodyさん
05/12/07 00:47:24
>>248
実はレガシASPも実行時はコンパイルされてるぢょ

250:nobodyさん
05/12/07 11:04:22 Q9Fd97MO
a　=　Split(b,　",")
nCnt　=　0

'　EOFまでループ
Do　Until　OnjRS.EOF

　'　DBからの値を格納
　hoge　=　NVL(ObjRS.Fields("hoge_id").Value,　0)
　
　'　配列aのnCnt番目の値が、DBからの値と同じ時だけ、cに代入
　If　a(nCnt)　=　hoge　Then
　　c　=　"ifの中"
　End　If

　OnjRS.MoveNext

Loop

a(nCnt)部分でエラーが出ます。
過去ログなどから、UBoundで配列の最大要素番号を指定してから出ないと
エラーになることはわかったのですが、
実際、どのように書いたらいいのかわかりません…。

251:250
05/12/07 11:36:40
解決しますたm(__)m
激しく勘違いを…(((;ﾟДﾟ)))　ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ…

252:228
05/12/07 17:23:06
すみません、レス遅れました…

>>235
カンマ区切りの文字列を分解して配列にするイメージっすね。
チェックボックスがチェックされていなかったり、
一箇所のみチェックだったりしても split はエラーを返さないんですね

>>236
なるほど、やっぱり二種類あるんですね…
いまいち二種類を使い分ける方法がよくわかってません。
恐らくその種類によって使えるメソッドも変わるんでしょうね…

>>237
checkbox かの判断の意図は、
チェックボックスかがすぐわかれば、それでループかけて
どこがチェックされてるか調べることができるのかなと。
（PHPでは連想配列で入ってくれてたので、キーの指定だけで判断できました）
みなさんはどうされてるんですかね？？
（というか普通はどうするものなんだろう…）

何か簡単なフォームASPのサンプルって転がってないですかねぇ…
VBScriptがなかなかなじまない…

253:228
05/12/07 17:34:56
結局のところ、フォームからのクエリを処理するために、
Request.Form の値を、
Set Query = CreateObject("Scripting.Dictionary")
とした連想配列（オブジェクト？）Queryにコピーしてから処理してます。

一般的にクエリを取得する場合は、Request.Form の 100KBの壁は無視されるのでしょうか？
それとも、ADO.Stream か BASP21 のようなツールを使って
Request.BinaryRead(Request.TotalBytes) からちゃんととるのでしょうか？

それと、ASPで連想配列を使いたい場合は、
Set Query = CreateObject("Scripting.Dictionary")
が一般的でしょうか？
また、連想配列の連想配列の場合は、
-----
Dim a1, a2
Set a1 = CreateObject("Scripting.Dictionary")
Set a2 = CreateObject("Scripting.Dictionary")
a2.add "key", "value"
a1.add "key", a2
Response.Write( a1.item("key").item("key") & "<hr>")
-----
な感じでやっています。
（変なことしてないかな…

すみません、ご指摘いただければと思います。

254:nobodyさん
05/12/07 19:51:07 +pnCfHBy
流れをぶった切ってADSIの質問をさせください。

ASPでユーザー認証を行うため、以下のプログラムを作成しました。
環境はWin2003サーバーとFreeBSD＋Samba3.0＋OpenLDAPで、
ドメインに信頼関係を持たせています。
以下のプログラムはSambaの握っているOpenLDAPを覗きに行っています。

strPath = "LDAP://xxx.xxx.xxx.xxx/ou=AAA,dc=BBB,dc=CCC"
strUser = "ユーザー名"
strPassword = "パスワード"

Set objDSO = GetObject("LDAP:")
Set objUser = objDSO.OpenDSObject( strPath, strUser, strPassword, 1)

どこをどう変えても動きやがりません。エラー '80072032'とのたまいます。

また、普通に
Set user = GetObject("LDAP://～～適当に～")
としてuser(sambaSamAccount型)を取得した場合に

name = user.Get( "cn" )

とするとユーザー名が取れるくせに、

pass = user.Get( "sambaNTPassword" )

とするとエラー '8000500c'
ディレクトリのデータ型と、ネイティブ DS のデータ型を相互に変換することはできません
とのたまいやがります。

どなたか同じようなことで悩んだ方、よろしくおねがいしやすｍ（＿＿）ｍ

255:nobodyさん
05/12/07 22:18:10
>>228
複数のcheckboxがある場合はASPでは>>235みたいにするのが普通だと思う。
splitの後にisArrayで配列になったかのチェックをすればいい。

それと、おせっかいだとは思うが
Dictionaryは確かに便利だがその使い方は無駄だと思う。
Dictionaryを入れ子にしたりして美しくデータを確保してる余裕があったら
さっさとResponse.Writeしていくべき。
基本的にWebプログラムの振る舞いの一般論として
一つのスレッドで大量のメモリを確保するような設計は推奨されない。

それと100KBの壁にずいぶんこだわっているようだが
一体どんな使い方をしようとしているのか？
普通に使っていて一つのinputで100KBに達することは
まず無いと思うのだが。

>>254
cn=ユーザ名, を加えればいいんじゃない

256:228=252=253
05/12/08 00:07:26
>>255

ご指摘ありがとうございます。
Split の後に isArray、参考になります。

PHP,Perl-CGI で書く時は、フォームのチェックボックス名の
連想配列を作って、そのキーがあるかないかで判断していたので
ASPでも同じ手法でやろうとしてました。

Dictionary等でデータの格納方法に気を使うよりは
素直にprintしてくって指摘も一理ありですね。。

また、100KB についてですが、確かにファイルアップが無ければ
滅多に超える容量ではないとは思うんですが、100KB の制限が
あるものを使うのも設計上どうかと思ってます。
どのようなフォームでも大丈夫なように、制限の無いものがあるのであれば、
あらかじめそれを使いたいってのが本心です。
でも実際のところはどうなのかな？と疑問に思ってました。
別のモジュールが必要だったり、制限があっても気にしないのが
ＡＳＰとして一般的であれば、それに越したことは無いので。。

257:nobodyさん
05/12/08 21:04:01
BASPのFormメソッド使うやり方だと
100KBの壁を超えられるのかも･･･？

バグが無ければだけどﾅｰ

258:nobodyさん
05/12/09 19:40:03
ASPのフォームでメールアドレスを入力させるときに
ドメインがちゃんと存在するかをチェックしたいと思っています。
VBScriptにMXレコードを見るなどのモジュールは存在しますか？

259:nobodyさん
05/12/09 21:28:20
>>258
あるべ。VBScriptにはないけど。

260:nobodyさん
05/12/09 22:28:32
標準で頑張るには裏でWScript.Shell使ってnslookupを実行する、
とかになるのかな？

261:258
05/12/12 15:52:11
>>260
ありがとうございます。
標準ではnslookupからひくしかないんですね。
戻り値の判断が非常にむずかしそう…
>>259
VBScriptではきついってことでしょうか？
何か方法があれば教えていただけると助かります

262:nobodyさん
05/12/13 06:38:36
>>261
VBScriptにはネットワークにアクセスするメソッドがないからね

BASP使ってSocketで何とかするか…
またはVBでDLL作っちゃっても良さそうだけどね

263:nobodyさん
05/12/13 21:54:09
>>261
DNSから引くって考えるより、実際にメールを送信してみた方が早いかも。
ドメインがなければサーバエラーを受け取れるし。

264:nobodyさん
05/12/16 14:00:18 ys2aEO8I
初歩的な質問かもしれませんが

フォームで価格を送信して貰う→数字以外の値が入力されていた場合、エラー表示
ができません。

TypeName関数では無理だったのですが分かる方いたら教えて下さい。

265:nobodyさん
05/12/16 18:50:57
>>264
isNumeric

266:nobodyさん
05/12/16 19:57:23
>>264
isNaN

267:nobodyさん
05/12/17 02:17:00
>>265-266
できました
本当にありがとう

268:nobodyさん
05/12/24 16:15:38
特殊文字「"#$%&'()」のような文字を弾く（エスケープ）するには、
HTMLEncodeを使用する以外の方法はあるんでしょうか？

269:nobodyさん
05/12/24 18:06:46
>>268
つString型

270:nobodyさん
05/12/24 20:17:32
>>268
そういう特殊文字をどうしたいの？
textboxとかに入力されたそういう文字を何とかしたいのか、
そういう文字を画面に出したいのか、
querystringで渡すときにおかしくならないようにしたいのか、
input type=textの初期値として設定したいのか。
「特殊文字を弾く」なんていう日本語では何をしたいのか全く通じない。

>>269
VBScriptにそんな型なんかねえよ

271:nobodyさん
05/12/24 21:47:32
>270
まぁまぁ。
TypeName("aaa")は"String"を返してくるんだし。

272:nobodyさん
05/12/25 02:25:45
>>270
君のような融通のきかない馬鹿はエンジニアとして失格。

273:nobodyさん
05/12/25 07:52:31
>>272みたいに融通を利かせてしまう奴が
東証のシステムみたいなのを作ってしまうんだろうな。

274:nobodyさん
05/12/25 11:42:36
>>273
なるほど。>>270が融通のきかない馬鹿な使えないエンジニアであることは
認めるわけですな。ご苦労さん。

275:nobodyさん
05/12/25 11:44:05
>>273
え？東証のシステムのどこがおかしいの？
おかしいのは周辺の人間であってシステム自体は至極まっとうなもの。

やっぱお前だめだよ。まともなシステムに関わったことないんだね。
ｶﾜｲｿｽ

276:nobodyさん
05/12/25 18:50:40
なんか香ばしくなってきてるな。

>>270の指摘は、言葉はくどくて感じ悪いが言っている事は至極真っ当だと思う。
>「"#$%&'()」のような文字
って、確かにどれもアルファベットや数字の類ではないけど
それらを十把一絡げに「特殊文字」と呼んで「弾く（エスケープ）」
と言われても何についてのことだか分からない…。

277:276
05/12/25 18:57:56
なんか傍から見てると
>>270=言葉遣いがきつく対人能力は低そうだが仕事は細かい使えるPG
>>272=大雑把な雰囲気だけ指図して満足、
　　　　　その後PGから指示漏れを指摘されると逆切れして相手を馬鹿扱い…
　　　　　という使えないSE
みたいに見えるんだけどｗ

しかも
>>274 11:42:36
>>275 11:44:05
これ明らかに>>272の自演だろｗ

278:nobodyさん
05/12/25 23:10:43
>>277
いや、自作自演じゃないよ。自作自演つうのは自作自演だと
ばれないようにやるのが自作自演なわけで。しかも>>275は>>274に
対するレスでもないし。

やっぱ馬鹿の集まりってのは一味違うねぇ。

279:nobodyさん
05/12/25 23:24:07
この板も早く強制ID制になってほしいものだ

280:nobodyさん
05/12/25 23:45:05
>278
バレバレの自作自演なんて数えられないくらい存在する
今回のも非常に分かりやすいな

>>272=>>274=>>275=>>278

281:nobodyさん
05/12/26 22:51:19
そういえばここって強制IDじゃないんだよね。
さすが過疎板の代名詞

282:nobodyさん
05/12/29 14:08:54 W4CzIrpP
お初で失礼します。
PHPプログラマですが既存のシステムを大人の事情でASP5.0 on IIS5.0への移行を行うことになりました。

だいたい言語仕様やアーキテクチャの仕様を調べたのですが
一つ大きな問題に直面してしまいました。
ASPsessionIDをクッキーでなく、自動でform内にhiddenで埋め込むことはできるのでしょうか？
(GETで?の後につけてはいけない)
クッキーoffでもセッションを使えるようにしなければならないというのが当初からの命題の一つなのです

283:nobodyさん
05/12/29 17:35:44 BZLcPqC6
>>282
普通にできる
hiddenで埋め込んだ値をPOST送信か Session 変数を使えばOk

284:nobodyさん
05/12/29 21:03:25
>282 ちなみに ASP3.0 な

285:nobodyさん
05/12/29 22:37:15
ん？
Session変数はクッキーで渡されたIDをキーにサーバの値を使うものだから
クッキーレスでは使えないぞ。

それをやるとしたら…うーん。
DB使うか、ApplicationにFreeThreadedDom突っ込んで
そこにデータを出し入れするかかな。

でも実のところHiddenの防御力はCookie以下だということは
認識しておいた方がいいかと。
書き換える気になればquerystringを書き換えるのと大して変わらないので。

286:nobodyさん
05/12/30 01:45:46
>>285
確かに純粋にはくクッキーの一つだけど
でもIEのクッキー設定を無視するからクッキーoff環境でも問題ないよ

287:nobodyさん
05/12/30 03:26:10
IEならどうにでもなるんだけどね…
クッキーレスを要求するっていうことはすなわち
それ以外のブラウザでも使えるようにって要件ではないかと思われる

288:nobodyさん
06/01/01 19:02:30 Vw/N6o5Y
ディレクトリ再帰検索の降順表示について質問します。

＜やりたいこと＞
①特定のディレクトリの下位階層を無制限に再帰検索して展開表示
②ボタンで判別して最上位ディレクトリのみ表示か、すべて再帰的に展開表示するか選択
③表示されたディレクトリに対してonClickで開閉することが可能
④ソート機能（ディレクトリ名降順表示）

①～③についてはソースAで動作しますが、④で四苦八苦しています。
ディレクトリ名の降順表示はソースBの仕組みを使ったり、BASP21のソート機能等も検討しましたが、
問題は入れ子のものを展開していくなかで、途中上位のディレクトリに戻るので
動的配列を使っても展開中で再定義するとおかしくなってしまいます。
ちなみにリアルタイム性と速度を求められるので、テキストやDB格納は現段階では考えておりません。

どなたかアドバイスお願いします。

289:nobodyさん
06/01/01 19:04:32 Vw/N6o5Y
＜ソースA＞
<%

strPwd = Server.Mappath("./")
BTN = Request.Form("BTN")
x = 0

If BTN = "開く" Then
BTN = "閉じる"
strCatDisp = "display:block;"
Else
BTN = "開く"
strCatDisp = "display:none;"
End If

%>

<script language=JavaScript>
function ClickShow(catid){
if(document.getElementById){
if(document.getElementById(catid).style.display == 'block'){
document.getElementById(catid).style.display = 'none';
} else {
document.getElementById(catid).style.display = 'block';
}
}
}
</script>
<form method=POST>
<input type=submit name=BTN value='<%=BTN %>' class=submit>
</form>

290:nobodyさん
06/01/01 19:06:01 Vw/N6o5Y
<%

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Call DirSearch(strPwd)

'ディレクトリ検索
Sub DirSearch(TmpDir)
Set objDir = objFSO.GetFolder(TmpDir)
Set objSubDir = objDir.SubFolders
x = x + 1
For Each objSD In objSubDir
Response.Write "<span style='cursor:hand' onClick=ClickShow('cat" & x & "')>" & vbCRLF
Response.Write objSD.Name & vbCRLF
Response.Write "</span>" & vbCRLF
Response.Write "<br>" & vbCRLF
Response.Write "<div id=cat" & x & " style='" & strCatDisp & "'>" & vbCRLF
Call DirSearch(TmpDir & "\" & objSD.Name)
Response.Write "</div>" & vbCRLF
Next
End Sub

Set objSubDir = Nothing
Set objDir = Nothing
Set objFSO = Nothing
%>

291:nobodyさん
06/01/01 19:06:50 Vw/N6o5Y
＜ソースB＞

<%

Dim strFile()
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
Set objFiles=Fs.GetFolder("C:\winnt\system32").Files
ReDim strFile(objFiles.Count-1)
For Each objFile In objFiles
tmp0=objFile.Path
For J=I-1 To 0 Step -1
If tmp0 < strFile(J) Then
Exit For
Else
strFile(J+1)=strFile(J)
End If
Next
strFile(J+1)=tmp0
I=I+1
Next

For I=0 To objFiles.Count-1
Response.Write strFile(I) & "<BR>"
Next

%>

292:288
06/01/01 19:09:55 Vw/N6o5Y
忠実に再現しようと思ったら、長くなってしまいました・・・orz
長文失礼しました。よろしくお願いします。

293:nobodyさん
06/01/01 22:50:12
>>288
速さのためって言ってるけど。
毎回全フォルダ情報をクライアントに送りつけるっていうのは
フォルダ階層の数によるがかなり重くなると思う。

俺は子への展開時にAjax使って取り直し、みたいな形で実装したことがある。

そうしないとしたら、再帰関数内で
①フォルダ内の全子フォルダを関数内の局所配列に取得
　　（ソートするならその時に）
②その配列からフォルダ名を順に取り出し、DIVを表示して再帰
とすれば大枠変えずに出来るんじゃないか。

ちなみに
>>問題は入れ子のものを展開していくなかで、途中上位のディレクトリに戻るので
>>動的配列を使っても展開中で再定義するとおかしくなってしまいます。
動的配列の再定義を繰り返すとか文字列の追加追加っていうのは
VBScript on ASPでは禁止事項。
そうやってでっち上げると忘れた頃にパフォーマンス劣化の原因になる。
VBScript上の変数にバッファリングしようとは思わないこと。
生成したデータを片っ端から表示していけるようなアルゴリズムにするのが原則。

294:288
06/01/02 20:27:19 N1rmW7hx
>>293
アドバイス有難うございます。

>>そうしないとしたら、再帰関数内で
>>①フォルダ内の全子フォルダを関数内の局所配列に取得
>>　　（ソートするならその時に）
>>②その配列からフォルダ名を順に取り出し、DIVを表示して再帰
>>とすれば大枠変えずに出来るんじゃないか。
①は再帰的に格納するということでしょうか？
再帰するのはDIV表示が終わってからではなく、表示させる前段階で再帰処理する必要があります。
だからといってソートしている最中に再帰する方法だと動的配列の再定義をせざるを得ません。
（が、うまくいきません）

>>俺は子への展開時にAjax使って取り直し、みたいな形で実装したことがある。
クリック時のフォルダ展開は言い忘れてしまいましたが、画面遷移しないという要件なので、
確かにAjaxが適していると思います。XMLHttpRequestで試してみます。ヒント有難うございました。

295:nobodyさん
06/01/03 16:07:07
>>294
>>①は再帰的に格納するということでしょうか？

いや、そうじゃなくて単階層。
再帰関数の引数は妥当な線だとあるフォルダのパスでしょ？
関数の流れをざっと書くと
１．まずそのフォルダの子フォルダ一覧を配列に取得する。
２．必要があるならソートする。
３．親フォルダのDIV開始タグを書く。
４．そしてfor～nextで子フォルダ配列をなめながら再帰。
５．親フォルダのDIV終了タグを書く。

こんな感じでやりたいことが出来るのでは？ということ。

296:nobodyさん
06/01/04 13:03:07 O9dUywF6
大量のデータを1ページに50件ずつ1行ずつ表示させる時って、
みなさんはどうしてますか？
今のところ、全データをとりあえず取得して、
Doループで回してるのですが、
どうも負荷が大きすぎて…。

DBの方での質問なのかなとも思ったのですが、
とりあえず。

よろしくお願いします。

297:nobodyさん
06/01/04 13:36:35
>>296
漏れはこんな感じでやってる（実際はもっと細かいチェックがいろいろと）
他にもっといい方法無い？
Dim conn, rs
Dim CurrentPage, i
Const DefaultPageSize = 50
CurrentPage = Request("P")
If CurrentPage = "" Then
　CurrentPage = 1
ElseIf IsNumeric(CurrentPage) = False Then
　CurrentPage = 1
Else
　CurrentPage = CLng(CurrentPage)
End If
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
（厨略）
conn.Open
rs.PageSize = DefaultPageSize
rs.AbsolutePage = CurrentPage
rs.Open
Do Until rs.EOF Or i > DefaultPageSize
　Response.Write(rs.Fields(0).Value)
　Response.Write("<br>")
　i = i + 1
Loop
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing

298:nobodyさん
06/01/04 22:17:29
DBがPostgreSQLだったらOFFSETとLIMITを使えば簡単。
SQLServerでも取得するデータ列にユニークなキーがあれば
TOPとnot existsを駆使することで、結構負荷軽めに
レコードセットの中間だけ取り出す事が可能だよ

299:nobodyさん
06/01/05 12:18:06
なるほど。

300:nobodyさん
06/01/05 16:56:41 KdflC/KD
VBScriptで、自分のPC(Win2000)をサーバーにして作業をしています。(この書き方おかしかったらすみません。)

Excelの既存ファイルを開き、データ書き込み、別名で保存ということをしています。
その時、作業フォルダとは別に、Cの直下に、作業フォルダ、開いたファイル、保存したファイルの3つのショートカットができるんですけど、なぜなんでしょうか？仕様ですか？

301:nobodyさん
06/01/05 18:09:35
>>300
そんなショートカット出来たこと無いぞ

302:nobodyさん
06/01/05 18:41:21
>>300
Officeいくつ？
あと、ASP越しにやってるの？それともWSH越し？

303:nobodyさん
06/01/05 22:34:33
>>296　
開始位置の格納
ページカウンタの格納
DBオープン
rs.AbsolutePosition = 開始位置

[ループ開始]

　開始位置=開始位置+1
　If 開始位置 = (ページカウンタ * １ページあたり表示件数 + 1) Then ループ抜ける

[ループ終了]
ページングのためのリンクを表示

304:nobodyさん
06/01/05 23:21:52
>>303
それは普通の方法だから重いのでは？

305:nobodyさん
06/01/06 00:10:03
しかし全体の行数がものすごく多かったりする場合は
ひょっとするとReadForwardOnlyのレコードセットで空読みするより
素直にランダムアクセス可能なレコードセットを使う方が
結果としては速くなるやも知れんな。

やってみたこと無いから分からんけど。

306:300
06/01/06 09:03:43 1e+7Xjcv
レスありがとうございます。
>>301
そうですか･･･。
>>302
officeは2000です。
後半意味がわかりませんが（すみません）、wsfは使っていないので、ASP越しだと思います。
後、マクロを含んだExcelだと別名保存ができません。
参照設定なども必要なのでしょうか？

以下、ソースです。
<%
Dim XL
Dim XB
Dim OpenFile
Dim SaveFile
Set XL = Server.CreateObject("Excel.Application")
Err.Clear
On Error Resume Next
OpenFile = Server.MapPath("./TEST.xls")
SaveFile = Server.MapPath("./TEST1.xls")
XL.Visible = False
Set XB = XL.Application.Workbooks.Open(OpenFile)
XB.ActiveSheet.Cells(1,1).value = "AAAA"
XB.ActiveSheet.Cells(1,2).value = "BBBB"
XB.Application.DisplayAlerts = False
XB.SaveAS SaveFile
XL.Quit
Set XB = Nothing
Set XL = Nothing
%>

307:nobodyさん
06/01/06 21:31:41
>>306
ASPでOfficeとかShellとかのユーザ的なCOMを操作するのはMSのサポート外。
つまり何が起こっても文句は言えないということ。

ASP越しだとカレントディレクトリや%TEMP%変数の概念がShellと全然違うから
C:\直下に一時ファイルができたり削除されなかったりするのは仕様かもね。

308:300
06/01/07 10:51:35
>>307
ふむぅ・・・。そうなんですか。
最終的には、DBからデータを取得して、Excel開いてデータを書き込んで、
マクロ起動してグラフの表示ってことをしたいのですが、前途多難ですな。
ファイルを開くのや、マクロの起動のサンプルを拾って、アレンジしながら試しているのですが、
全く思ったように動いてくれません。

309:nobodyさん
06/01/07 14:31:30
>>308
ASPでグラフ表示はVMLを使うのが普通

310:nobodyさん
06/01/08 06:31:53
>>309
そうでもないよ

311:バッカーです ◆KeuXjwWDdE
06/01/08 20:30:42
棒グラフなら単純に画像の横や縦の設定だけでいいんじゃないの？
ビローンと伸ばすかギュッと縮めるかっつーことで

312:300
06/01/09 08:51:14
スキルアップもかねてということで、Excel操作ができるようにと、提示されているのです。
VMLって、IEのバージョン限定でしか使えないんじゃないですか？

次ページ