＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Par ..

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です。

514:nobodyさん
06/06/25 16:24:25
>>513
このスレを読み直せ

515:nobodyさん
06/06/25 17:26:55
>>513
>>364-368

516:nobodyさん
06/07/06 14:06:24 /8ybWcGq
textboxに数字以外の文字を入れた場合エラーを返すにはどうしたらいいですか？
VBSでお願いします。

517:nobodyさん
06/07/06 21:31:04
>>516
正規表現
[0-9]*

518:892
06/07/07 14:18:20 SQksCJlc
使い方としてはこんな感じでよいですか？

chk = ○　'←　なんか入れる。
if chk = [0-9] then
　　ok
else
　　error
end if

519:nobodyさん
06/07/07 21:51:25
>>518
URLﾘﾝｸ(www.microsoft.com)

520:nobodyさん
06/07/09 07:12:27
お手軽にIsNumeric関数じゃダメかな？
判定基準に気をつける必要はあるけど

521:nobodyさん
06/07/09 17:13:49
>>520
数値判定ならIsNumeric
数字判定なら正規表現

522:518
06/07/09 22:47:13 X7Dt+q6q
できました。ありがとうございます。

523:518
06/07/09 22:55:02 X7Dt+q6q
続けて質問で申し訳ないのですが、
ページをPDFで表示する場合ってどうやってやればいいでしょうか？
エクセル表示とかはわかるんですが･･･

524:nobodyさん
06/07/09 22:57:13 DTwv2VIN
>>523
？
もうちょっと詳しく

525:518
06/07/09 23:20:58 X7Dt+q6q
説明が適当ですいません。

表を表示しているページをボタンを押下した時、そのページごとPDF出力して
印刷をかけたいのですがどうしたらよろしいでしょうか？

526:nobodyさん
06/07/10 00:45:49
>>525
適当なOCX探してこいｗｗｗ

527:nobodyさん
06/07/10 06:40:20
>>518
事実上無理だから諦めなさい。

多分その調子でやっていたら実現するまでに
30スレ分くらいお前の質問で消費されるわ

528:nobodyさん
06/07/10 23:11:34 iQivVhLt
>>525
AcrobatインストールすればIEのツールバーにAcrobatのアイコンができる。
そのボタンを押せば現在表示されているページがPDFで表示されるよん

529:nobodyさん
06/07/11 15:37:13
>>525
翼システムのSVFとかは？

530:525
06/07/12 11:50:39 MVSuxQrd
ありがとうございます。色々試してみます。

531:nobodyさん
06/08/06 17:19:21
レガシASPの開発環境でお勧めは何ですか？

Visual Studio .Net（2002/2003/2005）かVisual InterDev 6.0
を検討していますが、.Netでも補完機能やデバッガ
の使い勝手は良いですか？

Visual InterDev 6.0はデバッグがなかなか動かなくて…

532:nobodyさん
06/08/06 18:29:19
>501
開発環境が.NetだとレガシASPなんてサポートしてないはず。
「いいじゃん、一緒にASPも.Netにｼﾁｬｲﾅ? 」ってなもんで。
# VS.net入れたらレガシASPが動かなくなるってことではないので念のため。

533:nobodyさん
06/08/06 22:33:54
デバッグはResponse.Writeデバッグで十分だと思う…。

534:531
06/08/07 22:55:50
>>532,, 533
回答ありがとうございます。

.Net2005のExpressEditionでごく単純なASPで試してみましたが、
Option Explicitが動かないほか、include先で定義している関数が
未定義扱いになってうまくいきませんでした。
ASP3.0用のbuildProviderがあればうまくいくのかもしれませんが。

Visual InterDev 6.0でなんとかやろうと思います。
新規開発ではないので、.Netにしちゃうと、全コード移行しないといけないので。

535:533
06/08/08 20:22:28
ちなみに俺はVisual InterDevのレスポンスの悪さに業を煮やし
程なくしてサクラエディタに乗り換えました。
たかがVBScript、MSDN Libraryさえ引ければ補完のメリットなんて
あってないようなもんだしｗ

フォルダ内全ファイル対象の置換は便利だけどねｗ＞InterDev

536:nobodyさん
06/08/11 21:57:33 yHgdeCQU
Windows2003Server、IIS6.0、SQLServer2003でメルマガ読者の管理を行う
プログラムを作っています。
上司に、メールアドレス入力欄にDOSコマンド？を入れると、
サーバ側で起動するから、それができないような処理を入れろ、
と言われたのですが、現象が再現できません。
（上司も誰かに突っ込まれたらしく、どうすれば実行できるのかわからないようです）

入力チェックは、一旦変数に格納した後、
正規表現でメールアドレス書式をチェックしており、
DB登録、検索時にはメールアドレスは暗号化しています。

