==ASP== Part 3

ASP について語るスレ その3

【過去スレ】
==ASP== Part 2
http://pc2.2ch.net/php/kako/1028/10280/1028024916.html
==ASP==
http://pc.2ch.net/php/kako/984/984840107.html

つ旦~

<% Response.Write "乙" %>

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

この放置っぷりはどうよ！？
もう誰もASP使ってねーな、こりゃ。

質問も無いみたいだし、書き込むことないなあ。
サーバサイドの話だから、プログラム板で吸収してもらうわけにもいかんし。
ASP.Netのスレを旧ASPの話題もオーケーにしちゃおうよ。

ageてみる

さびしい

http://homepage.mac.com/hiroyuki44/hankaku02.html

削除依頼出しとけよ

なんで？

不要だから

>>12 は初心者。

>>13は厨房

>>14は台所

>>15はコック

>>16は魚肉

ASP

>>17はソーセージ

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

便利なエディター教えてください。interdeveloperだと面倒だす。
いろいろ自分でも探してるんですが、全部html向けばかりで、
独自タグを追加できるといってもasp向けに作れなかったり、とほほです。

super tag 32 pro がasp向けの独自タグでも作れますね。
いまのところこれが一番いい感じです。

何だか寂しい場所なので、何気に質問を投稿して盛り上げようとしつつも
実は藁にすがってみる(涙)

ASPからCreateObject("Excel.Application")を使って
マクロ付きExcelファイルを開きブック内のマクロをキック。
処理終了まで微妙に待ってから終了するという単純な処理を作ってまして。

それが突然動作しなくなってしまったのです。

次の投稿でソースを貼りますが、そのソースを流した結果、ErrMessageには
　Excelマクロ起動時のエラー : マクロ 'test.xls!Md_test.TestMacro' が見つかりません。
と入っています。つまりオープンできているのにマクロが呼べない状態です。
ちなみにExcel側にはそのマクロは存在します。
サーバ上でExcel単体で動かすと正常に動きます。

以下、ソース：１／２
================================================================================
　Set bobj = Server.CreateObject("basp21")
　'Excelオブジェクトの作成
　Set ObjExcel = CreateObject("Excel.Application")
　ObjExcel.DisplayAlerts = False
　ObjExcel.Visible = False
　'xlsブックを開く
　ObjExcel.Application.Workbooks.Open Server.MapPath("xls/test.xls")

If Err <> 0 Then
'--- Excelファイルのオープンに失敗している
　ErrMessage = "Excelオープンエラー : " & Err.Description
End If

If ErrSts = 0 Then
　'１０秒間待ってからtest.xlsのマクロを起動する
　'BASP21のSleepコマンドでブックを開いてからマクロを実行するまでウェイト
　bobj.Sleep 2
　ObjExcel.RUN("test.xls!Md_test.TestMacro")

　If Err <> 0 Then
　'--- マクロの起動に失敗している
　　ErrMessage = "Excelマクロ起動時のエラー : " & Err.Description
　End If
End If

以下、ソース：２／２
================================================================================
If ErrSts = 0 Then
　'１０秒待ってからtest.xlsを閉じる
　'同様にマクロの処理が終わるまでの時間を校了してウェイト時間を設定しています。
　ChkFlag = False
　ExcelStat = ""
　Do Until ChkFlag = True
　　bobj.Sleep 1
　　ExcelStat = Trim(ObjExcel.Workbooks("test.xls").WorkSheets("Control").Range("A1").value & "")
　　If Len(Trim(ExcelStat)) > 0 Then
　　　ChkFlag = True
　　End If
　Loop

　If Err <> 0 Then
　'--- Excelを閉じる終了処理で失敗している
　　ErrMessage = "Excel終了時のエラー : " & Err.Description
　End If

End If

　ObjExcel.Application.Quit
　Set ObjExcel = Nothing
================================================================================

イベントビュアーに以下のエラーが記録されます。
　製品{0001041(略)} 機能 'ExcelUserData' コンポーネント{(略)} の検索に失敗しました。
　リソース HKEY_CURENT_USER\Software\Microsoft\Office\9.0\Excel\UserData がありません。

これは「OLE通信しろって言うからExcelを動かそうとしたけど、その機能を動かす為の
紐付けキーがレジストリ上で見つかりませんなぁ」という事らしいのですが、何故こうなったのか
全くわかりません・・・。

試しに「IUSR_<マシン名>」のパスワードをわざと変更してログインしてみると確かに
HKEY_CURENT_USER(略)は存在しませんでした。
IUSR(略)の状態でExcelを起動すると、初回起動のセットアップ画面が開いて何やら処理が行われ
その後Excelが正常に起動されます。するとHKEY_CURENT_USER(略)が登録されました。
その状態で処理を行うと、エラーなく正常にASPで処理できたんですが、今度はIUSR(略)でログイン
している状態でないと処理できなくなってしまいました（！）
これでは何となく怖すぎます。

何が原因なのか、回避策は何なのか、なんでも結構です！
お願いです、誰か・・・何か知恵を貸して下さい・・・

セーラー服の少女と３Ｐ。なんともうらやましい光景です。
オマンコは小ぶりながらもビラビラ大きめで相当使い込んでいる様子！
オッパイの方も手ごろな大きさで揉み応えありそうですよ。
ローターで喘ぎまくっちゃうところなんか感度よすぎ！
無料ムービーをどうぞ。
http://www.pinkschool.com/

ASPをやることになったよ
今から勉強だー
１から勉強するのにどっかいいサイトない？

このあたりでサンプルを漁りながら覚えていくと良いんでないかな？
http://www.f-store.net/asp/home.asp

PictureBoxコントロールに書いた絵をJPEGやPNG形式で
メモリーブロックに保存できるDLLってありませんか？
APIのMoveMemoryで取り出して使いたいのです。
ファイル保存するDLLならいくつかあるのですが・・。

最終的にCOM化してIISのBinaryWriteでアクセスカウンターの画像を
サーバー上で生成してサイトに表示するのが目的です。

一旦ファイル化してメモリーに読み込む方法だと
効率が悪そうなので。

宜しくお願いします。

ここで聞いていいのかわかりませんが、
MSのグループボードって使い心地どうなんでしょう？
レポが乗ってるところとかあれば教えてください。

ファイルがASPなのでカスタマイズも楽？

いろいろ探してみたのですが見つからなかったので、質問させてください。
111-2222-3333という文字列(電話番号)があった場合、
11122223333という文字に変換したいのですが
どのようにすればよいのでしょうか？
-以外の文字を切り出すという方法ができるのでしょうか？
よろしくお願いします。

>>32
Tel = "111-2222-3333"
Tel = Replace(Tel, "-", "")

>>32
ASPは言語ではないですがOK?

意味不明

ASP.NETは.NETフレイムワークを使っていてASPとは違う部分も多分にあるので
次スレは
ASP.NET & ASP
という感じの名前にしてほしい。

了解

来年の話をしとるｗ

>>36
ASP.NETのスレあるんだけど。

【質問】　ASP.NETスレ　【議論】
http://pc2.2ch.net/test/read.cgi/php/1040698263/

セッション変数に配列を格納しようと思い、以下のURLを参考にしたのですが、
http://www.microsoft.com/windows2000/ja/server/iis/default.asp?url=/windows2000/ja/server/iis/htm/asp/vbob12d0.htm

LocalArray = Session("StoredArray")
ここで型が一致しません。とのエラーが出ます。
option explicitを指定していますので

dim LocalArray()
redim LocalArray(5)

を追加しています。
おそらく、サンプルは動くのでしょうが、配列で宣言しちゃうといけないのでしょうか・・・？

自己レスですが、むかついたのでvariantで宣言してとりあえず動くようにはしました。
dim LocalArray
しかし配列で宣言するとアウトなのはなぜ・・

>>40-41
Sessionはコレクション型なので配列に値を格納するにはFor eachを使う。
しかし、バリアント型にセッションをまるごと代入しているのは正解。
配列にセッション変数を格納しなおしたい場合はやはりFor each。
セッションの中身は
Session("StoredArray")(1)
Session("StoredArray")(2)
・・・・・・・・・・・・
Session("StoredArray")(n)
というコレクション。

>42

むぅ。そうだったんですか。sessionに対する私の理解が浅かったようです。
どうもありがとうございました。

自社では動くASPが客先にいれたところ、下記のエラーが
発生しました。

Microsoft VBScript コンパイル エラー エラー '800a0400'

ステートメントがありません。

*.asp, 行 31
With Request



又は、
Microsoft VBScript コンパイル エラー エラー '800a0400'

ステートメントがありません。

*.asp, 行 49
With objCon
^

考えられる理由は何かありますでしょうか？
script language="vbscript" runat="server"
にすれば、特に問題ないはずですよね。。

各ASPファイルの先頭の記述は下記の様になっています。
Option Explicitの位置を疑ったのですが、
改善されず。お手上げ状態です。
誰か助けて。

<%@Language="VBScript"%>
<%Option Explicit%>

WithってVBScriptのバージョンによっちゃサポートされてないんじゃない？ 自社と客先のIISのバージョンは同じ？ まずはWithを取り除いて実行してみたら？

>44-45
http://www.microsoft.com/downloads/details.aspx?FamilyId=C717D943-7E4B-4622-86EB-95A22B832CAA&displaylang=ja
http://www.microsoft.com/downloads/details.aspx?FamilyId=0A8A18F6-249C-4A72-BFCF-FC6AF26DC390&displaylang=ja

>>46-47
VBScriptのVersionは一致してないです。
IE5かWindows scriptのパッチを入れさせる事を提案してみたいと思います。
ありがとうございました。

以下のような環境でエラーが出ます。
＜環境＞
　Ｗｉｎｄｏｗ２０００　Ｓｅｒｖｅｒ　ＳＰ４
　２台（ドメイン設定なし、ワークグループ）
　　※便宜上片方をＡ、片方をＢとする
１）ＡのマシンのＩＩＳにてＷＥＢサイトを構築し、ＡＳＰを配置
２）Ｂのマシンに共有フォルダを作成し、画像ファイルを保存
３）ＡのマシンのＡＳＰ内でＯＣＸを使用して、２）で保存したＢマシン
　　の画像ファイルにアクセス・・・でエラーが発生

＜エラー内容＞
TESTOCX (0x800A03EB)
Failed to open file \\hostname\image\001 for reading.
System error message was 'An unknown error occurred while accessing
\\hostname\image\001.'
/test/Default.asp, line 20

ローカルディスクを触るようにすればエラーは起きないです。
（サービスパックを適用する前は動いていたような気もしています）

どなたかご存知であればお知恵を拝借したいです。

OCX？

とりあえずBの共有とNTFSのアクセス権を確認しろ

>49
net use * \\hostname\image

>>50＆51
ありがとうございます。
早速明日試してみます。

ASPとデータベースにACCESSを使ってＷＥＢアプリ作ろうと思います。
データ量は１２万レコード／年になるのですが耐えられるでしょうか。
フィールドは１６個で、全てテキスト１０文字以内です。

教えて下さい。

>>53
だいじょうぶ。
それに、
For i=1 to 120000
rs.AddNew
rs.Fields("〜")="String"
rs.Fields("*")="String2"
・・・

rs.UpDate
if EndFlg=1 then End
DoEvents
Next
とすれば簡単に12万レコードの実験用データベースが作れるじゃん

>>53
キミはプログラマの才能が無い

ASP可のいいレンタル鯖ないですか？

>>53
ASPでAccess使うやつは糞。
検索すれ

53みたいのがプログラマになっても迷惑だから

質問なんですけど、
ASPでサーバー内の「WEBから参照できないフォルダ」にあるローカルファイルをWEB上で表示させるやり方を教えて下さい。
以下のやり方でやると

<% @Language=JScript %>
<%
var fs = new ActiveXObject("Scripting.FileSystemObject");
var gazo = fs.GetFile("c:\\Ａ.jpg");
%>
<img src="<%= gazo %>" width="80" height="60">

イメージタグのソースが「img src = "C:\A.jpg"」となって失敗してしまいます。
どうしても出来ない場合の妥協案として、
ローカルフォルダからWEB用フォルダに画像をコピーする方法も考えています。
でも負荷を最小にしたいので、できればこの方法は避けたいです。
どなたか解決方法を教えて下さい。

>>59
http://www.kawabata.ksi.ne.jp/view/Default.asp?a=printable

こういうやつ？

ソートのためだけにデータベースをつかってるのはオレです。

あ　お
い　え
う→う
え　い
お　あ

Order By 〜 Desc

ASPはテキストエディタで手軽に作れていい。
ASP.NETをテキストエディタで作るのはちょっとたいへん。

>>60さん
あ、多分こうゆうやつです。
早速試してみます。ありがとうございます。

>61
1次元配列ならクイックソート使え
http://tuka.s12.xrea.com/index.xcg?page=VBS#p16

>>59
Webから参照できないフォルダの画像にどうやってWebからアクセスさせるか？

と、

ブラウザは、HTMLを解釈してどうやって画像を表示するのか？

を勉強しる！

ちなみに負荷を考えたら、Web用フォルダに画像をコピーするのがベストです。

>>64
あるフォルダに入っているファイルを名前順の反対の順にならべてブラウザに表示したいのだ。

zabc.jpg
ggie.jpg
abcd.jpg
みたいな順に。

>66
ん？entryに好きなように入れるだけだが。

Const FilesMax = 1024
Dim entry()
ReDim entry(FilesMax - 1)
If fs.GetFolder(ToaruFolder).Files.Count > FilesMax Then Response.End
i = 0
For Each f In fs.GetFolder(ToaruFolder).Files
entry(i) = f.Name
i = i + 1
Next
ReDim Preserve entry(i - 1)

あとはソート結果を逆順にするだけだが別に難しくは無いだろ。

#最初"CMD /C DIR /B /O:-N"の結果を取ろうとしてハマったのは秘密。
#安全な風穴の開け方忘れた。

横レスだけどBASPのReadDirが一番手っ取り早いような。
もし使えるのならだけど。

>>67
ちょっとおれにはむりだなぁ。アルゴリズムをつかって降順から昇順にするのに骨がおれそうだ。
>>68
BASPはEUCコードをシフトジスに変換したり、メール送信などに使用してる。
ファイル名を昇順にするメソッドがあるというのならBASPのメソッド一覧をこれから調べてみる。

include fileで..親パスへの参照が動いていた（おそらく2ヶ月前は）のですが、
突然動かなくなりました。include virtualで解決するのはわかったのですが、
何もしていないはずなのになぜこうなったのか、わからないので、
もしかしたらwindows updateによって仕様変更になったのかと思ったのですが、どなたか詳しいかたいらっしゃいませんか？

enableparentpathの設定を1にすると動くらしいのですが、レジストリに書き込んで再起動しても、
同じ症状のままです。仕様変更で無視するようになったのでしょうか？
あとなぜかaspの設定がかかれているレジストリのパスには設定が何一つありませんでした。
これは正常ですか？

かなり困ってるんですが、

ネットワーク内のマシンによって、Workbook.Open(filename)で止まるという意味不明な状態になってるんですが、
誰かわからないでしょうか？

IISのログには、Lockかけに逝って500エラー・・と解析すらできず・・・

再現できなくてほとほと困っております、、、

はあ？
状況も環境もさっぱりわかりません。
念のため聞くけど、クライアントでExcel開こうとしてる話じゃないよな。

初心者スマソ．．．

ASPってクライアントのブラウザに依存するの？
VBSで書いたらIE以外ダメとか．．．JSならNNとかでもOKよとか．．．
処理するのはサーバ側なんだから、クライアントの環境には依存しないようにも思うんだけど。

サーバから出されるHTMLの中に、VBSとかJSが含まれてたらアウトなのかな？
VBSとかJSを含まないHTMLを出すように作れば、ブラウザには依存しないのかな？

勘違いがあるかも知れないけど、良く分からないのよ。

>73
概ね合ってる。自信を持つよろし。
Webアプリの場合はサーバとクライアントがひとつのマシンって時もあるが、それはさておき。
クライアント側からすればサーバはクライアントに文字を吐き出すだけ。

71が混乱しているのを見ての関連か？ウチも72の解説の通りとおもっているが。共有フォルダに置いたファイルロックと同じく。

sage

URL Encodeの反対のメソッドはなんですか？

普通の文字→URL文字→また普通の文字に戻したい

Encodeの反対はDecodeだろ

>>77
ありがとうございます。

そんなメソッドあったか？ｗ
BASP21のBase64メソッドでいけたはず。

ASPページを開くときにエラーが発生した場合、ページがエラー表示になりますが、
たしか途中までの実行結果を表示するオプションがサーバにあったはずなのですが、
度忘れしてしまいました。調べてもなかなかわからず・・・。
どなたかどこをチェックすればよかったのかおしえていただけないでしょうか・・・。

>>79
わかりました。

SQL Serverのimage型にASPを使って画像を保存する
には、どうしたらよいのでしょうか？

何だかASPスレって寂れてますね。
ASPやっている人って自分も含めて変わってるのかな…

どなたかご存じでしたら教えてください。

ブラウザからの条件指定によって、サーバで[タイムスタンプ].csv
というCSVファイルを作成し
そのCSVをwindow.openで別ウィンドウに表示（またはDL）させています。

で、表示も保存もできるようにはなったのですが
このときサーバに作成されたCSVを消すタイミングがありません。
とりあえずサーバ側の定期タスクで一定時間を過ぎたら
消すようにしてあるのですが、できれば表示が済んだら消したいのです。
どういう手を使ったらいいでしょうか？

1. 条件をQueryStringで取り、CSVをResponse.Writeで出力するASPを作成
2. window.open で 1 のASPを開く

以上

>>85
素早いレス、どうもありがとうございました。
そうか、バッファにreadallしてから削除しちゃって
そのあとoctet-streamでresponse.writeするんですね。
助かりました、納得です。
どうもありがとうございました。

おっと、これだと保存ファイル名が*.aspになっちゃうのか、、、
仕方ないですよね、、、これは目をつぶってもらうことにします

>>87
Response.AddHeader("content-dispositioin", "attachment; filename=newfile.txt")
とかすると変えることできる＞保存ファイル名

リストボックスで選択した値をＡＳＰプログラムに渡す方法を教えて頂きたいのですが？

>>73
ブラウザに依存しないからＡＳＰ

>>89
自分で勉強汁

>>73
> サーバから出されるHTMLの中に、VBSとかJSが含まれてたらアウトなのかな？
> VBSとかJSを含まないHTMLを出すように作れば、ブラウザには依存しないのかな？

その通り。

>>89
<form action="xxxx.asp" method="POST">
　<select>
　　<option value="1">男</option>
　　<option value="2">女</option>
　</select>
</form>

これでASPに渡せるよ。method="GET"でもOK。

>>93
ありがとうございます。早速ためしてみます。

セレクト文で得たレコードセットをHTMLの画面に一覧表示したいのですがどうしたらよいでしょうか？

ループで回して、レスポンス.ライト（藁 で出力する

>>95
Do while not rs.eof
response.write rs.fields("データベースフィールド名") & "<br>" & vbcrlf
rs.movenext
loop

do
response.write w
loop

Functionに渡すデータでたとえば0900とすると
Functionでは900になってしまうのですが、
どうにかならないでしょうか？
よろしくお願いします。

ﾊｧ?

Function baka(a)
　Response.Write a
End Function

Call baka("0900")

間違いなく 0900 が表示される

データ型を指定してみたらいかがでしょうか？

オブジェクトでwebprogだとプログラム同士の相関関係がわけわかんなくなってどうにもならない。

でもページ間のデータのやりとりとかネットでプログラムするにはやっぱＡＳＰがやりやすい？

それにしてもデバッガのないプログラムって辛い。
ＡＳＰにもＶＢみたいの欲しいよ。

>>103
．ＮＥＴじゃないの？

SessionIDについて教えてください。

SessionIDはタイムアウトするか明示的に破棄するまでは同じ番号が帰ってくると思うのですが、
Windows2000Professionalで動かしているIISの１台のマシンでのみ、アンカーで遷移しただけで
SessionIDが変わってしまうと言う現象が発生しています。
SessionIDが変わってしまうため、セッション変数が利用できない状況になっています。

一度そのマシンでIIS付属のSMTP Serviceを停止したところ、
SessionIDが変わらないようになったのですが、
場所をかえて（お客さんの元に返却した）やってみると、
またSessionIDが変わってしまい、Session変数を利用することができなくなっています。

このような症状に出会った方はいませんか？
なにか解決方法をご存知の方はいませんか？

お願いします。

サーバー名に _ （アンダースコア）が含まれてない？

>>106
えっ！
含まれてました。

>>106
は
>>105
へのリプライですよね？

>>105
は

>>106
で教えていただいた通り、ホスト名から_（アンダースコア）を外したら、
上手くいくようになりました。

ありがとうございます。＞>>106

IE6では、サーバ名にアンダースコアが含まれているとCookieを受け付けないらしい。
だから毎回新規のSessionになってしまうんだね。

PerlのライブラリやPHPのインクルードのように汎用関数を別ファイルに
まとめるにはどのようにすればよろしいのでせうか？

>>110
Include
Server.Execute
Server.Transfer
の3つがちょっとずつ機能が違うが役立つ。
<%
Server.Execute "別ファイル.asp"
%>

なるほど。サンクス。

質問があります。調べたけどどこにもなくて・・・。
basp21のFormSaveAsでファイルをクライアントがサーバにアップするシステムを
開発してるんです。
でも、ローカルで動かすとうまくいくのに、サーバにシステムをアップして
動かすと-3のエラーがでる。
サーバの設定かなと思っていろいろ許可だしたんだけどダメで・・・（TT)
検索しても出てこないんですよ。
誰か分かる方、ご教授ください。

>>113
フォルダに書き込み許可を出してもファイルが書き込めないなら
ファイルサイズが大きいためかもしれない。
ASP.NETならweb.configに文を追加すれば2GBまでのファイルをアップできる。

>>113
誰に許可だしてんの？
たしかIUSR_XXXだけじゃだめぽなはず。

>>113
早く死んでね

>>113
そのフォルダのセキュリティタブをチェックしたら

-3なんだからわかるっしょ

ASP+SQLServerでサイト構築している物です。
以前に見つけたサイトなんですが、ASPに特殊なキーワードを入れて
SQLServerのデータを消すことができる、警告を記したサイトを見つけたんですが、
どこだったか忘れてしまいました。
どなたかご存知のかた教えていただけないでしょうか。

内容は=やら,やら特殊文字を入れてデータを消すSQL文を意図的に作り出す方法のものです。
詳しく技術的ないように踏み込んだもので、本を紹介するようなサイトではなかったです。

>>119
特殊なキーワードじゃない、ただのＳＱＬ文のチェックミスだろ？

select * from 会員 where password='***' or 1=1 --'

とかで動くようにして会員認証を通すとかそういう奴

>>119
Accessならこんな脆弱性↓が存在してたがSQLサーバは知らないな．．．
http://www.trusnet.com/advisories/jetshell/jetshell.txt

>>119
ttp://www.ipa.go.jp/security/awareness/vendor/programming/a02.html

まぁ、Webやるなら ここの記事は一通り目を通しといたほうがいいよ。
ttp://www.ipa.go.jp/security/awareness/vendor/programming/index.html

>120
そうです。想像されたとおりです。特殊文字というか'とか=とか英数字と2バイト文字以外のことをいってました。すいません。
>121
と、いうことでサーバー自身の脆弱性のことではありません。申し訳ないです。
>122
僕が当初見たサイトではありませんが。より参考になるサイトでした。ありがとうございました。

ユーザーID 【hogehoge】
パスワード　【***'; DELETE FROM 会員;】

select * from 会員 where userid='【hogehoge】' and password='***'; DELETE FROM 会員;'

ASPのｾｯｼｮﾝ変数に配列を入れることはできますが
解放はちゃんとやってくれますか？

>>125
そんな基本的な事にはだれも答えないぞ

>>126
いけず〜

>>125,127

開放されるときにはいくつかの場合があるが、
Session.Abandonメソッドで開放したり、
Session.Timeoutの設定値の時間がたてば開放になるし、
ユーザがASPページを開いているブラウザをすべて閉じたりしてWebアプリを終了すれば開放が起こる。

Sessionに配列は格納できるが、Session配列のうちのある要素の値を変更する場合はまた配列変数にSession配列を格納してから行う必要がある。言ってる意味わかる？

