＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Par ..

369:nobodyさん
06/02/09 02:36:56 v3Lm1+ha
Basp21のSendMailメソッドで質問があります。

上記メソッドを使用してメールを送信すると、
指定したアドレスに２重送信されてしまい困っています。

メールを送信する直前にDBへ履歴を登録しているので、
前回送信時刻と現在（今回送信）時刻の差(datediff)が60秒以内であれば、
メールを送信しないような処理をしているのですが無駄に終わっています…。

何かいい回避策があるようでしたら教えてください。

370:364=367
06/02/09 13:24:29
>>368

やはり受け取ったバイナリを手動でとらないとダメなんですね…ありがとうございます。
ファイルアップとテキストフォームの組み合わせは引き続き調べてみます。

371:バッカーです ◆KeuXjwWDdE
06/02/09 18:39:04
>>369
アルゴリズムに問題があるのではないかと

372:nobodyさん
06/02/09 21:01:53
VBScriptで17桁の整数を扱う方法ってある？
通貨型じゃ15桁＋小数部４桁だよね？

373:nobodyさん
06/02/09 22:59:46
京の位に達するのか。
ASPでどんな計算をしようとしているんだｗ

文字列でいいんじゃねーのけ？

374:nobodyさん
06/02/10 00:55:41
>>369
その手の質問はBASPの掲示板でしたほうがいいと思うよ

375:nobodyさん
06/02/10 01:31:16 gbK8yDLA
Ajaxっぽい非同期通信を組み込んでいて詰まってしまいました。

クライアント側
httpObj.open("GET","gettext.asp?sendData="+Data,true);
httpObj.send(null); //これで送って

サーバー側
getData = Request.QueryString("sendData")　　　　　'これで受け取る○

これはうまくいったのですが、送るデータ量が大きくなるとオーバーフローエラー
がでてしまいました。そこでPOSTで送ることにしました。
ところが受け取りがまったく反応してくれません。

クライアント側
httpObj.open("POST","gettext.asp",true);
httpObj.send("sendData="+Data); //これで送って

サーバー側
getData = Request.Form("sendData")　　　　　　　　　'これで受け取る×
getData = Request.QueryString("sendData")　　　　　'これで受け取る×

解決策がありましたらよろしくお願いいたします。

376:nobodyさん
06/02/10 06:35:31
>>336
URLﾘﾝｸ(asp2php.naken.cc)
ダウンロードしたら解凍してできたexeファイルの上に、
**.aspのソースをドラッグドロップするだけですよ

377:nobodyさん
06/02/10 19:40:27
>>375
send前に
httpObj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
をつけるのをマジおすすめ

378:sage
06/02/10 23:36:15 gbK8yDLA
>>377
無事動きました！ありがとうございます！

379:nobodyさん
06/02/11 03:19:38
win2003鯖(web Edition)+IIS6.0+VBscript+BASP21でメール送信をしようとしています。
PHPのmail()関数を使ってメールの送信ができたのでSMTPには問題なさそうです。
ところがVBscriptからだとSMTPで認証を要求されます。

この場合、実行ユーザが違うから権限が違うのかな、と思ったのですが、
Win鯖にうとくどのサービスがどのユーザで実行するか調べたいのですが、
どこで見れるのか教えていただけますでしょうか
また、ググってみたところ、2003web Editionにはユーザ管理機能はない、
URLﾘﾝｸ(www.fmmc.or.jp)～fm/nwts/w2003s/ch1/1_1_3.html
なんて書いてあるんですがまじですか？

380:nobodyさん
06/02/11 07:14:57
>>379
なんだか全然スレ違いくさいが。

>win2003鯖(web Edition)+IIS6.0+VBscript+BASP21でメール送信をしようとしています。
2003ServerにSMTPが動いていて、同じサーバ上からそれを使って送信、
ということでOK？

>VBscriptからだとSMTPで認証を要求されます。
どんな認証が要求される？
ダイアログなどを詳しく。

>この場合、実行ユーザが違うから権限が違うのかな、と思ったのですが、
>Win鯖にうとくどのサービスがどのユーザで実行するか調べたいのですが、
SMTPサービスの実行権限を調べたいなら
コントロールパネル→管理ツール→サービス

>2003web Editionにはユーザ管理機能はない
ActiveDirectoryが無いというだけで、サーバ内でのユーザ管理はもちろんある

381:nobodyさん
06/02/11 15:21:43
>>380

全然見当違いなところのエラーでした。
BASP21でメールサーバをIPで指定していたんですが、
ループバック(127.0.0.1)で指定したら(ﾟдﾟ)ｳﾏｰでした
おそらくSMTPのリレー関係の設定の問題でした。
ごめんなさい

382:nobodyさん
06/02/15 14:02:53
FileSystemObjectで、仮想ディレクトリ内にファイルをコピーしたり削除する場合、
そのフォルダに対して、
「インターネットゲストアカウント　PC名\IUSR_PC名」のユーザーアカウントに、
フルアクセスの権限を与えています。

セキュリティーの観点から、こういうのは危ないんでしょうか？

383:nobodyさん
06/02/15 21:10:42 lSEl6laF
.
.
Dim GetDate

for i=startYear to lastYear
GetDate = obj.xxxx
i = i + 1
next
.
.
このような形で年度別にGetDateに配列でデータを格納しています。
この年度別に作られる配列を一つの配列変数に代入したいのですが、
どうすればよろしいでしょうか？

384:nobodyさん
06/02/15 22:15:43
>>382
フルアクセスは実行権限含むからまずい
読み取り＋書き込み、がいいかと。

>>383
>>GetDate = obj.xxxx
にループ変数iが絡んでいないのだが？

あと
>>年度別に作られる配列を一つの配列変数に代入したい
言わんとしてる事はなんとなくは分かるが
やりたいことをもう少し具体的かつ厳密に。

385:nobodyさん
06/02/16 01:51:09 joFVC4f3
ASPをApacheで動かしたい。
何かよい手はないかな？

386:nobodyさん
06/02/16 07:33:17
>>385
Apache:ASP

