トップページ⇒php
983コメント364KB

＜%= ASP総合 %＞ Part.4

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2005/07/03(日) 12:27:28ID:???
レガシASPについて語るスレです。質問や雑談もOK。
何より手軽なので社内イントラであればまだまだ第一線です。
ASP.net については専用スレッドでお願いします。

関連スレ:
【質問】ASP.NETスレ Part2【議論】
http://pc8.2ch.net/test/read.cgi/php/1111480331/

過去スレ:
==ASP== Part 3
http://pc8.2ch.net/test/read.cgi/php/1059401269/
==ASP== Part 2
http://pc2.2ch.net/php/kako/1028/10280/1028024916.html
==ASP==
http://pc.2ch.net/php/kako/984/984840107.html
0378sage2006/02/10(金) 23:36:15ID:gbK8yDLA
>>377
無事動きました！ありがとうございます！
0379nobodyさん2006/02/11(土) 03:19:38ID:???
win2003鯖(web Edition)+IIS6.0+VBscript+BASP21でメール送信をしようとしています。
PHPのmail()関数を使ってメールの送信ができたのでSMTPには問題なさそうです。
ところがVBscriptからだとSMTPで認証を要求されます。

この場合、実行ユーザが違うから権限が違うのかな、と思ったのですが、
Win鯖にうとくどのサービスがどのユーザで実行するか調べたいのですが、
どこで見れるのか教えていただけますでしょうか
また、ググってみたところ、2003web Editionにはユーザ管理機能はない、
ttp://www.fmmc.or.jp/〜fm/nwts/w2003s/ch1/1_1_3.html
なんて書いてあるんですがまじですか？
0380nobodyさん2006/02/11(土) 07:14:57ID:???
>>379
なんだか全然スレ違いくさいが。

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

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

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

>2003web Editionにはユーザ管理機能はない
ActiveDirectoryが無いというだけで、サーバ内でのユーザ管理はもちろんある
0381nobodyさん2006/02/11(土) 15:21:43ID:???
>>380

全然見当違いなところのエラーでした。
BASP21でメールサーバをIPで指定していたんですが、
ループバック(127.0.0.1)で指定したら(ﾟдﾟ)ｳﾏｰでした
おそらくSMTPのリレー関係の設定の問題でした。
ごめんなさい
0382nobodyさん2006/02/15(水) 14:02:53ID:???
FileSystemObjectで、仮想ディレクトリ内にファイルをコピーしたり削除する場合、
そのフォルダに対して、
「インターネットゲストアカウント　PC名\IUSR_PC名」のユーザーアカウントに、
フルアクセスの権限を与えています。

セキュリティーの観点から、こういうのは危ないんでしょうか？
0383nobodyさん2006/02/15(水) 21:10:42ID:lSEl6laF
.
.
Dim GetDate

for i=startYear to lastYear
GetDate = obj.xxxx
i = i + 1
next
.
.
このような形で年度別にGetDateに配列でデータを格納しています。
この年度別に作られる配列を一つの配列変数に代入したいのですが、
どうすればよろしいでしょうか？
0384nobodyさん2006/02/15(水) 22:15:43ID:???
>>382
フルアクセスは実行権限含むからまずい
読み取り＋書き込み、がいいかと。

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

あと
>>年度別に作られる配列を一つの配列変数に代入したい
言わんとしてる事はなんとなくは分かるが
やりたいことをもう少し具体的かつ厳密に。
0385nobodyさん2006/02/16(木) 01:51:09ID:joFVC4f3
ASPをApacheで動かしたい。
何かよい手はないかな？
0386nobodyさん2006/02/16(木) 07:33:17ID:???
>>385
Apache:ASP
0387nobodyさん2006/02/17(金) 16:12:51ID:???
画像アップロード板みたいなのを作ってるんですが、
データベース部分に、画像のアドレスや、その他情報を書き込み、
画像はBASP21を使いFTPでアップロードしようとしています。


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

webの開発は始めてなので「どうなんだろう？？」と悩んでしまい、、、
0388nobodyさん2006/02/17(金) 16:21:15ID:???
>>387
アップロードされるファイルサイズによるが、
普通はアップロードが完了してからDBに書き込むと思うぞ。

