＜%= ASP総合 %＞ Part.4
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2005/07/03(日) 12:27:28ID:???何より手軽なので社内イントラであればまだまだ第一線です。
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
0362nobodyさん
2006/02/07(火) 09:32:11ID:o795fuVlこのデータを変数に格納したいのですが、
今のところ、
hoge1 = objRS("hoge1")
hoge2 = objRS("hoge2")
hoge3 = objRS("hoge3")
と言ったかなり格好悪いやり方をしています。
これを、スマートにするにはどうしたらいいのでしょうか。
ちなみに
1回目のレコードセットはhoge1〜hoge20
2個目のレコードセットはhoge1〜hoge25
と言ったように、
項目数も変わってくるんです。
0364nobodyさん
2006/02/07(火) 20:41:38ID:???レンタルサーバでファイルアップフォームを
作成しているのですが、BASP21が使えません。
（インストールに管理者権限が必要？）
VBScriptのデフォルトではファイルアップは
できないのでしょうか？
もし、他のモジュールを使えば可能なのであれば、
ファイルをコピーするだけで動くようなものを
教えていただけると助かります。
よろしくおねがいします。
0365nobodyさん
2006/02/07(火) 21:19:33ID:???ADO.Streamを駆使すれば可能。
来週まで待てば俺作のをupってもいいが…
ttp://blog.so-net.ne.jp/nakagami/archive/c100656
こんなのがあったので参考になるんちゃうか。
0366nobodyさん
2006/02/08(水) 00:09:09ID:???↓には、昔お世話になったことあるよ。
http://web.archive.org/web/*/http://www2.dolphinnetservice.ne.jp/Mattn/AcrobatASP/4.html
0367364
2006/02/08(水) 16:53:03ID:???親切に回答いただきありがとうございます！
>>366 さんのサンプルを作ったところ、
うまくアップロードできたようです。
ただ、これを使うと通常の値
<input type="text"> などはどうやってとるのかが
知識不足のため、ソースを見てもわかりませんでした…
Upload("textbox") とかでもダメっぽいですね。。
0368nobodyさん
2006/02/08(水) 20:31:59ID:???multipart/form-dataでUPしてBinaryReadで受け取ると
バイト単位の処理になるから、テキストフォームとかと同時にやるとなると面倒くさそうだね。
駄目文字の処理とかも必要になるし。
0369nobodyさん
2006/02/09(木) 02:36:56ID:v3Lm1+ha上記メソッドを使用してメールを送信すると、
指定したアドレスに２重送信されてしまい困っています。
メールを送信する直前にDBへ履歴を登録しているので、
前回送信時刻と現在（今回送信）時刻の差(datediff)が60秒以内であれば、
メールを送信しないような処理をしているのですが無駄に終わっています…。
何かいい回避策があるようでしたら教えてください。
0370364=367
2006/02/09(木) 13:24:29ID:???やはり受け取ったバイナリを手動でとらないとダメなんですね…ありがとうございます。
ファイルアップとテキストフォームの組み合わせは引き続き調べてみます。
0372nobodyさん
2006/02/09(木) 21:01:53ID:???通貨型じゃ15桁＋小数部４桁だよね？
0373nobodyさん
2006/02/09(木) 22:59:46ID:???ASPでどんな計算をしようとしているんだｗ
文字列でいいんじゃねーのけ？
0375nobodyさん
2006/02/10(金) 01:31:16ID:gbK8yDLAクライアント側
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") 'これで受け取る×
解決策がありましたらよろしくお願いいたします。
0376nobodyさん
2006/02/10(金) 06:35:31ID:???ttp://asp2php.naken.cc/
ダウンロードしたら解凍してできたexeファイルの上に、
**.aspのソースをドラッグドロップするだけですよ
0377nobodyさん
2006/02/10(金) 19:40:27ID:???send前に
httpObj.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
をつけるのをマジおすすめ
0378sage
2006/02/10(金) 23:36:15ID:gbK8yDLA無事動きました！ありがとうございます！
0379nobodyさん
2006/02/11(土) 03:19:38ID:???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:???なんだか全然スレ違いくさいが。
>win2003鯖(web Edition)+IIS6.0+VBscript+BASP21でメール送信をしようとしています。
2003ServerにSMTPが動いていて、同じサーバ上からそれを使って送信、
ということでOK？
>VBscriptからだとSMTPで認証を要求されます。
どんな認証が要求される？
ダイアログなどを詳しく。
>この場合、実行ユーザが違うから権限が違うのかな、と思ったのですが、
>Win鯖にうとくどのサービスがどのユーザで実行するか調べたいのですが、
SMTPサービスの実行権限を調べたいなら
コントロールパネル→管理ツール→サービス
>2003web Editionにはユーザ管理機能はない
ActiveDirectoryが無いというだけで、サーバ内でのユーザ管理はもちろんある
0381nobodyさん
2006/02/11(土) 15:21:43ID:???全然見当違いなところのエラーでした。
BASP21でメールサーバをIPで指定していたんですが、
ループバック(127.0.0.1)で指定したら(ﾟдﾟ)ｳﾏｰでした
おそらくSMTPのリレー関係の設定の問題でした。
ごめんなさい
0382nobodyさん
2006/02/15(水) 14:02:53ID:???そのフォルダに対して、
「インターネットゲストアカウント 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:???フルアクセスは実行権限含むからまずい
読み取り＋書き込み、がいいかと。
>>383
>>GetDate = obj.xxxx
にループ変数iが絡んでいないのだが？
あと
>>年度別に作られる配列を一つの配列変数に代入したい
言わんとしてる事はなんとなくは分かるが
やりたいことをもう少し具体的かつ厳密に。
0385nobodyさん
2006/02/16(木) 01:51:09ID:joFVC4f3何かよい手はないかな？
0387nobodyさん
2006/02/17(金) 16:12:51ID:???データベース部分に、画像のアドレスや、その他情報を書き込み、
画像はBASP21を使いFTPでアップロードしようとしています。
普通なら、トランザクションを開始して、レコードを書き込んで、
ファイルもアップロードしてからコミットという考えだと思うんですが、
webのシステムの場合、ファイルのアップロードのような時間のかかる処理を、
トランザクション内に入れないほうが良いのでしょうか？
webの開発は始めてなので「どうなんだろう？？」と悩んでしまい、、、
0388nobodyさん
2006/02/17(金) 16:21:15ID:???アップロードされるファイルサイズによるが、
普通はアップロードが完了してからDBに書き込むと思うぞ。
あと、BASP21はFTPじゃなくてHTTPのアップロードだと思う。
0389nobodyさん
2006/02/17(金) 17:08:21ID:???ファイルの名前をDBのIDと関連付けて登録したかったので、
DB→ファイルのアップロードと考えてました。
アップロード→DBとするなら、
もう１個別に採番用テーブルを作ってそれをファイル名とIDにする感じですかね？
0390nobodyさん
2006/02/17(金) 17:57:05ID:???> ファイルの名前をDBのIDと関連付けて登録したかった
それなら
UP用TEMPフォルダへアップロード
↓
ファイルチェック
↓
DBへ登録＆ID取得
↓
正式なフォルダに移動＆リネーム
が一番かな。
何にせよ、ファイルアップロードはクライアント側でアップロードをミスることが多いし、
ファイルのチェックとかもしなきゃいけないでしょ？
0393nobodyさん
2006/02/18(土) 16:31:42ID:???>>387のいうファイルのアップロードの大きさが分からないが、
何百メガとかだと、DBのトランザクション使うのはマズいんでないかい？
少なくともロックは排他で、何回もリトライしてください〜の仕様にするしかないか。
0394nobodyさん
2006/02/18(土) 20:37:36ID:???データ空で一行INSERTした後その新キーを取得してcommit、
その後そのキーで行ロックしてファイルデータをupdateしてcommitしてやればいい。
ファイルデータupdate時に完了フラグも更新すれば
途中で失敗したものとも区別がつく。
つーか既にASPの話題じゃねえな
0395nobodyさん
2006/02/18(土) 20:39:32ID:???↓
ファイルチェック
↓
DBトランザクション開始
↓
DBへ登録＆ID取得
↓
正式なフォルダに移動＆リネーム
↓
DBトランザクション終了（commit/rollback）
がいいかもな
0396nobodyさん
2006/02/25(土) 00:08:08ID:5p0RQZcL0398nobodyさん
2006/02/25(土) 10:43:55ID:???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>
0399396
2006/03/01(水) 05:59:02ID:/i7BGAMoJavaScript関数内でa(m,n)が使用できないのですが．．．
0400nobodyさん
2006/03/01(水) 11:35:16ID:e/ZVjBADファイル名には規則性があり、数値で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メソッドを使ってものの順番は変わりません。
ファイル作成時間によってソートされているのではないかと
試してみましたが違うようです。
大変恐縮ですが、ソートする方法をご教授いただけませんでしょうか。
何卒よろしくお願いいたします。」
0401400
2006/03/01(水) 11:46:02ID:e/ZVjBAD0402400
2006/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:???サーバーサイドの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等の設定がおかしくなっているのでしょうか？
0408405
2006/03/06(月) 10:13:00ID:???if文で分岐させているのですが、NULL値の場合は
Response.Write "NULL値です"
と表示するようにしています。
>>405
<br>の代わりにvbCrLfを使えばいいということですか？
お二方レスしていただいたのですが、実はついさっき自己解決してしまいました。
dbの値を直接If文の判定式に書いたり、Response.Writeで直接使用していたのが問題のようでした。
一度他の適当な変数を作成してそれに代入してから使用すると、正常に判定と出力をすることができました。
お騒がせしてすみません＾＾；
0409nobodyさん
2006/03/06(月) 23:03:11ID:???If なんとかかんとか = Null Then
とかやってないよな。
0410405
2006/03/22(水) 17:47:30ID:???亀レスだけど
If IsNull(変数) Then または If Not IsNull(変数) Then
ってやってた
0411nobodyさん
2006/03/26(日) 07:43:17ID:/latXqRhメールフォームの送信を.aspでやるときに、送信者側のファイル添付は可能でしょうか？
mailer.addattachmentメソッドがあるようなんですが、そのまま使ってもファイルは添付されずに、送信者のローカルPCのファイルへのパスが送られてくるだけなんですけど。
これってもしかして、一旦uploadscript.aspなんかでサーバーへアップロード保存して、サーバー側に保存されたファイルを添付させるという、２段階手続きじゃないとムリなんですか？
その場合、送信するメールフォームと対になるサーバー側の画像ファイルとの関連づけはどのようにするのか悩んでるんですが、何かアドバイス有りましたらよろしくお願いします。
0413nobodyさん
2006/03/26(日) 15:08:37ID:???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おっしゃるとおり、サーバー側にあるファイルを添付するメソッドなので、サーバーに添付されるファイルをアップロードした後、添付送信という手続きをふまなければならないみたいです。
ただ、一つのメール送信フォームに、この手続きをどうやって組み込むのか四苦八苦してます。
具体的には、ファイルのアップロードは、
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:/latXqRhBFORM 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:???チェックしてないんでバグあるかもしれんけど
------------送信側
<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)
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:???なんだかんだで、永い間使ってて安心して使える。
0418nobodyさん
2006/03/28(火) 13:00:23ID:???バグだらけで不安になりながら使ってる
0419nobodyさん
2006/04/10(月) 20:06:46ID:3UIEjnKEバックアップから引っ張り出して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:???ExcelApp.ActiveSheet.Range("A1").value="<%= Year(Now()) %>" & " 年 "
はおかしいと思うんだが
042170
2006/04/10(月) 21:57:23ID:w8+tUl+Vすみません、一部記述が抜けてました
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
%>
0423421
2006/04/10(月) 22:28:02ID:3UIEjnKEはい、そうです
この方法はよくないんでしょうか？
0425422
2006/04/10(月) 22:49:35ID:w8+tUl+Vでは、サーバー側に一時的なファイルを作成してそれをクライアント側で
ダウンロードする仕組みにするには、どの様なコードを書けばよいでしょうか。
サンプルコードがあるサイトをご存知でしたら教えてください。
お願いします。
0426nobodyさん
2006/04/10(月) 23:13:55ID:???<%
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
0428425
2006/04/10(月) 23:17:23ID:3UIEjnKEありがとうございます。
明日試してみます
0429nobodyさん
2006/04/11(火) 01:16:54ID:???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
0430425
2006/04/11(火) 07:27:09ID:j7JR4Ohz目的の動作が出来ました、ありがとうございました。
0431nobodyさん
2006/04/14(金) 21:34:06ID:D01n0ua1とかなって表示できません。
XPで動いてたんでスクリプトには問題ないと思うんですが
IISの問題でしょうか？
どこを直せばよいでしょうか？
0432nobodyさん
2006/04/14(金) 21:47:20ID:D01n0ua1配置しましたが、Directory Listing Deniedとかなって表示できません。どうすればよいでようか？
助けてください。
0434４３２
2006/04/14(金) 22:58:23ID:D01n0ua10435nobodyさん
2006/04/15(土) 10:40:23ID:GTWKBHgTDBF="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:???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にパスワードが設定されている場合に発生します。
0438435
2006/04/15(土) 11:21:55ID:GTWKBHgTパスワードを解除したらできました。
ありがとうございます。
0439435
2006/04/15(土) 11:28:34ID:GTWKBHgTああ、古いASP引っ張り出したんであれだったけど
これに直しました。
DBF = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"User ID=;Password=;Data Source=" & Fname
0440nobodyさん
2006/04/15(土) 21:22:35ID:???まぁパスワード解除しちゃったそうだから今更だけど
パスワード付きmdbをJet OLEDB使って開くときは、
ConnectionString/Passwordプロパティにパスワード入れるんじゃなくて
Connection.Properties("Jet OLEDB:Database Password")に突っ込むこと。
0441435
2006/04/16(日) 13:54:35ID:eJrc5hWbDBFile= "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'
引数が間違った型、許容範囲外、または競合しています。
というエラーになってしまいます。
どこを直せばよろしいでしょうか。
お願いします。
0442435
2006/04/16(日) 17:50:24ID:eJrc5hWb0443nobodyさん
2006/04/18(火) 18:02:27ID:???だから質問をｺﾋﾟﾍﾟし、別の板、もしくは別のｽﾚで書き込み答えを得ようとしたのか?
0444nobodyさん
2006/04/19(水) 17:14:37ID:???いろいろ勉強してるんですが、なかなかおもしろいのになぁ。
SQL2005が2000と比較して結構強力になってるっぽいし、ASP.netもいろいろおもしろい。
勉強し始めて1週間ぐらいだけど、5年前手書きでがりがり書いてたASPとは全然違う。
いまObjectDataSourceにDataSetを渡して、データバインドコントロールでいろいろ表示させてるけど、
これは結構使えるかもって思った。次の開発はasp.netでやってみようかなぁ。
0445nobodyさん
2006/04/21(金) 08:06:46ID:2wM3++cG0446nobodyさん
2006/04/21(金) 12:15:40ID:???ここのアプリケーション開発基礎が詳しい
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:KZQOiwticgiでSMTPを使って出来たのだからありそうだけどなかなか見つかりません。
よろしくお願いします。
0448447
2006/04/22(土) 05:11:37ID:KZQOiwti0449447
2006/04/22(土) 07:52:46ID:IlbM7gzP今これ試してみたけど
こんなエラーになりました。
どこを直せばよいでしょうか、お願いします。
-----
サーバーによって 1 つまたは複数の受信者アドレスが拒否されました。サーバーからの応答は次のとおりです。550 5.7.1 Unable to relay for
-----
0450nobodyさん
2006/04/22(土) 11:28:12ID:???試してみたがソースに問題はなさそう
鯖がそのﾒｱﾄﾞに送れないって言ってるんでそちらを調べてみて
ttp://www.google.co.jp/search?q=%22550+5.7.1+Unable+to+relay+for%22
0451nobodyさん
2006/04/22(土) 12:30:44ID:???こんなのＭＳであるんだな。初めて知った。
でもこれみると、POP Before SMTPやSMTP Authには対応してない気がするのは、
漏れだけかな・・・
となると、まず認証関係を確かめる必要がある。
次はスパムされちゃう恐れがあるので、そのSmtpを運営してるプロバイダを使用してる
ユーザだけとか、企業だとIPアドレス等とか、いろいろ制限されててメール送信して
くれない可能性があるね。
0452447
2006/04/22(土) 13:47:10ID:IlbM7gzPこれを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>
〜〜
こういった感じのものを作りたいと思っていますが、どうも上手くいきません。
よろしくお願いします。
0456454
2006/04/23(日) 03:41:00ID:???押された時に表示を切り替えれたら、と思っています。
ラジオボックスのonClickプロパティでどうのこうの…という方法を試して
みましたが、どうもエラーが出てしまいます。
ソースのサンプルみたいなものがあれば嬉しいのですが、見つからず…。
0457nobodyさん
2006/04/23(日) 06:58:29ID:???たぶん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:???それを実現するなら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>
まぁ既にｽﾚ違いだが
0460454
2006/04/24(月) 02:09:47ID:???手短ですが、返答ありがとうございました。
0461nobodyさん
2006/04/24(月) 11:16:04ID:gF03A8tYISAPIFilterからApplication変数を読む事ってできないでしょうか。
■ このスレッドは過去ログ倉庫に格納されています