現象が再現できれば、対応策も考えられると思うのですが、
どなたか、こういった問題をご存知の方、アドバイスいただけないでしょうか。

537:nobodyさん
06/08/11 23:21:32
>>536
無視していいんじゃね？
多分セキュリティゴロの商売トークを真に受けてるだけだろ。

チェックするとしたらDB登録時のSQLインジェクションぐらいか。
commandオブジェクト使うとか、ちゃんとシングルクォートのエスケープをしていれば無問題。

538:nobodyさん
06/08/12 02:29:08 xBjeg5WF
>>536
IISにおいて、フォームから適当なDOSコマンドを入れると
サーバ側で動き出すなんてありえない。

BASP21のExecとか、cgiがexeファイルとか、自作ISAPI使ってるっていうなら
ありえなくないが。

539:536
06/08/12 12:28:22
>>537,538
レスありがとうございます。
自分もずっと調べていたのですが、やはりソレらしい情報はないですね。
（Jetエンジンを使った問題がヒットしましたが、そもそもJet使ってないし
チェックで弾かれています）
とりあえず、SQL文をしっかり洗い出して、エスケープなどの抜けを
しっかり調べてみます。
お騒がせしました。

540:nobodyさん
06/08/18 11:37:56
Dim hoge
Set hoge = Application("hoge")

とするとApplication("hoge")にまだ値が入っていないとき
オブジェクトがありません。というエラーになってしまいます。
事前に値が入っていないかチェックする方法はありますでしょうか？

よろしくお願いします。

541:nobodyさん
06/08/18 21:23:55
isEmpty(Application("hoge"))

しかしApplicationにオブジェクトを格納するのは大抵ﾋﾞﾐｮｳじゃぞ

542:nobodyさん
06/08/18 21:32:54
>540
確かエラートラップするしかなかったと思う。
DictionaryみたくExistsメソッドとかありゃ便利なんだが……そう思った頃が俺にもありました。確かにorz
(関数一個書けばいい話ではあるが)

つーかApplicationやSessionにオブジェクト突っ込むのは基本的に禁じ手ですよ?
URLﾘﾝｸ(www.microsoft.com)
(世の中にMTAなCOMコンポーネントなんてそうそうありませんorz)

543:542
06/08/18 21:33:47
……前半は忘れてくりゃれorz

544:nobodyさん
06/08/18 23:42:54 FoNP/zJS
>>540
Stringに強制変換させたりね

545:nobodyさん
06/08/19 21:26:33
>>540
TypeName

546:nobodyさん
06/08/24 15:03:40 aU8FJkVc
質問です。
Response.ContentType = "application/pdf"で
ページをPDF出力することってできないんですか？

547:nobodyさん
06/08/24 21:34:05
>>546
それを送った後で、PDFのデータ実体を
ブラウザに送り出してやればOK

548:546
06/08/25 09:47:25 NQK5sUA1
>547
それってResponse.ContentType = "application/pdf"が書いてある
コードのページ自体をプラウザで表示してやれば、PDFに変換されたものが
でてくるって事ですよね？
できないんですが･･･

549:nobodyさん
06/08/25 16:00:43
html→PDFの変換を自動でやらせるって事？

550:546
06/08/25 17:19:37 NQK5sUA1
そのとうりです！

551:nobodyさん
06/08/25 18:38:37
できるよ

552:nobodyさん
06/08/25 18:49:31
Response.ContentType = "application/pdf"って書いてpdfになると思ってる奴は
Response.ContentType = "audio/mpeg"って書いたら何が出ると思ってるんだろう

ちょっと考えれば出来るか出来ないか分かるだろうにな

553:546
06/08/25 19:44:31 NQK5sUA1
何をどう考えたらいいかわかりませーん。
もうすこしヒントを

554:nobodyさん
06/08/25 21:32:10
>>553
単純には出来ません。
真っ当なやり方をするとしたらPDFlibとかの外部コンポーネントでも使って
頑張ってコツコツ作っていくしかない。

555:nobodyさん
06/08/26 03:07:21
>>549-550
その発想はなかったわ・・・

556:nobodyさん
06/08/26 15:16:53
>>548
PDFのデータ実体って、
バイナリデータだぞｗｗｗ

誰がプレーンテキスト吐き出せって言ったよｗｗｗ

久しぶりに超うけた。

557:nobodyさん
06/08/26 15:18:28
>>556
脳みそかわいそうな子なのカナ？

558:nobodyさん
06/08/27 01:50:09
>556
まぁスレともレスともあまり関係ないが
後学のためにテキストエディタで何か一つPDFファイルを開いて見てみることを勧める

559:nobodyさん
06/08/28 01:03:57 7CABj+h0
>>553
リクエストがある度にPDF化するのは
サーバに負荷がかかるし、実際レスポンスも悪くなる。