387:nobodyさん
06/02/17 16:12:51
画像アップロード板みたいなのを作ってるんですが、
データベース部分に、画像のアドレスや、その他情報を書き込み、
画像はBASP21を使いFTPでアップロードしようとしています。

普通なら、トランザクションを開始して、レコードを書き込んで、
ファイルもアップロードしてからコミットという考えだと思うんですが、
webのシステムの場合、ファイルのアップロードのような時間のかかる処理を、
トランザクション内に入れないほうが良いのでしょうか？

webの開発は始めてなので「どうなんだろう？？」と悩んでしまい、、、

388:nobodyさん
06/02/17 16:21:15
>>387
アップロードされるファイルサイズによるが、
普通はアップロードが完了してからDBに書き込むと思うぞ。

あと、BASP21はFTPじゃなくてHTTPのアップロードだと思う。

389:nobodyさん
06/02/17 17:08:21
>>388
ファイルの名前をDBのIDと関連付けて登録したかったので、
DB→ファイルのアップロードと考えてました。

アップロード→DBとするなら、
もう１個別に採番用テーブルを作ってそれをファイル名とIDにする感じですかね？

390:nobodyさん
06/02/17 17:57:05
>>389

> ファイルの名前をDBのIDと関連付けて登録したかった

それなら

UP用TEMPフォルダへアップロード
↓
ファイルチェック
↓
DBへ登録＆ID取得
↓
正式なフォルダに移動＆リネーム

が一番かな。
何にせよ、ファイルアップロードはクライアント側でアップロードをミスることが多いし、
ファイルのチェックとかもしなきゃいけないでしょ？

391:nobodyさん
06/02/18 15:30:31
>>390
それだと最後の移動＆リネームが失敗した時、
再度DBのデータを削除なり更新しに行くハメにならん？

392:nobodyさん
06/02/18 16:16:18
>>391
一連の流れにDBのトランザクション使えばよくね？

393:nobodyさん
06/02/18 16:31:42
>>392
>>387のいうファイルのアップロードの大きさが分からないが、
何百メガとかだと、DBのトランザクション使うのはマズいんでないかい？

少なくともロックは排他で、何回もリトライしてください～の仕様にするしかないか。

394:nobodyさん
06/02/18 20:37:36
IDはIDENTITYで取ればいいんだよ
データ空で一行INSERTした後その新キーを取得してcommit、
その後そのキーで行ロックしてファイルデータをupdateしてcommitしてやればいい。
ファイルデータupdate時に完了フラグも更新すれば
途中で失敗したものとも区別がつく。

つーか既にASPの話題じゃねえな

395:nobodyさん
06/02/18 20:39:32
UP用TEMPフォルダへアップロード
↓
ファイルチェック
↓
DBトランザクション開始
↓
DBへ登録＆ID取得
↓
正式なフォルダに移動＆リネーム
↓
DBトランザクション終了（commit/rollback）

がいいかもな

396:nobodyさん
06/02/25 00:08:08 5p0RQZcL
dimで宣言した二次元配列をOnClickでコールしたJavaScript関数内で使用する方法を教えてください。

397:nobodyさん
06/02/25 06:20:25
>>396
JavaScriptのコードに展開すればいいじゃん

398:nobodyさん
06/02/25 10:43:55
>>396
a(m,n) → b[m][n]
<script>
<%
Response.Write("var b=new Array("&(UBound(a,1)+1)&");")
For i=LBound(a,1) to UBound(a,1)
Response.Write("b["&i&"]=new Array("&UBound(a,2)+1&");")
For j=LBound(a,2) to UBound(a,2)
Response.Write("b["&i&"]["&j&"]="&a(i,j)&";")
Next
Next
%>
</script>

399:396
06/03/01 05:59:02 /i7BGAMo
>>398
JavaScript関数内でa(m,n)が使用できないのですが．．．

400:nobodyさん
06/03/01 11:35:16 e/ZVjBAD
getFolderメソッドであるフォルダのファイル名を全部取得します。
ファイル名には規則性があり、数値で1から連番です。
For Each objwk in objFOL.Files
　'ファイル名を配列に入れる
　ReDim Preserve arrAllFileName(i)
　arrAllFileName(i) = ( objWK.Name )
　i = i + 1
Next

として取得していますが、
1 2 3 6 7 22 27 と取得できるはずなのに、
配列の要素は
1 2 22 27 3 6 7 となり、
BASP21のSortメソッドを使ってものの順番は変わりません。

ファイル作成時間によってソートされているのではないかと
試してみましたが違うようです。
大変恐縮ですが、ソートする方法をご教授いただけませんでしょうか。
何卒よろしくお願いいたします。」

401:400
06/03/01 11:46:02 e/ZVjBAD
追記；要素を入れるときに要素にCIntしても結果は変わりませんでした。

402:400
06/03/01 12:20:50 e/ZVjBAD
すいません。自己解決しました。
数値型がだめなら、文字型だろ！　と決まった桁数に0を補完するようにしました。
例） 1 → 0001　11 →0011

403:nobodyさん
06/03/01 18:51:48
もともと
>>1 2 3 6 7 22 27 と取得できるはずなのに、
ここだよね

XP以降のExplorerならば確かに初期状態だとそうなるけど
ファイル名って文字列だからね。
ソートすると
>>1 2 22 27 3 6 7 となり、
で正しいわけだよ

404:nobodyさん
06/03/02 22:33:46
>>399
サーバーサイドのa(m,n)の値ををクライアントサイドのjavascriptのb[m][n]に引き渡してる

405:nobodyさん
06/03/03 13:53:37
一応過去ログも見てみたのですが、見当たらなかったので質問させてください。

ASP(VBScript)＠IIS5.1、OSは2000ServerとXPです。

単純にデーターベース(ADO OBDC)からデータを読み出してResponse.Writeで表示させているだけなのですが
メモ型のフィールドに入力した値がうまく表示できないのです。
入力されているデータ(mdb)を直接Acessで編集してフィールドの方をテキスト型に変更するとうまく表示されます