あと、BASP21はFTPじゃなくてHTTPのアップロードだと思う。
0389nobodyさん2006/02/17(金) 17:08:21ID:???
>>388
ファイルの名前をDBのIDと関連付けて登録したかったので、
DB→ファイルのアップロードと考えてました。

アップロード→DBとするなら、
もう１個別に採番用テーブルを作ってそれをファイル名とIDにする感じですかね？
0390nobodyさん2006/02/17(金) 17:57:05ID:???
>>389

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

それなら

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

が一番かな。
何にせよ、ファイルアップロードはクライアント側でアップロードをミスることが多いし、
ファイルのチェックとかもしなきゃいけないでしょ？
0391nobodyさん2006/02/18(土) 15:30:31ID:???
>>390
それだと最後の移動＆リネームが失敗した時、
再度DBのデータを削除なり更新しに行くハメにならん？
0392nobodyさん2006/02/18(土) 16:16:18ID:???
>>391
一連の流れにDBのトランザクション使えばよくね？
0393nobodyさん2006/02/18(土) 16:31:42ID:???
>>392
>>387のいうファイルのアップロードの大きさが分からないが、
何百メガとかだと、DBのトランザクション使うのはマズいんでないかい？

少なくともロックは排他で、何回もリトライしてください〜の仕様にするしかないか。
0394nobodyさん2006/02/18(土) 20:37:36ID:???
IDはIDENTITYで取ればいいんだよ
データ空で一行INSERTした後その新キーを取得してcommit、
その後そのキーで行ロックしてファイルデータをupdateしてcommitしてやればいい。
ファイルデータupdate時に完了フラグも更新すれば
途中で失敗したものとも区別がつく。

つーか既にASPの話題じゃねえな
0395nobodyさん2006/02/18(土) 20:39:32ID:???
UP用TEMPフォルダへアップロード
↓
ファイルチェック
↓
DBトランザクション開始
↓
DBへ登録＆ID取得
↓
正式なフォルダに移動＆リネーム
↓
DBトランザクション終了（commit/rollback）

がいいかもな
0396nobodyさん2006/02/25(土) 00:08:08ID:5p0RQZcL
dimで宣言した二次元配列をOnClickでコールしたJavaScript関数内で使用する方法を教えてください。
0397nobodyさん2006/02/25(土) 06:20:25ID:???
>>396
JavaScriptのコードに展開すればいいじゃん
0398nobodyさん2006/02/25(土) 10:43:55ID:???
>>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>
03993962006/03/01(水) 05:59:02ID:/i7BGAMo
>>398
JavaScript関数内でa(m,n)が使用できないのですが．．．
0400nobodyさん2006/03/01(水) 11:35:16ID: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メソッドを使ってものの順番は変わりません。

ファイル作成時間によってソートされているのではないかと
試してみましたが違うようです。
大変恐縮ですが、ソートする方法をご教授いただけませんでしょうか。
何卒よろしくお願いいたします。」
04014002006/03/01(水) 11:46:02ID:e/ZVjBAD
追記；要素を入れるときに要素にCIntしても結果は変わりませんでした。
04024002006/03/01(水) 12:20:50ID:e/ZVjBAD
すいません。自己解決しました。
数値型がだめなら、文字型だろ！　と決まった桁数に0を補完するようにしました。
例） 1 → 0001　11 →0011
0403nobodyさん2006/03/01(水) 18:51:48ID:???
もともと
>>1 2 3 6 7 22 27 と取得できるはずなのに、
ここだよね

XP以降のExplorerならば確かに初期状態だとそうなるけど
ファイル名って文字列だからね。
ソートすると
>>1 2 22 27 3 6 7 となり、
で正しいわけだよ
0404nobodyさん2006/03/02(木) 22:33:46ID:???
>>399
サーバーサイドのa(m,n)の値ををクライアントサイドのjavascriptのb[m][n]に引き渡してる
0405nobodyさん2006/03/03(金) 13:53:37ID:???
一応過去ログも見てみたのですが、見当たらなかったので質問させてください。

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

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

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

