Q&A
ありがとうございます。
私の質問の仕方がわかりずらく申し訳ありません。
<td>を1行ずつではなく、<tr>から</tr>までのかたまりを一気に呼び出す方法はありますでしょうか。
社内のHPをリニューアルしています。
IISでaspファイルの編集しています。
以下のようなテーブルタグが書いてあり、
<td>の中にvbsのコード書かれている箇所もあります。この<tr>から</tr>までのテーブルを書き出す処理を関数として一塊にまとめ、
その関数を複数回呼び出したいのですが書き方がわかりませんので教えてください。
（省略）
<tr> <td><%= Server.HTMLEncode(NAME(i).Code) %></td> <td><a href="■△◎"></td> <td><%= NAME(i).Description %></td> <% If NAME(i).Price < NAME(i).ListPrice Then （省略） </tr> </body>
回答2件
0
プロシージャを作って呼び出すこと。
Response.Write("<td>" & Server.HTMLEncode(NAME(i).Code) & "</td>" )
のように、HTMLコードは""でくくり、サーバーサイドのスクリプトはそのまま書くことが重要でした。
この度はありがとうございました。
投稿2019/11/27 06:07
総合スコア10
0
ベストアンサー
プロシージャを定義して 呼び出してみてください。
ASP
1<% 2 ' table data を出力するプロシージャを定義 3 Sub tabledata(ref) 4 Response.Write "<td><a href='" & ref & "'></td>" 5 End Sub 6 ' プロシージャを呼び出す 7 tabledata("■■■") 8 tabledata("■■■") 9 tabledata("■■■") 10%> 11
投稿2019/11/26 13:40
総合スコア1467
`Response.Write ` で HTMLを出力できますので、プロシージャ（Sub ～ End Sub）の部分を 書き換えて、<tr> ～ </tr> まで出力するようにすれば 良いと思います。
<%
Sub tableData
Response.Write("<tr>" & _
"<td><%= Server.HTMLEncode(NAME(i).Code) %\></td>" & _
"<td><% If Len(NAME(i).ImgSrc) = 0 Then %\> - <% Else %\>" & _
"<a href=""/xxx/xxxx/xxx/<%= NAME(i).ImgSrc %\>"">" & _
"<img src=""/xxx/xxxx/xxx/<%= NAME(i).ImgSrc %\>""></a></td ><% End If %\>" & _
"<td><%= Server.HTMLEncode(NAME(i).Name) %\></td>" & _
" </tr>")
End Sub
%>
呼び出し
<% tableData %>
このようにしたら出力はできましたが、
コードがそのまま出力されました。
文字として出力されたと思うのですが、
どのようにしたら反映されるようになるのか
アドバイスいただけないでしょうか。
<%= Server.HTMLEncode(NAME(i).Code) %>
がそのまま出力されています。
「"」で囲まれた部分は「文字列」になります。「"...文字列..." & Code & "...文字列..."」 みたいな感じで、連結してみてください。
"<td>" & Server.HTMLEncode(NAME(i).Code) & "</td>" こんな感じです。
ありがとうございます。
ほぼ出来ました。
度々すみませんが、
"<td class=""price"">" & If NAME(i).Price < NAME(i).ListPrice Then & _
とするとエラーになるのですが、
"<td class=""price"">" & "If" & NAME(i).Price < NAME(i).ListPrice & "Then" & _
こうするとエラーになりません。
If文は<%～%>内に書いていた処理なのでダブルコーテーションが不要だと思うのですが
括ったほうが良いのでしょうか。
If文は普通にIf文として処理したら解決しました。
本当にありがとうございました。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。