显示数据库所有的图片

believebowps 2005-07-13 05:29:15

在CSDN里，我搜索了很多帖子，通过ID，传值显示图片，我已经实现了。
但现在我通过一个超链接，进入一个页面，这个页面可以显示数据库所有的图片就出问题了。
我先贴出成功的代码。我现在这个代码里面改，请大家帮帮忙，谢谢。
显示图片的页面：
tt.aspx
<asp:DataGrid ID="datagrid1" AutoGenerateColumns="False" Width="500" HeaderStyle-BackColor="#000000" HeaderStyle-Font-Bold="True" HeaderStyle-ForeColor="#ffffff" ItemStyle-BackColor="Beige" BorderColor="#000000" Runat="server" HeaderStyle-HorizontalAlign="Center"><Columns>
<asp:TemplateColumn HeaderText="Photo">
<ItemTemplate>
asp:Image Runat=server ID="Image1" ImageUrl='<%# FormatURL(DataBinder.Eval(Container.DataItem, "ID")) %>' />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>

tt.aspx.vb

If Not Page.IsPostBack Then
BindGrid()
end if

Private Sub BindGrid()
Dim strCnn As String = "server=192.168.0.1;database=612lhjd;user id=maverickps;password=zsjyc;"
Dim myConnection As SqlConnection = New SqlConnection(strCnn)
Dim myCommand As SqlCommand = New SqlCommand("SELECT id,image,ImageType FROM caption_daily where id=" + Request("id"), myConnection)
myCommand.CommandType = CommandType.Text
Try
myConnection.Open()
datagrid1.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
datagrid1.DataBind()
Catch SQLexc As SqlException
Response.Write("Error occured while Generating Data. Error is " & SQLexc.ToString())
End Try
End Sub

Function FormatURL(ByVal strArgument) As String
Return ("ReadImage.aspx?id=" & strArgument)
End Function

ReadImage.aspx

<%@ Page Language="vb" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<HTML>
<HEAD>
<script runat=server>
Public Sub Page_Load(sender As Object, e As EventArgs)
Dim strImageID as String = Request.QueryString("id")
Dim myConnection As New SqlConnection("server=192.168.0.1;database=612lhjd;user id=maverickps;password=zsjyc;")
Dim myCommand As New SqlCommand("Select id,ImageType,Image from caption_daily Where ID=" + strImageID, myConnection)

Try
myConnection.Open()
Dim myDataReader as SqlDataReader
myDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Do While (myDataReader.Read())
Response.ContentType = myDataReader.Item("ImageType")
Response.BinaryWrite(myDataReader.Item("Image"))
Loop
myConnection.Close()
Catch SQLexc As SqlException
End Try
End Sub
</script>
<link href="index-css/index.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">

</style></HEAD>
<body>
<form runat="server" ID="Form1"></form>
</body>
</HTML>

如果要在一个页面中显示全部的图片应该怎样呢？

...全文