>ユーザがASPページを開いているブラウザをすべて閉じたりしてWebアプリを終了すれば開放が起こる。

これってそうなの？ブラウザがセッションクッキー廃棄しているだけと思っていたんだけど．．．

>>129
Session.IDがクッキーに保存されているわけだからその表現も正しい。

俺がほんとの125です。

>>128
ok

自作自演はいけませんよ

何か問題ありますか？
dim buff()
buff = split(Session("hoge")(1), ",")

Microsoft VBScript 実行時エラー エラー '800a000d'
型が一致しません。

というエラーが出ます

dim buff
でOK

サンキュー＞俺

aspの質問です。

Application変数にコネクトされたデータベースオブジェクトを設定しておきます。

============= init.asp
　db = Server.CreateObject(…)
　db.Open …
　Application.Lock
　Set Application( "db" ) = db
　Application.UnLock
============= init.asp

他のASPページでApplication変数に設定されたデータベースオブジェクトを利用します。

============= sample.asp
　・
　・
　Set db = Application( "db" )
　db.Exec …
　・
　・
============= sample.asp

今までいちいちASPのページの開始時DBオブジェクトを作ってコネクト
していた時間が省略されパフォーマンスがよくなりそうですが
同時に複数のユーザーがsample.aspを呼び出したとき、
同じDBオブジェクトが利用されて排他は大丈夫でしょうか？

この場合排他がサポートされるかどうかは、Application変数に設定された
オブジェクトのクラス設計に依存するのでしょうか？

>>137
君は何もわかっていない

>>138 はげどう

>>137ネタはいけませんよ

別にネタでもなんでもないです。
なんか根本的に間違ってますか？

根本的に間違ってます

本やWebに載っているやり方なんですけど・・・

排他の心配してるとこがネタとしか思えん
ファイルじゃねーんだぞ

　db = Server.CreateObject(…)
　db.Open …

　Application.Lock
　Set Application( "db" ) = db
　Application( "five" ) = 5
　Application.UnLock

上のような初期化処理が一度だけ実行されていた場合

　val1 = Application( "five" )
　val1 = 10

この時アプリケーション変数"five"は10にはならないですね。
これは5という値をval1にコピーしてるから。

　Set db = Application( "db" )

だとアプリケーション内で共有されているオブジェクトへの参照がコピーされます。
ASPページはマルチスレッドで動いているから、各々のタイミングで"db"を操作することになるけど
その際の排他がIIS側でされるのか、オブジェクト側でされるのかが心配です。
本やwebではオブジェクトをApplication変数に入れるといいような書き方がされているのですが
そこからの疑問マルチスレッドの障害については書かれていないです。

根本的に間違っているのなら恥を忍んでお尋ねします。

>145
そこら辺はブラックボックスだから何のオブジェクトかにもよるんじゃない?ぶっちゃけ作りこみ次第。
基本的には(ASPで利用される)オブジェクト側はマルチスレッドを意識して作成される事が前提。それでIISが適当なプロセスに振りそれが排他制御する。

でも今回の件は排他制御がメインではなくてコネクションプーリングしようとしてるんだよね。
oo4oならOracleのサンプルでもその記述はあるらしいので参照を保持しておいて必要に応じて渡すのは推奨パターンなのかなと思う。(DB側がその責任を持っている)
ADOならそこら辺を省く事で代わりにやってくれるのでページ毎に切るのがセオリー。(OLEDB側が持っている)

そもそもoo4oに関しては聞きかじりだから必要ならGetDatabaseFromPoolメソッドで検索汁

>>145
dim conn
dim rs
dim SQL as string

conn=Server.CreateObject("ADODB.Connection")
conn.open("DATABASE","ID","PASS")
rs=Server.CreateObject("ADODB.Recordset")

SQL="Select * from TABLE"

rs.open(SQL,conn,3,3)'←ここをSQL,conn,3,2にすると排他ロックをかけられるから他のASPスクリプトはSQL文で開いたレコードセットをいじれなくなるぞ

rs.close
conn.close

レスありがとうです。

聞きたかったことはApplication変数に設定されたオブジェクトの排他はクラス側で責任をとるのか？
ということです。
最初の質問でデータベースオブジェクトとパフォーマンスを例に出して話をしたのが混乱のモトでした。

146氏の
>そこら辺はブラックボックスだから何のオブジェクトかにもよるんじゃない?ぶっちゃけ作りこみ次第。
>基本的には(ASPで利用される)オブジェクト側はマルチスレッドを意識して作成される事が前提。それでIISが適当なプロセスに振りそれが排他制御する。
で疑問は晴れました。
やっぱりクラスの設計依存なのですね。

>>149
やっぱり間違ってるじゃん。まあそのまま進んでくれ

>>137氏はかなりやばいと思う

スクリプトデバッガって使い物になりますか？
つかデバッガ何使ってますか？

ボクはOn Error Resume Nextを書いているので
スクリプトデバッガは必要ありません

要約するが、
手元の本によるとApplication変数にはlock unlockメソッドがあるらしい。
手元の本によるとApplication変数に比べSession変数は排他処理を必要としないらしい。
手元の本によるとSession変数はＩＩＳが自動的にフリースレッドに割り当てるのはらしい
手元の本によるとSession変数にDBのオブジェクトなどCOMを入れるのはパフォーマンス最悪らしい。

追加。
Application変数ではファイルの書き込みなどを行う場合は先ほどのメソッドを使って排他処理が必要らしい。

漏れの手元にある本にはApplication.LockってApplication変数をロックするだけって書いて有るけど．．．
どっちが正解？

ＶＢ．ＮＥＴで作成してるんですが、
メッセージボックスをjava scriptで出力して、
そのyes/noの値をＡＳＰ側に通知する方法って
あるでしょうか？

goto ってないよね？
これないとエラー処理とかつらい。try catch でもいいけど。

On Error Resume Next

If Err Then
' エラー処理
End If

On Error Goto 0

