==ASP==
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
NGNG0320317
02/02/25 22:27ID:8LuLKqLUFSOがとまっちゃうというものでした。おさわがせしました。
スクリプトのdllを再レジストして直りました。
しかし、この状態でvbs仕込みのウィルスにやられたらどうなるんだろう・・・。
すごい不安だ・・・。試すわけにもいかんしなあ・・・。
それはともかく、一人でどたばたしてて申し訳ないです。ありがとうございました。
0321_
02/02/27 09:11ID:FfqjIEl1If A=B=C Then
'同じ
Else
'違う
End If
多分、あほな事なんだろうな（ｗ
誰か、教えて
0322名無しさん＠お腹いっぱい。
02/02/27 11:20ID:M8RH4Uqk0323Delフサギコ ◆zE1iiRdQ
02/02/27 20:34ID:???ミ,,ﾟДﾟ彡 ＜ IF (A=B) AND (A=C) THEN
(ﾐ ミ) ＼＿がよいんじゃない？
〜ﾐ ﾐ
∪''∪
0324名無しさん＠お腹いっぱい。
02/02/27 23:28ID:???0325nobodyさん
02/03/02 14:29ID:laG+LLBdIf A=B=C Then
は、
A= (B=C)
という意味。(B=C)は、true or falseを返すので、
If (A= true? or false?) then
という式になってる。よって、AはBooleanじゃないと動かない。
A=B=Cは、以下の使い方をするときに使います。
Dim A as boolean,B as integer,C as integer(VBの場合ね）
B=なにがしな整数１
C=なにがしな整数２
if (B=C) then
A=true
else
A=false
end if
と書くのが面倒なときに、
A=B=C
と書きます。
（こういうの・・・フリップフロップって言うんだっけ？）
0326nobodyさん
02/03/03 10:23ID:???0328Mutex
02/03/08 00:55ID:h21TFr4uMSDNとか読んでみたんですが、どうもみあたらないようなので・・・
0330Mutex
02/03/08 14:50ID:h21TFr4uやっぱり？やな予感はしてたんですが・・・
0331nobodyさん
02/03/08 20:00ID:PtthMxKVまた、クライアント自身のシステム日付を変更できますか？
0332nobodyさん
02/03/08 21:14ID:mNu2Tfvh鯖の日付のほうはadministrator権限で入って、BASPのExecute使えば何とかなんるんでないかい？
試してないのでわからんが。
クライアントは普通は無理。
鯖と同じドメインにいててシステム日付の同期をとっていたら別だが。
0333Mutex
02/03/09 00:53ID:upVv50Aoが2つ問題が・・・
１．COMに登録しただけでは、ASPから呼べない。Com+に登録する必要がある。
２．Releaseを呼び出し側できっちりやらないと、Mutexが残ってしまう。
２．がより深刻です。Mutexって作成元が終了すれば自動的に開放されるはずなのですが、
COM+が呼び出し側終了後も残ってるせいで、開放が行われません。
これを回避するうまい手ないでしょうか？
0334nobodyさん
02/03/11 23:05ID:kvWKAm5qん？COM+に登録しなくてもCOM動くよ。
dllファイル or System32以下の実行権限でひっかかってない？
ところで、Mutexって何に使うの？
排他かけたければApplication.lockとかApplication変数使ったら
いかんの？
0335Mutex
02/03/13 18:07ID:pxE1/4e8> ん？COM+に登録しなくてもCOM動くよ。
> dllファイル or System32以下の実行権限でひっかかってない？
え。そうなんですか。ちょっと調べてみます。
dllはとりあえず、Doc・・・以下にあるので、dllの問題かな？
> ところで、Mutexって何に使うの？
> 排他かけたければApplication.lockとかApplication変数使ったら
> いかんの？
Cからも呼び出すので、なんとはなしにそうおもってました。
Application.lockはつかったことないので、これから調べて見ます。
0336Mutex
02/03/13 18:35ID:pxE1/4e8> dllはとりあえず、Doc・・・以下にあるので、dllの問題かな？
なーるほど。Document and ・・・にdllの実態をおいてたからいけなかったのか・・・
Inetpubのaspと同じディレクトリにおいてregsvr32したらうまくいきました。
ありがとうございました。
0337Mutex
02/03/13 23:57ID:pxE1/4e8> ところで、Mutexって何に使うの？
> 排他かけたければApplication.lockとかApplication変数使ったら
> いかんの？
あれ？Application.lockとか、ApplicationってASPでしか使えないみたいです・・・
App.PrevInstanceもCom内でつかうと有効にならないし・・・
おまけにMutexもなぜか有効にならないし・・・
0338nobodyさん
02/03/14 02:07ID:JE3SKgWEWin32apiの知識がないので、アテにはならないけど、
ASPの実行プロセスとかって関係ないのかなぁ？
昔、アプリ間のメモリ共有の処理ってソース拾ってきて
ActiveXDLLで、同一マシン上のASPとexe間で
共有メモリ作って、exeのデータをASP経由でイントラに公開する
ってのを作ったけど、何百回か実行すると、データが壊れてしまった。
exe間では問題なく動くのにASPでは×でした。
どのレベルの処理かしらないけど、Application.lockの処理の中で
COMのメソッド呼び出しにインターロックかけちゃって、一蓮托生で
排他をかけるとか・・・じゃダメ?!
0339ato
02/03/26 09:42ID:V7tnASHX複数回答のチェックボックスで、Valueを2,4,8・・と2の乗数で判定したいのです。
回答結果はどう書けばいいのでしょうか？10だったら2と8が選択された判断したいのです。
よろしくお願いします。
0340nobodyさん
02/03/27 01:50ID:Rs+Wz969アンケート結果の和をanswerとすると、
If ( (answer and 2) = 2 ) Then
１問目 Checked
Else
１問目 No Check
End If
If ( (answer and 4) = 4 ) Then
２問目 Checked
Else
２問目 No Check
End If
If ( (answer and 8 ) = 8 ) then
３問目 Checked
Else
３問目 No Check
End If
ビット演算を整数の形でやってるだけですわ。
ちなみに最初の値は、２^0 = １の方がスマートかと。１，２，４，８・・・というふうに。
んで、↑のは例なので実際は、ループ使って配列にでも放り込むように書いてください。
0341ato
02/03/27 18:58ID:uo3OihrUnobodyさん、ありがとうございます！
まさしくこれです！ほんとうに感謝してます！
0342ASP＠会社
02/03/29 15:53ID:+xnNTnlAどうにも上手く動いてくれません。宣言した変数bRetをTrueにしたら
パスワードを入力しなくても予約が消えてしまい、Falseにしたら間違った
パスワードには警告を出すのですが、正しいパスをいれると取り消し処理が
実行されません。以下がソースなのですが、おかしい部分をどうかご教授ください。
<%
If IsPasswordOK() Then
recSet.Delete
recSet.Update
%>
<%=strYear%>年<%=strMonth%>月<%=strDay%>日 <%=strHour%>時<%=strMinute%>分 の御予約を取り消しました。
<%
End If
%>
</center>
</body>
</html>
<script LANGUAGE="VBScript" RUNAT="Server">
Function IsPasswordOK()
Dim bRet
bRet = TRUE
If recSet.EOF OR Request.Form("fsPassword") <> recSet.Fields("dbPassword") Then
Response.Write "パスワードが違います。"
End If
IsPasswordOK = bRet
End Function
</script>
0343342
02/03/29 16:30ID:+xnNTnlA<script LANGUAGE="VBScript" RUNAT="Server">
Function IsPasswordOK()
Dim bRet
bRet = True
If recSet.EOF OR Request.Form("fsPassword") <> recSet.Fields("dbPassword") Then
Response.Write "パスワードが違います。"
bRet = False
End If
IsPasswordOK = bRet
End Function
これで上手くいきました。どうもありがとうございました。
0344nobodyさん
02/03/29 16:32ID:???<script LANGUAGE="VBScript" RUNAT="Server">
Function IsPasswordOK()
Dim bRet
bRet = TRUE
If recSet.EOF OR Request.Form("fsPassword") <> recSet.Fields("dbPassword") Then
Response.Write "パスワードが違います。"
bRet = FALSE ←これが必要なんじゃない？
End If
IsPasswordOK = bRet
End Function
</script>
0345344
02/03/29 16:35ID:???0346nobodyさん
02/03/29 19:48ID:cMuVMIJX0347Name_Not_Found
02/03/29 19:54ID:8oolU/Lsタイミングが絶妙でしたね（ ﾟ∀ﾟ ）
0348名無しさん＠お腹いっぱい
02/03/31 12:29ID:vj8JzE8Lあります？
0350nobodyさん
02/04/03 03:19ID:???0351nobodyさん
02/04/03 09:08ID:???またその他の有志のサイトでもよいんですが・・。
0352ここにおいで
02/04/03 10:37ID:???http://pc.2ch.net/test/read.cgi/tech/1017674939/
0353名無しさん＠お腹いっぱい
02/04/04 21:50ID:gCWT9+2Sよね？となると、VBscriptいつまでもやってる俺はアホですか？
0354nobodyさん
02/04/04 22:15ID:???ＡＳＰでも Ｊscript とか Perl とかつかえるよ。
でも、あなたも早いとこ進化した方がよいね。
0355名無しさん＠お腹いっぱい
02/04/04 22:32ID:gCWT9+2Sいや、それは知ってるんですが、やっぱ早いとこ進化
したほうがええですよね？なにぶんバックアップに汎用機
使ってる会社なもんで。しかも誰も国家資格もってないし・・・
0356
02/04/04 23:02ID:2wyFXP2l0359nobodyさん
02/04/05 00:56ID:???そのままでは移行できません。
自分で移植してください。
万が一VBみたいに移行ツールが出たとしても、ワンタッチOKには
ならないでしょう。
そもそもASPソースは型宣言してないので、ソースコード分析レベルの
自動変換は無理でしょ。
0360nobodyさん
02/04/05 01:07ID:W9rCNxCt0361nobodyさん
02/04/05 01:13ID:???それはカスタムＣＯＭを作ればＯＫでない？
0362nobodyさん
02/04/05 01:24ID:W9rCNxCtと思って実は作ってみたんですが、だめなんですよ・・・
VBScriptからはOKだったんでいけるかと思ったんですが。
0363nobodyさん
02/04/05 01:25ID:W9rCNxCt0365東京kitty
02/04/05 11:14ID:NcRd/6V20366nobodyさん
02/04/05 11:26ID:???0367360
02/04/05 17:04ID:W9rCNxCt> ADSIを使ってみろ。
よくわかってないんですが、Active Directoryがらみですか？
でその認証機構部分を使えと。
>>365
>ASPって別にVBScriptでなくてもいいんだがな（＠ｗ荒
まあそうなんですが、とりあえず安直に使えるので。
perlでも何でもいいんですけど、改めてインストールさせなくてすむんで
都合がいいんです。
0369360
02/04/05 18:43ID:W9rCNxCtやっぱり権限ですか。
たしかにASPの実行ユーザをAdministratorにするとできます。
参照したいレジストリやらファイルやらの方の権限をいじくって何とかならんもんですかね？
0370nobodyさん
02/04/05 19:57ID:???専用ユーザー（reg adminとか）作って、そいつにレジストリとかファイルとかに権限（変更権、かな）を与えてやる。
一方、実行するaspにはアノニでログオンする時のユーザーをこの専用ユーザーにしてやるとか。（みんな弄り放題になるが）
もしくは専用グループ作って統合認証。
0371nobodyさん
02/04/05 20:24ID:+8T5OuHMbobj.Execute("net view",1,stdout)なんてのがサンプルでページに
あがってたりするんですが、net view以外のコマンド、たとえば
net sessionやnet userのようなコマンドはなぜか、標準出力が取得
できないんです。皆さんの環境では、どうですか？
サンプルソース(WSH)
Set bobj = CreateObject("basp21")
call bobj.Execute("net user",1,stdout)
WScript.echo stdout
0372360
02/04/05 21:15ID:W9rCNxCt> 専用ユーザー（reg adminとか）作って、そいつにレジストリとかファイルとかに権限（変更権、かな）を与えてやる。
> 一方、実行するaspにはアノニでログオンする時のユーザーをこの専用ユーザーにしてやるとか。（みんな弄り放題になるが）
> もしくは専用グループ作って統合認証。
うが。やっぱりそうきましたか。
なんとなくそれしかないかなって気がしてきたんですが、この
・ユーザ作成
・IISにユーザ登録
の部分をなんとかインストーラとかで自動でできないもんでしょうかね？
１．Administratorsグループのユーザを勝手に作る。
２．そのユーザをIISに登録する。
0373370
02/04/05 21:32ID:???> １．Administratorsグループのユーザを勝手に作る。
これはasp上から出来る。それが、>>364でも言ってるADSI。
ただ、ユーザー作成のaspを実行するのもAdministratorsでないとできない罠。
> ２．そのユーザをIISに登録する。
これはちょっと意図してることがワカラン。アノニで使用するユーザを変更するってこと？
インストーラっちゅーのもよくワカランが、要は「自動で」ってコトなんでしょうな。
なんにせよ、IISへのユーザ登録ってのがワカランが、統合認証だとそのままドメインユーザ使える。
ちなみに、漏れ、思いっきりW2Ksvr、イントラネットで、っての前提で話してるが、いいのか？
0374360
02/04/05 21:48ID:W9rCNxCt> ただ、ユーザー作成のaspを実行するのもAdministratorsでないとできない罠。
なるほど。これはコマンドラインとか、インストーラとかでやるから良しとします。
> > ２．そのユーザをIISに登録する。
> これはちょっと意図してることがワカラン。アノニで使用するユーザを変更するってこと？
そのとおりです。
> インストーラっちゅーのもよくワカランが、要は「自動で」ってコトなんでしょうな。
そうです。
> なんにせよ、IISへのユーザ登録ってのがワカランが、統合認証だとそのままドメインユーザ使える。
> ちなみに、漏れ、思いっきりW2Ksvr、イントラネットで、っての前提で話してるが、いいのか？
NT4.0、W2Kall、XPproでインターネット全般を想定してます。
よってドメインなんちゃらとかはつかえないです。
0375nobodyさん
02/04/05 21:53ID:+8T5OuHMSet usr = ou.Create("Administrator", "cn=MyFullName")
usr.Put "samAccountName", "MyName"
usr.SetInfo
371にも答えてあげてちょ。意図するところは同じだよたぶん。
彼の方が直感的で俺は好き。BASPでできるかどうかはしらないが
この二行で終わりだもんね。
net user testadmin pass /add
net localgroup administrators testadmin /add
0376nobodyさん
02/04/05 21:57ID:???0377360
02/04/05 22:06ID:W9rCNxCt>ち、自作自演失敗だくそっｗ
おもしろいっ
何ゆえこの板で自作自演するのかわからないけど、
非常に役に立ったのでよいです。
0378nobodyさん
02/04/05 22:18ID:???ちゃんと認証かけるんだよ。。。NTFSならできるはず。
0379360
02/04/05 22:43ID:W9rCNxCtやりたいことはですね、
１．インストールフォルダ情報を取得し、そのフォルダにある設定ファイルのパスを見つける。
２．ASPから設定ファイルを読み書きする。
１．をやりたいがために、レジストリを読みに行ってんですが、よく考えたら
そのASPファイル自体が同じフォルダにあるんですよね。
だから、ASPが自分自身のいるフォルダを見つける方法がわかれば
レジストリを読む必要はないです。
２．どうやらデフォルトのIIS設定で実験すると、W2Kではファイルの読み書きができけど、
XPではなぜかできないですね。
権限の設定が変わったのかもしれないですね。
0380360
02/04/06 00:32ID:sKevCAbdとりあえず、COMじゃなくCOM+をつかうという大技で逃げ切れそうです。
後はNT4.0でCOM+がつかえるかどうかですが・・・
0381360
02/04/06 00:55ID:sKevCAbdとおもったんですが、XPProでは所有権の変更の仕方がわからんのです。
2000でゆうところの、EveryOne読み書きOKの設定ってどうやるんでしょ？
0382360
02/04/06 01:07ID:sKevCAbdcaclsでした。どうも。
0384名無しさん＠お腹いっぱい
02/04/06 17:29ID:1dPux/TRシェアウェアでもいいです。
0385nobodyさん
02/04/06 18:06ID:tWUqfAsw>どこかにASPで動くソース公開のソフトはないですか？
ASPを理解してる？
0386360
02/04/06 19:12ID:sKevCAbdASPとEXE双方から呼ばれるCOMなもんで、パスの検索のところを統一しておきたいとおもったんです。
しょうがないので、ご指摘のようにクライアント側がそれぞれ自分のパスをCOMに渡すようにするかな。
0387nobodyさん
02/04/06 20:22ID:AFFahWPkおしえてください。
0388nobodyさん
02/04/06 23:39ID:iTCiWnRfocxのCOMって何？スマソ、マジわからん。
ocxって、UIをともなったActiveXのことじゃないの？
俺間違ってるかなぁ？あんま自信がないが。
ひょっとしたらVBで作るActiveX DLLと、VC++で作るCOMってこと？
それだったら全然、性能違うでしょ。そもそもVBじゃマルチスレッドのDLL
作れないし。根本的に、VBアプリは中間コードなわけだし。
ただ、全然ってのは、システム全体からすれば、モジュールレベルのミクロな話で
あることが多く、Web用途ならば、気にする必要はないと思う。
VBの使い道って今や、ASPで動かすためのActiveXDLLであるという話も聞くし、
実際、たくさん使われてるでしょ。
この辺も.NETになれば、無関係なので、あと１年ぐらいの話なので
もし、工数かけず適当にVBで流しときましょ。設計だけ
しっかりやっておいて、やばくなったら、.NETに移植・・・と。
COMに対しては、MS以外の会社が書く本では驚くほど冷たい。
MSはさすがに無下にできないので、相互運用性で、COMは全然OKみたいに
主張するけどね。
0389（：＿：）
02/04/06 23:44ID:???0390nobodyさん
02/04/07 01:13ID:???>VBじゃマルチスレッドのDLL作れないし。
えっっと。ＶＢのＣＯＭをＭＴＳで動かせばマルチスレッドで動作させられるんじゃ
無かったっけ？ ＵＩは無しだけど。
おれ、あんまり詳しくないから教えて！！
0391nobodyさん
02/04/07 02:07ID:fgPLWamQActiveXDLL自体は、アパートメントスレッドということになります。
実は、MSDNを読んでもアパートメントスレッドの意味が
理解できてませんが、アパートメントスレッドとマルチスレッドの
違いは書いてあります。おそらく、僕らが実現して欲しいマルチスレッド的な
目的は達成できますが、存在自体は違うそうです。
すごいわかりやすいのが、DLLが一個落ちると、IEみたいに他の
インスタンスも、みんな死ぬらしいですが、一個落ちること自体が異常
なので、「ふーん、だから？」って感じで、とりたてて困っておらず、
それ以上調べていません。
あと、VBのマルチスレッドが作れないってのは、任意にスレッドが
生成できないという意味です。CreateThreadみたいなのが
ありませんねぇということですが、WebアプリのActiveXDLLでそんなものは
作らんでしょうし。
0392名無しさん＠お腹いっぱい
02/04/07 15:23ID:/sn5TTxc言い方が悪かった。VBscriptで動くソース公開のWEBアプリ
がどっかにないですか？
0394素朴な疑問
02/04/08 09:16ID:b1hhJbdd>言い方が悪かった。VBscriptで動くソース公開のWEBアプリ
>がどっかにないですか？
VBScriptでソース非公開でアプリを公開するなんて芸当できるのか？
0395nobodyさん
02/04/08 09:25ID:cIhOdsKm２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数：102115人 発行日：2002/03/12
どもどもひろゆきですー。
いやぁ、DHCの裁判の報告のことなんですが、賢明な２ちゃんねらーなら既におわかりでしょうけど、またまたおいらってば、自分の都合の良い事を都合の良いように報告してしまったですー。。。
しかも今回は、得意の「言葉遊び」を最大限に駆使してしまいましたですー。。。
おいらってば、まだ２５歳の若者なわけですが、今からこんなに卑劣で陰湿な人間じゃ今後どうなってしまうのかちょっぴり不安な今日この頃ですー。。。
よく読んでもらえれば分かると思いますがDHCは、おいらの嘘の報告のように、書き込みの内容の真偽を問わず闇雲に「削除しろ」と言っている訳ではないのですー。。。
「DHC製品は2chに書かれているようなことはおきないから削除しろ」と主張しているのでありますー。
いやぁ、それにしても今度の裁判官はなかなか手強いですよー、、、
これまで「発信元は分からない」を餌に真偽の曖昧な無責任な書き込みを利用者にさせ、多くの企業の誹謗中傷を大衆の目に触れさせて商売にしてきたおいらに「だったら書き込みの内容が真実であることを証明してみろ」と言ってきたのですー。。。
でも言われてみれば確かにその通りかも知れませんねー、、、
真偽の曖昧な無責任な書き込みの削除依頼を傲慢に「偽りであることを証明してみろ」と突っぱねる前に、おいら自身が、真実であることを証明した上で公開するのが当然なのかも知れませんね。。。
ところで冒頭の
＞裁判所にもサンダルで行って、しかも遅刻するという日々になってしまったひろゆきです
というのは、おいらの憧れる「がさつで大胆な男」をアピールしたかったんですよー。。。
おいらのことを知っている人はみんな笑っていると思いますが、、、
本当に「がさつで大胆な男」はこんなことをメルマガで流したりしませんよね。。。
んじゃ！
0396nobodyさん
02/04/08 16:47ID:3Z922JE5どこをいじれば良いでしょうか？
If blnIncrement And intEditMode = 2 Then '顧客オートナンバー開始
strSQL = "select max(code) from customers"
Set rsTemp = cn.Execute(strSQL)
If Not rsTemp.EOF Then
strNewCode = rsTemp.Fields(0).Value & ""
If strNewCode = "" Then
strNewCode = "00001"
ElseIf IsNumeric(strNewCode) Then
strNewCode = CLng(strNewCode) + 1
Else '文字列の場合は右端のｷｬﾗｸﾀをｲﾝｸﾘﾒﾝﾄさせる
strNewCode = Mid(strNewCode, 1, Len(strNewCode) - 1) & _
Chr(Asc(Right(strNewCode, 1)) + 1)
End If
End If
End If
0397nobodyさん
02/04/08 17:07ID:???9行目
strNewCode = CLng(strNewCode) + 1
多分ここで数値に変換されてるので1桁にしかならないんやと思う。
でここを
strNewCode = Right("00000" & CStr(CLng(strNewCode) + 1), 5)
みたいに文字列に変換して０をくっつけたらうまくいくんちゃう？
0398nobodyさん
02/04/08 19:54ID:iiMjECaTASPから打てるらしいのですが、私の環境では動きませんでした。
皆さんの環境では動きますか？
http://www.genasis.net/code/aspping.asp
0400nobodyさん
02/04/08 20:26ID:+BCkQIzq0402nobodyさん
02/04/09 00:20ID:???今さらそのボケって、さぶっ！ 空気を読めないヤツってどこにでもいるんだね。
自分がヒンシュクをかっていることさえも気づいてないかわいそうな．．．
今夜はあったまって寝よう。
0403nobodyさん
02/04/09 03:06ID:???これからは↓だ
Apple Shoboy Pasocom
0406nobodyさん
02/04/09 09:49ID:BOQivJtpIIS5じゃ動いたけど？
フォルダの権限確認して味噌。
0407ASP＋Access2000かSQLServerをする場合
02/04/09 17:20ID:???さーどっち？
0408398
02/04/09 20:31ID:9X3xXDUz原因はIISのプロセスと分離してたためでした。
0409nobodyさん
02/04/10 15:55ID:nyae8DhIリストアップしたいのですが、どういう方法があるでしょうか。
0410nobodyさん
02/04/10 17:59ID:je9W0OQwBASPのReadDir
0411nobodyさん
02/04/10 19:13ID:KWkXv06zset fs=server.createobject("Scripting.FileSystemObject")
set fld=fs.GetFolder(server.mappath("/"))
for each fl in fld.files
response.write(fl.name & "<br>")
next
0412nobodyさん
02/04/10 20:17ID:u6O5IbU5管理できるシステムをつくりました。
で、テスト用のNT4.0Server(IIS)とWin98+PWSではしっかり動いてるんですが、
最近導入されたWindows2000Serverに入れると動かない .aspファイルが出てきました。
（タイムアウトしてしまい、原因がつかめない）
ファイル・フォルダのセキュリティ設定もしたんですが…
DBのアクセス権に、Administratorsとインターネット ゲスト アカウントを
追加するだけじゃ、足りないんでしょうか？
他にはどんな原因が考えられるでしょう？
0413nobodyさん
02/04/10 21:10ID:KWkXv06zまずブレークポイントを埋めて、コードのどの行で
止まっているのかを調べてください。それから質問
してください。
0414浅倉太介
02/04/11 02:09ID:beRzUMdcファイルのアクセス権のとこで、全員消して
everyoneのみ追加。(フルaccessでね☆)
0416409
02/04/11 09:25ID:Jq72Jw2L恥ずかしながらBASPというものを初めて知りました。
ReadDirはまさにピッタリの機能でした。
ボスが許してくれたら良いのですが・・・。
でもBASPというものを知ることが出来たので、一歩前進しました。
ありがとうございますた。
>>411
その方法を試してみたところ、うまくいきそうです。
助かりました、ありがとうございますた。
0417nobodyさん
02/04/11 11:23ID:???ウィルス検知ソフトをいれているならそれをはずしてみるといいかも。
でもこんな漠然としたカキコじゃアドバイスすら出来んよ。
まずは頭に
@LANGUAGE="VBSCRIPT"
をいれて原因を特定するとこからはじめてみては？
0418nobodyさん
02/04/11 12:03ID:???しようと思いまして、データベースから表示させるとこまではやりました。
ですが、ここからブラウザで更新できるようにするためにはどういうコード
を組めば良いのでしょうか？以下がソースです。どなたか優秀な方にご教授
いただきたいです。よろしくお願いします。
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=x-sjis">
<TITLE>商品更新</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session("tblGoods_conn")) Then
Set conn = Session("tblGoods_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "tblGoods","",""
Set Session("tblGoods_conn") = conn
End If
%>
<%
If IsObject(Session("tblGoods_rs")) Then
Set rs = Session("tblGoods_rs")
Else
sql = "SELECT * FROM [tblGoods]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("tblGoods_rs") = rs
End If
%>
0419nobodyさん
02/04/11 12:06ID:???<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbID").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbName").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbNamePhotoS").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbNamePhotoL").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbPriceSell").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbDetail").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=1 FACE="ＭＳ Ｐゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbTypeNo").Value)%><BR></FONT></TD>
</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</CENTER>
</BODY>
</HTML>
0420nobodyさん
02/04/11 13:33ID:???> ここからブラウザで更新できるようにするためにはどういうコード
>を組めば良いのでしょうか？以下がソースです。どなたか優秀な方にご教授
>いただきたいです。よろしくお願いします。
優秀ではないけど、以前似たようなのを組んだことがあるので、少しアドバイスを
最低でもform等で送ってやる処理が必要になります。
現在のコードは単に表示するだけになっているので、まずそこからはじめましょう。
で、送られた先で受け取ってDBをUploadし、そのあと表示するってのが大体の流れになります。
具体的なソースは2chで書くにはふさわしくない長さになるので割愛します。
また、On Error Resume Next を使用するのであれば、かならずエラーをフック
してあげないと、コードがきちんと動いているのかがわからなくなります。
■ このスレッドは過去ログ倉庫に格納されています