＜%= 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
0334638
2006/01/21(土) 19:00:34ID:GsEUkG9Tなるほど、DateAddを使うですね。
ありがとうございました。
0336nobodyさん
2006/01/27(金) 14:12:25ID:???ASP → PHPのほうが、乗換えとして、自分の好みに合っている気ガス
0337nobodyさん
2006/01/27(金) 21:52:21ID:???0338nobodyさん
2006/01/29(日) 22:28:57ID:???昔どこかのサイトで見かけた気がするのですが
失念してしまいました…。
0340nobodyさん
2006/01/30(月) 00:12:50ID:???レスありがとうございます。
VBscriptで書いてしまったので、
replaceでしこしこやってみますorz
0341nobodyさん
2006/01/30(月) 03:19:35ID:???Server.HTMLEncode() のことじゃないの？
そうならVBScriptでも使えるけど。
0342nobodyさん
2006/02/01(水) 18:59:54ID:Im+A4ONKFramework2.0（C#)ベースで作ったDLLをASPで動かしたいのですが、
XPのiis上ではうまく動くのに2003Serverのiisではクリエイトで失敗します。
Set hoge = Server.CreateObject("hoge.hoge")←ここで失敗
両環境下でRegAsmで登録しFrameworkのバージョンも同一です。
なぜ動かないか分からないのですが、
どなたかご教授お願いします。
0344342
2006/02/01(水) 21:45:57ID:???Server オブジェクト エラー 'ASP 0177 : 80070002'
Server.CreateObject に失敗しました
です。
権限とかの問題でしょうか？
0347345
2006/02/01(水) 22:21:21ID:???I suspect this is because the DLL is not in a particular location that the CLR is looking
when you create the object. Try copying the DLL to C:\Winnt\System32 or C:\Windows\System32
depending upon whether you have Windows 2000 or Windows XP Professional / 2003 Server.
って答えてたから。
0348342
2006/02/01(水) 22:33:26ID:???確認しましたらC:\windows\system32にDLLをおいてTLBを作成しているので
ほかに原因があると思います。
もしかしてRegasmで登録しているのが原因でしょうか？
0349342
2006/02/02(木) 02:42:30ID:bVYIWBsA0350nobodyさん
2006/02/03(金) 02:47:28ID:???IPマスクで192.168.1.0/24のような形式のもの(20項目程度)と$ipを比較して含まれていれば真を返すにはどのようにすればいいのでしょうか?
鯖はWinXP ProのIIS(.net Framework無し)、開発環境はVS.net 2005 ExpressEditionです。
0352バッカーです ◆KeuXjwWDdE
2006/02/03(金) 20:44:49ID:???0353nobodyさん
2006/02/04(土) 01:23:48ID:???0354nobodyさん
2006/02/04(土) 08:16:33ID:???>24ビットの整数にしてAnd取る
0356nobodyさん
2006/02/04(土) 16:29:50ID:???0357350
2006/02/06(月) 02:39:19ID:???$ipになってましたがipのミスですorz
検査してくれるような便利な関数があれば良いなぁと考えてたのですが無いのですか・・・。
やはり/で2つに分けて地道にﾎｹﾞﾎｹﾞさせないと駄目なのでしょうか？
0358nobodyさん
2006/02/06(月) 10:00:27ID:kQjET4IgstrTest という変数からchar(10)の改行文字のカウントをしたいのですが。
0359nobodyさん
2006/02/06(月) 21:24:02ID:???For〜Next文でループさせて数えるけどね
0360nobodyさん
2006/02/06(月) 22:22:25ID:???ipaddrとipnetの間で比較する流れを完全に想像だけで書いてみるｗ
function conv(ip)
Dim ipary
ipary = split(ip,".")
conv = clng(ipary(0)*256^3) + clng(ipary(1)*256^2) + clng(ipary(2)*256) + clng(ipary(3))
end function
function bitmask(masklng)
Dim mask
mask = clng(0)
for i = 31 to 31-masklng
mask = mask + clng(2^i)
next
bitmask = clng(mask)
end function
function check(ipaddr,ipnet)
ary = split(ipnet,"/")
netaddr = conv(ary(0))
mask = bitmask(ary(1))
if (clng(netaddr) = clng(conv(ipaddr)) and clng(mask)) then
check = true
else
check = false
end if
end function
clngの挟み方は適当。多分使いすぎ。
bitmask辺りは99%の確率でバグってる悪寒ｗ
0361360
2006/02/06(月) 22:24:50ID:???bitmaskのforはstep -1 でｗ
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とかなって表示できません。どうすればよいでようか？
助けてください。
■ このスレッドは過去ログ倉庫に格納されています