ASPの方でdbから読み出した値がNULLか空かそれ以外かを先に判定させて、
"それ以外"の場合のみ
Response.Write [dbの値] & "<br>"
と書き出すようにしているのですが。いざ実行すると

<br>

としか出力されない状況です。
通常なら表示されて当たり前じゃないかと思うのですが、どこかIIS等の設定がおかしくなっているのでしょうか？

406:nobodyさん
06/03/03 23:00:10
>>405
NULLだったらどう動くようにしてるの？

407:nobodyさん
06/03/04 00:17:11
>>405
つ【vbCrLf】

408:405
06/03/06 10:13:00
>>406
if文で分岐させているのですが、NULL値の場合は
Response.Write "NULL値です"
と表示するようにしています。

>>405
<br>の代わりにvbCrLfを使えばいいということですか？

お二方レスしていただいたのですが、実はついさっき自己解決してしまいました。
dbの値を直接If文の判定式に書いたり、Response.Writeで直接使用していたのが問題のようでした。
一度他の適当な変数を作成してそれに代入してから使用すると、正常に判定と出力をすることができました。

お騒がせしてすみません＾＾；

409:nobodyさん
06/03/06 23:03:11
まさかとは思うが
If なんとかかんとか = Null Then
とかやってないよな。

410:405
06/03/22 17:47:30
>>409
亀レスだけど

If IsNull(変数) Then　または If Not IsNull(変数) Then
ってやってた

411:nobodyさん
06/03/26 07:43:17 /latXqRh
質問です。
メールフォームの送信を.aspでやるときに、送信者側のファイル添付は可能でしょうか？
mailer.addattachmentメソッドがあるようなんですが、そのまま使ってもファイルは添付されずに、送信者のローカルPCのファイルへのパスが送られてくるだけなんですけど。
これってもしかして、一旦uploadscript.aspなんかでサーバーへアップロード保存して、サーバー側に保存されたファイルを添付させるという、２段階手続きじゃないとムリなんですか？
その場合、送信するメールフォームと対になるサーバー側の画像ファイルとの関連づけはどのようにするのか悩んでるんですが、何かアドバイス有りましたらよろしくお願いします。

412:nobodyさん
06/03/26 12:38:36
>>411
mailer.addattachment ってなんてあったっけ？

413:nobodyさん
06/03/26 15:08:37
ServerObjects社製のコンポーネントみたいね
URLﾘﾝｸ(www.serverobjects.com)
このあたりのExampleとか見るとサーバー側にあるファイルを添付するﾒｿｯﾄﾞじゃないかと思う
URLﾘﾝｸ(www.bizclasshosting.com)

BASP21あれば要らないよーな

414:nobodyさん
06/03/26 17:42:32 /latXqRh
>>413
おっしゃるとおり、サーバー側にあるファイルを添付するメソッドなので、サーバーに添付されるファイルをアップロードした後、添付送信という手続きをふまなければならないみたいです。
ただ、一つのメール送信フォームに、この手続きをどうやって組み込むのか四苦八苦してます。
具体的には、ファイルのアップロードは、
BFORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadscript.asp">
で、処理側の.aspコマンドファイルはSet Uploadというメソッドでサーバー上の任意のフォルダへアップロード、
そして、メールフォームの送信は、
<form action="aspmailform.asp" method="post">
で、処理側.aspには、
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
というコマンドでメール送信という状態なのですが、これらを一つの送信ボタンで出来ないものか悩んでいます。
上記の、aspmailform.aspとuploadscript.aspを一つにして併記してみても機能しないようです（多分、やり方が悪いのかも？）
さらに、addattachmentメソッドはサーバー側のフルパスで指定しなければならないので、送信者のローカルPCのファイルパスを拾って関連づけるのも不可能なような気がするのですが。
というかんじで、困っています。
ASP21というのは、どのような環境で動作可能なのかもう一つ理解していないんですが。
SendMailではなく、ASPMailしかインストールされていないサーバー環境でも動作可能なのでしょうか？
もし可能であれば使ってみようと思います。

415:nobodyさん
06/03/26 17:45:46 /latXqRh
上記訂正、
BFORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadscript.asp">
↓
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadscript.asp">
です、すみません。

416:nobodyさん
06/03/26 21:54:41
SMTPsvg.Mailerは使ったことないからわからないけどBASP21使うとこんなかんじ
チェックしてないんでバグあるかもしれんけど
------------送信側
<html><body>
<form action="fileuptomail.asp" enctype="multipart/form-data" method="post">
From: <input type="text" name="mailFrom"><br>
To: <input type="text" name="mailTo"><br>
Subject:<input type="text" name="mailSubj"><br>
Body: <textarea cols="40" rows="10" name="mailBody"></textarea><br>
File:<input type="file" name="file"><br>
<input type=SUBMIT name=UPLOAD>
</form></body></html>
------------受信側(fileuptomail.asp)
<%
Set bobj=Server.CreateObject("BASP21")
TEMP=Server.MapPath("/temp/")&"\tempfile.tmp"' 一時保存ファイル
SMTPname="*.*.*.*"' SMTPサーバーのIP

