1Imports System 
 2Imports System.Data 
 3Imports System.Configuration 
 4Imports System.Collections 
 5Imports System.Web 
 6Imports System.Web.Security 
 7Imports System.Web.UI 
 8Imports System.Web.UI.WebControls 
 9Imports System.Web.UI.WebControls.WebParts 
10Imports System.Web.UI.HtmlControls 
11Imports System.Data.OleDb 
12
13Public Partial Class show_picClass show_pic 
14    Inherits System.Web.UI.Page 
15    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
16        Using oleconn As New OleDbConnection() 
17            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
18            oleconn.Open() 
19            Dim strSQL As String = "Select * From pic where id=" + Request("id")
20            Dim command As New OleDbCommand(strSQL, oleconn) 
21            Dim dataReader As OleDbDataReader = command.ExecuteReader() 
22            If dataReader.Read() Then           
23                Image1.ImageUrl = dataReader("pic_url").ToString() 
24            End If 
25            dataReader.Close() 
26            oleconn.Close() 
27            oleconn.Dispose() 
28        End Using 
29    End Sub 
30End Class