<br>

としか出力されない状況です。
通常なら表示されて当たり前じゃないかと思うのですが、どこかIIS等の設定がおかしくなっているのでしょうか？
0406nobodyさん2006/03/03(金) 23:00:10ID:???
>>405
NULLだったらどう動くようにしてるの？
0407nobodyさん2006/03/04(土) 00:17:11ID:???
>>405
つ【vbCrLf】
04084052006/03/06(月) 10:13:00ID:???
>>406
if文で分岐させているのですが、NULL値の場合は
Response.Write "NULL値です"
と表示するようにしています。

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


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

お騒がせしてすみません＾＾；
0409nobodyさん2006/03/06(月) 23:03:11ID:???
まさかとは思うが
If なんとかかんとか = Null Then
とかやってないよな。
04104052006/03/22(水) 17:47:30ID:???
>>409
亀レスだけど

If IsNull(変数) Then　または If Not IsNull(変数) Then
ってやってた
0411nobodyさん2006/03/26(日) 07:43:17ID:/latXqRh
質問です。
メールフォームの送信を.aspでやるときに、送信者側のファイル添付は可能でしょうか？
mailer.addattachmentメソッドがあるようなんですが、そのまま使ってもファイルは添付されずに、送信者のローカルPCのファイルへのパスが送られてくるだけなんですけど。
これってもしかして、一旦uploadscript.aspなんかでサーバーへアップロード保存して、サーバー側に保存されたファイルを添付させるという、２段階手続きじゃないとムリなんですか？
その場合、送信するメールフォームと対になるサーバー側の画像ファイルとの関連づけはどのようにするのか悩んでるんですが、何かアドバイス有りましたらよろしくお願いします。
0412nobodyさん2006/03/26(日) 12:38:36ID:???
>>411
mailer.addattachment ってなんてあったっけ？
0413nobodyさん2006/03/26(日) 15:08:37ID:???
ServerObjects社製のコンポーネントみたいね
ttp://www.serverobjects.com/comp/Aspmail4.htm
このあたりのExampleとか見るとサーバー側にあるファイルを添付するﾒｿｯﾄﾞじゃないかと思う
ttp://www.bizclasshosting.com/faq/webhostingplans/CGI_Scripts_and_Programming/567-aspmail_methods.htm

BASP21あれば要らないよーな
0414nobodyさん2006/03/26(日) 17:42:32ID:/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しかインストールされていないサーバー環境でも動作可能なのでしょうか？
もし可能であれば使ってみようと思います。
0415nobodyさん2006/03/26(日) 17:45:46ID:/latXqRh
上記訂正、
BFORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadscript.asp">
↓
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadscript.asp">
です、すみません。
0416nobodyさん2006/03/26(日) 21:54:41ID:???
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)
%>
0417nobodyさん2006/03/28(火) 11:21:21ID:???
とりあえずaspのシステム作るなら、basp21は突っ込んどくオイラ。
なんだかんだで、永い間使ってて安心して使える。
0418nobodyさん2006/03/28(火) 13:00:23ID:???
WinCEでの開発なんで自力でbasp21っぽいの作ってるオイラ
バグだらけで不安になりながら使ってる
0419nobodyさん2006/04/10(月) 20:06:46ID: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
0420nobodyさん2006/04/10(月) 20:48:18ID:???
これ、ASPで動かすんなら全体が<% %>で囲まれるから
ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
はおかしいと思うんだが
0421702006/04/10(月) 21:57:23ID: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
%>
0422nobodyさん2006/04/10(月) 22:24:01ID:???
>>421
IE上でExcelのCOMを動かそうとしてる？？
04234212006/04/10(月) 22:28:02ID:3UIEjnKE
>>422
はい、そうです
この方法はよくないんでしょうか？
0424nobodyさん2006/04/10(月) 22:37:16ID:???
>>423
今のIEじゃローカル上のファイルを操作するのは
セキュリティ的に無理だと思う
04254222006/04/10(月) 22:49:35ID:w8+tUl+V
>>424
では、サーバー側に一時的なファイルを作成してそれをクライアント側で
ダウンロードする仕組みにするには、どの様なコードを書けばよいでしょうか。
サンプルコードがあるサイトをご存知でしたら教えてください。
お願いします。
0426nobodyさん2006/04/10(月) 23:13:55ID:???
自分の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
%>
0427nobodyさん2006/04/10(月) 23:15:06ID:???
あ、ごめん
× Response.BinaryWrite bydata
○ Response.BinaryWrite b
04284252006/04/10(月) 23:17:23ID:3UIEjnKE
>>426
ありがとうございます。
明日試してみます
0429nobodyさん2006/04/11(火) 01:16:54ID:???
鯖側でExcelオートメーションは非推奨
http://support.microsoft.com/kb/257757/ja/

