==ASP==
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。
NGNG0396nobodyさん
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)
みたいに文字列に変換して0をくっつけたらうまくいくんちゃう?
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="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbID").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbName").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbNamePhotoS").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbNamePhotoL").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbPriceSell").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=1 FACE="MS Pゴシック" COLOR=#000000><%=Server.HTMLEncode(rs.Fields("dbDetail").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ALIGN=RIGHT><FONT SIZE=1 FACE="MS Pゴシック" 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:???o モナーからのお知らせ o
/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄/
/ 先月は約16万円稼げました! /
/ 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:???エラーメッセージのとおりです。
DBの構造もわからん状態ではエラーメッセージが告げている以上の事はわかりません。
指定しているフィールドが存在するか確認してみましょう。
つうか質問するならもっと要らないソースをカットしなさい。
ただでさえ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のサイトなどに行ってもどこにも書いてないんで困っているんですよ・・・
(;´д`)トホホ・・・
0452Name_Not_Found
02/04/16 21:38ID:???USERS GROUPで聞いてみれば?2ちゃんよりかはいいと思うよ。
0453448
02/04/17 13:24ID:KF7GxgFEおおっ、できました。
どうもご迷惑おかけしました。
全部直に定数を入れればよいのですね。
勉強になりました。
0454へたれ
02/04/17 15:18ID:baUvOd2raspで2ちゃん型、スレッドフロート式の掲示版を配布してるところって
ないでしょうか?
0456nobodyさん
02/04/17 16:14ID:a3fDg/qz無ければ作るんだ!
そんなに難しいものでもないだろ?
0459へたれ
02/04/18 10:26ID:xIgYtTQH私は入社して一ヶ月もたたないヘタレ新入社員なので、つくれませんT_T
perlのソースみながら作れるかなぁ?
0461へたれ
02/04/18 13:00ID:xIgYtTQHもうしわけございません。
以後このようなことがないように、注意いたします。
0462nobodyさん
02/04/18 16:18ID:53ah819Vたとえば、サーバにおいてあるxlsファイルを読み取って、そのままストリームとして流し込んで
クライアントにダウンロードさせる、といったことをしたいんですが、無理なんでしょうか?
0463nobodyさん
02/04/18 17:31ID:HxKjOyiJできる。
0464462
02/04/18 18:40ID:53ah819Vちなみに、
<meta http-equiv="Content-Type" Content="img/gif; name='a.gif'">
とかやってみたんですが、どうにもこうにも・・・
0465462
02/04/18 19:13ID:53ah819VContent-Disposition: attachment; filename="hoge.xlsl"
Content-type: application/octet-stream
<% Set fso = Server.CreateObject("Scripting.FileSystemObject") %>
0466463
02/04/18 19:22ID:HxKjOyiJ手元にあったのを適当にいじって作ったんで動かんかも知れん。
その辺は適当にいじって動くようにしてくれ。
もしかするともっとスマートな方法があるかもしれんが。
'ファイル出力
Sub FileDownLoad
’SaveName :名前を付けて保存に出てくるファイル名
’TargetXLS :読み込むエクセルファイル
'objBASP :BASP21
Const SaveName = "hogehoge.xls"
Const TargetXLS = "d:\hugahuga.xls"
Dim objBASP
'バッファオン
Response.Buffer = True
'ヘッダ
Response.ContentType = "application/x-download"
Response.AddHeader "Content-Disposition", "attachment; filename=" & SaveName
Set objBASP = Server.CreateObject("BASP21")
'読込
dat = objBASP.BinaryRead(TargetXLS)
Response.AddHeader "Content-Length", UBound(dat) + 1
’バッファに書き出し
Response.BinaryWrite dat
Set objBASP = Nothing
'バッファ書き出し
Response.Flush
End Sub
0467463
02/04/18 19:23ID:???シングルクォートが一部全角やった。
0468462
02/04/18 19:58ID:53ah819Vありがとうございました。
なるほど。Response.ContentTypeかぁ。
今の環境にはBASPをいれてないので、FileSystemObjectでやってみてみます。
0469nobodyさん
02/04/18 20:19ID:???0470nobodyさん
02/04/18 20:23ID:???0471462
02/04/18 21:50ID:53ah819Vよめんかったです・・・
>http://support.microsoft.com/default.aspx?scid=kb;JA;q193998
MyObjectってあんた>MS
0472430
02/04/18 23:20ID:???使ったんだけどね。最初から使えば良かった。これでかなり楽に
なるぞ!
0473nobodyさん
02/04/19 01:55ID:KFE3B1h2一行も中身が入ってない状態を判別するのって
If Recordset.EOF Then
と
If IsNull(Recordset) Then
どっちが正しいのでしょうか?
すみませんが、どなたか教えてくだされ
0474浅倉太介
02/04/19 02:25ID:CXrVpwegあんまり関係ないけど(ちょっとは関係あるかな?)
%>
<input type="text" name="氏名" size="20" value="<%=adrs("氏名") %>">
<%
こういう書き方のほうがわかりやすくない?
0475浅倉太介
02/04/19 02:29ID:CXrVpweg前者。
カーソルタイプをKeysetにして
If Recordset.RecordCount=0 Then 以下略
ってのもアリ(w
0476nobodyさん
02/04/19 02:40ID:KFE3B1h2後者ではダメということでしょうか
レコードセットがセットされない変数の中身が
何がはいってるのか知りたいです。
ありがとうございます。
0477nobodyさん
02/04/19 08:22ID:???確かにわかりやすいが、パフォーマンスは劣る。
.NETになるとこの書き方でけへんし。
後々の事考えるとやめたほうがいいかも。
0478nobodyさん
02/04/19 18:51ID:EP0YyzaM0479nobodyさん
02/04/20 00:16ID:svWLfYWD名前欄とメール欄を保存できるようにしたいのですが。
恐れ入りますが、ご教授願います。
0480nobodyさん
02/04/20 01:26ID:khiezublResponse.Cookies("2ch_mail") = mail
みたいな。
環境の説明が無いので、以下の条件を仮定します。
・ASPはVBScriptで書かれている。
・FormのHTMLタグは名前欄が<input ... name="NAME" ...>、 メール欄が<input ... name="MAIL" ...> となっている
・Formを表示するプログラム(/HTML)と書き込みを行うプログラムが同じディレクトリにある。
Response.Cookies("ASP2ch")("NAME") = Request.Form("NAME")
Response.Cookies("ASP2ch")("MAIL") = Request.Form("MAIL")
Response.Cookies("ASP2ch").Expires = Date + 30
てな感じ?セットされたCookieは次のリクエストから
Request.Cookies("ASP2ch")("NAME")
Request.Cookies("ASP2ch")("MAIL")
に入ってきます。
0482nobodyさん
02/04/20 09:10ID:???どうすればいいですか?
IISをインストールすればOK?
0483nobodyさん
02/04/20 11:26ID:4Q3U2Jqm0484nobodyさん
02/04/20 12:56ID:???基本的にはそれでOK
ただ、スクリプトエンジンとかのモジュール類は新しいのがリリースされているから
MSのWebにIISのインストール後に取りに行く必要がある。
DB連携までやりたければとりあえずMSDEも一緒に落としておくといいかも。
0485nobodyさん
02/04/20 21:48ID:???実践投入するのは当分先ですが、いまからASP.netのお勉強しますです。
0486へっぽこぷー
02/04/21 14:23ID:???PHPだとGD使えばいいんですが。
AspImageみたいなものって無いのかなー?
http://www.serverobjects.com/products.htm#aspimage
0487nobodyさん
02/04/21 15:02ID:zIrypqREブレークポイントで実行を停止する方法を教えてください。
また、いろいろいじっていたら
実行ボタンを押してもブラウザが起動しなくなってしまいました
どこに設定があるんでしょうか?
0488nobodyさん
02/04/21 15:55ID:???>実行ボタンを押してもブラウザが起動しなくなってしまいました
>どこに設定があるんでしょうか?
君がいろいろいじったトコにあるよ。
0489nobodyさん
02/04/21 16:25ID:zIrypqREやっぱりブラウザが開かなくなったんだ。
教えるのが面倒なら
詳しいやり方載っているページを教えてくれよ。
0491nobodyさん
02/04/21 22:03ID:2GMDA9Edさっぱりだよ、InterDev・
こんどは[新しいプロジェクト]のウィザードの
Webプロジェクト ウィザード -- ステップ1/4
の使用するサーバーの指定で
マシン名を指定しても、サーバーと接続できないとか出るし。
わけわかんね。
FrontPage 98 Server ExtensionsとかIIS4.0
が必要とか書いているけど、
俺の環境、Win2000ProだからIIS5じゃないのかな?
使えないツールだね。
こんなに使えないものを売りつけないで欲しいな。
0492nobodyさん
02/04/21 23:28ID:???0493nobodyさん
02/04/21 23:36ID:???自分がアホなのは棚上げですか。
まあ厨の厨たる所以か
0494nobodyさん
02/04/21 23:46ID:???それは私もいろいろ探し回ったんですが、VMLまたはSVGあたりが、現状では
一番スマートな方法だと最近は思いつつ・・・。
GIFやJPEGの場合は、COMを使う方法もありますが、外部アプリ(たとえばExcel)
を起動させたり、Shellコマンドからグラフィックライブラリ(たとえばGD)
を使うような方法もアリかと思います。直接バイナリを生成したいならCOM
自作しかないのではないでしょうか。(というか作ろうと勉強中・・・)
0496nobodyさん
02/04/22 00:12ID:T/p+eDxpどういう画像かにもよりますが、グラフやチャートなら
Office Web Componentsを調べると吉。(Office2000以降)
サーバサイドでの画像生成にも使えます。APIが変態だけど。
Recordsetの中身をロードして云々みたいな使い方もできるかと。
地道にいくならADODB.Streamで1バイトずつ手書き……
■ このスレッドは過去ログ倉庫に格納されています