ListViewでDBにある画像からサムネイル一覧を作成する1  次の文書

<-FORM-------
<form id="form1" runat="server">
<div>
<asp:TextBox ID="検索文字列" runat="server" Width="88px"></asp:TextBox>
<asp:Button ID="記事検索" runat="server" Text="記事検索" />

<asp:ListView ID="ListView1" runat="server" DataSourceID="SqlDataSource1" GroupItemCount="5">
<AlternatingItemTemplate>
<td id="Td1" runat="server" style="background-color: #FAFAD2;color: #284775;">
<asp:Label ID="文書IDLabel" runat="server" Text='<%#画像作成(Eval("文書ID"))%>' />
<br />
</td>
</AlternatingItemTemplate>

<EditItemTemplate>
<td id="Td2" runat="server" style="background-color: #FFCC66;color: #000080;">
<asp:TextBox ID="文書IDTextBox" runat="server" Text='<%# Bind("文書ID") %>' />
<br />
<asp:Button ID="UpdateButton" runat="server" CommandName="Update" Text="更新" />
<br />
<asp:Button ID="CancelButton" runat="server" CommandName="Cancel"
Text="キャンセル" />
<br />
</td>
</EditItemTemplate>

<EmptyDataTemplate>
<table id="Table1" runat="server"
style="background-color: #FFFFFF;border-collapse: collapse;border-color: #999999;border-style:none;border-width:1px;">
<tr>
<td>
データは返されませんでした。</td>
</tr>
</table>
</EmptyDataTemplate>

<EmptyItemTemplate>
<td id="Td3" runat="server" />
</EmptyItemTemplate>

<GroupTemplate>
<tr ID="itemPlaceholderContainer" runat="server">
<td ID="itemPlaceholder" runat="server">
</td>
</tr>
</GroupTemplate>

<InsertItemTemplate>
<td id="Td4" runat="server" style="">
<asp:TextBox ID="文書IDTextBox" runat="server" Text='<%# Bind("文書ID") %>' />
<br />
<asp:Button ID="InsertButton" runat="server" CommandName="Insert" Text="挿入" />
<br />
<asp:Button ID="CancelButton" runat="server" CommandName="Cancel" Text="クリア" />
<br />
</td>
</InsertItemTemplate>

<ItemTemplate>
<td id="Td5" runat="server" style="background-color: #FFFBD6;color: #333333;">
<asp:Label ID="文書IDLabel" runat="server" Text='<%#画像作成(Eval("文書ID"))%>' />
<br />
</td>
</ItemTemplate>


<LayoutTemplate>
<table id="Table2" runat="server">
<tr id="Tr1" runat="server">
<td id="Td6" runat="server">
<table ID="groupPlaceholderContainer" runat="server" border="1"
style="background-color: #FFFFFF;border-collapse: collapse;border-color: #999999;border-style:none;border-width:1px;font-family: Verdana, Arial, Helvetica, sans-serif;">
<tr ID="groupPlaceholder" runat="server">
</tr>
</table>
</td>
</tr>
<tr id="Tr2" runat="server">
<td id="Td7" runat="server"
style="text-align: center;background-color: #FFCC66;font-family: Verdana, Arial, Helvetica, sans-serif;color: #333333;">
<asp:DataPager ID="DataPager1" runat="server" PageSize="25">
<Fields>


<asp:NextPreviousPagerField ButtonType="Button" ShowFirstPageButton="True"
ShowNextPageButton="False" ShowPreviousPageButton="False" />
<asp:NumericPagerField />
<asp:NextPreviousPagerField ButtonType="Button" ShowLastPageButton="True"
ShowNextPageButton="False" ShowPreviousPageButton="False" />
</Fields>
</asp:DataPager>
</td>
</tr>
</table>
</LayoutTemplate>

<SelectedItemTemplate>
<td id="Td8" runat="server"
style="background-color: #FFCC66;font-weight: bold;color: #000080;">
<asp:Label ID="文書IDLabel" runat="server" Text='<%#画像作成(Eval("文書ID"))%>' />
<br />
</td>
</SelectedItemTemplate>
</asp:ListView>




<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LocalSqlServer %>"
SelectCommand="SELECT [文書ID] FROM [TBL名] WHERE ([削除] = @削除) ORDER BY [登録日], [登録時間]">
<SelectParameters>
<asp:Parameter DefaultValue="0" Name="削除" Type="String" />
</SelectParameters>
</asp:SqlDataSource>


<asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:LocalSqlServer %>"
SelectCommand="SELECT [文書ID] FROM [TBL名] WHERE (( ([文書種別] LIKE '%' + @検索文字列 + '%') or ([タイトル] LIKE '%' + @検索文字列 + '%')) AND ([削除] = @削除)) ORDER BY [登録日], [登録時間]">
<SelectParameters>
<asp:Parameter DefaultValue="0" Name="削除" Type="String" />
<asp:ControlParameter ControlID="検索文字列" Name="検索文字列" PropertyName="Text" Type="String" />

</SelectParameters>
</asp:SqlDataSource>


</div>
</form>


<---VB------

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'ポストバックではなく初回表示か ?


’検索がどうかでデータソースを切り分ける
If 検索文字列.Text = "" Then
'全件
ListView1.DataSourceID = "SqlDataSource1"
Else
'検索値表示
ListView1.DataSourceID = "SqlDataSource2"
End If


’スマホならGroupItemCount数を減らす

'// iPhone もしくは、Android と Mobile を同時に含む時はスマートフォン
If Request.UserAgent.Contains("iPhone") Or (Request.UserAgent.Contains("Android") And Request.UserAgent.Contains("Mobile")) Then
ListView1.GroupItemCount = 3
End If

End Sub

Function 画像作成(ByVal 文書ID)
Dim WreturnData As String = ""
WreturnData = WreturnData & "<img border=0 src=gazoget.aspx?ID=" & 文書ID & "><br>"
WreturnData = WreturnData & "<a href=gazoget.aspx?ID=" & 文書ID & "B target=Img>" & 文書ID & "</A>"
Return WreturnData
End Function

Protected Sub 記事検索_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 記事検索.Click
'検索文字列.Text = Server.UrlEncode(検索文字列.Text)
End Sub

 
サムネイル一覧を表示した例(左はPC場合、右がスマホの場合)


文字にリンクを張っているのでクリックで拡大画像



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)