やるならこっちかな
http://support.microsoft.com/default.aspx?scid=kb;ja;199841
http://support.microsoft.com/default.aspx?scid=kb;ja;271572
04304252006/04/11(火) 07:27:09ID:j7JR4Ohz
>>429
目的の動作が出来ました、ありがとうございました。
0431nobodyさん2006/04/14(金) 21:34:06ID:D01n0ua1
XPproで動いてたASPを2003鯖に入れたらページが見つかりません
とかなって表示できません。
XPで動いてたんでスクリプトには問題ないと思うんですが
IISの問題でしょうか？
どこを直せばよいでしょうか？
0432nobodyさん2006/04/14(金) 21:47:20ID:D01n0ua1
ためしに自分で作った仮想ディレクトリーにdefault.aspを
配置しましたが、Directory Listing Deniedとかなって表示できません。どうすればよいでようか？
助けてください。
0433nobodyさん2006/04/14(金) 22:36:40ID:???
>>432
既定のドキュメント
0434４３２2006/04/14(金) 22:58:23ID:D01n0ua1
WebサービスでASPを許可したらいけました」
0435nobodyさん2006/04/15(土) 10:40:23ID: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データソースを追加する以外の方法で別のやり方あったら教えてください。
0436nobodyさん2006/04/15(土) 11:05:26ID:???
>>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にパスワードが設定されている場合に発生します。
0437nobodyさん2006/04/15(土) 11:10:18ID:???
>>435
今時mdbでそんな方法で接続してる奴いねよ
Microsoft.Jet.OLEDB.4.0 で接続しろよ
04384352006/04/15(土) 11:21:55ID:GTWKBHgT
>>436
パスワードを解除したらできました。
ありがとうございます。
04394352006/04/15(土) 11:28:34ID:GTWKBHgT
>>437
ああ、古いASP引っ張り出したんであれだったけど
これに直しました。

DBF = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"User ID=;Password=;Data Source=" & Fname
0440nobodyさん2006/04/15(土) 21:22:35ID:???
>438
まぁパスワード解除しちゃったそうだから今更だけど
パスワード付きmdbをJet OLEDB使って開くときは、
ConnectionString/Passwordプロパティにパスワード入れるんじゃなくて
Connection.Properties("Jet OLEDB:Database Password")に突っ込むこと。
04414352006/04/16(日) 13:54:35ID: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'
引数が間違った型、許容範囲外、または競合しています。

というエラーになってしまいます。
どこを直せばよろしいでしょうか。
お願いします。
04424352006/04/16(日) 17:50:24ID:eJrc5hWb
解決しました。失礼しました。
0443nobodyさん2006/04/18(火) 18:02:27ID:???
435は解決したとみせかけて実は解決していなかった
だから質問をｺﾋﾟﾍﾟし、別の板、もしくは別のｽﾚで書き込み答えを得ようとしたのか?
0444nobodyさん2006/04/19(水) 17:14:37ID:???
ASP.netやり始めて勉強してるんだけど、asp関係の板ってこんなに過疎ってるとは思わなかった。
いろいろ勉強してるんですが、なかなかおもしろいのになぁ。
SQL2005が2000と比較して結構強力になってるっぽいし、ASP.netもいろいろおもしろい。

