<tr>
<td class="td_left">选择文件
</td>
<td class="TD_BG" colspan="3"><INPUT id="Image" type="file" size="60" name="Image" runat="server" class="easytext" onpropertychange='JavaScript:showImg();' onblur ="JavaScript:IsPic();">
<!-- <asp:button id="btnview" runat="server" Width="72px" Text="查看图片" cssclass="button"></asp:button> //--></td>
</tr>
<tr>
<TD class="td_left">预览图片</TD>
<td class="TD_BG" colspan="3">
<asp:image id="Picture" Runat="server" Visible="False"></asp:image>
</td>
</tr>
<td class="td_left">选择文件
</td>
<td class="TD_BG" colspan="3"><INPUT id="Image" type="file" size="60" name="Image" runat="server" class="easytext" onpropertychange='JavaScript:showImg();' onblur ="JavaScript:IsPic();">
<!-- <asp:button id="btnview" runat="server" Width="72px" Text="查看图片" cssclass="button"></asp:button> //--></td>
</tr>
<tr>
<TD class="td_left">预览图片</TD>
<td class="TD_BG" colspan="3">
<asp:image id="Picture" Runat="server" Visible="False"></asp:image>
</td>
</tr>
'//.VB文件
'//获取图片信息
Private Sub ReadPicture()
If Image.PostedFile.FileName <> "" Then
Dim intImageSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
intImageSize = Image.PostedFile.ContentLength
strImageType = Image.PostedFile.ContentType
ImageStream = Image.PostedFile.InputStream
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
Session("Type") = strImageType
Session("Picture") = ImageContent
Session("IsRead") = "YES"
Else
Session("IsRead") = "NO"
Session("Type") = "NULL"
Session("Picture") = "NULL"
End If
End Sub
'//传值到实体
If Image.PostedFile.FileName.Trim <> "" Then
ReadPicture()
End If
If (Session("IsRead") = "YES") Then
.Item(myEntity.USERPRODUCT_IMAGE) = Session("Picture") 'image ,
.Item(myEntity.USERPRODUCT_IMAGETYPE) = Session("Type")
Else
.Item(myEntity.USERPRODUCT_IMAGE) = DBNull.Value
.Item(myEntity.USERPRODUCT_IMAGETYPE) = DBNull.Value
End If
'预览图片
Private Sub btnview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click
If Image.PostedFile.FileName.Trim <> "" Then
ReadPicture()
Picture.Visible = True
Picture.ImageUrl = "ImageView.aspx"
End If
End Sub
'/// ImageView.aspx.VB文件
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Response.ContentType = Session("Type")
Response.BinaryWrite(Session("Picture"))
Response.Flush()
End Sub
'//获取图片信息
Private Sub ReadPicture()
If Image.PostedFile.FileName <> "" Then
Dim intImageSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
intImageSize = Image.PostedFile.ContentLength
strImageType = Image.PostedFile.ContentType
ImageStream = Image.PostedFile.InputStream
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
Session("Type") = strImageType
Session("Picture") = ImageContent
Session("IsRead") = "YES"
Else
Session("IsRead") = "NO"
Session("Type") = "NULL"
Session("Picture") = "NULL"
End If
End Sub
'//传值到实体
If Image.PostedFile.FileName.Trim <> "" Then
ReadPicture()
End If
If (Session("IsRead") = "YES") Then
.Item(myEntity.USERPRODUCT_IMAGE) = Session("Picture") 'image ,
.Item(myEntity.USERPRODUCT_IMAGETYPE) = Session("Type")
Else
.Item(myEntity.USERPRODUCT_IMAGE) = DBNull.Value
.Item(myEntity.USERPRODUCT_IMAGETYPE) = DBNull.Value
End If
'预览图片
Private Sub btnview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click
If Image.PostedFile.FileName.Trim <> "" Then
ReadPicture()
Picture.Visible = True
Picture.ImageUrl = "ImageView.aspx"
End If
End Sub
'/// ImageView.aspx.VB文件
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Response.ContentType = Session("Type")
Response.BinaryWrite(Session("Picture"))
Response.Flush()
End Sub