<!-- include file="a.asp" -->
<%
Set DBadb = Server.CreateObject("ADODB.Connection")
DBadb.Open "Provider=SQLOLEDB;Data Source=(local);" & _
"Database=x;User ID=y;Password=z;"
StrSQL = "select a from b"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open StrSQL, DBadb
If f((Rs(0)) Then
･･･
Else
･･･
End If
RS.Close
%>
と書いて、a.aspを
<%
Function f(p)
If p = ･･･ Then
f = True
Else
f = False
End If
End Function
%>
としたら型が一致しません f とのエラーがでます。
これってincludeの前に#が抜けているからというだけですか？

>>159
これスコープごとにしか有効にならないよね。はまったよ昔。

>>160
ここにコピペしてる暇があれば、#を付けてみればいいのに・・・

そうなんすよね。ちょっとためせなかったの。
たぶん＃で大ジョブだと思います。

＃だめだよ

できたよー
コペピ失敗したかな？
あー#じゃないとだめってこと？

ごく普通のDB（MDB）使用のアプリ、Win2000の環境でノントラブルなのに
WinXP Proに移植した途端に、DBのopen命令あたりで１日に数度
落ちるようになった。（設定上は、両OSともまったく同一）
これってM$ Access driverのバグなの？　WinXPになってから使いづらいんだけどさ

教えてください。
<input type=checkbox name=hoge value="aaa,bbb,ccc">
のようにvalueで複数の値を渡したい場合はどのようにしたらよいでしょうか？
例えば"bbb"という値は"bb,b"のような値の場合があるかもしれません。
とりあえずタブ区切りにしようかと思ったのですが
タブ区切りって大丈夫でしょうか？
一応テストしてみるとできるみたいですが・・・心配です。

Dim hoge
Set hoge = new class_hoge
Set Session("hoge") = hoge

でいいですか？
てか、ここ誰もいない？

つまらん質問しかないからだろ

(　´_ゝ`)ﾌｰﾝ

Const DATA_FILE = "C:\Inetpub\hogehoge\FIMS.INI" ' 設定ファイル
Dim fs, text, line

Set fs = CreateObject("Scripting.FileSystemObject")
Set text = fs.OpenTextFile(DATA_FILE,1,False)

Application.lock
While Not text.AtEndOfLine
line = Split(text.ReadLine, "=")
Application(Trim(line(0))) = Trim(line(1))
Wend
Application.unlock


てな、処理で設定ファイルの情報を、アプリケーション変数に入れたいのですが、、、
ずーーっと帰ってきません、OpenTextFileで止まってるようです
何か思い当たる節はないかね？

いちおうあげ







しまったファイル名をほげほげしたかったのに(-.-)

>>171
すいません自己レス。

WEBサーバのウィルスチェックソフトのスクリプト遮断機能を無効にしたら動きますた

　　　ヽ(･ω･)/　ｽﾞｺｰ
　 　＼( ＼ ノ

なるほど・・・それは意外な盲点。
誰かが勝手に入れるだけでも気づかないかも

サーバにか？

は？

いまさらだが勉強しなくっちゃ

SQLをバインド機構を使って作りたいのですが、
commandオブジェクトを使って、パラメータをセットするとできるんでしょうか？

ストアドプロシジャーを作成してそこに引数を渡すさいも、
commandオブジェクトを使ってパラメータを渡さないとバインドしないんでしょうか？

VBSでＳＱＬ文を作ってrs.Openするとバインドは使っていないんでしょうか？

バインド機構がでけた

新年ほしゅ

IIS4.0+MS SQLServer7.0で動いてたASPを
IIS6.0+MS SOLServer2000 SP4に移行したんでつが
どうしても、動かないASPが1個だけあるんです。

SQLServerに、IDを渡して、対応したオブジェクト（バイナリデータ）を
ダウンロードさせるASPであろうと思うんですが
ブラウザから、/download.asp?file_name=123みたいにして
アクセスすると、保存ダイアログでてバイナリのファイル名はでるんですけど
ファイルの種類が空欄になって、保存ボタン押すと、ダウンロードできません
ってでるんです
漏れ、ASPわからないし、作った香具師いないし・・・。

コードは、何もいじってないので、なんか設定とかが違うとおもうんですが
こころあたりないですか？
他のDBから文字をもってくるASPは動いてるんだけどなー

どうやら、ページ移動するときに
Sessionの値を忘れてるみたいなんでつ。

timeoutとか何も設定してないんですけど
IISとかの設定とか間違うと勝手に消えちゃうんですかね。

>>182
念のため聞くが同じWebサーバ内の話だよな？

あと例えばchinko.co.jpってドメイン内のクライアントからhttp://webserver1.chinko.co.jp/ってアクセスするのと
http://webserver1/でアクセスするのとでセッションは別になったような気がする。あんまり自信ないけど。

すいません、PHPはそこそこ、ASPはかなり初心者なのですが、
PHPのaddslashes関数と同じ動作をさせるには、どうすればいいのでしょうか？

≪参考までに、PHPのマニュアルから引用：addslashes関数≫
データベースへの問い合わせなどに際してクォートされるべき 文字の前にバックスラッシュを挿入した文字列を返します。
クォート されるべき文字とは、シングルクォート('), ダブルクォート("),バックスラッシュ (\) ,NUL (NULL バイト) です。

Replace(Request.Form("hoge"),"'","''")

>184

違うサーバでした。
IIS6.0のほうで動かなかったので、その部分だけIIS4.0で動かしてました
仮想ディレクトリに共有フォルダ追加すればいけそうですけど
根本的な解決になってないような・・・
結局Sessionじゃなかったのかな。

>>187
異なるサーバ間で（普通は）共通のセッションを作ることは出来ません。

ASPでJavaScriptがONかOFFかを取得することはできますか？

javascript使わなきゃわからん

質問させて下さい。
携帯用のページをASPで作っていて、indexで自動的にi、ez、voda用のページをそれぞれ表示させたいんです。

vodaの端末でアクセスした時のHTTP_USER_AGENTは何と表示されるのでしょうか？
また、端末判別をする為の文字列は、J-SKY時代の物もvodaになってから販売された物と同じ文字列でいいのでしょうか？
実機がないのでスイマセン。

>>191
携帯会社のサイトでも調べればいいだろ

教えてください
連動する二つのプルダウンメニューを作りたいのですが上手く出来ません

ネットで調べましたが配列に格納するタイプでそれぞれ３件９件程のものでした
都道府県を選ぶとそれに連動する市町村
あるいは
銀行を選ぶとそれに連動する支店が選べるようにしたいのです
データベースを使った良いサンプルなどありましたら教えていただけますか

>>193
どう考えてもASPじゃないだろ？
プルダウンで選んだ（変更した）ときに別のプルダウンのリストの内容を変えるわけだろ？
プルダウンで選んで、サブミットして、別なプルダウンを表示するわけじゃあるまい。

変更時に動くJavascriptを吐けば

id = 02057111
If right(id,1) <> 0 then id else id + 1 end if

VBScoriptで、右から１番目が０でないとき、02057111　を返し、
それ以外は、02057111に+1した02057112を返すとしたいのですが、
構文エラーとなってしまいます。
どのように書いたらよいのでしょうか？
基本的なことで大変恐縮ですがどなたかご教授ねがいます。

Function Test1(id)
If right(id, 1) <> 0 then
Test = id
Else
Test1 = id + 1
End If
End Function

ネタだと思われるが、マジレスしてみる。

はじめてです。宜しくお願いします。
参加の方法をじっくり読む時間がありませんので、まずはテストさせて頂きます。
私は学生で今オンラインショップを研究中。HTMLとかを家やっています。
Gデザインが専門なので、サイトのラフ絵はもう創りました。
そこにショッピングカートを各ページに入れますけど、ここからが問題。
問題をかかせてもらう前に、この書いてるものがちゃんとアップするのか分からないので
まずはここで終わります。
解決法をお手数ですがどうぞ真面目に宜しくお願いします。
次回続きます。

>>195
id = "02057111" ' ダブルクォートで囲むのも忘れずに！

やっと自分で書いた所にたどり着きました。
私の問題を書く所はここでいいのかもわかりません。
効率的にいきたいので、続けていいでしょうか？

>>195じゃないけどダブルクォートでくくっちゃうと
"02057111" + 1 = "020571111"になるよ。

「じゃないけどダブルクォートでくくっちゃうと
"02057111" + 1 = "020571111"になるよ。
」って、私に話をしてるのですか？？？？
もし、そうでしてら意味がわかりません。

なんか不思議な人が来たなぁ

>201

まず自分の名前が激しく文字化けしてるのに気付いてる?
それから、ASPに関係のある質問ならこのスレッドで問題ないんだけど
複数のQ&Aが同時進行してるんだから、全部が貴方へのレスではない。
例えば200は「>195じゃないけど」と書いてあるように、
195-196-198-200、という流れの中にある。

ということで質問どぞー。

やっと日本語を話して頂きまして、ありがとう。
なんだかここは私のいる所ではないようです。
私は今レンタルサーバーとショッピングカート（CGI）を研究中。
こんな私はどこへ移動すれば、私の問題を解決できると思いますか？
是非まじめにお答えください。

ああ、自分も質問したかったのに忘れてた……＿|￣|○

ページを取得して、その一部を書き換えてクライアントに渡すという、
プロキシめいた?ことをやりたいのですが、どういったコンポーネントを
使えば可能でしょうか?(できれば、フリー/製品問わず、明示的にインストールが
必要なものは避けたいです。というのも、環境の管理が自分のところではないもので)

具体的には、郵政公社の郵便番号検索サービスに関して、
・ユーザーが別ウインドウで入力した住所etc.を自動的に検索条件のテキストボックスに
　入れる
・返ってきた検索結果ページにボタンを付加するなどして、別ウインドウに結果を
　取り込めるようにする
ということをしたいのですが……

>204
CGIですとこのスレッドの趣旨とは違いますね。

△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/

か

CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/

のスレッドではどうでしょう?

有難うございます。
以上の難しい数字みたいのは、私のではなかったのですね。
是非質問をさせて頂きますが、今日は遅いので眠ります。
またよければ、来てください。
みなさん、お休みなさい。

スレを上げるとはこういうことか

>>205
そもそも何もインストールしないでやりたい、というところに無理があるが
MSXMLが入っている環境ならXMLHTTPでWebから取得できる「かも」知れないね。

１８７８２＋１８７８２＝３７５６４

>209
亀ですがどうもです。
あとADODB.Streamで無理矢理……ってのも考えましたが
手に余りそうなので止めますた(´･ω･`)
とりあえず郵政公社のデータ落としてきてローカルのDBに放り込むことにします。
……ユーザーさん更新してくれるかなー > データ

>>211
必要な郵便番号が変われば更新してくれるでしょう？
べつに追加されようが無くなろうがそれが使わない郵便番号なら更新する必要もあるまい
それは兎も角、これから大合併でいっぱい変わるんだろうな

ちょいとお伺いしたいのですが
VBScript ver5から一応クラスが作れるようになってますよね?
.NETじゃないASPで、(COMコンポーネントでない)クラス作ってる方っています?
(Sessionに入れて持ち回せるわけでなし、何に使うんだと言われると困りますが……)

四角いテキストのフォームに数字を打ち込んで欲しいのですが
<input type="text" value="" name="hoge">
受け取った時文字をはじくにはどうしたらいいんでしょうか

If TypeName(Request.Form("hoge")) <> "string" Then '文字列じゃなかったら
Response.Write "ok"
Else　'文字列だったら
Response.Write "dame"
End If

と組み込む前に試しにつくったのですがﾀﾞﾒでした。
誰かご存知でしたら教えてください。

>>214
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vsfctisnumeric.asp

>215 どうもありがとうございますヽ(´ー`)ﾉ

……なるほど誰もレスしないわけだ、と思い知らされた、今日は寒い寒い冬の日でした。
あーでもないこーでもないと頭ひねってやっとこさえたクラスが
ぜんっぜん使えないに等しいと分かったときの空しさと言ったら……

ああ、ASPなんか止めてCGIで作りてぇ。

ASP　VBscript ver5 で DOSコマンドを実行し、その結果を変数で取得する事は
可能でしょうか？

>>218
BASP21使えばどうだ？

>>217
リモートスクリプティング使うときに仕方なく使いましたが
それ以外は使ったことないですねぇ(´д｀;)

>>214
<form action="dokka.asp" onSubmit="if (isNaN(document.form1.text1.value)) {alert('数字入れろｺﾞﾙｧ！');return false;}">

>> 219

まさに求めていた以上のものです！
ありがとうございます＞＜

PHPやりたい……
J2EEやりたい……そこまでいかなくてもStrutsとか憧れる……
VBScriptはもー嫌だぁぁぁぁ

JScriptでヨロシコ

JScriptでレガシASP書いてる香具師ってどのくらいいる?
漏れは言語の好みだけ言えばJScript>>>>(越えられない壁)>>>>VBScriptなんだけど
ASPはVBScriptが常識!!っぽい雰囲気があって……
ITNAVIに一件、JScriptでASPなサイトのリンクがあるのは知ってるんだけど。

ASP.NETだが、おれはC#のサンプル見ながらJscriptで頑張ってるぞ

VBSのサンプルはメソッドとプロパティの区別が付きづらいからキライ

>226
厨でスマンけど、JScriptもMSILにコンパイルされるの?
だったらなんかいい感じだなぁ……(ｲﾐﾌﾒ

>>227 JScript.NET ならコンパイルできる

"テスト"

こんばんは。
EXCELのWorkSheet_Changeイベントに関し、EXCELのモジュールに下記のようなソースが記載されたマクロブックがあります。
このソースはSQLサーバーからのデータを4列目、5列目に表示するものです。
このマクロブックからマクロを除き、フォームだけにしてWeb Server上に掲載し、代わりにASP上で下記のようなWorkSheet_Changeソースでエクセル上の4列目、5列目にSQLサーバーからの値を返したいと思っています。
ASP側で操作するにはどのようなコードになるのでしょうか？

>>195
内部変換関数つかいなよ。バリアントは怖いよ。
Function Test1(id)
Dim strReturn
If Right(Cstr(id),1) <> "0" then 'StrCompが望ましい罠
strRetrun = id
Else
strReturn = Cstr(Clng(id) + 1)
strReturn = Right("0000000" & strReturn,8)
End If
Test1 = strReturn
End Function

えー、本日は己のさらなる厨っぷりに気付いた日でありました。
お約束さえ守れば使えるじゃねーかClass。
とりあえずカプセル化がすっきり出来るだけでも感動ものですたよ。
ということで、漏れの作ってるサイトにはけったいな拡張子のソースが
うじゃうじゃしていることになりますた。(.aspじゃなんか違う気がしたんで、
クラスファイルは変な拡張子にしてみたのれす)

>>225
会社の部門イントラDBサーバをASP(JScript)+ADO+MSSQLで構築してしまいました。
４月から異動なのですが誰にも引き継げなくて困っています。

初心者な質問です。
ASP (ASP.NETじゃなくてレガシーASP) で使えるテンプレートシステムってありますか？

てきとーに変数扱いの文字を埋め込んだテンプレートHTMLを作って、それをReadAllして、
Dictionaryオブジェクトにつっこんだ置換変数群でReplaceする、っていうルーチンは
作ってみたんですが、ループや条件分岐が入るとどうもきれいにできなくてめんどくさい。

すでに何かいいものがあったら教えてほしいです。

e-mail欄を作ってe-mail以外を入力させないようにする時は
@が入ってない時は×にすればいいんですか？

E-Mail判定って厳密にはめちゃめちゃめんどくさいらしいけど、
実用的にはこんなもんでいいでしょ。
http://www.emeditor.com/jp/help/macro/tutorial/tutorial_regexp.htm

ASPからADOを使ってmdbのODBCリンクテーブル(SQL Server2000)を参照したいのですが、
接続に失敗しました。と素っ気ない対応をされます。

何か情報があればおながいします。

ちなみにmdb内のテーブルは参照(更新)可能です。
あと、そんな回りくどいことをするなという突っ込みも勘弁してください。

>>237
考えられるのはユーザー認証くらいじゃないの？データベース接続のユーザが固定に
なってるならいいけどログインユーザを使うようになってたりすると、ＩＩＳはＩＵＳＲ＿＊の
ユーザを使うから・・・


そんな回りくどいことはするな

>>237
あ〜、漏れもそれやろうとしてダメだったことがある。
結局直接読むことにした。

結論：そんな回りくどいことをするな

キーワード検索についてなんですが
カタログという文字を検索する場合、カタログ(全角)でもｶﾀﾛｸﾞ(半角)でも
引っかかるようにしたいのですが、どのようにすればよいのでしょうか？
お分かりになる方ご教授をお願いいたします。

>>238
>>239
回りくどいことはしないことにします・・・。

>>240
SQL Serverなら、デフォルト設定は全角半角ひらがなカタカナぜんぶ同一視じゃなかったっけ？

>>240
Index Serviceなら、デフォルトで同一視だよ

ASPでテンプレートっぽいことをやってみるために、こんなの作ってみたけど、どうでしょう？
パフォーマンスはあんまり考えない方向で。
改良点とかあったらきぼんです。
要basp21（ここではMatchしか使ってないけど）

↓以下次号

-- func.inc --
Option Explicit
Function IncludeRecursive(ByVal strTemplateFile, ByRef dReplaceDictionary, ByRef fso)
　　Dim f, strLine, strOut, key, bobj, strVar, strReplaceFile
　　Set f = fso.OpenTextFile(Server.Mappath(strTemplateFile), 1)
　　set bobj = Application("bobj") 'global.asaでSet Application("bobj") = Server.CreateObject("basp21")やってます
　　Do While Not f.AtEndOfStream
　　　　strLine = f.ReadLine
　　　　Do While InStr(strLine, "$") > 0
　　　　　　strVar = bobj.Match("/(\$[^$]+\$)/k", strLine)
　　　　　　If strVar <> "0" Then
　　　　　　　　If InStr(strVar, ".file$") = 0 Then '$ファイル.file$ 形式なら
　　　　　　　　　　strLine = Replace(strLine, strVar, dReplaceDictionary(strVar))
　　　　　　　　Else
　　　　　　　　　　If dReplaceDictionary.Exists(strVar) Then ' $ファイル.file$が未定義ならファイル.tplを読む（おせっかい）
　　　　　　　　　　　　strReplaceFile = dReplaceDictionary(strVar)
　　　　　　　　　　Else
　　　　　　　　　　　　strReplaceFile = bobj.Match("/^\$(.+?)\.file\$$/k", strVar) & ".tpl"
　　　　　　　　　　End If
　　　　　　　　　　strLine = Replace(strLine, strVar, IncludeRecursive(strReplaceFile, dReplaceDictionary, fso))
　　　　　　　　End If
　　　　　　End If
　　　　Loop
　　　　strOut = strOut & strLine & vbCrLf
　　Loop
　　f.Close
　　Set f = Nothing
　　Set bobj = Nothing
　　IncludeRecursive = strOut
End Function

Function IncludeTemplate(ByVal strTemplateFile, ByRef dReplaceDictionary) 'Response.Writeするもの
　　Dim fso, strOut
　　Set fso = Server.CreateObject("Scripting.FileSystemObject") '再帰でFSOを何度もCreateObjectしないように（意味ある？）
　　strOut = IncludeRecursive(strTemplateFile, dReplaceDictionary, fso)
　　Set fso = Nothing

　　dReplaceDictionary.RemoveAll '使用済み辞書の消去（なんとなく）
　　Response.Write strOut
End Function

Function ReturnTemplate(ByVal strTemplateFile, ByRef dReplaceDictionary) '戻り値を返すもの ループ処理用とか
　　Dim fso, strOut
　　Set fso = Server.CreateObject("Scripting.FileSystemObject")
　　strOut = IncludeRecursive(strTemplateFile, dReplaceDictionary, fso)
　　Set fso = Nothing

　　dReplaceDictionary.RemoveAll
　　ReturnTemplate = strOut
End Function

こんなラッパーみたいなものいらないような気はするけどなんとなく。
2種類なくても<%= %>で戻り値表示すればいいんだけどなんとなく。

■使い方
Dictionaryオブジェクトに $変数$ ってキーをセット、IncludeTemplateを呼ぶ。
$変数$ はそのまま置換、$変数.file$ ならばファイル内容で置換。
置換ファイルのなかの変数も展開される。
以下サンプル

-- page.asp --
<!-- #include file="func.inc" -->
<%
Dim dReplace
Set dReplace = CreateObject("Scripting.Dictionary")
With dReplace
　　.Add "$title$", "ページタイトル"
　　.Add "$header.file$", "header.tpl"
　　.Add "$msg$", "本文いろいろ<br>長文でも自由に"
　　.Add "$footer.file$", "footer.tpl"
End With
Call IncludeTemplate("template.tpl", dReplace)
Set dReplace = Nothing
%>

-- template.tpl --
<body>
$header.file$
<h1>$title$</h1>
<p>$msg$</p>
$footer.file$

-- header.tpl --
<!DOCTYPE HTML PUBLIC"-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<title>$title$</title>
</html>

-- footer.tpl --
<p>けつに添える決まり文句</p>
</body>
</html>

ごめん>248の<body>の位置は間違ってるです。
サンプルその２。分岐、ループはこんなかんじでむりやり。

-- table.tpl -- おおもとのテンプレート
$header.file$
<body>
<h1>$headline$</h1>
$content.file$
$footer.file$

-- table_1.tpl -- $content.file$の中身（レコードなかったとき）
<p><img src="hoge.gif">レコードはありません。</p>

-- table_2.tpl -- $content.file$の中身（レコードあったとき）
<table>
　　<tr>
　　　　<th>項目1</th>
　　　　<th>項目2</th>
　　　　<th>項目3</th>
　　</tr>
$table_3.loop$
</table>

-- table_3.tpl -- ループ部分
　　<tr>
　　　　<td>$field1$です</td>
　　　　<td><a href="hoge.asp?id=$field2$">$field2$</td>
　　　　<td>「$field3$」</td>
　　</tr>

-- table.asp --
<!-- #include file="func.inc" -->
<%
strSql = "SELECT * FROM テーブル"
Set rs = Db.Execute(strSql)
If rs.EOF Then 'SQL投げてなにも返ってこなければ
　　With dReplace
　　　　.Add "$content.file$", "table_1.tpl" 'なにもないよメッセージ
　　End With
Else 'レコード返ってくれば
　　Do While Not rs.EOF
　　　　With dReplace
　　　　　　.Add "$field1$", Server.HTMLEncode(rs("field1"))
　　　　　　.Add "$field2$", Server.HTMLEncode(rs("field1"))
　　　　　　.Add "$field3$", Server.HTMLEncode(rs("field1"))
　　　　End With
　　　　strLoop = strLoop & ReturnTemplate("table_3.tpl", dReplace)
　　　　rs.MoveNext
　　Loop
　　dReplace.Add "$content.file$", "table_2.tpl" 'テーブルあった場合
　　dReplace.Add "$table_3.loop$", strLoop 'ループ結果を入れる
End If

With dReplace
　　.Add "$title$", "テーブル一覧"
　　.Add "$header.file$", "header.tpl"
　　.Add "$headline$", "テーブル表示サンプル"
　　.Add "$footer.file$", "footer.tpl"
End With
Call IncludeTemplate("mail_top.tpl", dReplace)

長々とすみません。どっかのうぷろだ使ってやるべきだったか……
SubとFunctionの使い分けしないクセとかもあって失礼。
初心者なのでなんとなく作ってみましたが、こういうのは誰かがもっとマシなの
どっかで作ってるんでしょうね。

う、table.aspで読んでるのがぜんぶrs("field1")だとか、
table_3.tplで閉じ</a>がないとか、
なんとなく書いたサンプルなんで変なツッコミどころが多い……
table.aspのDb開いたりするあたりはなんとなく省略。

あげ

誰かこのソースにコメントしてあげてください。
見所があるなら（ﾟÅﾟ）ﾎｳとか。
どうしようもないんなら(´ﾟc_,ﾟ` ) ﾌﾟｯとか。
アドバイス出来ることがあるなら細かく書いてあげるとか。
ASPを利用してる技術者の皆さんにが推敲してあげれば
便利で汎用的な部品になるかもしれないじゃないですか。
ぼくは毎日仕事の始めにこのスレをチェックし、
そのたびにﾚｽがついてないのを見て
「あぁ、今日もﾚｽついてないのか・・・」
「あ、空ageだ･･･」
と思って心を痛めてきたんです。
お願いだから、誰か役に立つﾚｽをしてあげてください。

オレは読むのﾒﾝﾄﾞｲんでパス。

>234
すまん。251でお前さん自身も書いてるけど、
zipかなんかにまとめてうｐろだに上げてくれん?
レガシASPでテンプレートは漏れも欲しいと思ってたんだけど
今気力無くて、コピペすらしんどいんだわ。頼む。

aspを使用したページを検索でひっかける為には
hoge.htmlにincludeさせたらできますか？
それともどうやっても無理なんでしょうか。

>>256
13点。
もう少し日本語を勉強するか、質問スキルを上げましょう！

>>251 >>255
お待たせしました。
あれからだいぶいじったので、少し整理してうぷろだに上げてみました。
http://2ch.cafenet.jp/clip/img/653.zip

いちおう、変数置換・インクルード・ループ処理・式評価の機能があるつもりです。
仕様も実装も完全に思いつきですが、
なにぶん素人がみようみまねで作ってるんで、
見所があるなら（ﾟÅﾟ）ﾎｳとか、
どうしようもないんなら(´ﾟc_,ﾟ` ) ﾌﾟｯとか、
アドバイス推敲とか、どしどしおながいします。

サンプルとして、たまたま見かけた
ITmediaエンタープライズ「WebプログラミングPHP言語入門」
http://www.itmedia.co.jp/enterprise/0401/23/epn01_3.html
http://www.itmedia.co.jp/enterprise/0401/23/epn01_4.html
のPHPスクリプトをむりやり移殖してみています。

さっそくレス先まちがえた… ＿|￣|○

空age

aspって
エーエスピーていうんだよ

>258
ごめん。ダウソはしたけどまだ全然見てない。
っちゅーか今手持ちの仕事が全焼寸前。火付けたの漏れなんだけど＿|￣|○

>258
一応落として読みました。
readmeにも書いてあったけど、いかにも重そうな感じがしました(動かしたわけじゃないけど)。
けど、それよりいい方法があるかって言われると思いつかなかったりする。
汎用性を犠牲にして置換用のキー名は固定し、
キー名=文字列の単純置換をする程度なら実用性はある気はします。
つーか、今の仕事ではそういう仕様で実際に簡易テンプレートとして使ってます。

開発する人が便利に使うテンプレなのか、ユーザにメンテさせる(ユーザに対するインタフェースとしての)
テンプレなのかってのも論点にしなきゃいけないのかなーと思ったり思わなかったりしてます。
少なくとも、開発にとってのみ都合のいいテンプレートであるとしたら、それによって
レスポンスが明らかに落ちる（であろう）事なのに、「開発効率が上がります」じゃ客に言っても
通用しない気もするこの頃。
コードの変更なしにテンプレートをいじるだけで****出来ますよ。という訴求力がないと客は納得してくれない希ガス。

ほろ酔いなので何言ってるか自分でもよくわかんないわけですが、とりあえず言えることは、
ちょっと前に煽り気味のﾚｽつけといて今さらマジﾚｽすることになるとは思わなかった罠。
また気がついたことがあったら書きますよ。当分ASPの現場抜けられそうもないし。

>262
おつかれさまです。ヒマな時にでも先達の貴重な意見を期待しております。

>258
262っす。
いやー、もう盛大に燃えてるんで火事場はほっといて(ぉぃ)資料集めとか言いつつ
おっことして試してみますた。
速度を見るって意味では九九の表くらいしかやってないんだけど、
まぁまぁじゃないかな。少なくともうちの会社にあるテンプレートと称するものよりは
よい希ガス。(変数置換以外はASPコード残してExecuteするのだわ、これが)
ただ、263=254も言ってる通り、これが利点だ!!ってのがないと提案しにくいかも。
漏れの勤め先はデザイナーさんも抱えてるんで、協業体勢が取れる、ってのを
利点として上にプッシュする材料にはなるけどね。
しかし何かこう、見ててHTML::TemplateとかVelocityみたいのできねーかな……
とか思ってしまう辺り、漏れってコーヒー一杯の注文に鍋で沸かして持っていく
タイプなんだろうかｗ ﾃﾞﾓｿｰﾅｯﾀﾗｽｸﾘﾌﾟﾄｼﾞｬﾀﾞﾒﾀﾞﾛﾅ
あ、クラスのうまい使い方だけど、最近なんとなくコツがつかめてきた気がする。
googleで「VBScript Class」って全言語検索かけるとなかなか巧い例がひっかかるので
一度お試しを。

あ、>263殿、一応P(onkotsu)G(enerator)名乗って5年ほどですが、Webの世界は
まるっきりどしろーとなんで、お互い精進しましょうや。

直接アクセスできないようにする方法を教えて下さい。

<a href="dat/hagehage.zip">hage.zip</a>をクリックして参照は許して、
右クリックでURLをコピーしてブラウザのアドレスバーに
http://hogehoge.jp/dat/hagehage.zipと指定してのアクセスはゆるさない。

できればsessionに持っているログイン情報がないとき、REFERERが不正
な時に禁止したいのですが・・・

>>265
答えでてんじゃん。
http://hogehoge/download.asp?dir=dat&file=hagehage.zip
とかでやればいいし。

それより、AccessのMDBってADOからSelectするとき一旦ファイル全てをメモリに入れるんですかね？
それともファイルが論理構造になってて対象テーブルのみメモリに読みだすのかな？

何か分からなくなってきたんですが
Sessionって使わない方がいいんでしょうか。
IE以外はクッキーOFFにしたら成立しないし、下手にデータを放り込むと
サーバ資源を圧迫するからどーとか……
UUIDでも自前で生成して、毎回hiddenフィールドに仕込んで
クライアントを識別するとかした方がいいんでしょうか?

ああ、何かもうASPでサイト構築なんてできない気がしてきた……
(ASPでガンガン動いてるサイトが少なからずあることは知ってますけど)

>>267
Form（POST）で囲ってhiddenキー埋め込んで、
onclick="javascript:form1.submit();"
をすればIriaだろうが何だろうがブラウザからクリックしないとダウンロードできなくなるよ

266ですが、ここは人いなさそうなん他で聞いてきます。

>268
ごめん。漏れ<>265っす。

.NETとかいう代物も出てきて、近い将来ただのASPというのは使われなくなって
しまうのでしょうか？
今からASPで何か構築してみようと思うのですが、.NETから始めるべき？

>>271
ASPやPHPで全然問題ない

>>271
ASPはもう不要でしょ

MSがサポートしなくなるだろうから、全くの新規でASPってのは徐々に無くなっていくと思う。
ただ、
・既にClassic ASP(.NETのつかない昔ながらのASP)で、いくつかWebサイトが動いている
・そこに新たにサイトを構築したい
・マシンの管理の都合で勝手にPHPとかTomcatとか.NET Frameworkも入れられないし、
　社員のスキル、納期を考えると未経験の技術は使えない

とかゆーことになると「じゃ今回もClassic ASPでやるしかないか」となることもあるだろう。
つか、今漏れが担当してるのがそのパターン。
何かこんなん、アンチパターンになかったっけ?

ネイティブASPで十分だと思うけどな。結構色々できるし。

後でASP.NETに移行するのも簡単だし

簡単か？

ASP.NETでMS推奨のいろいろな機能を使うってのは、
本来は存在しないイベントをむりやりハンドリングする代物が多すぎて気持ち悪い、
って意見はけっこうあるね。
だからシンプルなレガシーASPとかのほうがいいとかなんとか。
シンプルなぶん、大規模開発するにはかなりノウハウが必要だけどな。

>277

>本来は存在しないイベントをむりやりハンドリングする代物が多すぎて気持ち悪い、
>って意見はけっこうあるね。

しかし、レガシASPで組んでて、
「このページをMe(thisでも$selfでもいいけど)扱いできたらなー……」
って思うことない?ないでつかそうでつか(´･ω･`)

っていうかASP.NET使うほどのWebシステムってそうそう無いぞ

ほとんどがレガシASP+ADO+BASPで十分

ちょっとVBSでのクラスを試してみようと思ったんだけど・・・
コンストラクタ(Class_Initialize)って、引数を持てないの？
初期化処理を別にやらなきゃならんなら、コンストラクタの意味がないような・・・

>280
まぁ、そうでもないよ。ほっといたらフィールドは全部Emptyだし。
Property Get(でもFunctionでもいいけど)の結果を
いちいちIsEmpty()に掛けるって何かｶｺﾜﾙｲ希ガス。
それにコンストラクタで余りややこしいことｽﾝﾅ!!ってのもあるでしょ最近。

>280
あ、蛇足だけど。
・COMコンポーネントの中にユーザーClassのインスタンスは入れられない
(例えばScripting.Dictionaryに入れるのもダメ。取り出したらプロパティもメソッドも呼べなくなってる。
Session、Applicationも無論同じ)
・逆に、ユーザーClassのメソッドetc.にCOMオブジェクトを渡すのもNG
(例えばRecordsetを渡して、メソッドの中で処理しようとしても、メソッドの中に
入った時点でRecordsetはプロパティもメソッドも呼べないモノになってしまう)
・Classの中に、COMオブジェクトを完全に封じ込めるのは可能
(プロパティの管理に、PerlっぽくScripting.Dictionaryを使うとか。
この場合、外にはDictionaryを直接見せない)

激しくガイシュツとは思うが、参考までに。

>>266
すいません。まだ理解していません。

download.aspの中身は、ファイルを読み込んでresponse,writeする処理なのでしょうか？

>download.aspの中身は、ファイルを読み込んでresponse,writeする処理なのでしょうか？

download.aspの中身は、ファイルを読み込んでresponse,binarywriteする処理なのでしょうか？
面倒なので、リダイレクトでなのとかしたいのですが？

リダイレクト出来ちゃったら直林も出来ちゃうと思うのですが。
オレは何か勘違いしてるだろうか。

>>285
確かに直林できる場所にファイルを置くことになるが、
ユーザはそのアドレスを知り得ない。

でもパケットモニタしたらわかっちゃうかも

ステータスバーに表示されちゃうんとちがう？

需要があるのかどうかわからないけど、テンプレートライブラリをver upしました。
http://2ch.cafenet.jp/clip/img/829.zip

不具合を細かく直したほか、クラスにまとめてカプセル化してみました。
これでだいぶすっきりしたと思います。
計測したりしてませんが、重さも思ったほどたいしたことないみたいだし
これぐらいなら汎用で実用になるんじゃないかな？

テンプレート関係の関数とDB操作関係の関数がごちゃまぜに
同じクラスになってるのがかっこわるい気もしますが、
自分の今回の用途としてはこれで便利なので、とりあえずこのまま。

いまさらながらPHPのSmartyの存在を知って資料を眺めてみましたが、
PHPでプリプロセッサを作ってさらにPHPファイルを生成する、って発想は
なかなかおもしろいですね。めちゃめちゃ高機能だし。

でも高機能すぎて参考にならないやって思って他をあたってみると、
PHP4 テンプレートクラスライブラリ改 (http://www.daiwakantei.co.jp/pc/tmpl2sa.html)
ってのはけっこう手ごろなかんじです。方向性がちょっと似てるっぽい？
今回はこれを参考にしてメソッド名を変更しました。
もっと早く知ってたら、いろいろ実装をパクったのになぁ。

余裕があったらASP+VBSで移殖してみたいけど、
尻に火がついてもはやテンプレートライブラリをいじってる場合じゃないんで
ずーっと先に気が向いたら考えます。

>ただ、263=254も言ってる通り、これが利点だ!!ってのがないと提案しにくいかも。
>漏れの勤め先はデザイナーさんも抱えてるんで、協業体勢が取れる、ってのを
>利点として上にプッシュする材料にはなるけどね。

開発効率向上＋保守性向上、ですかねぇ。
今回は、デザイナーさんと2人で組んでの仕事です。
で、これが終わったらわたし退社しちゃう予定なんで、なるべく引き継ぎがらくちんなように、
手順がはっきりするように、作ってみました。

前任者から数年前に引き継いで手を入れてた別のサイトがあるんですが、
もともと素人コードなうえに、素人に毛が生えた程度の自分がいじっちゃって、
山のような仕様変更にその場しのぎを繰り返しまくり、もぉつぎはぎしすぎて
自分以外は読めたもんじゃない……。引き継ぎにめちゃめちゃ苦労しそう……＿|￣|○
こんなにぐちゃぐちゃになる前に、思い切ってどっかで書き直しとけばよかった……。

あとそれは、もともと自前でデザインもやってたものを、あとからデザイン外注するように
なったので、デザイナーさんから届いたHTMLをぐちゃぐちゃ埋め込みASP化する作業に
やたら手間取ったりミス発生したりしてました。反省。

>レスポンスが明らかに落ちる（であろう）事なのに、「開発効率が上がります」じゃ客に言っても
>通用しない気もするこの頃。

今回は、サーバーマシンはけっこう早いやつを使ってるんですが、アクセス数は
たいした量にならない（ログイン制で1日数十人程度？）っていう変な案件なんで、
ちょっとぐらい重くてもあんまり問題ないです。（攻撃くらったらわかんないけど……）
でもまあ、テンプレートから動的生成するなら、これぐらいの負荷は許容範囲じゃないかな？
チューニングの余地は山ほどあると思いますが。

あ、仕事関係の話をちょっと出しましたが、
これを公開する権利関係にはべつになにも問題ないです。
気にしないでください。

IPアドレスからホスト名を取得したいんですが、皆さんのおすすめの方法は何ですか？

↓こういうコンポーネントもあるみたいなんですが、
http://www.vector.co.jp/soft/winnt/prog/se202148.html
信頼性とかどうなんでしょう。

BASP21を使用して、nslookupを実行して標準出力を受け取る、という方法もありそうですが、
スマートじゃないですよね。

なんかPHPのgethostbyaddrみたいな手軽な方法はないですかね?

2chでは test.cgi/12345678/l50 というURIでtest.cgiに"/12345678/l50"という
ﾊﾟﾗﾒｰﾀを渡して処理しているようですが、これをaspで実装させることは可能でしょうか？
test.asp/12345678/l50 → test.aspを実行、12345678/l50をﾊﾟﾗﾒｰﾀとして渡す
というように

可能な場合はｻﾝﾌﾟﾙ等があればご紹介ください。

以上よろすくおながいすます

IISにISAPIフィルタを設定する。

てか、目的ズバリのやつがあった。
EZ-NET URLParamFilter http://program.station.ez-net.jp/products/isapi/URLParamFilter/index.asp

＞これを使用することで、たとえば GET メソッドで /sample/index.asp?param=data のような引数を使用せずに /sample/data/ というような感じにすることが出来ます。

>>293

感謝！です
さっそく検討してみます

293のテストですが、ﾌｨﾙﾀに
TEST1,/test/*,/test/test.asp,,,1
を設定
http://localhost/test/test.aspを作成後
http://localhost/test/test.asp/123-500
でｱｸｾｽすると
Request.ServerVariable("HTTP_URLPARAM_TARGET")に 123-500がセットされてますた
当然 test.asp/l50 他でもきちんと値を拾うことができております

特にこれを使ってどうこうというのは無いのですが、時間があったらaspで
2chｽｸﾘﾌﾟﾄｸﾛﾝでも作ってみようと思います

>>295
それって、http://localhost/test/test.asp/12345678/123-500 みたいに
.aspのうしろが階層になってても大丈夫ですか？
大丈夫なら自作のdownload.aspをちょっと改造してみよう

＞http://localhost/test/test.asp/12345678/123-500

前述のﾌｨﾙﾀできちんと取れますよ
servervariableに
HTTP_URLPARAM_OPTIONS:1234567890
HTTP_URLPARAM_TARGET:100-120
という値が格納されてます

おまいらに質問があります

SQLServerからﾚｺｰﾄﾞを抽出してCSVを作成しているASPがあるのですが、
CSVﾌｧｲﾙのｻｲｽﾞが大きくなってﾈｯﾄﾜｰｸの負荷が無視できないものに
なってきたので、ｻｰﾊﾞｰで圧縮して直接LZHかZIPで出力したいと
思っております。

BASP21使って外部ｺﾏﾝﾄﾞでﾃﾝﾎﾟﾗﾘﾌｧｲﾙからLZHﾌｧｲﾙを作成して
出力することはできるのですが、ASPが稼動しているﾏｼｿの鯖ﾎﾟﾘｼｰで
tempﾌｧｲﾙの作成は禁止されております(一瞬でも不可・・・)。配列から
LZHorZIP圧縮された配列を作成するActiveXﾗｲﾌﾞﾗﾘをどなたかご存知
ないでしょうか？

ｻﾝﾌﾟﾙがあればご紹介ください

ASPが使えるホスティングサービスってありますか？
MSDEとかSQLServerが入ってるとモアベター

>>298
やったことないけど、UnLhaCom + UNLHA32.dllでLZHが扱えるんじゃないかな？
http://www.csdinc.co.jp/archiver/lib/activex/unlhacom.html

UnlhaExtractMem, UnlhaCompressMem ってメソッドで、
メモリ上で圧縮展開できるみたいだよ。

>298
てゆーか、テンポラリファイル一つ作れない鯖に
ActiveXコントロールなんて入れられるのか?

ASP+VBSだけでZIPやLHAアルゴリズムを実装してみるとか。

>302
スクリプトタイムアウト起こしそうw

>>295
それって、デフォルトで開くページに、index.htmlなどにまじって
test.aspを追加しておけば、

http://localhost/test/test/12345678/123-500
って指定で、test.aspを呼び出して値を拾うこともできるんでしょうか？
できるんだったら、そのほうがかっこくて応用も広そうなかんじ。

>>304
MATCHESにtest
TARETにtest
OPTIONSに12345678,123-500がｾｯﾄされます

>>300
ありがとうございます。
早速テストしてみたところunlhacomがｴﾗｰﾊﾞｿﾊﾞｿ

ﾄﾞｷｭﾒﾝﾄを読み直したところ
＞注意）VBScriptではUnlhaCompressMem,UnlhaExtractMem,定義済み定数が使えません。
＿|￣|○だめですた

ASPテンプレートクラス、自分で使いながら地道に機能追加中。
とりあえずテンプレート中に if〜else〜endifブロックを記述できるようになりました。
まだネスト不可なんで、ネスト可にしたらまたどっかにうぷして反応みてみます。
でもこれ、自分以外に需要あるのかなあ。

いまごろまだテンプレートエンジンいじってるような進捗状況、スケジュール的に…＿|￣|○

テンプレートエンジンでこんなん見つかったけど…
ttp://park11.wakwak.com/~util/software/aspobjects/document/index.html

う、やっぱりあったか。探し足りなかった。
こっちのほうがシンプルだし、dllで軽そう。きっちりネストもできるし、ブロックは行単位じゃないし。
しかもおまけにVectorオブジェクトもついてるし。
ちょうどVectorクラスも自作してたところなんだよなあ……。
Vectorは必要最小限しか実装してないんで、公開はしませんが。

ただ、自作エンジンはテンプレート中にeval()でなんでも埋め込めるんで、
いいかげんだけどそのぶんの自由度はあるかも。

ここって、、Apache::ASPはだめぽ？

Apache::ASPって何?ってﾚﾍﾞﾙの人間ならここに一人いますけど、
基本的に過疎スレなので有用な情報が得られるかはわかりません。
とりあえず何でもいいから書いてみてくださいな。

ほんとはaspobjectsの存在はだいぶ前から知ってたんだけど、
234さんが熱心に開発されていたようだったので言い出せなかったの…ｺﾞﾒﾝﾈ

>>311
ChiliSoftASPだろ？
使ったことないけど、FileSystemObjectのCreateObjectも模倣して動くらしい

へえ。こんなのあるんだ。
レガシASPからの移行以外に使う人いるんだろうか。

Apache::ASPとChiliSoftASPは違ったような。
Apache::ASPはオープンソースで、フリーに使えた希ガス。
ttp://www.apache-asp.org/

っても、MSのASPでPerlScript使って開発してる例がどれほどあるか、が問題だが。
IIS PerlScriptって確かコメントに日本語使えないんじゃなかったかな……
漏れもApache::ASP使ってみたいけど、WinだとApacheとmod_perlの
バージョンがいろいろややこしくて、環境作るのﾏﾝﾄﾞｸｾんだよね……

フレームを使用しています。ASP内で、自らのTARGETをTOPにする方法はありますか？

IISのカスタムエラー設定でASPエラー（500-100）を自作ASPにしているのですが、
フレーム分割したさきでエラーが起こった時も、TOPにエラー表示したいのです｡

解決しました。以下のJavascriptを吐くようにしました

<script type="text/javascript">
<!--
if (top.frames.length!=0)
top.location=self.document.location;
// -->
</script>

やっぱ全然ダメ

ASPエラーのページ自作しる

サーバーマシンを変えてIISをあらたにインストールしたら
いままで正常に表示されていたASPが文字化けするようになりました。
具体的には

Response.Write "メールが送信されました。"

というのが

???????????????

という感じで？の羅列になります。

<META HTTP-EQUIV="Content-Type"　CONTENT="text/html;charset=x-sjis">
は指定してあるんですけど、原因がわかる方いませんか？
よろしくお願いします。

もう
charset=x-sjis
は
charset=Shift_JIS
でいいんじゃねーの

件の問題はこれとは関係なさそうだが。

>>319
エラーのページは自作していて、
１．デフォルトの500-100のエラーのページのように詳細を出すようにしたい。
２．フレーム分割しておるが、エラー画面はトップに出したい。

この１．２．を満たすのが難しい、ということです。

2は
<script language="javascript">
function toTop ()
{
    if (window.top.location.href != window.self.location.href)
    {
        window.top.location.href = window.self.location.href;
    }
}
</script>
</head>
<body onload="toTop();">

>>323
それだとエラーが発生したASPが２回走ってしまうのです。

それじゃあErrorの時だけTOP表示なんざ無理だわな。

質問です
ＡＳＰで、クライアントがブラウザの×ボタンを
押した場合の検地の方法を教えてください

ＡＳＰでログインしていて、ログアウトされてしまった
場合、次のブラウザでブックマークで開かれてしまって、
ログインせずにその画面にいけてしまうので、対策が知りたいです

すみませんが、ご教授ください

よくわからんが、それはログアウト処理がおかしくないか？
Session.Abandon したら次回はログインが必要だと思うが。

あ、それともログイン後の画面の処理がおかしい？
要ログインなページはすべて、冒頭部分に
Session変数の有無をチェックするルーチンを入れておくように。
ログイン入力画面をスルーされても、そこではじく。

>>327さま
ありがとうございます　セッション処理って
のをやっていませんでした

ログイン処理は、xmlで判定しているだけで、
その後のセッション処理は・・・

ああ　全部の画面にセッション判定を
入れておくんですね　わかりました　ありがとうございます

時間による、セッション切れはなんとかできそうです

でも、やはり×を押してブラウザを遮断してクライアントのセッションが
切れたよって検地しないと、つながったままってこと
になりますね

ううブラウザが落ちたってサーバがわかる方法ないかなあ

ブラウザのウィンドウ全て閉じたらセッションは切れるはずだが．．．
他のウィンドウが開いていたらセッション保持しているけど。

>>330
そうなんですか？他のＩＥとかが
継続してセッションを保ってるんですか
すごいな
そういうことでしたら、ブラウザ一コでやれって
条件つければ、セッション管理できそうだな

いやあ　ありがとうございました　ほんと助かりました

>>320
basp21 と BinaryWrite 使ってるでしょ？
一旦セッション切ればOK

>>229
あ、いちおう念のため言っておくと、IISでセッションを使うと
アクセスするのにCookie必須になるからね。
携帯対応とかを考える必要があるなら注意。

バイナリーを文字列に変換したいんだけど、
http://www.kcat.zaq.ne.jp/yumenokunisha/develop/bin2str.htm
ここのソースコピペして実行してみたんだけど、たまに誤変換で「・」に変換されてしまう・・・
どなたかこのソース修正してくれませんか、
あと、ほかの方法でいいのがあったら教えてください。


Function Bin2Str(byteData)
　　Bin2Str =""
　　i = 1
　　Do While i <= LenB(byteData)
　　　　u = Hex(AscB(MidB(byteData, i, 1)))
　　　　If ((CInt("&H" & u) >= &H81) And (CInt("&H" & u) <= &H9F)) _
　　　　　　Or ((CInt("&H" & u) >= &HE0) And (CInt("&H" & u) <= &HEF)) Then 'Code Page 932
　　　　　　l = Hex(AscB(MidB(byteData, i + 1, 1)))
　　　　　　intChar = CInt("&H" & u & l)
　　　　　　s = Chr(intChar)
　　　　　　i = i + 2
　　　　Else
　　　　　　intChar = CInt("&H" & u)
　　　　　　s = Chr(intChar)
　　　　　　i = i + 1
　　　　End If
　　　　Bin2Str = Bin2Str & s
　　Loop
End Function

伝え忘れていました、basp21は使えないんです。

>>334
ほかの方法
basp21.Base64()

遅かった…… ＿|￣|○

昨日セッションの件で相談したものですが、
またわからない事態が出てきました

ＡＳＰのログイン画面から別の画面に遷移する場合は
セッションは引き継がれてましたが、
別のウィンドウを開いたら、セッションはＮｏｔｈｉｎになってしまいました

これ、別のウィンドウにも同じ画面のセッションを引き継がせたい
場合、どうすればいいでしょうか？

うう　だれか教えてください

>>338
普通引き継ぐぞ．．．
っていうかアプリケーション終了するか、サーバー側で明示的にセッション終了しない限り
セッションクッキー破棄しないはず。
もっぺんスクリプトをよく見直してみてはどうだ？
アイテム名タイプミスしてセッション変数呼んでないか？

>>340
どうも　レスありがとうございます

現在は、ログイン画面ー＞メイン画面（どちらも同じブラウザ）という風に移行する場合は、
セッションは引き継がれています
それで、メイン画面から、response.redirectで子供のブラウザを
開くというときなんです

要するに、ログインしていない場合、ログイン画面でセッションは作られていない
から、直接それらメインの子供のウィンドウにお気に入りでいけてしまう
というのが問題なんです

子供のウィンドウでもログインしてるかどうかチェックするだけじゃダメなのか？

なんだかよくわからんけど、
子供ウィンドウではログインチェックやってるのか？

If IsEmpty(Session("セッション変数")) Then
　Response.Write "ログインしろやゴルァ"
　Response.End
End If

要ログイン画面すべて、とうぜん子供のウィンドウでも
こういうのを冒頭に仕込む。

>>342
>>343

やってます　やってます　子供のウィンドウの
頭全部でそのセッションチェックは行ってます
で、ブレークポイントしかけてみたら、
そのセッションが、Nothingになてたんです

ちなみに、recponse.cookiesも同じでしたー

困った

セッションがNothingってよく分からんのだが．．．
確認だが、親ウィンドウのSession.SessionIDと子ウィンドウのSession.SessionID
をResponse.Writeしてみて違う値が表示される？

これで違うのが表示されたら漏れには分からん。

あと、
＞要するに、ログインしていない場合、ログイン画面でセッションは作られていない
＞から、直接それらメインの子供のウィンドウにお気に入りでいけてしまう
ってのもよくわかんない。
Session変数が引き継がれてないとして、「ログインしてるのに行けない」はわかるけど、
「ログインしてないのに行ける」の？

>>345

違いましたー
親ウィンドウがugeyなんとかかんとかで、
子供ウィンドウがrewずらずら　

って表示されました　なんか普通じゃないんでしょうかね？

>>346
そう　ログインしてないのに、
お気に入りから直接その画面が表示去れてしまうんです

社内のＬＡＮで、端っこのＰＣがサーバで、そこに
クライアントとしてつないでみても、お気に入りからいきなりその画面が出てしまってるんです

まさかとは思うが、親ウィンドウのスクリプト動いているサーバーと
子ウィンドウのサーバーは同一のサーバーだよな？

>>349
同じです　鯖はひとつしかないですし、
親は自分でlocalhostでみてます
そのＩＰをＵＲＬに入れて、クライアントはつないでいます

うー　３４３のＩＦ文入れて、その直前でブレーク
張ってみても、Nothingって出て、ＩＦの中に入ってしまいますし
どうなってるのかなあ

普通はきっとセッションはブラウザ同士が引き継ぐものなんでしょうね

セッションが引き継がれない可能性としてはこんなのかな．．．

親のURL：http://localhost/asp/oya.asp
そこに記述されているリンクがたとえば<a href="http://192.168.XX.XX/asp/kodomo.asp">
とかだと同じサーバーでもセッションは（たぶん）引き継がれない。

<a href="/asp/kodomo.asp">
<a href="http://localhost/asp/kodomo.asp">
ならオケ。


でもログインしてないのに見えてしまうってのはわからんな．．．
それはスクリプトがなんかおかしいとしか思えん。

先ほど、子供画面を開くときのＡＳＰ．ＮＥＴの
コードを見てたら、
servertransferで開くと、きちんとセッションは渡ってました
window open で開くと、セッションは渡らないみたいです

でも今回のは、server transferを使わないでやることに
なってるので、セッションは別の何かの方法で渡さないといけないんでしょうか

>>351

こちらアドレスの検証終わりました
IPを親が指定して、子供のアドレスも出しましたが、
クッキーの値が違っていました。　つまり、全然違うクッキーが
引き継がれている？（生成された？）と思われます

ますますわからなくなってきた　

IEのセッションクッキーはIEのプロセス(でいいのかな)内のﾒﾓﾘに保持されます。
ｼｮｰﾄｶｯﾄやwindow.openでIE立ち上げると別プロセスなので
セッションクッキーも別物になる。
IEの新規作成→ウィンドウ(Ctrl+N)とかだと同一セッションになる。
と思う。
ちなみに寝介ではそういう問題は起きなかったと思う。
ちゃんと検証したわけじゃなく、経験則なので過信しない方向でよろしく。

みなさま　今日お騒がせしていた
セッション厨房です

解決しました　　やはり、ウィンドウオープン時の
スクリプト記述で、セッションに変なことを
上書きしていたみたいです

どうもいろいろ検証くださってありがとうございました

あれ、IE設定で「新しいIEは別プロセスで起動する」って項目
どこいったのかな？

これとセッション保持が関係してくるんだったら、
おいらがいま作ってるアプリにも影響してきちゃうんで、
詳しいひと解説きぼん。

>>356
IE5.01以降 設定画面から消えたらしい
http://pcweb.mycom.co.jp/column/winxp/096/

Visual Interdev とか mse をコマンドラインで行番号指定で起動する方法知りませんか？

ADOやASPってヘルプファイルになってないのかね。
VBScript/JScriptみたいに

ダウンロードできたらいいのに

>359-360
一応MSDN Onlineにあることはあるが……ありゃ読みにくいよなぁ。

質問です。
ASP+VBScritpで、時間をyy/mm/dd形式ではなく、10桁のUnix時間で
笑わしたいのですが、どのようにしたらよいのでしょうか？

あと、Unix時間で表した場合、変数の型は何になるのでしょうか？
やっぱり整数型？

>>362
Unix時間ってのは漏れは知らないのだが、1900/1/1 00:00:00から何秒経過したかって奴？

それならばDateDiff("s", CDate("1900/01/01 00:00:00"), Now())とかで一応出来るのは出来るが。

しかしこれで笑ってくれるかどうか．．．

UNIX timeは1970/1/1 00:00:00(GMT)が起点だと思う。
GMTの時差も考えないと。

符号付き32bit整数だっけ？それならVBSの長整数型と同じ。
で、IIS/ASP/VBS環境なのに2038年問題が起こって笑わせるってこと？

>>363-364
ありがとうございます。10桁でしっかり笑えました（藁
＿|￣|○・・・ミスタッチです。

ちなみにVBで調べてたらDateDiffでMSDNに
「2 つの指定した日付の時間間隔を表すバリアント型
(内部処理形式 Date の Variant) の値を指定します。」
とありました。

どうもありがとうございました。逝ってきます・・・。

あうー
誰か、PerlScriptがまともに日本語を通すようにしてくれる神はおられぬか!!
ActiveScriptRubyなら日本語通るそうだけどうちの会社スクリプト系言語に詳しい人少ないから
(Perlはなんというか、たしなみとして知ってる人はそれなりにいる)
「Rubyで書きたいんです。」「帰れ。」
っつわれそーだし……(それ以前にRuby覚えてないけどな＿|￣|○)

367 名前：□-□） 投稿日：04/03/25 22:10 ID:???
ASPのチャットを使っているのですが、IP制限をしたりプロキシを遮断する方法ってありますか？
もしあったら賜りたいのですが…。


368 名前：nobodyさん 投稿日：04/03/25 23:53 ID:4QNsTO1G
>>367
>IP制限をしたりプロキシを遮断する方法
プロキシは匿名とかあるから分からんが、IP制限ならREMOTE_ADDRで良いのではないか？

Win2KPro+IIS+VIDでASPの開発をしていたのですが、
PCの入れ替えでWinXPPro（NTF)に移行しました。
するとVIDでデバッグの設定を行い実行すると
「サーバーを自動的に正しいデバッグ状態にすることができません。・・」とエラーが出てしまいます。
FrontPageServer Extensionsの設定も触ってみたのですがWin2Kと少し異なっていてうまくいきません。
何か情報をお持ちの方がいらっしゃいましたら教えていただければ幸いです。

質問です。
自分のHPで問い合わせメールなるものを作成する場合、
セキュリティのことも考えてSSL対応と非対応のメール送信プログラムを作成したいのですが
SSL対応メールのサンプルがほとんどなくて困っているのですが、
これはそんなに簡単に作成できるものではないのでしょうか？
どうしても作成してみたいのです。


是非、ご存知の方、教えてください。
よろしくお願いします。

>>369
SSLに対応したプログラムというのが認識違い
SSLはWebサーバとの通信経路を暗号化するだけなので
IISでSSLの設定すれば、sendmailプログラムは同じ物でよい

＞370

ありがとうございます。勉強になりました

素人的な質問になるかもしれなですがご勘弁を･･･。

Functionの関数をいろいろなページで使い回す方法ってありますか？
（com以外で）

JavaScriptの外部スクリプトの様に･･･。

>>372
includeすれば？

scriptタグでrunat=serverにしてFunctionを書いたaspを指定する手もある。
<script language="VBScript" runat=server src="hoge.asp"></script>

>>373
よくわからないのでこれから調べてやってみます。
>>734
こっちの方がわかりやすいのでやってみます。
できるかな･･･。

>>374
できました！！感謝感激です。マジありがとうございます。

すみません。私に一つご教授お願いいたします。

JavaScriptのdocument.cookieでクッキーに書き込んで
ASPのRequest.Cookiesでクッキーを取得するって一般的ですか？

A→B
Aで値をテキストボックスに入力しその情報をBで表示

A←B
Bから戻る際、「A→B」で呼ばれる時に入力されていた
Aのテキストボックスに値を戻す。

と、言う流れをやる場合に、クッキー利用するかと思ったのですが、
JavaScriptで書きASPで取得って良いのかなと
思い質問させていただきました。

>>377
扱うデータにもよるんじゃないか？
ちょっとしたデータならCookieでやっちゃうし
データが多かったり、漏れたらまずい情報（個人名とかパスワードとか）
だったらSession変数使うよ。

HTTP エラー 405
405 メソッドは許可されていません
Request Line に指定されたメソッドは、要求によって識別されたリソースでは許可されていません。
要求するリソースに適切な MIME タイプが設定されていることを確認してください。

この問題が続く場合には、Web サーバーの管理者に問い合わせてください。

HPでASPを使ってメール送信できるようにしたのですが、
Netscapeで実行したら上記のメッセージが出ました。
これはどういうことなのでしょうか？

レガシASPで開発されている方々はモデルとビューの分離をどうやって
実現しているんでしょうか。
できればMVCっぽく実現したいんですが、いい方法はないでしょうか。
RequestスコープでSession.Contentsと同じような感じでユーザ定義の
オブジェクトを持ち回れればいいんですが、調べた感じではムリそうです。

ちなみに、今まで仕事で見てきたソースはほとんどロジックとビューが合体してて、
見てて泣きそうになるものばかりでした。
スマートに解決している人たちはどうやっているのか知りたいです。
よろしくお願いします。

>380
ぜんっぜんスマートじゃないが、「こんなバカな解もある」くらいに思って読んでくれい。

・「ユーザ定義クラス群の基底クラス」を作る。
　内容はScripting.Dictionaryをラップし、それプラス
　- キー&値のペアの配列を要素に持つ配列(VBScript配列ね)を生成する
　- 上の配列からキー&値のペアを復元する
　機能を持つ。
・上のクラスに機能を委譲する形でガンガンクラスを定義する。
　プロパティの類は、全部上のクラスのキー&値で実現。
　ページ間で持ち回すときは、配列化してSession.Contextへ格納、
　別ページの頭でSession.Contextから復元。

　で、具体的にページではどうするかってーと、
hoge.aspを前処理・ビュー・後処理に分け、ビューはhoge.htmlをインクルード。
hoge.htmlには必要最小限の変数と、動的行生成程度のロジックを残し、
後はhoge.aspで片付ける。

　ではモノホンのスーパーエンジニアの登場を期待しつつ逝ってきます。
　

>381
はあ。なるほど。
自分もそんな感じで、includeの代わりにServer.Transfer使って実装を試したりしてました。
ただ、ｲﾏｲﾁServer.Transferの使いどころが分かってないんですが。
自分の場合、複数リクエストにまたがる場合のことは考慮してないんで
実用的かは分かりませんがこんな具合です。
誰か添削してください。

hogeControler.asp----------

'前処理

Set model = New HogeModel1
'ビジネスロジックを実行
model.doSomehing
'画面表示する項目だけのエンティティクラスを取得
Set entity = model.GetEntity

'セッションにセット
Set Session("一時的なキー") = entity
'リクエストを転送
Server.Transfer "hogeView.asp"

hogeView.asp----------
Set Entity = Session("一時的なキー")

'Entityを使って表示with必要最低限なロジック

Session.Contents.Remove("一時的なキー")

>382

添削っつーほどのことでもないが、それ実際にやってみた?
多分、hogeView.aspではEntityのプロパティもメソッドも呼べなくて
どーしよーもなかったんではないかと思うんだが。
(単なるPublicメンバ変数はどうだったか忘れた)

>383
とりあえずPublicメンバにはアクセスできましたよ。
Property Getとメソッドはめんどくさくて試してないです。
Sessionにセットするときのクラスは表示するためだけの構造体みたいな
もんだと割り切って使ったもんで。

追加で。
Sessionにユーザ定義クラスのインスタンスをセットしても
メソッドもProperty Getも正常に動きました。
どうやら１個のリクエスト内ならちゃんと動くけど複数リクエストに
またがると動かないようです。
Sessionの意味ねーじゃん。なんなんでしょうか。

とりあえず検証に使ったソース置いていきます。

hogeControler.asp
<!-- #include file="hogeModel.class" -->
<%
Dim model
Set model = New HogeModel
model.DoSomething

Set Session("HogeModel") = model
'動く
Server.Transfer("hogeView.asp")
'動かない
'Response.Redirect("hogeView.asp")
%>
続きます。

つづき
hogeModel.class
<%
Class HogeModel
Public Hage1
Private privateHage2
Private privateHage3
Public Sub DoSomething()
Hage1 = "Hage1"
privateHage2 = "Hage2"
privateHage3 = "Hage3"
End Sub
Public Property Get Hage2()
Hage2 = privateHage2
End Property
Public Function GetHage3String()
GetHage3String = privateHage3
End Function
End Class
%>

hogeView.asp
<%
Dim model
Set model = Session("HogeModel")
Response.Write model.Hage1 & "<BR>"
Response.Write model.Hage2 & "<BR>"
Response.Write model.GetHage3String() & "<BR>"
Session.Contents.Remove("HogeModel")
%>
以上です。

４月１日に入社し、ＡＳＰの課題を与えられたのですが、
今までプログラム経験が全くなく、ネットワーク知識ゼロの自分はなにから始めればいいのですか？
データベースにアクセスし読み書きできるようにしたいんです。
まずＨＴＭＬの知識がなければどうしようもないですよね？
結果的に、htmLとVBScriptもしくはJavaScriptを扱えるようになればいいんですか？
よろしくお願いします。

がんばってね。
どんなカリスマも始めは初心者。

>387

HTMLよりVBScript、ASPとADOのオブジェクト構成かな。身につける優先度としては。
というか、ヘルプ(MSDNライブラリ)の引き方を覚えるのが最優先。がんがれ。

>>389
…ごめんなさい。もう少しわかりやすくお願いします。
それと、どのくらいの期間で完成させるべきだと思いますか？
お願いします。

>390
うわ。分からないときに質問できる先輩社員、近くにいないの?
とりあえず、MSDNライブラリってのがインストールされてないかな。
それが総合解説書だから、まずそれの使い方を(ざっとでいいから)覚えましょう。
で、次はASPの簡単なサンプルを実際に動かしてみる。データベースへの接続とか
いう話は、ASPについて「なんとなく分かったような分からないような」つもりになって
からでOK。(ちなみに398の「ADO」ってのはデータベースとやりとりするための
仕組みだと思っておいておくれ)
期間については、それこそ課題をくれた人に聞くべし。課題についてどの程度時間が
あればできそうだ、って見積もりはまだ自分ではできないでしょ。

>>391
ありがとうございます。
先輩社員はほとんど外に出てて、会社には社長と取締役と営業の方しかいないので…。
一応ＡＳＰの本を買ってサンプルは動かしてみたのですが、
そのプログラムは自分で本を見ずに作成できるようにならなければいけないですよね？
やはりHTMLは必須ですよね？そしてVBScriptも。
やらなけりゃいけないことが増えていって、全て理解するには果てしなく時間かかりそうで…。
お先真っ暗です。

>392
むむむ、これは最初に勘違いすると大変だから

>そのプログラムは自分で本を見ずに作成できるようにならなければいけないですよね？

んなこたーない。丸写しは勿論（･Ａ･）ｲｸﾅｲ!! が、ぐぐってヒットしたソースを参考にしたり、
なんてことは多くの人がフツーにやっている。そうして探す頻度が高い事柄はそのうち
自然に頭に入る。そんなもんだす。気楽にやりなされ。
VBScriptは確かに必須。でも、必死にならんでいい(と思う)よ。
とりあえず勇気を振り絞って、課題の期限をはっきりさせておきなされ。
……もう明日でいい(と思う)けど。

>>393
そうなんですか！知らなかった…。
とりあえず、課題については明日聞いてみます。
ありがとうございました。また来ます。
ていうか、月曜日から５日間耐えられるか心配だ…。
学生時代に戻りたい…

>394 ｶﾞﾝｶﾞﾚ。慣れればどうにでもなる。

しかし、PG経験なしでいきなりASPってどうなんだろうか。
とっつきは良いとは思うんだけど、最初に覚える言語がVBの
サブセットってどうなんだろ、と思ってしまうんだが。
開発環境なしで簡単に動くもの作れるから、それはそれで
正しい選択肢なのかなあ。

Webアプリが作れて、セッション管理をサーバでやってくれて、
スクリプトでひょいっと書けるからコンパイラだのいった環境も必要ない。
という点ではレガシASPはいわゆるWeb系開発者の初歩としては
よく見えるのかも知れない。だったらPHPでいいじゃんとも思うが、
多分PHP使える人が少ないんだろう……

>385に関するﾚｽが全然ないのが気になる。
自分が経験したプロジェクトでもクラス使った処理なんて
リモートスクリプトぐらいしかないし、ユーザ定義クラスなんて
使われてないのかなあ。
皆さんのプロジェクトではユーザ定義クラスって使ってます？
主観ですけど、なんか不当に敬遠されてる気がするんですよねー。

マルチでごめんよ
商品一覧ページを作るとして、名前、写真等で構成される
個々のブロックをItemInfo.ascx、配置を行うItemInfoContainer.ascx
という感じに作ったんだけどItemInfoContainerの中で

<Ucl:ItemInfo name="<%=name%>" runat="Server">

こんな感じに書こうとするとItemInfoのnameに「<%=name%>」という
文字が入ってしまうんだけどこういう動的な値をプロパティに
設定したい場合はどうすれば良いのでしょうか。
そもそもこういう感じにascx使うのが間違ってるのかなぁ？

>>398
>>3

今日は全然進まなかった…でも疲れた…。
とりあえずＨＴＭＬに入力したのがＡＳＰで表示できるようにはなりました。
やっぱりVBScriptの本て買ったほうがいいですよね？
ＡＳＰの本は買ったけれど分かりにくいんです。

まぁとりあえず今日は少し早く寝れそうで良かった。
なんかパソコンを仕事で、ずっと触ってると嫌いになりそうですよね。
今週はあと４日だ。

>>398
自己解決
<Ucl:ItemInfo name="<%# name %>" runat="Server">
データバインドって便利だな

>>400
がんがれ！

最近ASP始めたばかりで厨な質問だと思うんですが
VBScriptのSubプロシージャでhtml部分も含めて部品化して
呼出そうとしたら上手く行くパターンといかないパターンに
なぜか別れます
（エラーの詳細なメッセージは出ずに単に表示不能になる）
そこでFunctionプロシージャにするとなぜか上手く表示出来ます
（特に返す値はないけど）

これって何か宣言が足りないんでしょうか？

やばい…行き詰まってしまった…。明日からどうしよう…。
なんか焦ってしまってダメだ。
とりあえず今日も早く寝ないと、キツイです。
明日は楽しみにしていたミスチルのアルバムが手に入るから、とりあえず頑張ります。

>>402
コーディングがおかしいだけ。

>>400
＞なんかパソコンを仕事で、ずっと触ってると嫌いになりそうですよね。
ずっと触ってるくらいじゃ嫌いになりはせんわ。
伸ばした納期が来てバグは取れない眠気で死にそうコードはごちゃごちゃ
上司はイライラ、そんなお前がこんな仕事取ってくるから俺がこういう目に・・。
というような状況になったら嫌になるだろう。

>403
困ったら調べろ。使えそうなところは理解した上で丸々コピれ。
動いてるものをコピればﾊﾞｸﾞは出ない。
でも、そろそろスレ違いだな。ここはキミの日記じゃない。
仕事の愚痴じゃなくてASPの技術的なことを話題にするように。
具体的に書けば解決策は大体先人が教えてくれます。たぶん。

>397
漏れはクラスびしばし作って使ってるよ。>385ほど、綺麗にDTOっぽく分け切れてないけど。
Newのコストとか最初は気になったが、そんなに恐れるほどのこともない。
Newどころか、持ち回しするデータは381に書いた通り、配列化して格納-復元なんて
恐ろしくコストのかかることやってるしｗ
ストレステストをやったらどうなるかちょっと怖いが、当面それほどアクセス数が見込まれない
らしいから、今回はこのまま突貫の予定。
もっともいろいろと癖があるけどね……383にも書いたんだが、基本的にCOMのコンテナ
オブジェクトには、ClassをNewしたインスタンスを入れてはいけない(同じページスコープ
内でさえ、取り出したらメソッドが呼べなくなっている)。逆も同じ(クラス内の変数に
メソッド経由でRecordsetなんかSetしたら、後で取り出したときﾎﾟｶｰﾝとするハメに)
これについてはJScriptのユーザ定義オブジェクトに関してMSDNに類似の注意書きがあるから
参照よろ。
あと継承じみたことをやろうとすると、多重インクルード防止機構がないのが痛い。
おかげでページの先頭にはいつもいつも山のような#Includeが並ぶことに……
(そこはJScriptだと@ccとか使ってｳﾏｰなんだけどなぁ)

もっとも、今頭を抱えてるのは、調子に乗って作りまくった約50のクラスを自分でも把握できなく
なりつつあることだが＿|￣|○

>>402
>上手く行くパターンといかないパターンになぜか別れます

ソースうｐしろ。ここにいる人間はエスパーじゃねぇからそんな質問じゃ何も答えられない。

>>408
すんませんでした
あれからよくソース見比べて共通点探したらJavaScriptが原因でした
ASPとJavaScriptが共存してるとSubプロシージャをCall呼出し
しないとダメみたい

ASPとJavaScript・・・・


　 　 　 　 　 　 　 　 ！ ？

>>410
何かやり方的におかしかったでしょうか？
元々前の担当者から引継いだASPで入力チェックをJavaScript
でやってたんですが負荷の分散の意味でもいいかと思って
そのまま置いてました

それともASP一本でいった方がいいんでしょうか？

あ、いや、クライアントサイドのJavaScriptがサーバで動くVBScriptの
Function呼び出しになんで関係あるのかなあと不思議に思っただけで。

文章に曖昧なところが少々あるので想像で書くが、

クライアントサイドのJavaScriptで入力チェックをするのは正道だと思います。
でもそれは、明らかに不正な入力をリクエスト前にはじくために補助的に有効
なのであって、それだけでチェック処理を完了させてはいけません。
サーバサイドでも当然同様のチェックを行う必要があります。
サーバサイドのリクエスト内容チェックが絶対必要であって、クライアントサイドの
入力チェックは補助的なものだと考えたほうがいいと思います。

見当ハズレだったらスマンね。

ついでに402についても言及しとくと
Functionで動いてSubで動いたり動かなかったりする。
Callをつけると動く。
という部分を見ると

Visual Basic 6.0 では、Function 呼び出しの引数リストをかっこで囲む必要があります。
Sub 呼び出しでは、Call ステートメントを使用する場合はかっこが必要ですが、
そうでない場合はかっこを使用しません。

という基本的な項目が思い浮かびます。

testSub1(param1) は動くのに
testSub2(paramA, paramB) は動かない
とかいう状況ならそれっぽいが。

あと、Responseに何も出力してないとエラーの詳細はブラウザには出ません。
IISのログには出ますがそれは見ましたか？

私の会社はインターネットには接続されていませんが
LANは有効です。
こういう環境でもASPは動きますか？

>>414
バッツリです。
それどころかネットワークにつながってなくても
PCにIISが入っていればASPは動きます。

>415

ありがとうございました

掲示板やチャットなどのaspを配っている
サイトってないですか？

>>417
マルチ死ね！

教えてください。
Webサーバ　：　IIS5.0
DB　　　　：　Access2002

[送信]ボタンをクリックしてPOSTされたデータをDBへ書き込みたいと思っています。

----------------
2台のPCで同時に[送信]ボタンを押してしまうと次のエラーとなります。
『The Microsoft Jet Database Engine エラー 80004005
'' は既に使用されているので、使用できませんでした。』

これは、1人目がDBをオープンしているから2人目はオープンできないよっていうエラーだと思います。
AccessってDBがクローズされるのを待って書き込みにいってくれないのでしょうか。
2人同時にDBへ書き込めるようにしたいのですがどうすればよいのでしょうか。
----------------
以下のようなソースを書いています
　　　Set connection = Server.CreateObject("ADODB.connection")
　　　uri = "Provider=Microsoft.Jet.OLEDB.4.0;"
　　　uri = uri & "Data Source=" & "C:/hogehoge.mdb;"
　　　uri = uri & "User ID=;"
　　　uri = uri & "Password=;"
　　　connection.Open uri
　　　connection.Execute(sql文)　'INSERT文
　　　connection.Close
　　　Set connection = Nothing
----------------
Openの仕方が悪いのかと思い、オプションで以下を指定したりしましたが駄目でした。
　　　connection.Mode = adModeShareDenyNone
　　　connection.Mode = adModeReadWrite
　　　connection.Mode = adModeShareExclusive
DBへのIUSRアクセス権はフルコントロールにしています。

ちゃんと閉じているか？
ちゃんとApplication.Lockしているか？

Accessなんかつかうんなら、Accessへのアクセスは直列化しないとだめだぜ

ASPで書かれたソースを携帯からも見られるように
移植しようとしてます。今，FORMの
INPUTタグでonclick=入力チェック関数名と書いて，入力値チェックしてるのですが，
i-modeだと，onclick属性が使えないらしいです。
何かいい方法ってありますか？

submitして呼び出す先のASPでチェックするしかないですか？

>>421
Webが何もわかってないお前には無理な話だ。
あきらめれ。

はあ，ごめんなさい

422は、ハタシテ何を分かってるんだろ？
また運を使い果たして可哀想な人。

私は422ではありませんが、
ASPが出力した結果のHTMLがクライアントでどういう挙動を
するかなんてサーバサイドとは本質的に関係ないからそもそもスレ違い。

さらに言うと、
携帯から見られる=インターネットに公開されてると仮定して言えば、
そのASPがどんな機能か知らんが、ポストされたデータを
サーバサイドでチェックする処理が元々入っていないなんて
普通は考えられない。

という意味で>422の発言は（言い方は悪いが）妥当であると思いました。
あと、こんな過疎ｽﾚで聞いてもしょうがないよ。と思いました。

Accessってweb連携するには向いてないのかな
テストで連続投稿したりしてみるとよく419みたいなエラーで書きこめなくなる
レコードセットもコネクションもちゃんと閉じる処理してるんだけど
MySQLなんかだと問題ないんだけど

Webに向いてないっていうより、マルチユースに向いてないのでは？
WebでAccessなんて使ったことないからわかんないけど。

>426
素直に(?)MSDEにしとけばいいのでわ。

マイクロソフトもASPからの利用は保障してないよ
http://support.microsoft.com/default.aspx?scid=kb;ja;832205

>>419
1. C:\
2. id, passwordはいらない
3. ADDB.ConnectionでInsertするのは辞めた方がいい
adrsを使った方がいい。で、adrsは3,3,1(2)でオープンした方がいい

質問させて下さい。
indexページでキャリア判別を行って、各キャリア別のページに
リダイレクトさせたいのですが上手く動作しません。
ソースは以下の用に記述しました。

<%@ LANGUAGE=JScript %>
<%
Response.Buffer = true;
var ua = new String(Request.ServerVariables("HTTP_USER_AGENT"));

if((!blauza.match("UP.Browser")) && (!blauza.match("DoCoMo")) && (!blauza.match("J-PHONE"))){
Response.Redirect("http://www.PC版.htm");
}
if(ua.match("DoCoMo")){
Response.Redirect("http://www.iモード版.htm");
}
if(ua.match("UP.Browser")){
Response.Redirect("http://www.EZ版.htm");
}
if(ua.match("J-PHONE")){
Response.Redirect("http://www.Voda版.htm");
}
%>

blauzaって何よ？

ごめんなさい。

「blauza」を「ua」に置き換えてみて下さい。

質問用に変数名変えたんですけど、一箇所変え忘れました

ごめんなさい。自己解決しました。
単に変数名を書き間違えてました。

ゴメンナサイ

>>434
switch文使えよ...

>430
びんじょさしちくり
ADOだとCommand作って直でSQL投げるより
更新可能なレコードセット作っておいてAddNewとかUpdateとかするもんなの?
こないだまで組み込みSQLの世界にいたもんでどうもその辺の流儀(?)がよく分からなくて。

>430
びんじょさしちくり
ADOだとCommand作って直でSQL投げるより
更新可能なレコードセット作っておいてAddNewとかUpdateとかするもんなの?
こないだまで組み込みSQLの世界にいたもんでどうもその辺の流儀(?)がよく分からなくて。

ぐは、連投申し訳ない。

>>436
処理の速さ
adcd.Execute ＞ adrs.Update ＞ adcnでSQL実行

ロックとかの融通性を考えた場合
adrs.Update ＞ adcd.Execute ＞ adcnでSQL実行

かな。もちろんselectなのかWriteなのかにもよるんだけどね。

>>387の新入社員と似たような状況の者です。
小企業で周りに聞ける人がいない。

mdbを扱ったとき、クライアントによって「読み取り専用...」の
エラーメッセージが出てmdbをさわれません。
mdbそのものはゲストで触れるように権限を出していますが
考えられる原因はどこにあるでしょうか？

>>440
Guestっていうか、IUserでだったと思うから
とりあえずEveryoneに対して解放した方がいいかも

当方Flashインターフェイスのサイトでwmv形式の動画の配布を行っています。
Flashでは右クリック→保存ができないので、ZIP圧縮したものをアップして、
左クリックで保存してもらっています。
しかし、解凍作業が面倒ですので、左ワンクリック→保存というふうにしたいです。
そんなとき、
ttp://www.rizm.net/usrplay/?USRID=2516&MFID=19123
こういうとこを見つけたんですが、ここのように左ワンクリックで
ダウンロードできるようにしたいです。
他の板で聞いたところ、これはaspと呼ばれるサーバプログラミングであると
教えていただきました。
ASPの本を買って勉強すれば、Flash上のボタンでも左ワンクリック保存ができるでしょうか？
サーバによってはできない、など、注意すべきことがありましたら教えてくださいm(_ _)m

>>442
できるよ。ASP使うならサーバはもちろんWindows + IIS でね。
HTTPヘッダーを追加すれば良いだけなので、
サーバ設定をいじればASP書かなくてもいいんだけど。

>>443
すみません、詳しくお聞きします。

＞ASP使うならサーバはもちろんWindows + IIS でね
現在infoseekのサーバをレンタルしているのですが、それが
Windows + IIS でなければASPは使えないということですね？

＞HTTPヘッダーを追加すれば良いだけなので、
＞サーバ設定をいじればASP書かなくてもいいんだけど。
できればASPを書かない方法でやりたいところですが、
この「サーバ設定をいじれば」というのは具体的にどういうレベルでいじるのでしょうか？
サーバ管理者でないとできないことでしょうか？
それとも僕のようにレンタルしている人間ができるような設定でしょうか？

>>441
ありがとうございます。
アクセスできるようになりました。
でもなぜゲストだけでは書き込めないユーザーがいるんだろう...？

>>444
- サーバ上でMIME設定をbinaryに変更する
- ASPが使える場合、basp21

どちらもレンタルサーバは厳しいかも
apacheの場合は触らせて貰えるかもね

>>445
Guestに対して解放しても、対応するのはGuestユーザのみだから
結局Guestはユーザであってグループではないということ

>>>444
infoseek はUNIX鯖みたいだから ASP はアウト。
apache で、かつ .htacess が許可されていたら
.htacess ファイルにMIME設定を書けるはず。
それもダメなら infoseek は Perl CGI 使えるらしいから
Perlスクリプト書きなはれ。

>>446
ありがとうございます。
>>448
やっぱUNIXはだめなんですね。
.htacessでMIMEをいじっても、クライアントのブラウザによっては効果がない
ことがあると聞きました。
IEがひどい仕様だそうで･･･
Perlで左ワンクリックダウンロードができるんですか？？
Perl CGIは現在動かしているのでできます。
しかし、どのようなものを書けば良いか見当がつきません。
大雑把でかまいませんので、どういった処理をさせるか教えていただけませんか？

>>449
まぁ、↓とか。
ttp://www.bioinfo.jp/tips.html#download

>>450
ありがとうございました。

ネットのサークルを運営していて
そこの入会申し込みの流れをこんな感じでやってます。

入力フォーム→BASP21→申し込み者と管理人にメール

これだと、申し込み時に必ずメルアドを入力してもらう事が必要になってしまいます。
その為か、最近入会の申し込みがめっきり減ってしまいました。

以前はmailtoリンクで作っていたので、手軽に送信できるせいか、
それなりの入会数や問い合わせがありました。
ただmailtoの場合は、（特に携帯からの）必要事項の記入が無い、空メールが非常に目立ちました。

formを使ってから、確かに空メールは無くなったのですが････。

何か上手い対応策、またはクライアントのメルアドを取得する方法などありましたら、
教えて下さい。

>>452
ありませんよ。
そんなことができたら大変。

>>453
それはありえません。
どなたかわかる方お願いします。

ヴァカ晒しage

諸兄方　スレ違い＆既出問題の場合誘導お願いします。
当方IISにてWebサイトを構築しているものですが、レスポンス向上対策として
GZIP圧縮転送の設定をIISに施してみました。

そこで、aspファイルがクライアントのIEにキャッシュされてしまう問題が発生しました。
プログラム構成上下記コードを記述しています。

Response.AddHeader "Pragma", "no-cache"'キャッシュ非使用をヘッダに追加
Response.AddHeader "Cache-control", "no-cache"
Response.Expires = -1'有効期限を負にし、強制的に期限切れへ
Response.Buffer = True

環境
Windows2K SP3 IIS5.0
IE6 SP1

クライアントキャッシュされる問題は、MS03-048パッチがあたっていないIEで発生すること
までは分かりました。

動作確認をしたところクライアントのキャッシュ領域に確かにASPファイルがキャッシュ
されましたが、そのキャッシュファイルを使用し動作していないように見られました。

この場合RFC2616 14.32 Pragma指示子の動作によってクライアントキャッシュを使用せず、
再度リクエストを投げる動作をIEが行っているように見られます。

当方の確認は問題を起こすIEで動的ページを表示させキャッシュされたものを使用するか？
パケットモニタリングツール（FreePeek）を使用し200レスポンスがサーバから帰っているか？
の2点で確認いたしたところ、クライアントキャッシュを無視し且IISから200レスポンスが
帰っているところまで確認いたしました。

動作としては問題ないようなのですが、類似の問題及びRFC2616 14.32 Pragma指示子
の解釈をしないケースが無いか？について悩まれた方が居ればご助言いただきたく

長文失礼しました＆宜しくお願いします

>>454
IPからメールアドレスがわかるとでも？
>>453の言っているとおり、そんな事ができたら大変な事になる。
スパム業者はうはうはだろうな（ｗ

>>452
> これだと、申し込み時に必ずメルアドを入力してもらう事が必要になってしまいます。
> その為か、最近入会の申し込みがめっきり減ってしまいました。

その程度のサークルかよ

>>459
ここにいるのはIPとか言ってる役に立たないクズばかりですね。
もういいです。

>>461
ﾀﾞﾀﾗ(･∀･)ｶｴﾚ!

>>461
Apacheスレとどういう関係が？
君がやりたいのは、フォームにユーザがメールアドレスを書かなくても、
クライアントのメルアドを情報として入手したいんでしょ？

HTMLやJavaスクリプトを含めたWebプログラムには、共通のセキュリティポリシーというものがあって、
クライアントの内部情報を読み取ったり、書き換えたりは出来ないようになっています。

以上の事柄を踏まえた上で、俺は今回のあなたのやりたい事と同様の動作をするプログラムを知っています。







コンピュータウィルスです。

それはありえません。
誰か分かる人お願いします<(_ _)>

答えて下さった方々、ありがとうございました。
自分でもこんな事できたら、スパム業者はみんなやるよなってのは
思ってましたｗ

ただ、ﾒｰﾗｰｿﾌﾄって、立ち上げると自動的に「mail to欄」に
自分のｱﾄﾞﾚｽが入るじゃないですか。
だからWeb上でも認証ﾎﾞﾀﾝ押しただけで記入の手間が省ける
何かがないかなぁと思ったんですが・・・。

460さんにも言われてしまいましたが、入力の手間程度で
入会者が減るようでは、ホント「その程度のサークル」ですね。
サークル自体の充実活性化も、もっと頑張ります。

ところで461は僕ではないですよ。

>>465
＞立ち上げると自動的に「mail to欄」に自分のｱﾄﾞﾚｽが入るじゃないですか。

それは、Localにインストールされたプログラムだから、規制が無いのでできる芸当です。
前述のとおり、ASPやServletのWeb系では、そのような事は不可能です。

現在WEBサーバ(社内・専用サーバ)として独自ドメインを使っているのですが、
近々Lanの中の別マシンにメールサーバを立てる事を予定しています。
下記のような目的を達成するのに当たり、オススメのメールサーバがあれば
教えていただきたいのですが。。
※環境はWindows2000Server,IIS5.0です。

■目的
1.アカウントを複数発行(100〜2000アカウント程度)する。
2.特定のアカウントに対してのメールの着信をプログラムで監視して、着信があればその内容を読み取る。（ASP.NETを予定）

>>465
http://internet.impress.co.jp/tipsbook/111.html
参考までに、mailtoも、記述を工夫すれば、メール本文に
ひな形などを表示させることも出来る
ソース見て、body= のところ。

ここに、必要事項などのひな形を入れれば、無言メールなどは
かなり防止できると思うよ
ttp://www5e.biglobe.ne.jp/~access_r/hp/html/html_016.html
これなども参考に。

ファイルにタブ区切りまたは、カンマ区切りでデータが入っている
テキストファイルをASPから読む場合、どのように記述したらよいのでしょうか？

下記のように list.txt には、カンマ区切りでデータが入っています。
list.txt
1,AAA
2,BBB
3,CCC

このデータを取得し、表示する方法を教えてください。

>>469
ぐぐればいくらでもサンプルが見つかる。
コード1行さえ書かずに丸々教わろうとするようなやつはやめちまえ。

>>469
じゃあメソッドを全部書いてあげるね。親切すぎてゴメンね。

CreateObject
OpenTextFile
Read
Split
Close

初心者質問スレから誘導されてきました。

VBScriptでデータベースをWebに表示するプログラムを書いてるんですけど、

表示したデータを並べ替えたりPageSizeで区切ったページを切り替える場合、
レコードセットを保持したまま操作するのがいいのか、それともその都度
レコードセットを作るのと、どちらがサーバーに負荷が少ないでしょうか？

>>472
保持したまま操作するというのは、RecordsetをSessionに格納するというということだと思うけど、
それならば「切断されたレコードセット」をSessionに入れるようにすると良いです。
接続を保ったままSessionに入れるのは、絶対にやめたほうが良い。

>472
更に言えば、GetRows()で配列化して持った方が多少ASPフレームワークに優しい。
でも、ページ分けするほどのデータなら、DBをこき使った方が最終的なレスポンスはいいんじゃなかろうか。
そもそも、
Microsoft製のデータ保持COMコンポーネントでSessionに入れていいのは


FreeThreadedDOMDocumentだけ

こちらが確認のURLです。……ってしたかったんだけどどこだか忘れちまった＿|￣|○
要はコンポーネントのスレッドモデルの問題。その話はMSDNにも書いてあるから読んどくれ。
ちなみに、
Scripting.Dictionary　　×
ADODB.Recordset　　×
素のMSXML.DOMDocument　　×
　COMコンポーネントを使うときはページ内のみに留めてください
(Sessionに入れられるDictinaryと、素のVB配列より楽に延び縮みさせられるVector、
探し回ればおっこちてるけどね。Caprock Dictionaryで全言語ぐぐっとくれ。)

>>474
おぉ〜詳しくありがとうございます。
それほど負荷がかかってる様子ではないですけど、同時に
20クライアントぐらいアクセスしてきたらやばいのかな…、
などと思いサーバの負荷を気にしだしたんです。（ちなみにSQLServerを
使う予定）

もしかして、20クライアントなんて気にするほどの数じゃないんですか？ｗ

>475
正直、いくらなんでも20クライアントのアクセスで悲鳴を上げるようなら
そのマシンは不特定多数相手のサーバには向いてないと思う……
社内イントラのファイルサーバあたりにリストラ(嫌な響きだな……)しる。

ちなみに確かMS謹製のWebサイトストレステストツールが無償配布されてる記憶が。
それもMSDNを「ASP」で検索したら多分見つかる。

>>476
実際テストした訳じゃないので漠然とした不安を持っていました。

テストツールがあるなら早速使ってみたいと思います。

むしろHTTP_USER_AGENTがらみの話になると思うのですが、携帯電話に関するスレが無かったので、こちらに質問させていただきます。

さて、今時新規でASPを組むことになりました（苦笑）
携帯がらみのサイトなのですが、端末の固有識別番号を拾う必要があるかもしれません。
J-SKY（Vodafone）やauは結構（ロジック的に）綺麗に拾えるようですが、DoCoMoは機種ごとに結構複雑なようです
http://www.nttdocomo.co.jp/p_s/imode/tag/utn.html

一応、現在は

(1)HTTP_USER_AGENTから「ser」という文字列を探す
(2)　(1)の後ろで「;」という文字列を探す（無ければ最後尾まで識別番号と見なす）
(3)　(1)〜(2)をMidで拾う

としていますが、他にDoCoMoの固体識別番号を拾うロジックがどこかにあれば教えていただけけないでしょうか？
理想はASPですが、PHPやPerlでもOKです。Javaは……移植できるかなぁ(^^;
（それを言い始めたらPHPやPerlだって一緒ですが（苦笑）

>>478
識別番号拾うためにはユーザに操作してもらわなあかんぞ

>>478
utn付けない場合は勝手に送られるのかな？

まぁ、この程度の文字列操作だったらそんな感じで強引にやった方が良いと思うよ。
敢えて言えば文字数が一定なのを使った方がいいとおもうけど。
スマートにしたいのも分かるけど、1行で拾える程度じゃん。

すまん。FOMAとPDCで桁数が違うんだね。

お返事が遅くなりました

>479
ええ、そこが悩みの種なんですよね。Vodafoneは一回設定してもらえばOKですが、DoCoMoは送信するたびに許可を求めてきますから……

>481
でし(T_T)　まぁ、>>478でどうにかなると思うんですが、他に「ser」という文字列が入る可能性も無くはないですからね。それがちょっと心配です。

ASPでDBからxlsに出力するプログラムを書いているんですけど
Range("B1").Select
ActiveWindow.FreezePanes = True
と書いても出力先のxlsファイルでは枠の固定がされてません。
書き方が悪いんでしょうか？

事故解決しました。
objExcelSheet.Cells(2,1).Activate
objExcelApp.ActiveWindow.FreezePanes = True
~~~~~~~~~~~~~
これが抜けてただけでし他。

すいません、ちと質問です。

ASPからメール送信を行いたいんですけど、SMTPサーバ(sendmailとか)は
別途用意する必要があるんでしょうか？
ＩＩＳ付属のＳＭＴＰってのじゃだめなんですか？
それと、送信のみなので、ドメインの取得は必要ないですよね？

qmailサーバをなんとか一度だけ立てた、このヘタレにご教授ください〜。

>>485
どうやって送るかによる。BASP使うのなら利用できるSMTPならＩＩＳだろうがSendMailだろうが
（ローカルでなくても）何だって良い。
CDONTS使うのならIISでSMTP立てないと多分無理。こっちのほうは使ったことないのでよく分からんが。

ドメインは取る必要ないが、相手先によっては、けられる恐れあり。
うちの会社じゃDNS逆引き出来ないとこから来るのははじいてる。

とりあえず外部公開してるサーバでSMTP立てるのだったら設定は慎重に頼むぞ．．．

質問です。まあよくある普通のサイトをたちあげたのですが、
ＡＳＰファイルを更新したので、あららしいファイルを上書きしたのですが、
ブラウザでいくらキャッシュ消したり、再読み込みしても
もう存在しないはずの旧ファイルの内容を標示してしまうことってありませんか？
発生条件がほんと謎なのです。なったことあるひといますか？
ちなみにこの状態におちいると、その箇所のＡＳＰファイルをすっこぬいて
カラにしてしまっても動き続けます。ファイル無いはずなのに標示されます。

>>487
NT4で何回かそんな現象にぶち当たったことあるな。
鯖再起動したら直ったけど。
ん〜ひょっとしたらサービスの再起動だけで直ったかも。
最近NT4いじってないんでよく覚えてないや。

これが、Ｗｉｎ２０００サーバでもおこりました。
ＩＩＳだけ再起動でも直ります。
ただ、なぜ、いつ、発生するのかが謎なのです。

アプリケーションプールのせいではないの？
ごめん。適当に思いついただけです。

>>486
ありがとうございます。
やるとしたらBASPは使います。
調べたら、これって同一LAN内にSMTPいなくてもOKなんよね？
はじめに思っていたより、実は簡単・・？

かなりの初心者です。よろしくお願いいたします。

XPにapacheをインストールしてaspファイルとhtmlファイルを作成しました。それを以下に記します。

vbs06a.html===============================================

<HTML lang="ja" >
<HEAD>
<TITLE>VBScript 06a</TITLE>
</HEAD>
<BODY>
<FORM action="vbs06a.asp" method="get">
<!-- ここにFormタグを入力 -->
<INPUT type="text" name="txt1" size="3" maxlength="3">
-
<INPUT type="text" name="txt2" size="4" maxlength="4">
<BR>
<INPUT type="submit" value = "決定">
<INPUT type="reset" value = "リセット">
</FORM>

</BODY>
</HTML>
===========================================================
続きへ

vbs06a.asp=================================================

<HTML>
<HEAD>
<TITLE>VBScript 06a</TITLE>
</HEAD>
<BODY>
入力された郵便番号は

<!-- ここにスクリプトを入力 -->
<%= Request.Form("txt1")%>-<%= Request.Form("txt2")%>
です
<BR><BR><A href="vbs06a.html">back</A>
</BODY>
</HTML>
==========================================================

htmlファイルに郵便番号を入力して、決定を押したらaspファイルでその郵便番号を表示するはずなのですが、その郵便番号の箇所(txt1とtxt2)のみ表示されません。"入力された郵便番号は"などのコメントは表示されます。

どうしてこのようになるのか今は全く検討がつきません。環境設定の問題なのでしょうか？
どなたかご教授願います。

method="get"
を
method="post"
にしてみれ。

>>494
ご返事ありがとうございます。

結果は変わらなかったです。

すまん。
今気付いたけど、
>XPにapacheを
って釣られたのか？ orz

>>496
はい、XPに入れましたが、やはり問題あったのでしょうか？

>>496
http://www5a.biglobe.ne.jp/~n_rieko/asp/1.htm

↑
に動作環境として載っていたので、大丈夫かと思っていました。

どこにapacheで動作するって書いてあるんだ？

はじめまして。
ASPとSQLserverを使ってるんですが、今２つのデータテーブル（フィールドはどちらも同じId、Name、Address、Tel）を１つにまとめたいと考えてます。
ただ、そこで問題なのがおたがいのIDが重複している可能性があるので、一度両方のデータセットを取得して、IDの衝突がないことを確認してその時点でのクエリ
（rs配列にあるValue）をInsertしていく・・という方法を考えています。
ひとつのデータベーステーブルから値をひろって、それを別のデータテーブルに
格納したいのですが、変数を使う場合SQL文はどう表記すればいいのでしょうか？

Set rs=conn.Execute("Select * from table1")
で、これをテーブル２に
conn.Execute("Insert into table2 (Id,Name,Address,Tel) values rs("ID")& ",'" & rs("Name") & "','"& rs("Address") &"','" & rs("Tel") &"'" ）
これだとエラーになってしまうんです。

いろいろと「"」や「'」で囲ったりしてみたんですが、やればやるほど泥沼にハマってしまいました。。(^^;)
すいませんどなたか助けてください。

>>499
すいません。
書いてませんね。
なんか頭の中が混乱していたようです。

つまりapachはXPをサポートしていないということでしょうか？
このスレで聞いていい質問なのか分かりませんが・・・。

>>501
釣りにマジレス?
ASPはApacheじゃ動かないだろ。
IIS以外でASPって動くのか。

>>502
あるにはあるが
http://jp.sun.com/software/interoperability/chili/
こんなの買うくらいならふつー最初からIIS使うわな。

>>500
そんなバッチ更新わざわざASPからやる必要ないんじゃ．．．
osqlなりエンタープライズマネージャーからSQL文で１発で更新かけれる。

こういうのもある。意義があるとは思えないけど。
http://asp.nishinari.or.jp/

>>500
とりあえずCreateParameterでやった方がいいよ。

>>503
本当ですか？エンタープライズマネージャーのどの機能ですか？
教えて君ですいません。。またその際のSQL文とはどんなものでしょうか・・？

>502
Apache::ASPってのもあることはある。
こいつはapache+mod_perl環境を前提としたPerlによるASPのエミュレートぽい環境。
それなりに使えるようには思うが、結構導入がﾏﾝﾄﾞｸｾので、
そこまでしてApache - Perlの組み合わせでASPをやるかとなると……
玩具には楽しいけどね。レガシASPに比べれば多少機能アップも図られてるし。

>>506
2つのテーブルがまったく同じ構造なら UNION句を使うとか。
思いつきだけで書いてるけど。

>>506
キーが重複してないデータだけ抜き出すビュー作成→そのデータをコピペで良いんじゃねーの？
ていうかスレ違い。

IISでASPを動かそうと考えています。

IISの設定は終了しています。
IISではapacheのようにlocalhost/ASP（ASPはフォルダ）のようにフォルダ内のファイル一覧表示って出来ないのでしょうか？
URLにファイル名までのパスを入力するとそのファイルの表示は出来ています。

どなたかよろしくお願い致します。

↑
すいません。出来ました。
失礼致しました。

>>500

ASPでやるべきかどうかは置いといて、

conn.Execute("Insert into table2 (Id,Name,Address,Tel) values (" & rs("ID")& ",'" & rs("Name") & "','"& rs("Address") &"','" & rs("Tel") &"'" ）")
じゃないかな？

SQL文は先に変数に入れて Response.Wrtie してみれば、ちゃんとした構文になってないのがすぐ分かる。
あと、パラメータ使わないにしても、Replaceで ' を '' に変換くらいはしたほうがいいかと。

一度、表示できたのに、再起動してから表示できなくなるようなことってあるのでしょうか？
そのときのエラー内容を以下に記します。
また、その下にエラー箇所のソースを記します。

どなたか何かお気付きの方がいっらしゃれば、ご教授の程、よろしくお願い致します。

エラー タイプ
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]一般エラー レジストリ キー 'Temporary (volatile) Jet DSN for process 0x954 Thread 0xa9c DBC 0x111dc3c Jet' を開くことができません。
/スーパーサンプル/samples/7 アプリケーション/7-5 スケジュール/sche.asp, line 275

'=================================================
'-----　DB接続
'=================================================
Sub ConnDB()
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("sche.mdb")
End Sub

上記のうちの
ObjConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
の行のようです。

>>513について補足します。
ソースをほかのPC（OSは同じ。XP）に移して動かしたところ、ちゃんと動きました。
どこに違いがあるのか分かりません。

>>513-514
動かないPC（ノート）で動かせるようにしないといけないので、どなたかご教授願います。

動作環境についての質問なんですけどいいですか？

イントラ限定でクライアント10台くらいでWin2000鯖＆SQL2000で在庫管理システム
構築しようと思ってます。鯖って1台（IIS＆SQL）でいいかな？それとも2台（IISと
SQL）あったほうがいいかな？ていうとないとダメ？教えて君ですいませんがどなたか
ご教授願います。

あ、鯖はごく一般的（PEN4？3G？＆Mem1Gくらい？HDD40GB）です。それとトランザク
ションは発生が1000件/日、更新は300件/日、くらいのもんです。

>>516
> トランザクションは発生が1000件/日、更新は300件/日、くらいのもんです

1台で十分。
もっと言えばMSDEで十分

以下のエラーが出ます。

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 更新可能なクエリであることが必要です。

そこでマイクロソフトのサポートで調べてみて、以下の文がありました。
http://support.microsoft.com/default.aspx?scid=kb;ja;175168

=========================================================================================
最も頻度の高い原因は、デフォルトで "Everyone" グループに含まれているインターネット ゲスト アカウント
(IUSR_MACHINE) に、データベース ファイル (.mdb) に対する書き込みのアクセス許可がないことです。
この問題を解決するには、エクスプローラで、対象のファイルのプロパティの [セキュリティ] タブを修正して、
インターネット ゲスト アカウントに適切なアクセス許可を付与します。
=========================================================================================

この文の、”対象のファイル”というのは、mdbファイルだと思っても差し支えないでしょうか？
というのも、対象となるmdbファイルのプロパティを参照しても、「セキュリティ」というタブが
見つからないのです。
今、私は上記の文の通りのことが出来てません。
"Everyone"グループというのも分からないし、インターネット ゲスト アカウント (IUSR_MACHINE)も分かりません。
どなたかどうすればいいか教えて頂けないでしょうか？

>>518について補足します。

ブラウザからmdbファイルをクリックすると、「ファイルのダウンロード」になります。
そこで、「開く」をクリックすると、以下のメッセージが出て、ファイルを開けません。

=======================================================================
このファイルを開けません。
このファイルは、イントラネット外または信頼されていないサイトに保存されています。
セキュリティ上問題がある可能性があるため、ファイルを開きません。
ファイルを開くには、ローカルマシンまたはアクセスできるネットワークの保存場所に
いったんコピーしてください。
=======================================================================

やはりブラウザからmdbファイルをダウンロードして、開く事が出来るようになれば、
うまくいくような気がしています。

どなたか、何かお気づきの方がいらっしゃいましたら、ご教授の程、よろしくお願いいたします。

>>518-519
おいおいおいおーい！いったい何をやろうとしてるんだ！？
なんだか((((;ﾟДﾟ))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

せめて環境書け

>>520,521
すいませんでした。

環境は、windowsXPです。
これ以外に何を書けば良いでしょうか・・・・？

なお、これは先ほど解決いたしました。
「対象のファイルのプロパティの [セキュリティ] タブ」は、
フォルダオプションの設定を変えることによって出現しました。
それにより、アクセスを許可でき、解決となりました。

mdbをダウンロードしたのは、ただmdbファイルがアクセス不許可になっている
ことが原因であるということがはっきりしているという意味で書かせて頂きました。

＞対象となるmdbファイルのプロパティを参照しても、
＞「セキュリティ」というタブが見つからないのです。

NTFSならフォルダオプションで表示させられるはず。

なんだか話にならん質問だな。
もうスルーしようぜ。

メルマガを作りたいんですが、さっぱりわかりません。
ＢＡＳＰ２１のメール送信機能をお客さんリスト分ループさせて
１件づつ送信すればよい？

すいません。
SMTPなしでメール送信することなんてできないですよねぇ？
出来るって話をする人がいて、一応調べてるんですけど・・。
BASP使っても、SMTPは必須なんですよね？

>>526
必須です。
ただし、SMTPサーバはIISと同じサーバでも別のサーバでもインターネット越しのサーバでも構いません。

basp21.socket使って直接送信先鯖につなげばこっち側にSMPT鯖立てなくてもいけるかも。
非常に邪魔くさそうなので試す気無いけど。

>>527-528
ありがとうございます。
やっぱり、普通は必要ですよねぇ・・。

ASPで配列の要素をキーをもとに削除する便利方法ないですかね？

キー？言語は何よ？

配列じゃなくてScripting.Dictionary使えば。

IIS5なんですが、IEに右上の×ボタンを押されたことを
ASP側で拾うことは出来ますか？
SESSION変数の後始末をしてあげたいもので・・・

ブラウザが閉じられたことを直接にサーバ側で知る一般的な方法はない。
ただ、それによって「ブラウザが閉じるまで」のクッキーは失効するから、
次に同じ(と思われる)クライアントがセッションIDを持ってなければ、
それまでのセッションが切れたと判断され、Session_OnEnd()が呼ばれる。
そこで後始末しる。

……で良かったっけ? 何か書いてて不安になってきたのでツッコミよろすく。

セッションが後始末されるタイミングはSession.Timeoutしかないのでは？
ブラウザを閉じた同じクライアントから再度接続したときにセッションが切れている
のはクライアントがセッションクッキーを破棄したからで、サーバにSession情報が
残っていないのではない。
何らかのタイミングでAbandonするか、タイムアウトするまでセッションの情報は
消えません。
んで、クライアントがブラウザを閉じたというタイミングをサーバは知りえないので、
結局タイムアウトで消えるまでは残りつづけるかと。
Session_OnEnd()に後始末書いとけって結論は同じです。

BODYのonUnloadでwindow.open('end.asp');
end.aspでSession.AbandonしてBODYのonLoadでwindow.close();



なーんてね（　´∀｀）

<%@ Language=VBScript %>
でも//がコメントに使えるのはなぜですか？

>>533
536な感じでonUnloadと併用すればできる。
ただし、フレームとか使って遷移しないページに貼ること。
unLoadの時のJavascriptも使えるのが限られる（location.hrefはダメ）からいろいろ試してみ

すんません、教えてください。
javascript の　
<form>
<Input 〜略〜　onclick = "関数名">
みたいなことは、ＡＳＰでもできるのですか？
またできるのでしたら、やり方を教えてください。

あ、説明不足でした。
<form> のactionでaspページへはジャンプしたくないのです。
ボタンを押したときに、表示しているページをかえずに
関数を走らせることはできるのでしょうか。

>539
ASPのページは読み込まずにASPの関数を呼びたいのか？
なんにせよASPの関数を呼ぶためにはASPのページをpostするしかないと思うのだが。

そうですよね・・・
表示がかわらないで関数を呼べればと思ったのですが。
最悪関数の最後に元のページに戻る一文をくっつけてみます。
ちょっと構造的に不細工な気もするのですが。
ありがとうございました。

>539
目的がよくわからんが、ページ遷移伴わずにサーバに処理させたいんなら
リモートスクリプト使えばいいんじゃないの？

「いろんなファイルを京ぽんで見るCGI」
をASPで、実現できないでしょうか？
現在はVBSScriptを使ってMS-WordやExcelのファイルを
html変換しています。

>>544
自分で何かやってみたの？

質問です！！
ASPの変数にJavascriptの変数の値をいれることってできますか？

できる
Request.Form か Request.QueryString で取りなされ

>>547さんレスありがとうございます。
submitなしでする方法はないですかね。。

すいません、質問です。

電文を受信し、それを解析して電文送信を行うＡＳＰを作成しているのですが、
同一の宛先から複数回電文受信した場合、明示的にセッションを切断しなければ、
同一セッションとみなされるのでしょうか？

教えてＡＳＰの中の人！

電文を受信・・・？
それは電文を受信するライブラリの作りによるよ。きっと。

ASPで
画像のサムネイルを動的に作成する方法を教えてください

横150ピクセル×縦100ピクセルのエリアに
縦横比を変更せずに
表示できるサムネイルができればいいんですが・・・


たとえば
横300ピクセル×縦180ピクセルの画像を

横幅は表示エリアにあわせて
150ピクセル
縦幅は縦横比を変えずに
90ピクセル
の
横150ピクセル×縦90ピクセルのサムネイルを作成

画像と縦横のピクセルを指定すると
最適化されてくる関数等があればなおいいんですが・・・

>>551
IMGタグのwidthとheightを変更するんじゃなくて
ファイル自体を生成するってことですか？

>>552
そうです。
ファイル自体変えれればいいなと思ってます。

固定でwidthとheightを変えちゃうと
縦横比がおかしくなっちゃうから・・・

>553
すこーしオーバースペックかもだがImageMagickを使ってみては。
Windows用のバイナリ配布ならCOMブリッジがあるから、ASPからも使える……はず。
実際に試した訳じゃないんであかんかったらスマソ。

ASPでリモートホスト名取るのって
やっぱりPerlと連携させるのがベストなのかな？

>>555
requestじゃあかんの？

すいません。
以前basp21でのメール送信に関して質問させていただいた者です。

いま、baspを使ってメール送信のテストを行っているのですが、
うまくPOP認証がされません。
具体的には、Path is not Directory のエラーが出るのですが、
これは単に受信データの存在するディレクトリがない、という
ことだと思うのですが、テストSMTPはLinuxなので、システムドライブが
何なのかわかりません。
また、本番SMTPはあるプロバイダのメールアカウントを使用しますので、
受信ディレクトリを教えてくれるかもわかりません。

そこで、ディレクトリを指定しないでもPOP認証を通る方法はありませんでしょうか？
宜しくお願いします。

勘違いしてました。

rc = object.RcvMail(POP,User,Pass,"STAT",Dir)
の"Dir"は、SMTPサーバのメールデータ保存ディレクトリではなく、
basp存在サーバのディレクトリですよね？
認証通るようになりました。
失礼しました。

用語むちゃくちゃじゃねーか。
メール送信→メール受信だろ．．．

あと
>basp存在サーバのディレクトリですよね？
違うだろ．．．
リファレンスぐらい見れ。
http://www.hi-ho.ne.jp/babaq/basp21.html#0004

失礼。
POP Before SMTP 認証を通すために、
一旦受信をしています。

外部にあるサーバのデータベース(SQLサーバー）へ
別のWEBサーバのASPからアクセスしたいんですが
どうやって接続すればよいんでしょうか？

WEBサーバの方に適切なDSNを設定しておけば
　Set ObjConn = Server.CreateObject("ADODB.Connection")
　ObjConn.Open ("DSN=？？？？")
で開けるんでしょうか？
またはDSNを使用しない場合は何を指定すればいいんでしょうか？

すんませんがご教授お願いします

>>561
DSNに書いたらODBC接続になるぞ

var adcn = Server.CreateObject("ADODB.Connection");
with (adcn) {
ConnectionString = "Provider=sqloledb;Data Source=xx.xx.xx.xx;User Id=sa;Password=;Initial Catalog=NorthWind";
Open();
}

これだけでいい

突然session情報がなくなってしまう現象に困ってます。
IIS5なんですが、ログインしてsessionに情報を保持したあと、
サイト内を移動していると、不特定の場所で突然ログイン画面に遷移します。
各画面の先頭でsession保持チェックを入れてあって、
そこでsession情報が突然失われてしまう、というところまで確認しています。
しかも、ログイン画面に飛ばされると、sessionのＩＤも変わっています。
起きる時は立て続けに発生し、起きない時はぜんぜんおきません。。。

sessionはログアウト時にAbandonしています。
それ以外ではAbandonしたりはしていません。
サーバのホスト名にアンダーバーも入れてません。

ホトホト困り果ててしまいました。。。
一体何が起こっているのでしょうか？
少しでも何かわかる方、教えてください。
お願いします。

>>563
cookie情報を含めたLOGを取ってもわからない？
というかそれを晒してみれば？

>>564
IISのログを取得してみたんですが、
ログイン画面に飛ばされる（要はsessionがなくなる前）までは、
ASPSESSIONID・・・の記述があるのですが、
sessionがなくなってログイン画面に飛ばされた時には，
ASPSESSIONID・・・の記述そのものが「きれいさっぱり」なくなってます。。。

>>565
そのASPSESSIONIDをなくしてしまうページを確認しろということでしょ。
ログをさらさなければこれ以上的確な提案はできない希ガス。

メモ

257757 - [OFF2003] [INFO] Office のサーバーサイド オートメーションについて
http://support.microsoft.com/default.aspx?scid=kb;ja;257757

ここってアスパラギンのスレ？

そうだ

漏れはアスパラドリンクのスレかとおｍ(ry

.NETもいっとく?

原因分かりました。。。
[IE55][IE6] ローカル HTML ファイルを使用するとセッション Cookie が失われる
http://support.microsoft.com/default.aspx?scid=kb;ja;315713

参った。。。
セッションcookieなんて、有効期限決められるのでしょうか？？？
触れないと思うんだけど・・・。
ダミーウインドウ開いておけと？
嫌だなぁ。。。

Session.TimeOutで設定されないんかな？

>571
つーか素直にIIS/PWS経由でアクセスするという手はないんかいな。

質問です。

Recordsetオブジェクトを、Closeしないで処理終了した場合は、
そのオブジェクトや、メモリはどうなるのでしょうか？

ページの終わりでCloseされて破棄されます。

>>575

ありがとうございます。
ということは、オープン中に発生したエラー処理での
クローズはあんまり考えなくていいですよね？

教えてください。
MSの↓のツリービューを表示したいのですが、（DBの部分は関係なし）
http://support.microsoft.com/default.aspx?scid=kb;ja;183329
win2000 IE6.0の端末ではオブジェクトが表示（ロード）されません。
（XP+IEはOK）
ツリービューを表示させるのには何が必要ですか？

ほsyu

C#で開発できますか？

>579
ASP.netなら。
しかし、たまーに.aspxなサイト見かけるようになってきたが
総本山のサイトに未だ.aspなページが多いのはなんでだろ〜♪

やっぱ.NET使わないとダメですか・・・
サンクスです

>>577
誰か助けてくれ

>>582
スレ違い

>>583
どこで聞けばいいのでしょう？

>>584
XP+IEで表示されるのならサーバ側にゃ問題ないのではないかい？
IEのセキュリティ設定が問題じゃねぇの？

>>585
確かにサーバー側の問題ではなくユーザー側ではあると思います。
VBやVisual J++をインストールされている端末は表示されます。
VBやVisual J++がインストールされていない端末で表示したいのです。
（xpはインストールされてなくても表示されます）
ここはスレ違いだと思いますが、どなたか教えてください。

no1.aspから no2.aspを JSの window.openを使い新規ウィンドウで開きます。
その際、no1.aspのSession情報、Request情報もno2.aspに引き継ぎたいのですが、うまくいきません。

no1.asp側で
window.open("","test");
document.form_1.target = "test";
document.form_1.action = "no2.asp";
document.form_1.submit();

とすると、Request情報を取得することができました。
しかし、Session情報の取得が出来ませんでした。

no1.aspとno2.aspで Session.LCIDとSession.SessionIDを出力してみたところ
SessionIDが違う値になっていました。
Session情報を引き継ぐことは無理なのでしょうか？
お願いします

>587
自分もなったよ。最近。どうしようもなかったから
"no2.asp?xxx=0&yyy=1";
とかにして Request("xxx")で取得した

>>587
セッションは基本的にプロセス単位に持つから、別ウィンドウでプロセスが変わるIEは無理。
逆に言えばタブブラウザは複数のウィンドウでも1プロセスなので引き継ぐことが可能。

納得しましたThxです。

保守

Abandon後にSession.SessionIDを参照しても
前と同じIDなのは正常な挙動？（Session.Contentsはしっかり初期化されてる）
Session.Abandonメソッド：セッション情報を破棄
みたいな説明が多いんだけどこれってSessionIDも破棄するって
ことではないの？

同一ページ内なら正常な挙動です。

Abandon メソッドを呼び出すと、現在の Session オブジェクトが削除のためにキューに退避されますが、
実際に削除されるのは現在のページのスクリプト コマンドの処理がすべて完了した時点です。
つまり、Abandon を呼び出したページ内であれば Session オブジェクト内の変数にはまだアクセスすることができますが、
その後の Web ページではアクセスできなくなります。

だそうで。

セッション破棄したページ以降のリクエストで以前と同じSessionIDが採番されてるようなら異常だと思う。

592ですが返答ありがとうございます。敬語使います。

abandonを呼び出しているページを更新しても、一度ブラウザを落としても
以前のSessionIDが配番されます。タイムアウトを1分に変更して1分ごとに
みてみたんですが、これも以前のSessionIDが配番されます。セッション変数
(Session.contents)はきちんと破棄されています。けれどふとした拍子に
依然と異なるSessionIDを配番しやがります。理由の特定はできなかったです。

というような感じの挙動でした。回避策はとったんですが思い通りに動かないのは
気持ち悪いです。自己解したら報告に来ます。

セッションIDって同じものが別のクライアントに割り当てられることもあるって仕様でなかった?
だからDBのキーにしたりすることはお勧めできない、って。
単に空いたIDを使い回しているだけってことじゃないのかな……

592ですが自己解決しました。
http://windows.microsoft.com/windows2000/ja/server/iis/default.asp?url=/windows2000/ja/server/iis/htm/asp/iiapsess.htm?id=196
本家のドキュメントからの引用です。
＞＞唯一、ユーザーが新しい SessionID cookie を受け取るのは、
＞＞サーバー管理者がサーバーを再起動してメモリに格納された
＞＞SessionID の設定を消去するか、ユーザーが Web ブラウザを再起動した
＞＞場合のみです。
Session.AbandonではSessionIDは破棄されません。
>>594で再起動させたのにIDが変わらなかったのは、ショートカットからそのページに
飛んでいた（ブラウザにSessionID Cookieが残っている）からでした。
アドレスを手入力するとあっさりSessionIDは変わりました。

ご迷惑かけましたっていうか一人でドタバタしましたとさ

ASPからADSIを使用して、ActiveDirectoryの認証を行いたいのですが
この際に、パスワード有効期限切れや、アカウントロック中などのメッセージを
必要に応じて表示させたいと思います。
上記情報のパラメータ（？）の取得方法をお教え願いたいのですが。

また、ADSIのバージョン確認法も教えていただきたく思います。
よろしくお願いします。

ユーザーが数値を入力し、
動的な折れ線グラフを出力したいのですが

まずどうしていいのか分からないので
どうぞ一つよろしくお願いします。

>598
まず入力された数値をオウム返しに表示するページを作りんさい。
絵(グラフ)を描くのは適当にコンポーネント探しんさい。
オーバースペックで良ければImageMagickとかあるし。

>>597
http://support.microsoft.com/default.aspx?scid=kb;ja;323750
http://support.microsoft.com/default.aspx?scid=kb;ja;184619

perlとかだとpath_infoを用いて動的URLを静的に見せることができますが
（たとえば、hoge://hoge.hoge.cgi?aaa=123&bbb=456 → hoge://hoge.hoge.cgi/123/456.html）
同様のことがASPでもできるんでしょうか？

>>601
>>292-293

>>602
さんきゅー。でもリンク先が４０４＿|￣|○

>>601
ttp://web.archive.org/web/20040224002756/http://program.station.ez-net.jp/products/isapi/URLParamFilter/index.asp

>603
未確認でスマンかった。
↓になってるみたいだね。
ttp://program.station.ez-net.jp/products/isapi/URLParamFilter/v1.1/

>>604
>>605

わざわざありが�d（・∀・）

ウィンドウの閉じるボタンを使用不可、またはクリックされたイベントを取得し制御したいのですが無理でしょうか？
javaスクリプトで制御できるのかと思ったのですが、ググってみると出来ないという回答しか見つかりませんでした。
お願いします。

>607
ASPでどうこうできる話ではないぞ。

>>600
ありがとうございます。
早速試してみたのですが

-2147463156
ディレクトリのデータ型と、ネイティブ DS のデータ型を相互に変換することはでき
ません
Active Directory

とエラーが出てしまいます。
立て続けで申し訳ないですが、教えてください。
お願いいたします。

Global.asa の Application_OnStartでアプリケーション変数を初期化して、
その後で必要に応じて値を変更してるんだが、
IIS 6.0 でアクティブな ASPセッションが何もない状態
（Abandonしたりタイムアウトして生きてるセッションがなくなった状態）
が続くと、いつの間にかアプリケーション変数が初期値に戻っている。

IIS 5.0 では同じコードでもそういう現象はなかったんだが、
メタベースかどこかの設定を変えてやる必要があるんだろうか。

↑アプリケーションプール DefaultAppPool のプロパティのパフォーマンスタブの
一番上にある、アイドル時間の監視（20分でプロセス終了）をやめたら
解消しますた。

>>607
基本的にはできないけど、銀行とかのログインサイトで使用されているメジャーな方法としては

フレームを使ってフレーム内でページ遷移させるようにする。
フレームのHTMLにonUnloadイベントをつけて、ログアウト処理を行うaspに飛ばす

こうするとブラウザの閉じるボタンを押した場合も、別サイトに飛んだ場合もログアウト処理が走る。

但し流行りのタブブラウザの場合は、閉じるボタンを押すとonUnloadが働かないので注意

'=================================================
'-----　DBにデータを追加
'=================================================
Sub UpdateDB()
StrSQL = "insert into member ("
StrSQL = StrSQL & " name "
StrSQL = StrSQL & " mail "
StrSQL = StrSQL & ") values ("
StrSQL = StrSQL & "'" & name & "',"
StrSQL = StrSQL & "'" & mail & "'"
StrSQL = StrSQL & ")"
ObjConn.Execute(StrSQL)　　　　（←この行が違うといわれるのですが・・・）
If Err = 0 Then

End If
End Sub


アドバイスくらはい

>>613
ObjConnはどこで定義してるの？

>StrSQL = StrSQL & " name "
>StrSQL = StrSQL & " mail "
カンマ入れなくて良いの？

>615
そこは列名だからカンマ要らないっしょ。

とりあえず613は「違うと言われる」という内容のエラーメッセージを
表示されたそのまんまコピペしる。でないとわからん。

スマヌ。カンマとクオートを取り違えた。
てことで>615でいけそうですな。

>>616
エラー タイプ
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO ステートメントの構文エラーです。
/scripts/id.asp, line 176

>>614ｻﾝ

DimObjConn,ObjRS

中略

'=================================================
'-----　DBに接続
'=================================================
Sub ConnDB()
'スクリプトと同じフォルダにあるAccessのpass.mdbに接続します。
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("pass.mdb")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open DBname
StrSQL = "select * from pass"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn,3,3
End Sub

>619
念のため書くけど,SQLステートメント(この場合はStrSQL内)に間違いがあると,
ObjConn.Execute(StrSQL)の行を実行するときににエラーが出るのよ.

>618
いや、616は、617に書いた通り漏れの勘違いカキコ。
実際貼ってもらったエラーの文言からしても、615の指摘が的を射てるっぽいね。
ってことで、615の修正は試してみた?

>>613
SQL文をそのまま書くのは間違えやすい（特に「'」とか）し、パフォーマンスも若干落ちるので
Recordset出してAddnew()したほうがいいよ。

>>613
116は無視して115の言うとおりカンマ入れろ。

>>622
Response.Write StrSQL するなりしてちゃんとチェックすれば無問題。
むしろRecordSet使うほうがパフォーマンス悪いﾖｶﾝ。


クエリの実行でエラーになったときのデバッグの基本は
　１．Response.Write StrSQL して目視チェック。
　２．Response.Writeの結果のSQL文をクエリ実行環境(SQL Serverの場合はクエリアナライザ、
　　　アクセスの場合はクエリ作成→左上のアイコンをプルダウンして「SQL」を選んだ状態)
　　　でコピペ　→実行！　→エラー内容を見る
でつ（・∀・）！

あの〜申し訳ない・・・。
カンマはどこに入れればよろしいのでしょうか？

insert into member (name mail) values ('ねーむ','めぇる')
insertの構文を見直してみよう。特に列の所。

>ASP素人殿
つーか、ちゃんと基礎からＳＱＬの勉強しようZe!
「お勉強ページ 勝手にリンク　まとめサイト」スレより「SQL/DB」関連のリンク
http://program2ch.jugem.cc/?cid=14

高校生の冬休みの宿題か？

・・・ってまだ早いかｗ

WINDOWS　XP Pro SP2+IIS5.1の環境で以下のスクリプトtest.aspを
ブラウザ（ＩＥ）で実行すると固まった状態になります。
どのようなことが考えられますか？
また、タイムアウトなりおこしてエラーとか出力する方法はないの
でしょうか？

ーーーーーーーーーーーーー以下スクリプトーーーーーーーーーーー
<% LANGUAGE=VBScript
DIM obj
DIM fo
Set obj=Server.CreateObject("Scripting.FileSystemObject")
Set fo=obj.OpenTextFile(Server.Mappath("text1.txt"),1,True)
Response.Write fo.ReadLine
fo.Close
Set fo = Nothing
Set obj = Nothing
%>

>628
とりあえず、4行目のServer.Mappathがちゃんと目的のファイルのパス返してるかどうか、
そっから下のコードをコメントアウトして確認してみては。
あと、それだと一行読んで表示して終わりだけどそれで合ってるの?
ひょっとしてループのコード削ってカキコしてない? だとしたらループの終端条件も
チェックしてみませう。

>>628
InetMgr > 仮想ディレクトリのプロパティ > ディレクトリタブ > アプリケーションの設定欄 > 構成ボタン > デバッグタブ

　　デバッグのフラグ: 両方にチェック
　　スクリプトのエラーメッセージ: 上を選択

とりあえずこの設定をすればブラウザでエラーを拾える

text1.txtはブラクラではないよな？

>>628
まず、固まった状態とは何がどう固まっているの？
IEが反応しなくなって強制終了するしかなくなるってこと？
それともサーバから何も帰らないってこと？

>>628
ノートンのスクリプト遮断機能をあぼーん汁！

Server側で動いてるのに意味ねージャン。

>>629->>634のみなさんありがとうございました。
>>633ので解決しました。

>>634
しっかり勉強してください。

管理者が○月○日に使用できるワンデーパスを発行し、
使用者がパスを入力したときにサーバ側でパスから日付を複合化して
Date()と比較して合ってれば、ある処理をさせるようなスクリプトを考えてます。

MD5のような堅固な暗号じゃなくて構わないので、可逆的な暗号を作成する方法を
説明しているサイトとかあるかな？

今自分で考えているのは、許可する日付８桁に四則演算してやって・・・・
と考えていましたが、どうも上手くまとまらないんだYO

たすけて偉い人

「公開鍵」とかでぐぐってみると色々と

秘密鍵でした。逝ってきます

ASPでディスプレイの解像度などの情報を取得する事は可能？

JavaScriptで取得すればよくね？

JScriptでASPを書き始めた初心者です。

ﾃｷｽﾄﾌｧｲﾙに1行ずつ
aaa
bbb
ccc
・
・
・
xxx
yyy
zzz
という文字列の記述があって、
あるaspﾌｧｲﾙにｱｸｾｽする度に、上記ﾃｷｽﾄﾌｧｲﾙを上から1行ずつ読み込み、
かつ読み込んだ文字列をﾃｷｽﾄﾌｧｲﾙから削除する動作をさせたいんです。

どなたか教えて下さい。

>642

1. FileSystemObjectの使い方は知っていますか?
2. 何か、自分の使える言語で「テキストファイルに対する一般的な操作」は書けますか?

1. 2. に「はい」と答えられるなら自ずから問題は解決するはずです。
どちらかが「いいえ」なら、書籍、Web、MSDNのヘルプなどで勉強してください。
(今勉強しておけば、この先ASPでファイルを操作するときに困ることは格段に減ります。)

>>642
var fs = Server.CreateObject("Scripting.FileSystemObject");
var FILE = "C:\\test.txt";
with (fs.OpenTextFile(FILE,1)) {
Response.Write(ReadLine());
var wMSG = "";
while (!AtEndOfStream) { wMSG += ReadLine(); }
Close();
}
with (fs.OpenTextFile(FILE,2)) {
Write(wMSG);
Close();
}

asp書くときにエディタは何使ってます？
vbscriptやhtml、javascriptを効果的に見分けられるような
エディタがあるんですかね。

peggyが対応してたんじゃないかな？
俺はサクラエディタ使ってるけど。

ＡＳＰで実際はテーブルで表が作ってあるのですが、その中で

■■■：FFFFFF

っていう感じで■３つを色コードFFFFFF（白）で表示ってのを
今は作ってあり、今はFFFFFFを直接書き換えて右端に更新ボタンを作ってあり
更新する事により色コードをチェック後DBを更新して■の色も
更新するように作ってあります。

ASPとはほとんど関係ない事ですが、クライアントから■をクリックしたら
別ウィンドウが開いて色の一覧が出て、選択して閉じるボタンを押すと
選択した色が選ばれているような感じにしてくれと言われたのですが、
ペイントみたいな感じは個人的にさけたいのですが、
見栄え的に何か良い方法、もしくは同じような事をやられた方、見えないでしょうか・・
内容的にはWEB商品の色を選ぶみたいな処理なんですが。

処理的には思い浮かぶのですが、IEで色選択をさせるってのを
画面として作った事がないのであえて質問させてもらいました。
よろしくお願いします。

>>647
JavaScript+DHTMLでできる

>643さん
1…何となくですが、基本的な事ならできると思います。
2…JavaScriptしかできませんが、一般的な操作はできてると思います。
ｽｲﾏｾﾝ、本当始めたばかりで右も左も分かりませんが、色々と勉強中です。
頑張って、軽くて負荷の少ない記述とか、ｾｷｭﾘﾃｨｰも考慮した記述などができる様になりたいです。

>644さん
具体的な記述、ありがとうございます！
最初のwhileﾙｰﾌﾟ内にあるReadLineを、ReadAllに書き換えたら、期待通りの動作をしました。
あと644さんの記述で、withの使い方を覚えました。
本当に助かりました。

コードも示さずに偉そうなことほざいてスマソorz

罪滅ぼしに一つサイト紹介。知ってたらまたまたスマソorz
ttp://www.imasy.or.jp/~hir/hir/tech/js.html
ASPをJScriptで書くときに気を付けた方がよいポイントとかあるのでマジお勧め。
/* ちなみに「TIPS編」は目次準備中とあるが中身はちゃんとあるのでちうい。 */

>643さん
いえいえ。
FSOって基本なのに、かなり上っ面なぞっただけで理解した気になってたんで、改めて教科書を読み直すきっかけになりました。
それにJScript解説のページ、すごく参考になります。
VBScriptはよく分からないので、こういうページはありがたいです。

ところで、また分からない所が出てきてしまいました。
落としてきたVBScriptで書かれたｿｰｽの中に、自作でJScriptの記述を入れて、
そのJScriptの記述からVBScriptをﾌｧﾝｸｼｮﾝとして呼び出そうとしているのですが、
上手く動作しません。
ちなみにVBScriptの部分は、お金にからむ処理が記述してあるので、その部分をJScriptで書き直せってのは勘弁して下さい(T_T)

今失敗している記述はこんな感じです。

<SCRIPT LANGUAGE="JScript" runat="Server">
var hensu = new String(Request.Form("hensu"));
if(hensu != "undefined"){ FUN()}
</script>

<SCRIPT LANGUAGE="JScript" runat="Server">
function FUN(){
</script>
<%
　　response.write("FUNファンクションに入った<p>")
　　VBで色々と記述
%>
<SCRIPT LANGUAGE="JScript" runat="Server">
}
</script>

650で教えて頂いたｻｲﾄも参考に調べているのですが、今日18時までに、ある程度形にしないと怒られるんです。（休日出勤の為）
申し訳ありませんが、宜しくお願いします。

ごめんなさい。
上の書き込み、642です

>651
<% @LANGUAGE = JScript %>
<!-- 上はページの先頭行(<html>開始タグよりも前)に書くこと -->
必要なHTML部分を記述
<%
// デフォルトスクリプト言語をJScriptにしたので、scriptタグで
// JScriptのコードを囲まなくても、<%〜%>で代用できる
// むしろ、scriptタグで囲んでしまうと、JScriptコードから
// VBScriptのプロシージャを呼べないっぽい
var hensu = new String(Request.Form("hensu"));
if(hensu != "undefined"){ FUN()}
%>

<!-- <SCRIPT LANGUAGE="JScript" runat="Server">
function FUN(){
</script>
<%
↑ではなく、こう↓する-->
<SCRIPT LANGUAGE="VBScript" runat="Server">
Function FUN()
　　response.write("FUNファンクションに入った<p>")
　　VBで色々と記述
End Function
</script>
<!--
%>
<SCRIPT LANGUAGE="JScript" runat="Server">
}
</script>
-->

<script language="VBScript" runat="Server">
function FUN() {
　　Response.Write "FUNファンクションに入った<p>"
　　'VBScriptで色々と記述
}
</script>

<script language="JScript" runat="Server">
if ((Request.Form("hensu").Item()) != "") { FUN(); }
</script>

654は>>651へのレスね。

>>651
3行目の FUN() に 「;」 がない
JScriptからVBScriptの関数を呼び出す場合はVBScriptの関数を先に定義しておく必要があったような気がする。

漏れもJScript+レガシASP使い。
ここお勧めだから参考にするといいよ。
http://homepage3.nifty.com/aya_js/wsh/wsh202.htm
http://homepage3.nifty.com/aya_js/wsh/index.htm

>653さん、>654さん
ありがとうございます。
土曜日は、残念ながら上からの指示で、全部VBScriptで書くことになってしまいました。
せっかく具体的な記述を頂いたのに、申し訳ありません。
ただ、僕が基本的にJScriptを使っているので、また教えて頂いた記述を使う機会があると思います。
テキストで保存させて頂きました。

で、今日は今日で、新しい壁にぶつかっているのです…。
formから送られた内容を受け取り、変数に代入したら、１度目はいいのですが、それ以降ﾌﾞﾗｳｻﾞの更新をかけても、変数の内容が空にならないんです。

<%　Response.Buffer = true
A = Request.Form("A")
%>
<html><head><title>フォームの練習</title><body>
<meta http-equiv="Content-Type" content="text/html; charset=SHIFT_JIS">
<FORM action="./renshu_form.asp" method="POST">
　　　　Aを入力して下さい<br>
　　　　<INPUT type="text" name="A" size="30" maxlength="32"><br>
　　　　入力内容が正しければ、サブミットボタンを押して下さい<p>
　　　　<input type="submit">
</FORM>
<%
If A <> "" Then
　　　　Response.Write("ifに入った<br>")
End If
%>

これだと、２回目以降、常に変数Aに前回の値が入っているので、必ずif節に入ってしまいます。
また、更新をかける度に「情報を再送信しないと、ﾍﾟｰｼﾞを更新できません」という警告が出るのですが、以前formを使った記述を書いた時は、こんな警告は出なかったように思うのですが…。

申し訳ありませんが、またご教授お願いします。

613です。
みなさんに教えてもらったとおりやってみたのですがだめでした。
カンマ入れたりしても・・・・・・

'=================================================
'-----　DBに接続
'=================================================
Sub ConnDB()
'スクリプトと同じフォルダにあるAccessのdb1.mdbに接続します。
'DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
'Server.Mappath("member.mdb")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Mode = 2
ObjConn.open "member" 'DBName
StrSQL = "select * from member"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn
'Response.Write ObjRS.Fields("name")
'Response.Write ObjRS.Fields("mail")
End Sub

'=================================================
'-----　DBにデータを追加
'=================================================
Sub UpdateDB()
ObjRS.AddNew
ObjRS.Fields("name") = name
ObjRS.Fields("mail") = mail
ObjRS.Update
End Sub

で、結局こういう状況です

エラーが
現在の Recordset は更新をサポートしていません。
プロバイダか、選択されたロックタイプの限界の可能性があります。

となっていますが、神様、教えてください

>>657
通りすがり、かつASPの事はそれほど詳しくないのだけど…

> ObjRS.Open StrSQL, ObjConn

ロックタイプを指定しない場合、既定では読み取り専用のはずだけど。
Openメソッドの第4引数に適切なロックタイプを設定すればいいのでは?

>657
＞ObjConn.open "member" 'DBName
そもそも Conection.Open メソッドに "member" ちうテーブル名だかmdbファイル名だか分からない
ものを渡しているのが気になるのだが。

とりあえず >659 氏の仰るとおり既定のロックタイプは 1(adLockReadOnly) なので、
第四引数に 3(adLockOptimistic) か 2(adLockPessimistic) を指定しよう。

ObjRS.Open StrSQL, ObjConn, ,3

みたいに

とりあえず早速やってみました。

で先には進んだわけなのですが、

'=================================================
'-----　DBにデータを追加
'=================================================
Sub UpdateDB()
ObjRS.AddNew
ObjRS.Fields("name") = name
ObjRS.Fields("mail") = mail
ObjRS.Update 　　　　　（←ここでエラー）
End Sub


Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 更新可能なクエリであることが必要です。
とでます。
もうすこしみたいなのでよろしくお願いします。

ん? OLEDB-ODBCでAccess MDBにつなぐときって、
そもそも更新可能なレコードセット作れたっけ?

一辺、単純にUPDATE文投げてみそ。

っつぅかASP素人殿、mdbの更新対象テーブルには
主キーが存在しますか？

Accessのテーブルは主キーがないと更新できないらしいです。

>662-663
VBScript で以下の文を実行したらちゃんと走ったから、ODBCのせいでも主キーのせいでもない模様。
ASP は環境作るのめんどいからパス。
時に、objRS とか name ってどこで宣言してるの?まさか局所変数だったりして…
objRS や objConn を別のサブルーチンで Close してたり、 "SELECT FROM 〜" の 〜 を
mdb名と勘違いしてたり、objRS が Applcation 変数だったり…

前提
ADOX で JET4.0 の hoge.mdb を作成し、 ADODB.CONNECTION を刺して
connection.execute メソッドで以下の 2つの SQL 文を投入。
CREATE TABLE hoge( id INTEGER , name TEXT(25) );
INSERT INTO hoge VALUES(2, 'mumumu');

--------------------
set c = createobject("adodb.connection")
set r = createobject("adodb.recordset")
c.mode=2
c.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\hoge.mdb"
r.open "select * from hoge", c,,3
r.addnew
r.fields("id") = 4
r.fields("name") = "mamama"
r.update
c.execute "UPDATE hoge set name='mimimi' where id=2"
c.execute "insert into hoge values(5,'momomo');"
r.close
c.close
set r = nothing
set c = nothing
----------------

>>656
> 更新をかける度に「情報を再送信しないと、ﾍﾟｰｼﾞを更新できません」という警告が出るのですが、
POSTで送っているから。
更新すると Request.Form("A") の内容もまた送られてしまうため、Aが空にならないんだと思う。

>>661
connectionとかって関数またげるんだっけ？

そうだ、あと mdb ファイルとそれの格納フォルダに IUSER_{サーバ名}:C (変更)以上の権限があるかも
確認してみれ。ASPの実行ユーザが変えられていたら、そのユーザが mdb を変更できるか。

>>667
確かその場合はエラーメッセージが分かりやすく表示されるはず

>664
>時に、objRS とか name ってどこで宣言してるの?まさか局所変数だったりして…
漏れももしやとは思ったのだが、エラーメッセージがそれらしく出力されてるから
グローバルになってるのかとおもたのだよ。

ASP素人氏には各変数をどこで定義しているか聞きたい。

>>615さん
<%

DimObjConn ,ObjRS

'パラメータを取得します。
name = Request.Form("name")
mail = Request.Form("mail")
act = Request("act")

'デフォルトページを登録画面に設定します。
if act = "" then
act = "ent"
end if



これでしょうか？
一番初めの部分です

> DimObjConn ,ObjRS
　　~~~~~~~
ここにスペースが無いのはコピペミス？

なんとなく原因は>667のような気がしてきたよ。

>670
<%　のすぐ下の行に
Option Explicit
を書き込んでみて。未定義の変数が使われるとエラーが表示されるようになるから。
既に記述していたら不要だけど。
現状では変数の有効範囲が曖昧で混乱を招いているからおながいします。

>>671
それはコピペミスでしたすんません。

>>672
やりました。
そしたら
Microsoft VBScript 実行時エラー (0x800A01F4)
この変数は宣言されていません。: 'name'
/boshu.asp, line 6

と・・・・

権限は一応チェックしますた。

>ASP素人氏
可能なら使用している全ての変数を明示的に宣言して。
あとベタだけどAccessのメニューでテーブル[member]に書き込み権限があるか
みてください。

スレ違いかもしれんが教えください。

ttp://www.geocities.jp/activex_treeview/

↑OS2000　Vbはインストールされていない端末で
ActiveXを使ったツリービューが見れないだよね。
xp や NTでは見ることが出来たんだが・・・？

どの端末もVbが入っていれば見れます。
Vbなしで見る方法ありますか？
Vbランタイムでは×

ASPスレにも書き込むけど、だれか教えて。何が必要なんだ〜？？

>673
「この変数は宣言されていません」っていうエラーが消えるまで
変数を定義しる。ついでにその変数は何のために使う変数なのか
コメント入れとけばメンテが楽になるよ。まぁこの変数名なら分かるけど。

それから更新対象のテーブルの定義を書き込んでみて。
フィールド名とかデータ型の一覧。
そしてフィールド名の左隣の列に鍵マークが付いているか。
Accessならテーブル選んでデザインをクリックかなんかすれば見られる。

>675
マルチは感心せぬが。

classidをレジストリから検索したら、ツリービューコントロールは
COMCTL32.OCX
の中に入っているらしいことが判明。

対象PCにコピーしてREGSVR32.EXEで手動登録すれば動くかも。
※OSがどうなっても保証はしません。知りません。独り言です。気合いでGO!

C:\Temp\www\member.mdbに
テーブル member（主キー無し）
カラム name (テキスト型 サイズ:20), mail (テキスト型 サイズ:20) 作成後、
ASP素人氏のコードを借りて IIS5.0 の環境で下記スクリプトを実行してみた。

(フォーム)

<html>
<head>
　　<title>Test Form</title>
</head>
<body>
<form action="test.asp" method="post">
　　name : <input type="text" name="name" size="20"><br>
　　mail : <input type="text" name="mail" size="20"><br>
　　<input type="submit" name="submit" value="送信">
</form>
</body>
</html>

(test.asp)

<html>
<head>
　　<title>ASP_TEST</title>
　　<%
　　Dim ObjConn ,ObjRS
　　Dim Name, Mail

　　Sub ConnDB()
　　　　Set ObjConn = Server.CreateObject("ADODB.Connection")
　　　　ObjConn.Mode = 2 'adModeWrite - 2 adModeReadWrite - 3
　　　　ObjConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　　　　　　　　　　　　　　"DBQ=C:\Temp\www\member.mdb"
　　　　ObjConn.Open
　　　　StrSQL = "select * from member"
　　　　Set ObjRS = Server.CreateObject("ADODB.Recordset")
　　　　ObjRS.Open StrSQL, ObjConn,, 3
　　End Sub
　　Sub UpdateDB()
　　ObjRS.AddNew
　　ObjRS.Fields("name") = Name
　　ObjRS.Fields("mail") = Mail
　　ObjRS.Update
　　End Sub
　　%>
</head>

<body>
　　<%
　　Name = Request.Form("name")
　　Mail = Request.Form("mail")
　　Call ConnDB
　　Call UpdateDB
　　ObjRS.Close
　　ObjConn.Close
　　Set ObjRS = Nothing
　　Set ObjConn = Nothing
　　%>
　　<h4>テーブルmemberの内容</h4>
　　<%
　　Call ConnDB
　　Response.Write "<table border=" & """1""" & ">"
　　Do Until ObjRS.EOF
　　Response.Write "<tr><td>"
　　Response.Write ObjRS.Fields("name").Value & _
　　　　　　　　　"</td><td>" & ObjRS.Fields("mail").Value & "</td></tr>"
　　ObjRS.MoveNext
　　Loop
　　Response.Write "</table>"
　　ObjRS.Close
　　ObjConn.Close
　　Set ObjRS = Nothing
　　Set ObjConn = Nothing
　　%>
</body>
</html>

テーブルの更新・閲覧共に何の問題も無し。
ユーザー権限とかテーブルのアクセス権に問題が無いなら
やっぱり変数のスコープの問題かも。。。

>>659さん
一応ｺﾋﾟﾍﾟして一部なおしてやってみたのですが、
エラーでがでました。

ってことはおっしゃるとおり

>ユーザー権限とかテーブルのアクセス権に問題が無いなら
やっぱり変数のスコープの問題かも。。。

ということなんでしょうかね〜。

ＩＩＳ５でＸＰproの環境なのですが、
↑のユーザー権限とテーブルのアクセス権について徹底的に教えていただけますか？

>>678-680はインデントを入れる為に全角スペースが入ってる（書き込みの時にタブが無視される）
ので使うなら取り除かないとエラーが出るよ。

>ユーザー権限とテーブルのアクセス権について徹底的に教えていただけますか？

いや、別にそんなに難しい話じゃないのよ('A`)
ユーザー権限については>>660氏が>>667で書いてある事がどうかって事だし、
テーブルのアクセス権は、mdb作成→テーブル作成の間に「ユーザー/グループの権限」
をいじっていなければ問題は無いはずだから(Access2000の話なんでOffice XP以降のバージョンは違うかも）。

気になっていたんだけど、>>670と>>657は両方とも boshu.asp 内にあるのかね？
差し支えなければ boshu.asp のコード全部晒してみ？
それと>>615氏の言っている更新対象のテーブルの定義も。

>>677

どうもありがとうございます。がんがって挑戦してみます。

>>677
駄目ですた。あと何がいるのだろう･･･。

>685
駄目ですたって何が駄目ですたの？
表示されなかったから駄目って書いたのだろうけど、
REGSVR32.EXEでの登録は成功したの？
あと一応登録後、再起動してから試してみた？

っつぅかぶっちゃけ分かんないしスレ違いなので書きたくないのだが(ォ

VisualStudio(6.0)に付いてくるDependency Walkerっつぅツールで
COMCTL32.OCXを覗くと、このファイルが使用している他のファイルのリストが
みられる。

掲示板作ってる途中で、ふと気付いたんですけど。

ﾕｰｻﾞｰAが必要事項を記入してｻﾌﾞﾐｯﾄを押しました。
ｻｰﾊﾞ内のﾃｷｽﾄﾌｧｲﾙがopenして、入力内容を書き込んでます。
この時、ﾕｰｻﾞｰBがｻﾌﾞﾐｯﾄﾎﾞﾀﾝを押したらどうなるのでしょうか？
ﾃｷｽﾄﾌｧｲﾙをcloseする前に、open命令が出る形になるので、ﾏｽﾞｲような気がします。

もしｴﾗｰが出るようなら、解決策、もしくは皆様の対策を教えて下さい。

>>675
参考になるかよーわからんけど
【How to use licensed ActiveX controls in Internet Explorer】
http://support.microsoft.com/default.aspx?scid=kb;en-us;159923

>>685
すみません。
REGSVR32.EXEで登録しました。
レジストリーエディタでID検索したら
hitはしたので登録は大丈夫だと思います。
もちろん再起動もしました。でも表示されませんでした。

Dependency Walkerはこれから使ってみようと思います。

スレ違いなのは承知です。ただどこのスレに書けばいいのだろう･･･。
615氏もう少しお付き合いください。申し訳ない。

>>688
ありがとうございます。頑張ってみます。また結果書きます。

>>688
まじ感動！！出来ました。かなり苦戦いたしましたが表示されるようになりました。
http://support.microsoft.com/kb/159923
ここも参考になりました。615氏もご迷惑をおかけしました。

>687
「ファイル ロック 排他」あたりをキーワードにぐぐってみれ。

具体的にはApplication.LockとUnlockを使うことになるのかな。

>>687

Application.Lock
　　↓
ファイル入出力とか複数ユーザが同時にやるとヤバそうな処理
　　↓
Application.Unlock

Application.LockはApplication変数をロックするだけだよ。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpiis/iishelp/iis/htm/asp/vbob84h7.asp

テキストファイルのロック制御はFileSystemObjectが勝手にやってくれてるものだと思ってるんだが…
その辺詳しい人いる？

<%
Option Explicit
DimObjConn,ObjRS

'パラメータを取得します。
name = Request.Form("name")
mail = Request.Form("mail")
act = Request.Form("act")

'デフォルトページを登録画面に設定します。
if act = "" then
act = "ent"
end if

'登録確認画面でエラーチェックをします。
if act = "entconf" then
flg_err = ""
if name = "" then
flg_err = "name"
end if
if mail = "" then
flg_err = "mail"
end if
end if

'エラーがある場合はエラー表示画面に移動させます。
if flg_err <> "" then
act = "err"
end if

'=================================================
'HTML表示処理開始
'=================================================
%>
<% Call ConnDB'DBに接続します。 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>メンバー募集フォーム</title>
</head>
<body>
<h2>メンバー募集フォーム</h2>
<%
'-- ページ内容の表示
Select Case act
Case "entconf"'登録確認
Call Gamen_entconf
Case "kan"'処理完了
Call Gamen_kan
Case "err"'エラー
Call Gamen_err
Case else
Call Gamen_ent
end select

%>
</body>
</html>
<%
Call CloseDB

'=================================================
'-----　登録画面
'=================================================
Sub Gamen_ent( )
%>
<form method="POST" action="boshu.asp">
<table border="1">
<tr>
<td>お名前</td>
<td><input type="text" name="name"></td>
</tr>
<tr>
<td>メールアドレス</td>
<td><input type="text" name="mail"></td>
</tr>
</table>
<input type="hidden" name="act" value="entconf">
<input type="Submit" name="sub" value="確認">
<br>
</form>

<%
End Sub

'=================================================
'-----　登録確認画面
'=================================================
Sub Gamen_entconf( )
%>
<h2>登録内容を確認してください</h2>
<form method="POST" action="boshu.asp">
<table border="1">
<tr>
<td>お名前</td>
<td><% =name %></td>
</tr>
<tr>
<td>メールアドレス</td>
<td><% =mail %></td>
</tr>
</table>
<input type="hidden" name="act" value="kan">
<input type="Submit" name="sub" value="登録実行">
<br>
<!-- 隠し項目にセット -->
<input type="hidden" name="name" value="<% =name %>">
<input type="hidden" name="mail" value="<% =mail %>">
</form>

<%
End Sub

'=================================================
'-----　処理完了画面
'=================================================
Sub Gamen_kan( )
%>
<% Call UpdateDB()'データを追加します。 %>
<form method="POST" action="boshu.asp">
<table border="0">
<tr>
<td>
<h2>ご登録ありがとうございました</h2>
</td>
</tr>
</table>
<input type="hidden" name="act" value="iti">
<input type="Submit" name="sub" value="登録画面へ">
<br>
</form>
<%

End Sub

'=================================================
'-----　エラー表示画面
'=================================================
Sub Gamen_err( )
%>
<form method="POST" action="boshu.asp">
<table border="0">
<tr>
<td><h2>エラーがあります</h2></td>
</tr>
</table>
<input type="button" value="戻る" onclick="history.back();">
<br>
</form>
<%

End Sub

'=================================================
'-----　DBに接続
'=================================================
Sub ConnDB()
'スクリプトと同じフォルダにあるAccessのmember.mdbに接続します。
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("member.mdb")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open DBName

End Sub

'=================================================
'-----　DBにデータを追加
'=================================================
Sub UpdateDB()
StrSQL = "insert into member ("
StrSQL = StrSQL & " name, "
StrSQL = StrSQL & " mail "
StrSQL = StrSQL & ") values ("
StrSQL = StrSQL & "'" & name & "',"
StrSQL = StrSQL & "'" & mail & "'"
StrSQL = StrSQL & ")"
ObjConn.Execute StrSQL
End Sub

'=================================================
'-----　DBを閉じる
'=================================================
Sub CloseDB()
ObjConn.Close
Set ObjConn = Nothing
End Sub
%>

これで以上です。

>694
Applicaton.Lockを使う場合
ファイルへのロックというより、ファイル操作するコードへの進行をロックする感じ。
Javaのsynchronizedとか、Win32APIだとCriticalSectionぽい発想かな。

>>703
いやだからApplication.Lockじゃ
>ファイルへのロックというより、ファイル操作するコードへの進行をロックする感じ。
が出来ないって言ってるわけで。

すみません、困っています。
どなたかWEBアプリケーションを作れる方、
相談にのっていただけませんか？
「こういうWEBプログラムが作りたい」という案は
すでにあります。自宅サーバーもすでにあります。
平日の夜、都内で焼肉をおごります。

もし、「それなら作れるよ」ということでしたら
数万円の謝礼をお支払いする用意があります。
よろしくお願いいたします。

書き込もうとしたら30分差でプロパ規制か…orz

>ASP素人氏

>>695-701を Option Explicit を取った状態で
>>678-680で使ったmdbで試してみた。

………普通に登録できますた。。。

ConnDB()とUpdateDB()を>>657のコードに差し替えて
ConnDB()内の ObjConn.open .... の部分だけ書き換えたコードも
試したけど、これも登録できますた。

コピペの内容を見る限り、
とりあえず変数の取りまわしがおかしいって事はなさそうだから、
後は権限周りとmdbのテーブルを徹底的に確認しる！
それとパーソナルファイヤーウォールとか入っているなら無効にしてから
実行してみて。

それでも駄目なら、そちらのテスト手順の問題かWindows XPにSP2当てておかしくなりますた。。。
ぐらいしか思いつかんです。

質問。
まれにあるＩＩＳの制御不能状態。
（再起動すれば直るやつ）
の発生条件は結局なんなのでしょうか。

無限ループやってるとかバカなオチではないです。
どうもまれに発生するようで・・

質問。
まれにあるパソコンの制御不能状態。
（再起動すれば直るやつ）
の発生条件は結局なんなのでしょうか。

>>659ｻﾝとこのスレの皆様

解決しますた。
やはり権限に問題あったと思われます。
DをNTFSからFAT32にしてやってみたところちゃんとできますた。
心から感謝申し上げます。
で・・・・

'=================================================
'-----　DBにデータを追加
'=================================================
Sub UpdateDB()
StrSQL = "insert into member ("
StrSQL = StrSQL & " name, "
StrSQL = StrSQL & " mail "
StrSQL = StrSQL & " id "
StrSQL = StrSQL & " pass "
StrSQL = StrSQL & ") values ("
StrSQL = StrSQL & "'" & name & "',"
StrSQL = StrSQL & "'" & mail & "'"
StrSQL = StrSQL & "'" & id & "'"
StrSQL = StrSQL & "'" & pass & "'"
StrSQL = StrSQL & ")"
ObjConn.Execute StrSQL
End Sub

↑のとこなんですけど
idとpassを増やしてみたらすぐエラーですた・・・。
きっとStrSQL = StrSQL & " name, "のnameの後の「,」とかにいろいろ関係しているのかな？
とか思ったんですけど、どうなんでしょうか・・・？？
どういうふうに直せばよろしいでしょうか？

列名と値、それぞれmailとidの後に,が抜けてる。
列名の方はまんま「mail,」「id,」として、値の方は「〜 & "'"」を「〜 & "',"」ね。

SQLでエラーが出たら、まずエラーになってるSQL文を画面なりログに出力してみませう。
あと、コマンドラインからosqlが使えるなら、osqlで接続してそのSQL文を直接投げると、
SQLServerからもう少し詳しいエラー情報をもらえるかも。

>>709
そんな書き方するなら絶対にRecordSet越しにAddNewした方がいい。
マジで。

>>711
断る

>>710ｻﾝ
無事成功しますた。
ありがとうございました。

ADODB.Commandマジおすすめ。

便乗で聞いてみたいんだけど、DBを更新するときSQL文で更新させた方がいいの？
俺はいつもADO使ってUpDateしちゃうんだけど。

相手がSQL Serverなら当分はいいんじゃないの。
ただ、ADO以外の世界に行ったとき、UPDATEが使えないと困ることもあるかもね。

一日に一回、とあるDatabaseをチェックして、しきい値を超えてる場合
アラームmailを対象者に対し発信するというプログラムを作ることになりました。

多分、バッチを動かして・・・という事だとは思うんですが・・・

ご経験のある方いらっしゃいますか？
参考になるサイトなど教えていただけると幸いです。
（IIS＋SQLServer）

どうせ社内のSQL　Serverしか使わないからADO使うことにしとく。

>>717
VBS+BASP21+タスクスケジュールでそれっぽいの作ったことがあるが．．．

ASPとは関係ないんではないかい？

>>719
レスありがとうございます。
いろいろ調べて見ました。
BASP21のbhelper.exe？　basp21p.iniの設定？・・・

basp21p.iniに**.asp（メール送信）のパスを書いて
そのaspファイルを実行するためのbatファイルを
タスクスケジュールで動かすということでしょうか？

さらに調べて見ます・・・

>>720
VBScriptファイル(例：dbcheck.vbs)にDBのチェックルーチンを書いてBASP21のSendMailを使ってメールを送る。
タスクスケジュールからそのVBScriptファイルを起動するように設定するだけ。batは別にいらない。

ほかにもいろいろやり方ある。がんがれ。

>717
SQL Server Agent に監視してもらうのがいいんでない?

719さん、アドバイスありがとうございます。
下記のようなものをタスクで動かすといったことでしょうか？
m_from = "******@***.co.jp"
m_title = "アラーム"
m_to = "*****@***.co.jp"
m_sv = "***.**.**.***"

Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "usr1","usr1","user2"

SQL = "select * from alarm"
Set db = Server.Createobject("ADODB.Recordset")
db.Open SQL,Conn,3,3

gen = trim(db("ＡＡＡ"))
zan = trim(db("ＢＢＢ"))
shamei = trim(db("ＣＣＣ"))

if gen < zan then

Do while NOT db.eof

m_name = "社名：" & shamei

db.MoveNext
Loop

Set Objbasp = Server.Createobject("basp21")
rc = Objbasp.Sendmail(m_sv,m_to,m_from,m_title,m_name,"")

end if
Conn.Close

>>723
そんな感じのスクリプトを１時間おきとかに走らすようにスケジュールすればいいと思ふ。

USER_AGENTを使って、各ｷｬﾘｱ毎に別ﾍﾟｰｼﾞにRedirectかけてるのですが、
auの古い機種（A1304T）だとRedirectがききません。
ｼﾞｬﾝﾌﾟ先のURLを直打ちしてやると問題無く表示されます。
最近の機種だと、期待通りの動作をします。

何か良い解決策はありませんでしょうか？

最悪、auだと判明した時点で、「auの方はこちら」と
HTMLでﾘﾝｸを表示させようと思ってますが、ちょっとそれはｶｯｺ悪いので…。

>725
リダイレクトでなくServer.Transferしてしまうのはどうか。

>>725
リダイレクト時のURLを相対指定じゃなく絶対指定にしても駄目？

>>715

昔DBマガジンか何かで読んだけど

ADODB.Command + Parameterオブジェクト
↓
sql文を ADODB.Connection で実行
↓
Recordsetでfieldを入力し、 Update

らしい。

書き忘れてたけど、性能ね。
Commandオブジェクトが一番速いらしい

>729
ストアドプロシージャを使えるならそれが最速だわな。
RecordSet でUpdateは、バッチ更新モードにしたら結構速そうな気がするけどどうなんだろう？

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
</HEAD>
<BODY>
<P>フォームとPHPの連携</P>
<FORM method="POST" action="smp4-01.php">
キーワード <INPUT size="20" type="text" name="keyword">
<BR>
<BR>
<INPUT type="submit" name="exec" value="実行">
<INPUT type="submit" name="cancel" value="キャンセル">
</FORM>
</BODY>
</HTML>
にアクセスしてＰＨＰと文字を入力してsmp4-01.php↓
<?php
print $keyword . "<BR>";
print $exec . "<BR>";
?>
に飛ぶんですけど
Notice: Undefined variable: keyword in C:\Program Files\Apache Group\Apache2\htdocs\smp4-01.php on line 3

Notice: Undefined variable: exec in C:\Program Files\Apache Group\Apache2\htdocs\smp4-01.php on line 4
どうしても↑になるのは何がいけないんでしょうか？宜しくお願いします。

>>731 お前の頭か教科書が古い

そもそもここは（ｒｙ

>>728
メモしますた。
全然関係ないと思うけど、レコード件数を数えるのに
ADODBのRecordCountとSQLのCount(*)で時間を比べたらSQLのが確実に早かったです。

>734
Count(主キー列名)にするともっと速いらしいぞ。

データベース使って
ユーザーごとにページ振り分けをASPでしたいんですが、
どのページ参考にすればいいですか？

質問させて下さい。
JScriptでcookieの有効期限を1時間後に設定したいのですが、上手く動きません。
ソースはこんな感じです。

var d,ti,kigen,d2;
d = new Date();
ti = d.getTime();
kigen = parseInt((ti + 600000),10);
d2 = new Date(kigen);

//ｸｯｷｰの作成
Response.Cookies('kukki').Expires = d2;

//ｸｯｷｰの受信
Response.Write(Request.Cookies('kukki'));
Response.End();

ｸｯｷｰの作成の部分で「型が一致しません」と表示されエラーになってしまいます。
宜しくお願いします。

>>737
http://www5a.biglobe.ne.jp/~n_rieko/asp/9.htm
http://www.ken3.org/cgi-bin/test/test066-2.asp
http://labo.heisei-tech.co.jp/Www/Asp/8.htm

>738さん
ありがとうございます。
ただ、分単位での期限設定が出来ません。
60分後にクッキー削除したくて、以下の様に記述するとエラーになります。

Response.Cookies("cookie1") = "kuki"
Response.Cookies("cookie1").Expires = 60

2行目の部分を
Response.Cookies("cookie1").Expires = Date+1
というような、1日単位での設定はできてるみたいなのですが。

Cドライブのcookiesフォルダの中に、クッキーが作成されないのも気になります。

あと、できればJScriptでの記述が載っているページも教えて頂けませんか？
VBは慣れてないのでムズカシイです…。