勉強し始めて1週間ぐらいだけど、5年前手書きでがりがり書いてたASPとは全然違う。
いまObjectDataSourceにDataSetを渡して、データバインドコントロールでいろいろ表示させてるけど、
これは結構使えるかもって思った。次の開発はasp.netでやってみようかなぁ。
0445nobodyさん2006/04/21(金) 08:06:46ID:2wM3++cG
ASP.netを開発するにはどんなツールが必要ですか？
0446nobodyさん2006/04/21(金) 12:15:40ID:???
>>445
ここのアプリケーション開発基礎が詳しい
http://www.microsoft.com/japan/msdn/sqlserver/selfstudy/

まぁ、いまであれば、Visual Web Developer 2005 Express Editionと
SQLServer2005ExpressEdition with Advanced Servicesで無料で開発できる
0447nobodyさん2006/04/22(土) 05:00:11ID:KZQOiwti
ツールを使わないで作るASPでsendmailみたいなプログラム作れないでしょうか？
cgiでSMTPを使って出来たのだからありそうだけどなかなか見つかりません。
よろしくお願いします。
04484472006/04/22(土) 05:11:37ID:KZQOiwti
SMTP鯖を直接叩いてメールを送るソースお願いします。
04494472006/04/22(土) 07:52:46ID:IlbM7gzP
http://homepage2.nifty.com/lightbox/VA003334/asp051016150512.htm
今これ試してみたけど
こんなエラーになりました。
どこを直せばよいでしょうか、お願いします。

-----
サーバーによって 1 つまたは複数の受信者アドレスが拒否されました。サーバーからの応答は次のとおりです。550 5.7.1 Unable to relay for
-----
0450nobodyさん2006/04/22(土) 11:28:12ID:???
>>449
試してみたがソースに問題はなさそう
鯖がそのﾒｱﾄﾞに送れないって言ってるんでそちらを調べてみて
ttp://www.google.co.jp/search?q=%22550+5.7.1+Unable+to+relay+for%22
0451nobodyさん2006/04/22(土) 12:30:44ID:???
>>449
こんなのＭＳであるんだな。初めて知った。
でもこれみると、POP Before SMTPやSMTP Authには対応してない気がするのは、
漏れだけかな・・・

となると、まず認証関係を確かめる必要がある。
次はスパムされちゃう恐れがあるので、そのSmtpを運営してるプロバイダを使用してる
ユーザだけとか、企業だとIPアドレス等とか、いろいろ制限されててメール送信して
くれない可能性があるね。
04524472006/04/22(土) 13:47:10ID: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;
0453nobodyさん2006/04/22(土) 16:06:29ID:???
ツール使わないっていってんのに、おもいっきりモジュールつかってるんですが。
use Net::SMTP;

これが許されるならBASP21を素直に使えよ。
0454nobodyさん2006/04/23(日) 01:14:01ID:???
ラジオボックスを複数個用意して、いずれかが選択された時に出力する部分を入れ替える、というのは可能でしょうか。

たとえば、

<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>
〜〜

こういった感じのものを作りたいと思っていますが、どうも上手くいきません。
よろしくお願いします。
0455nobodyさん2006/04/23(日) 02:19:41ID:???
>>454
可能

普通にクラスのメソッドで、ポストされたラジオボタンの値に従って
処理をわければいいだけだと思われ。
04564542006/04/23(日) 03:41:00ID:???
　POSTで同ページにアクションを送る、という方法ではなく、ラジオボタンを
押された時に表示を切り替えれたら、と思っています。
　ラジオボックスのonClickプロパティでどうのこうの…という方法を試して
みましたが、どうもエラーが出てしまいます。
　ソースのサンプルみたいなものがあれば嬉しいのですが、見つからず…。
0457nobodyさん2006/04/23(日) 06:58:29ID:???
>>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>
0458nobodyさん2006/04/23(日) 14:40:54ID:???
>>456
それを実現するならAjaxだな
http://www.atmarkit.co.jp/fdotnet/special/ajax/ajax_01.html

だけど、めんどくさそうで、おれならやりたくないな
0459nobodyさん2006/04/23(日) 16:27:40ID:???
表示だけの問題なら全部ソースに書いといて１つだけ表示させればいい
<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>