事前にPDFに変換しとくか、
クライアントPCにAcrobatとかインストールして
IEのツールバーに表示されるPDF変換アイコンを押してもらうといいよ

560:nobodyさん
06/08/28 02:39:29
PDFはバイナリーデータもサポートしてるけどな

まぁ>>556はそんな事どうでもいいくらいおバカだが…

561:nobodyさん
06/08/29 12:02:00
Nowから秒より下の値を取得したいのですが
やりかたがわかりません。
たとえば
Year(Now)とすれば年が取れるのですが
yyyy/mm/dd hh:mm:ss.fff
のfffの部分を取得したいのですが
やり方があったら教えてください。よろしくお願いします。

562:nobodyさん
06/08/29 19:12:23
>>561
Now()ってss以下、
1000分の1秒単位の精度の
戻り値があったっけ？

たしか
yyyy/mm/dd hh:mi:ss
までじゃなかったか？

100分の1秒で求めるなら、
Timer()使って.(ピリオド)から右側の値だけ
取得することは可能だと思うけど、
1000分の1秒ってのが厳しいな。

563:nobodyさん
06/08/30 00:14:06
そもそもPCのタイマってそんなに精度ないよ

564:nobodyさん
06/08/30 00:19:03
ネタ元がアレゲなんだが
「分解能の高いタイマ関数ほど実行に時間がかかる傾向がある」
と聞いたことがある。

565:nobodyさん
06/08/30 01:05:53 F1Hs7Aoq
>>564
いや、普通に正しいだろ。

566:546
06/08/30 09:26:55 7QXl0OJH
やっぱりコツコツ作っていくしか無いんですね。
ありがとうございました。

567:nobodyさん
06/08/31 16:00:10
java開発からＡＳＰ開発に周り、ＡＳＰ開発は初めてですが、
javaのstrutsのようなフレームワークみたいなコンポーネントってあるのでしょうか。
MVCになってなくても良いのですが、htmlの部品の表示などをもっと簡単にしたいです。

568:nobodyさん
06/08/31 19:26:54
>>567
一つ確認。ASP？ASP.net？

569:nobodyさん
06/09/01 10:34:28
>>568
ASPです。古いパッケージのカスタマイズ案件なので・・・

570:nobodyさん
06/09/01 22:30:45
>>567
気の利いたフレームワークとかは無い。
自分でfunction作るしかないね。
不幸中の幸いとして

function hoge()
%>
<DIV>ほげほげ</DIV>
<%
end function

っていう書き方が出来るので
それを利用したりするとちょっとは楽できるかも。

571:nobodyさん
06/09/04 11:45:39
URLﾘﾝｸ(www.aspin.com)のサイトにフリーなコンポーネントがあるそうですが、
よく使用するものや、お勧めとかはあるでしょうか？

572:nobodyさん
06/09/04 11:55:36
XMLDOMってやつを見つけました。
数が少ないですが、探せば使えそうなものがいくつか出てきそうです。

573:nobodyさん
06/10/04 00:11:43 SPPmb2Gu
ついに一ヶ月書き込みがない。。。

574:nobodyさん
06/10/05 18:58:59
さすがに全ての面で枯れたな。

ASPとりあえず何でも出来てよく動くんだけどね。
VBScriptがあまりに非力過ぎるんだよなー。

575:nobodyさん
06/10/05 22:06:52
ウチの社内じゃまだまだ現役だよ。
……はやいとこ.NETに移行したいんだけど、他にメンテできる人がいないから……

576:nobodyさん
06/10/05 23:04:36
>>575
社外向けでも現役でつよ･･･

577:574
06/10/06 00:15:23
む、「枯れてる」と言ったのはテクニックとかそういった意味の話で。
今更スレの話題になるようなトピックは無いと言いたかっただけ。

ちなみに俺も今は昔売ったASPのシステムの保守で飯食ってます。
あと５年は無くならないだろうな…。

578:nobodyさん
06/10/06 08:08:21
たしかに、技術的なモノは出尽くした感があるね。
新機能もないし・・・。

579:nobodyさん
06/10/06 18:49:31
>>577
「保守」って言葉は、システム屋には実に都合のいい考え方だよね。

実際には日常的にはほとんど何もやらないのに（っていうか日常的に何かやらなきゃいけないシステムは糞だ）、
「保守作業」と称して、コンピュータに疎いヤツらから金を巻き上げられる魔法の杖。

580:nobodyさん
06/10/06 19:15:33
>>579
そんな保守だったらSAIKOだなー。
そう甘くねんだよ。
公僕相手だと担当者が代わる度にそいつの趣味で下らん直しを入れさせられる…
全く相手してらんねー。
そんなに金使いたかったらもらってやるから金だけよこせ。金だけ。

次ページ