==ASP==
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
NGNG0352ここにおいで
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 を使用するのであれば、かならずエラーをフック
してあげないと、コードがきちんと動いているのかがわからなくなります。
0422412
02/04/11 21:18ID:YicKn5T+everyoneフルコントロールにしてみたら動きました〜！
ありがとうございます。
社内数人で使うのでこのままでも良いんですが、
さすがにeveryoneはやばい気がするので、
Administratorsとインターネット ゲスト アカウントを
フルコントロールにしてみたら、やっぱり動きました。
でも最適なアクセス権ってどうすればベストでしょうか？
ちなみにmdbはAccess2000ですー
>>417
IISとオフィスしか入ってないです。
＞@LANGUAGE="VBSCRIPT"
全ASPファイルにつけてますよ。
どうも、漠然とした質問ですみませんでした。
0423nobodyさん
02/04/12 00:35ID:PFuAAAlRIf Request.QueryString("Hoge1") <> "" Then
If Request.QueryString("Hoge2") <> "" Then
のようにやってます。
が、よく考えたらこれだとHoge1に空文字を入力したのか、それともHoge1のあるFormは
使われなかったのか判定ができないです。
そもそもHoge1がないことを判定するにはどうすればいいんでしょ？
If IsExist(Request.QueryString("Hoge1")) Then
みたいなイメージで。
0424nobodyさん
02/04/12 01:10ID:???0425浅倉太介
02/04/12 02:26ID:hc0k5Er9HIDDENで何か投げなはれ。
<INPUT type="hidden" name="FormNO" value="1">
とかね。
0427423
02/04/12 03:20ID:PFuAAAlRFor Each name In Request.QueryString
If name = "Hoge1" Then
If name = "Hoge2" Then
Next
で逃げてみました。
が、
>>424
>IsEmpty(Request.QueryString("Hoge1"))
この方がスマートかな。
>>425
> HIDDENで何か投げなはれ。
> <INPUT type="hidden" name="FormNO" value="1">
ふむふむ。べただけどこれも確実な方法ですね。
ありがとうございました。
0428モナー
02/04/12 04:45ID:???ｏ モナーからのお知らせ ｏ
/￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣/
/ 先月は約１６万円稼げました！ /
/ iモードサイトオーナー必見！ /
/ 出会いサイトオーナーシステム /
/ /
/ http://tanoshiiyo.net/i/ /
/ /
/￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣/
∧＿∧ / /∧＿∧
（ ^∀^） / /（^∀^ ）
（ ）つ ⊂（ ）
｜ ｜ ｜ ｜ ｜ ｜
（_＿）＿） （＿（＿_）
0429nobodyさん
02/04/12 22:01ID:???0430418
02/04/14 13:23ID:???不正でエラーが起きます。もっと上手い書き方があるのでしょうか？
以下がソースです。
<%
Option Explicit
Dim SQL,db,rs
%>
<HTML>
<HEAD><TITLE>品目データ検索</TITLE></HEAD>
<BODY>
<%
'入力データがない場合、入力フォームの表示
If Request.QueryString="" Then
%>
<H2>品目データ検索</H2>
<BR>
<!-- 検索値の入力フォーム -->
<FORM METHOD="get" ACTION="kensaku.asp">
品目を選んでください：
<SELECT NAME="field">
<OPTION VALUE="">選択なし
</SELECT><P>
詳細を選んでください：
<SELECT NAME="home">
<OPTION VALUE="">選択なし
</SELECT><P>
対応会社IDを選んでください：
<SELECT NAME="sex">
<OPTION VALUE="">選択なし
</SELECT><P>
<INPUT TYPE="submit" VALUE="表示">
<INPUT TYPE="reset" VALUE="取消">
</FORM>
0431418
02/04/14 13:24ID:???<%
'入力データが送信された場合、データベースにアクセス
Else
'データベースと接続するオブジェクトを生成
Set db = Server.CreateObject("ADODB.Connection")
db.Open "koushikai"
'レコードを抽出するためのSQL文を作成
SQL = "SELECT * FROM tblGoods WHERE disp=True"
SQL = SQL & " ORDER BY dbType DESC" '新しい順に並べる
'SQL文を実行してレコードセットを取得
Set rs =Execute(SQL) ←ここでエラーが起きます。
%>
<H2>検索結果</H2>
SQL : <% =SQL %><P> <!-- SQL文の表示 -->
検索条件 品目：<% = dbName %> 詳細：<% = dbDetail %> 対応会社ID：<% = dbType %><P>
番号をクリックすると更新ページへ移動します。<P>
<TABLE BORDER=1>
<TR><TH></TH><TH>品目</TH><TH>詳細</TH><TH>対応会社ID</TH></TR>
<% 'レコードを一つずつ移動しながらレコードの各フィールド値を取得
Do While not rs.EOF
num = num+1
Response.Write "<TR><TH><A HREF='kousin.asp?dbID=" & rs("dbID") & "'>" & num & "</A>"
Response.Write "</TH><TD>" & rs("dbName") & "</TD><TD>" & rs("dbDetail")
Response.Write "</TD><TD>" & rs("dbType") & "</TD></TR>" & vbCrLf
rs.MoveNext
Loop
%>
</TABLE>
<%
End If
%>
</BODY>
</HTML>
0432nobodyさん
02/04/14 14:05ID:???エラーメッセージのとおりです。
ＤＢの構造もわからん状態ではエラーメッセージが告げている以上の事はわかりません。
指定しているフィールドが存在するか確認してみましょう。
つうか質問するならもっと要らないソースをカットしなさい。
ただでさえ2chでソースを読むのはきついのに、くだらないゴミがいっぱいついてると
読む気すらうせます。
0434nobodyさん
02/04/14 16:18ID:???input type="text" ですよね？
でもフィールドの型が数値型の場合はなんと記述すればええんで
しょうかいね？
0435nobodyさん
02/04/14 17:38ID:???0437nobodyさん
02/04/14 18:51ID:???あとは自分で調べてね。
0439nobodyさん
02/04/15 04:20ID:1gFjdZACほとんど減っていない。
1998年 1999年 2000年
在日韓国人 638,828 636,548 635,269 人
これではいつまでも韓国人の日本人汚染が続き、そのうち日本が
日本国籍の韓国人だらけになってしまう。
一方、不法滞在の韓国人は56000人で外国人で最も多い！
◎外国人帰化数
http://www.kyotsu.com/level2/hobby/data/toukei.htm
0440nobodyさん
02/04/15 10:39ID:???0441kanegon
02/04/15 11:20ID:ehdpwTQGスペース以降が表示されません。全角にしたら表示できたのですが .
普通に表示する分には問題ないのですが、以下のようにTEXT BOXに取り込んだ
場合に半角スペース以降が表示できません。
Set adcn = Server.CreateObject("ADODB.Connection")
Set adrs = Server.CreateObject("ADODB.Recordset")
adcn.Open "DSN=uriage"
response.write "
<input type=""text"" name=""氏名"" size=""20"" value=" & adrs("氏名") & ">"
"小林 ひとみ"→OK ､ "小林 ひとみ"→"小林" の表示といった具合。
IMEの設定ではスペースを常に半角にしているユーザもいるのでかなり
問題ありです。半角、全角を混合で表示する方法をどなたかご教授願います
0442nobodyさん
02/04/15 11:47ID:???全然関係ないが、
×： response.write "<input type=""text"" name=""氏名"" size=""20"" value=" & adrs("氏名") & ">"
○：response.write "<input type='text' name='氏名' size='20' value='" & adrs("氏名") & "'>"
なのでは？
あと、
小林ひとみ（；´Д｀）ﾊｧﾊｧ
0443nobodyさん
02/04/15 11:55ID:gjdvPvvF×response.write "<input type=""text"" name=""氏名"" size=""20"" value=" & adrs("氏名") & ">"
○response.write "<input type=""text"" name=""氏名"" size=""20"" value=""" & adrs("氏名") & """>"
valueもダブルクォートでくくってやらんとあかんやろ。
0444kanegon
02/04/15 12:39ID:ehdpwTQG0447nobodyさん
02/04/15 19:48ID:???もちっと何がやりたいのかハッキリ言わないと誰もレスつけれんよ。
0448nobodyさん
02/04/16 15:15ID:gZ04fZ6Eset XL_WB = XL.Application.Workbooks.Open(Server.MapPath(EXCELPath))
'*** ｾﾙの罫線を引く ***
With XL_WB.ActiveSheet.Range("A9:R9").Borders(xlBottom)
.LineStyle = xlContinuous
End With
お願いします。教えてください。
上記の方法でエクセルのシートに線を引こうとしていますが、上手くいきません。
Borders（）の引数が悪いと思うのですが、誰かご存知の方いますか？
0450448
02/04/16 17:16ID:gZ04fZ6ExlEdgeBottomでも同様の結果で、エラーとなってしまいます。
withを使用しているのは他にも色々と設定しているのですがここでは省略して書いたためです。
あと、これはASP内で動かしています。
わざわざ返答ありがとうございます。
MSDNやASP、VBS、VBAのサイトなどに行ってもどこにも書いてないんで困っているんですよ・・・
(;´д｀)トホホ・・・
■ このスレッドは過去ログ倉庫に格納されています