==ASP==
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
NGNG0385nobodyさん
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のサイトなどに行ってもどこにも書いてないんで困っているんですよ・・・
(;´д｀)トホホ・・・
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で２ちゃん型、スレッドフロート式の掲示版を配布してるところって
ないでしょうか？
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 以下略
ってのもアリ（ｗ
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にＩＩＳのインストール後に取りに行く必要がある。
DB連携までやりたければとりあえずMSDEも一緒に落としておくといいかも。
0485nobodyさん
02/04/20 21:48ID:???実践投入するのは当分先ですが、いまからASP.netのお勉強しますです。
■ このスレッドは過去ログ倉庫に格納されています