' FileSave
a=Request.TotalBytes
b=Request.BinaryRead(a)
f=bobj.FormFileName(b,"file")
fsize=bobj.FormFileSize(b,"file")
filename=Mid(f,InStrRev(f,"\")+1)
l=bobj.FormSaveAs(b,"file",TEMP)

' Mail
msg = bobj.SendMail(SMTPname,bobj.Form(b,"mailTo"),bobj.Form(b,"mailFrom"),bobj.Form(b,"mailSubj"),bobj.Form(b,"mailBody"),TEMP&"|"&filename)
%>

417:nobodyさん
06/03/28 11:21:21
とりあえずaspのシステム作るなら、basp21は突っ込んどくオイラ。
なんだかんだで、永い間使ってて安心して使える。

418:nobodyさん
06/03/28 13:00:23
WinCEでの開発なんで自力でbasp21っぽいの作ってるオイラ
バグだらけで不安になりながら使ってる

419:nobodyさん
06/04/10 20:06:46 3UIEjnKE
下記ソースは5年ぐらい前に作ったんですが、またこれが必要になったので
バックアップから引っ張り出してIISに貼り付けましたが動きませんでした。
以前は動いたのに。
現在の動作は、VBS中にExlを書いてもスルーされて
次のプログラムに行ってしまいます。
どこを直せば動くようになるんでしょうか。
よろしくお願いします。

テスト環境はWinXPproです。
セキュリティパッチは全て当ててます。
動くようになれば2003鯖に実装予定です。

Sub Exl

Dim ExcelApp, ExlFile
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.visible = True
ExlFile="D:/asp/files/temp.xls"
ExcelApp.DisplayAlerts = False
ExcelApp.Workbooks.open(ExlFile)
ExcelApp.Sheets("page1").Select
ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
ExcelApp.ActiveSheet.PrintPreview
Excelapp.Quit
Set ExcelApp = Nothing

End Sub

420:nobodyさん
06/04/10 20:48:18
これ、ASPで動かすんなら全体が<% %>で囲まれるから
ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
はおかしいと思うんだが

421:70
06/04/10 21:57:23 w8+tUl+V
>>420
すみません、一部記述が抜けてました
subとend subだけが<%　%>で囲ってこんな感じです。

<%
Sub Exl
%>
Dim ExcelApp, ExlFile
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.visible = True
ExlFile="D:/asp/files/temp.xls"
ExcelApp.DisplayAlerts = False
ExcelApp.Workbooks.open(ExlFile)
ExcelApp.Sheets("page1").Select
ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
ExcelApp.ActiveSheet.PrintPreview
Excelapp.Quit
Set ExcelApp = Nothing
<%
End Sub
%>

422:nobodyさん
06/04/10 22:24:01
>>421
IE上でExcelのCOMを動かそうとしてる？？

423:421
06/04/10 22:28:02 3UIEjnKE
>>422
はい、そうです
この方法はよくないんでしょうか？

424:nobodyさん
06/04/10 22:37:16
>>423
今のIEじゃローカル上のファイルを操作するのは
セキュリティ的に無理だと思う

425:422
06/04/10 22:49:35 w8+tUl+V
>>424
では、サーバー側に一時的なファイルを作成してそれをクライアント側で
ダウンロードする仕組みにするには、どの様なコードを書けばよいでしょうか。
サンプルコードがあるサイトをご存知でしたら教えてください。
お願いします。

426:nobodyさん
06/04/10 23:13:55
自分のPCにExcel入ってないから試せないんだがこんな感じかなぁ
<%
Sub Exl

Dim ExcelApp, ExlFile, Filename, bobj ,b
Set ExcelApp = Server.CreateObject("Excel.Application")
ExcelApp.visible = True
ExlFile="D:/asp/files/temp.xls"
Filename="temp.xls"
ExcelApp.DisplayAlerts = False
ExcelApp.Workbooks.open(ExlFile)
ExcelApp.Sheets("page1").Select
ExcelApp.ActiveSheet.Range("A1").value= Year(Now()) & " 年 "
ExcelApp.ActiveSheet.PrintPreview
Excelapp.Quit
Set ExcelApp = Nothing

Response.ContentType = "application/octet-stream;name=" & Filename
Response.AddHeader "Content-Disposition","attachment;filename=" & Filename

Set bobj = Server.CreateObject("BASP21")
b = bobj.BinaryRead(ExlFile)
Set bobj = Nothing
Response.AddHeader "Content-Length", ubound(b) + 1
Response.BinaryWrite bydata

End Sub
%>

427:nobodyさん
06/04/10 23:15:06
あ、ごめん
× Response.BinaryWrite bydata
○ Response.BinaryWrite b

428:425
06/04/10 23:17:23 3UIEjnKE
>>426
ありがとうございます。
明日試してみます

429:nobodyさん
06/04/11 01:16:54
鯖側でExcelオートメーションは非推奨
URLﾘﾝｸ(support.microsoft.com)

やるならこっちかな
URLﾘﾝｸ(support.microsoft.com)
URLﾘﾝｸ(support.microsoft.com)

430:425
06/04/11 07:27:09 j7JR4Ohz
>>429
目的の動作が出来ました、ありがとうございました。

431:nobodyさん
06/04/14 21:34:06 D01n0ua1
XPproで動いてたASPを2003鯖に入れたらページが見つかりません
とかなって表示できません。
XPで動いてたんでスクリプトには問題ないと思うんですが
IISの問題でしょうか？
どこを直せばよいでしょうか？

432:nobodyさん
06/04/14 21:47:20 D01n0ua1
ためしに自分で作った仮想ディレクトリーにdefault.aspを
配置しましたが、Directory Listing Deniedとかなって表示できません。どうすればよいでようか？
助けてください。

433:nobodyさん
06/04/14 22:36:40
>>432
既定のドキュメント

434:４３２
06/04/14 22:58:23 D01n0ua1
WebサービスでASPを許可したらいけました」

435:nobodyさん
06/04/15 10:40:23 GTWKBHgT
Fname="D:/asp/DB.mdb"
DBF="Driver={Microsoft Access Driver (*.mdb)};User ID=;Password=12345; DBQ=" & Fname
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBF

上記コードでXPproのIISでは正常に動きますが、2003鯖ではこんなエラーになってしまいます。
Microsoft OLE DB Provider for ODBC Drivers エラー '80004005'
[Microsoft][ODBC Microsoft Access Driver]一般エラーレジストリキー 'Temporary (volatile) Jet DSN for process 0x9ac Thread 0xad0 DBC 0x22a1f94 Jet' を開くことができません。

レジストリをいじらずに動くようにするにはどうすればよいでしょうか？
また、システムにODBCデータソースを追加する以外の方法で別のやり方あったら教えてください。

436:nobodyさん
06/04/15 11:05:26
>>435
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]一般エラーレジストリキー 'Temporary (volatile) Jet DSN for process 0xe9c Thread 0xa74 DBC 0x2bc0b4 Jet' を開くことができません。

Accessにパスワードが設定されている場合に発生します。

437:nobodyさん
06/04/15 11:10:18
>>435
今時mdbでそんな方法で接続してる奴いねよ
Microsoft.Jet.OLEDB.4.0 で接続しろよ

438:435
06/04/15 11:21:55 GTWKBHgT
>>436
パスワードを解除したらできました。
ありがとうございます。

439:435
06/04/15 11:28:34 GTWKBHgT
>>437
ああ、古いASP引っ張り出したんであれだったけど
これに直しました。

DBF = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"User ID=;Password=;Data Source=" & Fname

440:nobodyさん
06/04/15 21:22:35
>438
まぁパスワード解除しちゃったそうだから今更だけど
パスワード付きmdbをJet OLEDB使って開くときは、
ConnectionString/Passwordプロパティにパスワード入れるんじゃなくて
Connection.Properties("Jet OLEDB:Database Password")に突っ込むこと。

441:435
06/04/16 13:54:35 eJrc5hWb
Fname="D:\asp/DB.mdb"
DBFile= "Provider=Microsoft.Jet.OLEDB.4.0;User ID=;Password=;Data Source=" & Fname
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DBFile
Set RS = server.CreateObject("adodb.recordset")
RS.Open "SELECT * FROM main WHERE id=" & request("id") & " and pass=" & request("pass") & ";",ConnadOpenStatic, adLockOptimistic
RS("aaa")=Request("aaa")
RS("bbb")=Request("bbb")
RS.update
RS.closeset
RS=nothing
Conn.closeset
Conn=nothing

上記更新コードを実行すると、

ADODB.Recordset エラー '800a0bb9'
引数が間違った型、許容範囲外、または競合しています。

というエラーになってしまいます。
どこを直せばよろしいでしょうか。
お願いします。

442:435
06/04/16 17:50:24 eJrc5hWb
解決しました。失礼しました。

443:nobodyさん
06/04/18 18:02:27
435は解決したとみせかけて実は解決していなかった
だから質問をｺﾋﾟﾍﾟし、別の板、もしくは別のｽﾚで書き込み答えを得ようとしたのか?

444:nobodyさん
06/04/19 17:14:37
ASP.netやり始めて勉強してるんだけど、asp関係の板ってこんなに過疎ってるとは思わなかった。
いろいろ勉強してるんですが、なかなかおもしろいのになぁ。
SQL2005が2000と比較して結構強力になってるっぽいし、ASP.netもいろいろおもしろい。

勉強し始めて1週間ぐらいだけど、5年前手書きでがりがり書いてたASPとは全然違う。
いまObjectDataSourceにDataSetを渡して、データバインドコントロールでいろいろ表示させてるけど、
これは結構使えるかもって思った。次の開発はasp.netでやってみようかなぁ。

445:nobodyさん
06/04/21 08:06:46 2wM3++cG
ASP.netを開発するにはどんなツールが必要ですか？

446:nobodyさん
06/04/21 12:15:40
>>445
ここのアプリケーション開発基礎が詳しい
URLﾘﾝｸ(www.microsoft.com)

まぁ、いまであれば、Visual Web Developer 2005 Express Editionと
SQLServer2005ExpressEdition with Advanced Servicesで無料で開発できる

447:nobodyさん
06/04/22 05:00:11 KZQOiwti
ツールを使わないで作るASPでsendmailみたいなプログラム作れないでしょうか？
cgiでSMTPを使って出来たのだからありそうだけどなかなか見つかりません。
よろしくお願いします。

448:447
06/04/22 05:11:37 KZQOiwti
SMTP鯖を直接叩いてメールを送るソースお願いします。

449:447
06/04/22 07:52:46 IlbM7gzP
URLﾘﾝｸ(homepage2.nifty.com)
今これ試してみたけど
こんなエラーになりました。
どこを直せばよいでしょうか、お願いします。

-----
サーバーによって 1 つまたは複数の受信者アドレスが拒否されました。サーバーからの応答は次のとおりです。550 5.7.1 Unable to relay for
-----

450:nobodyさん
06/04/22 11:28:12
>>449
試してみたがソースに問題はなさそう
鯖がそのﾒｱﾄﾞに送れないって言ってるんでそちらを調べてみて
URLﾘﾝｸ(www.google.co.jp)

451:nobodyさん
06/04/22 12:30:44
>>449
こんなのＭＳであるんだな。初めて知った。
でもこれみると、POP Before SMTPやSMTP Authには対応してない気がするのは、
漏れだけかな・・・

となると、まず認証関係を確かめる必要がある。
次はスパムされちゃう恐れがあるので、そのSmtpを運営してるプロバイダを使用してる
ユーザだけとか、企業だとIPアドレス等とか、いろいろ制限されててメール送信して
くれない可能性があるね。

452:447
06/04/22 13:47:10 IlbM7gzP
ちなみにこれがCGIでSMTPを叩いてメール送信するソースですが
これをASP用に変えられないでしょうか。
お願いします。

use Net::SMTP;
$smtp = Net::SMTP->new($domain); #SMTPサーバ

$smtp->mail($mail); #送信元の指定
$smtp->to($to); #宛先の指定

# データ部の組み立て
$smtp->data();
$smtp->datasend("To:$to<$to>\n"); #Toヘッダ
$smtp->datasend("Subject:$kenmei\n"); #件名
$smtp->datasend("\n");
$smtp->datasend("テスト\n");
$smtp->dataend();
$smtp->quit;

453:nobodyさん
06/04/22 16:06:29
ツール使わないっていってんのに、おもいっきりモジュールつかってるんですが。
use Net::SMTP;

これが許されるならBASP21を素直に使えよ。

454:nobodyさん
06/04/23 01:14:01
ラジオボックスを複数個用意して、いずれかが選択された時に出力する部分を入れ替える、というのは可能でしょうか。

たとえば、

<form name="sample">
<input type="radio" name="test" value="1" checked>
<input type="radio" name="test" value="2">
<input type="radio" name="test" value="3">
</form>
<%@ Language=VBScript %>
<% If document.sample.test(1).checked = true Then %>
ラジオボタンの1が選択された時に表示される内容<br>
<% Else If document.sample.test(2).checked = true Then %>
ラジオボタンの2が選択された時に表示される内容<br>
～～

こういった感じのものを作りたいと思っていますが、どうも上手くいきません。
よろしくお願いします。

455:nobodyさん
06/04/23 02:19:41
>>454
可能

普通にクラスのメソッドで、ポストされたラジオボタンの値に従って
処理をわければいいだけだと思われ。

456:454
06/04/23 03:41:00
　POSTで同ページにアクションを送る、という方法ではなく、ラジオボタンを
押された時に表示を切り替えれたら、と思っています。
　ラジオボックスのonClickプロパティでどうのこうの…という方法を試して
みましたが、どうもエラーが出てしまいます。
　ソースのサンプルみたいなものがあれば嬉しいのですが、見つからず…。

457:nobodyさん
06/04/23 06:58:29
>>454
たぶんASPとｸﾗｲｱﾝﾄｻｲﾄﾞのVBを混同してると思われ
こういうことやるなら鯖負担軽減のためにｸﾗｲｱﾝﾄｻｲﾄﾞでjavascriptとかで処理した方がいいと思うけど
どうしてもASPでって言うなら↓みたいにすればできるけど
---------------------------
<%
Dim CHK,URL,MSG
URL= Request.ServerVariables("SCRIPT_NAME")
CHK=Array("","","")
If Request.QueryString("test")<>"" Then CHK(Request.QueryString("test")-1)=" checked"
%>
<html>
<body>
<form name="sample">
<input type="radio" name="test" value="1" onclick="self.location.href='<%=URL%>?test=1'"<%=CHK(0)%>>
<input type="radio" name="test" value="2" onclick="self.location.href='<%=URL%>?test=2'"<%=CHK(1)%>>
<input type="radio" name="test" value="3" onclick="self.location.href='<%=URL%>?test=3'"<%=CHK(2)%>>
</form>
<%
Select Case Request.QueryString("test")
Case 1
Response.Write "1つ目が押されました"
Case 2
Response.Write "2つ目が押されたようです"
Case 3
Response.Write "3つ目が押されたかも…"
Case Else
End Select
%>
</body>
</html>

458:nobodyさん
06/04/23 14:40:54
>>456
それを実現するならAjaxだな
URLﾘﾝｸ(www.atmarkit.co.jp)

だけど、めんどくさそうで、おれならやりたくないな

459:nobodyさん
06/04/23 16:27:40
表示だけの問題なら全部ソースに書いといて１つだけ表示させればいい
<html>
<head>
<script>
function disp(targetID){
document.getElementById("Disp1").style.display="none";
document.getElementById("Disp2").style.display="none";
document.getElementById("Disp3").style.display="none";
document.getElementById(targetID).style.display="inline";
}
</script>
</head>
<body>
<form name="sample">
<input type="radio" name="test" value="1" onclick="disp('Disp1');">
<input type="radio" name="test" value="2" onclick="disp('Disp2');">
<input type="radio" name="test" value="3" onclick="disp('Disp3');">
</form>
<div id="Disp1" style="display:none;">ラジオボタンの1が選択された時に表示される内容</div>
<div id="Disp2" style="display:none;">ラジオボタンの2が選択された時に表示される内容</div>
<div id="Disp3" style="display:none;">ラジオボタンの3が選択された時に表示される内容</div>
</body>
</html>

まぁ既にｽﾚ違いだが

460:454
06/04/24 02:09:47
ソースを元に作成してみます。
手短ですが、返答ありがとうございました。

461:nobodyさん
06/04/24 11:16:04 gF03A8tY
今さらかもしれないのですが、ISAPIについて教えてください。
ISAPIFilterからApplication変数を読む事ってできないでしょうか。

462:nobodyさん
06/04/25 10:04:51
文字列の比較について聞きたいのですが、分かる方がいればお願いします。
ドメインのカントリーコードを抜き出して比較するためのコードとして、以下のように書きました。

Dim country1
Dim country2
country1 = Session("domain")
If country1 = "" then
err = 1
Else
country2 = Split(country1,".")(UBound(Split(country1,".")))
If country2 = "com" or "net" or "jp" then
err = 1
End If
End If

Session("domain")には、フォームから送信されたドメイン名(www.hogehoge.orgなど)が入っています。
しかし、これだとエラーが出てしまいます。
何度か試してみましたが、If country2 = "com" then　のように、一種類だけなら問題なく動きました。
原因が分かる方いませんか？

463:462
06/04/25 11:20:35
先ほど書き込みした者です。
昨日から悩んだ末の書き込みでしたが、先ほど演算子の優先度の関係に気づき、自己解決しました。
板汚し失礼しました。

464:nobodyさん
06/04/28 01:48:17 TXbB+xqv
ASPをこれから始めようと思ってます。
で、IISをインストールして、IEからURLﾘﾝｸ(127.0.0.1)にアクセスしたところ、
ユーザー名とパスワードの入力ウィンドウが表示されました。
ユーザー登録した覚えはないのですが、どうしたらいいですか？

465:nobodyさん
06/04/28 07:06:59
>>464
IISの設定で「既定のWebサイト」のプロパティから
ディレクトリセキュリティ→匿名アクセスおよび認証コントロールの「編集...」
のダイアログの「匿名アクセス」に
チェックついとるか？

466:nobodyさん
06/04/28 22:49:06
>>464
それってルーターかモデムにアクセスしようとしてるんだよ
試しにルーターかモデムにログインするIDとパス入れてご覧

467:nobodyさん
06/04/29 00:22:32
>466
それはひょっとしてギャグで(ry

468:464
06/04/29 12:17:28 5l2q50I6
>>465
IISの設定の方法がわかりません。

469:nobodyさん
06/04/29 13:29:04 xQDtvren
携帯サイトを作ろうとしてますが、キャリアによって移動するページを仕分けたいのですが
どのような判別ソースを書けばよいでしょうか？
キャリアはEZ、Docomo、Vodafoneですが、画像を表示できるタイプとできないものの
全部で６パターンを仕分けたいです。
よろしくお願いします。

470:nobodyさん
06/04/29 17:09:41 xQDtvren
これをASP風に変更すればどんな感じになるでしょうか？
お願いします。

sub User_Agent {
my($user_agent) = @_;

# exp. DoCoMo/1.0/P209is/c10
if (user_agent =~ /DoCoMo/i) then
platform = "DoCoMo"
agetPart = split(/\//, user_agent);
browser = "DoCoMo"
if agetPart[1] =~ /\(/) { # FOMA
$agetPart[1] =~ /([0-9]\.[0-9])\s([^\(]*)(.*)/ ;
$browser_v = $1;
$platform_v = $2;
} else { # i-mode
$browser_v = $agetPart[1];
$platform_v = $agetPart[2];
}
if($platform_v eq '') {
$platform_v = '';
}
return ($platform, $platform_v, $browser, $browser_v);
}

471:nobodyさん
06/04/29 17:12:39 xQDtvren
しくじりました。こっちです。

sub User_Agent {
my($user_agent) = @_;

# exp. DoCoMo/1.0/P209is/c10
if ($user_agent =~ /DoCoMo/i) {
$platform = 'DoCoMo';
@agetPart = split(/\//, $user_agent);
$browser = 'DoCoMo';
if ($agetPart[1] =~ /\(/) { # FOMA
$agetPart[1] =~ /([0-9]\.[0-9])\s([^\(]*)(.*)/ ;
$browser_v = $1;
$platform_v = $2;
} else { # i-mode
$browser_v = $agetPart[1];
$platform_v = $agetPart[2];
}
if($platform_v eq '') {
$platform_v = '';
}
return ($platform, $platform_v, $browser, $browser_v);
}

472:nobodyさん
06/04/29 18:22:50
>>468
ふーんそっか大変だね

473:466
06/04/30 00:30:55
>>467
すまん。実際俺はそうだったよ
串指してないし

474:nobodyさん
06/04/30 12:32:07
今すぐループバックアドレスでぐぐれ。

475:464
06/04/30 15:56:09 BgW+gShw
えー色々と問題を解決していきました。
とりあえずお礼と結果
>>465
チェック入ってました。結局アクセスできませんでしたが、
他のファイルはアクセスできることがわかりました。
多分、最初のファイル自体の問題なんじゃないかと思います。
有難うございました。
>>466
違いました。
有難うございました。

で、ASPをやってみて、JScriptとVBScriptは上手くいくんですが、
ASP.NETのC#ができません。MMCで使用する言語をC#にしたんですが
どうやら実行が許可されていないようです。
どうすればいいでしょうか。

476:nobodyさん
06/04/30 16:52:26
ASP.netはスレ違いなんだが…
とりあえずやってみようとしてるファイルの
ファイル名と内容とブラウザに出てきたエラーの詳細を晒してみ。

477:464
06/04/30 17:14:27 BgW+gShw
>>476
わかりました。以後、ASP.NETの質問はASP.NETスレでやります。

URLﾘﾝｸ(127.0.0.1)

ファイル名：index.aspx　←IISのドキュメントのところで設定した。
カレントディレクトリはwwwroot

HTTP 403.1 アクセスは許可されていません:
実行アクセスは許可されていません。
・背景
プログラムの実行が許可されていないディレクトリから、CGI、ISAPI、
またその他の実行可能プログラムを実行しようとしました。

<%@ Page language="C#" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"URLﾘﾝｸ(www.w3.org)">
<html xmlns="URLﾘﾝｸ(www.w3.org)" xml:lang="ja"><head>
<title>Test</title></head><body>
<h1>Test</h1>
<p><%= "test" %></p>
</body></html>

478:nobodyさん
06/04/30 20:32:41
wwwrootのフォルダのアクセス権だな。
Everyoneに読み取りと実行の権限がいるはず。
あと既定のwebサイトのプロパティでアプリケーション設定の実行アクセス権を
「スクリプトのみ」か「スクリプトおよび実行可能ファイル」にしてあるか確認。

479:464
06/05/01 01:40:32
>>478
動きました。（少し感動）
有難うございます。

480:nobodyさん
06/05/01 21:20:33 G9IWAFk4
>>470-471についてお願いします。

481:nobodyさん
06/05/01 22:42:43
>>480

function User_Agent (var1,var2) {

var user_agent = Request.ServerVariables("HTTP_USER_AGENT").Item();

// ex. DoCoMo/1.0/P209is/c10
if (user_agent.match(/DoCoMo/i)) {
platform = "DoCoMo";
agetPart = user_agent.split("/");
browser = "DoCoMo";
if (agetPart[1].match("(")) {// FOMA
// $agetPart[1] =~ /([0-9]\.[0-9])\s([^\(]*)(.*)/ ;←ここ意味不明？代入？正規表現？
browser_v = var1;
platform_v = var2;
} else {
browser_v = $agetPart[1];
platform_v = $agetPart[2];
}
if (platform_v=="") { platform_v = ""; }// ここ意味あるの？
}

return (platform, platform_v, browser, browser_v);
}

482:nobodyさん
06/05/01 22:53:52
こうか？適当。ノーチェック。

function UserAgent(userAgent)
dim platform,agetPart,browser,regex,omatches,omatch
dim browserV,platformV
if instr(Ucase(userAgent),"DOCOMO") > 0 then
platform = "DoCoMo"
agetPart = split(userAgent,"/")
browser = "DoCoMo"
if instr(agetPart(0),"(") > 0 then
set regex = new RegExp
regex.pattern = "([0-9]\.[0-9])\s([^\(]*)(.*)"
set omatches = regex.execute(agetPart(0))
set omatch = omatches(0)
browserV = omatch.submatches(0)
platformV = omatch.submatches(1)
else
browserV = agetPart(0)
platformV = agetPart(1)
end if
end if
UserAgent = array(platform, platformV, browser, browserV)
end function

483:nobodyさん
06/05/02 14:14:00
hoge1.aspにて

dim hoge
set hoge = new clsHoge

set session("sshoge") = hoge

hoge2.aspにて

dim hoge
set hoge = session("sshoge")
response.write hoge.hello()

というようにhoge2.aspでオブジェクトを取り出して
使いたいのですがhogeのhello()メソッドにアクセスできません。
どこに問題があるか分かる方がおられましたら
教えていただけないでしょうか？

484:nobodyさん
06/05/02 15:34:41
>>483
hello()メソッドはどこで定義したの？

485:nobodyさん
06/05/02 20:53:58
>>482
ありがとうござあいます
今日は酔ってるんで明日やってみます

486:nobodyさん
06/05/03 00:24:06
>>483
超残念。
SessionにはVBScriptのオブジェクトは格納できない。
（厳密に言えば格納は出来るけど、それを取り出して使う事が出来ない）
SessionはIISのオブジェクトであって、VBScriptとは次元が違うから。

自力でserialize的な仕掛けでも作るしかないね。

487:nobodyさん
06/05/17 17:39:34
Microsoft JScript 実行時エラーエラー '800a138f'

分かる人、助けてくらはい

488:nobodyさん
06/05/17 20:24:32
せめてそのエラーを吐くソースを晒せ

489:nobodyさん
06/05/17 23:51:46
>>487
ランタイムエラーを起こすJScriptコードがあるってことだな。

490:nobodyさん
06/05/18 06:23:27
ちらっとぐぐってみたら
WindowsUpdateが絡んでいるようなのがちらほら。
だとしたらちょっと厄介な話かもね

491:nobodyさん
06/05/26 09:32:16
引越ししたんだが、webサーバーに使ってたマシン（Win2000server）でaspを実行すると、
response.redirectで引っかかるようになってしまった。
別PCで動かした場合は今までどおり動くんだが、、、
IISとか設定いじった覚えもないし。

何か疑うような所ってあります？？

492:nobodyさん
06/05/26 16:10:20
IISの設定で親のパスを有効になってますか？

493:nobodyさん
06/05/29 11:55:41
>>492
なってます。
ﾅﾝﾃﾞﾀﾞﾛ。。。。

response.redirectで別aspに飛ばすと、
内部エラー500で止まってしまう。

494:nobodyさん
06/05/29 23:41:30
>>493
まずこれを試せ
URLﾘﾝｸ(support.microsoft.com)

495:491
06/05/30 09:33:53
「ISAPIアプリケーションをキャッシュする」のチェックが抜けてますた。。。
外した覚えもないんだけどな。。。

>>492,>>494様、サンクスです。

496:nobodyさん
06/06/08 21:56:07 Ak1nru4j
初歩的なんですが、テキストの色を変えるために
Response.Write　"<FONT color"red">hoge</FONT>"
ってやるとエラーになるんですが、どうすればいいんでしょうか？

497:nobodyさん
06/06/08 23:44:25
>496
redの前後の"を""と二つ続ける
↓
ウマー

498:nobodyさん
06/06/09 00:24:28 ziVzofuc
>>497
サンクスです！
そっか、単純に"だと閉じちゃうのか。

499:nobodyさん
06/06/09 02:24:04 ziVzofuc
また詰まってしましまいました。
Response.Write　"<input type=""submit"" value=""hoge"">"
とすると「オブジェクトがありません」て言われました。
何がまずいんでしょうか？

500:499
06/06/09 02:35:40
自己解決です。
ただのタイプミスでした。スイマセン。

501:nobodyさん
06/06/09 09:32:31 1vEHWatH
>>500
つか、TYPOくらい
ここにPOSTする前に
見直して確認しろよ。ｗｗｗ

502:nobodyさん
06/06/22 22:11:24 EZKQQCl5
URLﾘﾝｸ(www.itmedia.co.jp)

↑にページに

> Response.Redirectメソッドを呼び出しても，即座に引数に指定されたURLに飛ぶというわけではなく，
> ASPファイルに記載された処理はすべて実行されるので，十分に注意したい。

て書いてあるんだが、Response.Redirect以降の処理は実行されないんじゃなかったっけ？

503:nobodyさん
06/06/22 23:46:17
そのはず

504:nobodyさん
06/06/22 23:47:07 EZKQQCl5
>>503
「そのはず」ってどっち？

505:nobodyさん
06/06/22 23:52:08 EZKQQCl5
URLﾘﾝｸ(hp.vector.co.jp)

こっちには「以降に記述された処理は無意味」って書いてあるな。

506:nobodyさん
06/06/23 00:08:48
>>505
URLﾘﾝｸ(support.microsoft.com)
URLﾘﾝｸ(support.microsoft.com)

ここら辺に書いてあるけど、

Buffer=Trueの場合はサーバ内のバッファに溜めるから
サーバ側で以降のコードは実行されるけど、クライアント側では実行されない。

Buffer=Falseの場合はサーバ内でバッファリングしないから
サーバもクライアントも以降のコードは実行されない。

まぁ、結局は Server.Transfer にするか Response.End をつけろってことだな

507:nobodyさん
06/06/23 01:55:36
>505
そこ「Response.End ：スクリプトの実行を中止します」って何をデタラメ書いてんだ

508:nobodyさん
06/06/23 19:40:18
---red1.asp---
<%
Session("HOGE") = "HOGE"
Response.Redirect "red2.asp"
Session("HOGE") = "HAGE"
%>

---red2.asp---
<%=Session("HOGE")%>

結果は各々の目で確かめましょう

509:nobodyさん
06/06/24 16:27:07 NUoL74NB
ファイルのアップロードについてですが、BASP21を使わずにやれる方法ありませんでしょうか？
サンプルURLなどお願いします。

510:nobodyさん
06/06/24 17:38:14
>>509
まずググれ。

511:nobodyさん
06/06/24 23:19:08
>>509
BASP使わないとしてもADOの比較的新しいバージョンが必要。
あとはググれ

512:nobodyさん
06/06/24 23:58:07
別解として自分で一からファイルアップロードコンポーネントを書いてしまうというのもあるな。

513:nobodyさん
06/06/25 15:19:55 HTU8DLsE
ADO.Stream　を使ってファイルをアップロードしたいのですが
どのように記述すればよいでしょうか？
お願いします。

鯖は2003です。

次ページ