まぁ既にｽﾚ違いだが
04604542006/04/24(月) 02:09:47ID:???
ソースを元に作成してみます。
手短ですが、返答ありがとうございました。
0461nobodyさん2006/04/24(月) 11:16:04ID:gF03A8tY
今さらかもしれないのですが、ISAPIについて教えてください。
ISAPIFilterからApplication変数を読む事ってできないでしょうか。
0462nobodyさん2006/04/25(火) 10:04:51ID:???
文字列の比較について聞きたいのですが、分かる方がいればお願いします。
ドメインのカントリーコードを抜き出して比較するためのコードとして、以下のように書きました。

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　のように、一種類だけなら問題なく動きました。
原因が分かる方いませんか？
04634622006/04/25(火) 11:20:35ID:???
先ほど書き込みした者です。
昨日から悩んだ末の書き込みでしたが、先ほど演算子の優先度の関係に気づき、自己解決しました。
板汚し失礼しました。
0464nobodyさん2006/04/28(金) 01:48:17ID:TXbB+xqv
ASPをこれから始めようと思ってます。
で、IISをインストールして、IEからttp://127.0.0.1にアクセスしたところ、
ユーザー名とパスワードの入力ウィンドウが表示されました。
ユーザー登録した覚えはないのですが、どうしたらいいですか？
0465nobodyさん2006/04/28(金) 07:06:59ID:???
>>464
IISの設定で「既定のWebサイト」のプロパティから
ディレクトリセキュリティ→匿名アクセスおよび認証コントロールの「編集...」
のダイアログの「匿名アクセス」に
チェックついとるか？
0466nobodyさん2006/04/28(金) 22:49:06ID:???
>>464
それってルーターかモデムにアクセスしようとしてるんだよ
試しにルーターかモデムにログインするIDとパス入れてご覧
0467nobodyさん2006/04/29(土) 00:22:32ID:???
>466
それはひょっとしてギャグで(ry
04684642006/04/29(土) 12:17:28ID:5l2q50I6
>>465
IISの設定の方法がわかりません。
0469nobodyさん2006/04/29(土) 13:29:04ID:xQDtvren
携帯サイトを作ろうとしてますが、キャリアによって移動するページを仕分けたいのですが
どのような判別ソースを書けばよいでしょうか？
キャリアはEZ、Docomo、Vodafoneですが、画像を表示できるタイプとできないものの
全部で６パターンを仕分けたいです。
よろしくお願いします。
0470nobodyさん2006/04/29(土) 17:09:41ID: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);
}
0471nobodyさん2006/04/29(土) 17:12:39ID: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);
}
0472nobodyさん2006/04/29(土) 18:22:50ID:???
>>468
ふーんそっか大変だね
04734662006/04/30(日) 00:30:55ID:???
>>467
すまん。実際俺はそうだったよ
串指してないし
0474nobodyさん2006/04/30(日) 12:32:07ID:???
今すぐループバックアドレスでぐぐれ。
04754642006/04/30(日) 15:56:09ID:BgW+gShw
えー色々と問題を解決していきました。
とりあえずお礼と結果
>>465
チェック入ってました。結局アクセスできませんでしたが、
他のファイルはアクセスできることがわかりました。
多分、最初のファイル自体の問題なんじゃないかと思います。
有難うございました。
>>466
違いました。
有難うございました。

で、ASPをやってみて、JScriptとVBScriptは上手くいくんですが、
ASP.NETのC#ができません。MMCで使用する言語をC#にしたんですが
どうやら実行が許可されていないようです。
どうすればいいでしょうか。
0476nobodyさん2006/04/30(日) 16:52:26ID:???
ASP.netはスレ違いなんだが…
とりあえずやってみようとしてるファイルの
ファイル名と内容とブラウザに出てきたエラーの詳細を晒してみ。
04774642006/04/30(日) 17:14:27ID:BgW+gShw
>>476
わかりました。以後、ASP.NETの質問はASP.NETスレでやります。

http://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"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja"><head>
<title>Test</title></head><body>
<h1>Test</h1>
<p><%= "test" %></p>
</body></html>
■ このスレッドは過去ログ倉庫に格納されています