asp.net上传图片并同时生成缩略图

原创 2003年01月16日 08:53:00

<script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs)

If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = False
Exit Sub
Else
FileInfo.Visible = True
FDisplay1.Visible = True
End If

FSize.Text ="上传文件大小"+ CStr(FileUp.PostedFile.ContentLength/1024)+"KB"
FName.Text = "已上传文件名:"+FileUp.PostedFile.FileName+"<br>"+FName.Text

'写入数据库
on error resume next
dim myconn as sqlconnection
dim mycomm as sqlcommand
dim sql as string
dim id as integer
Dim image,anewimage As System.Drawing.Image
dim width,height,newwidth,newheight as integer
Dim callb As System.Drawing.Image.GetThumbnailImageAbort
myConn=New sqlconnection(ConfigurationSettings.AppSettings("数据库"))
myconn.open()
sql="insert into picture (姓名,班级,介绍,属性) values ('"&request.cookies("dgxyl").values("dgxylname")&"','"&request.cookies("dgxyl").values("dgxylbj")&"','"&trim(request("TextBox1"))&"','"&request("r1")&"')"
Mycomm=New sqlcommand(sql,myconn)
mycomm.executenonquery()
myconn.close()

Dim myCommand As New SqlCommand("select top 1 id from picture order by id desc", myConn)
myCommand.Connection.Open()
Dim myReader As SqlDataReader=mycommand.executereader()
if myReader.Read() then
id=myReader("id")
end if
myconn.close()
'保存图片
FileUp.PostedFile.SaveAs( Server.MapPath("/classpic/")&cstr(id)&".jpg" )
'生成缩略图
image=System.Drawing.Image.FromFile(Server.MapPath("/classpic/"+cstr(id)+".jpg"))
width=image.Width
height=image.height
if width>height then
newwidth=250
newheight=image.height/image.Width*newwidth
else
newheight=250
newwidth=image.Width/image.height*newheight
end if
response.write("id="+cstr(id)+"width="+cstr(Width)+";height="+cstr(height)+"  ")
response.write("newwidth="+cstr(newwidth)+";newheight="+cstr(newheight)+"<br>")

aNewImage=image.GetThumbnailImage(newwidth,newheight,callb,new System.IntPtr())
aNewImage.Save(Server.MapPath("/smallpic/"+cstr(id)+".jpg"))
image.Dispose()


Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, "/" )
Dim FileName As String = FileSplit(FileSplit.Length-1)
Dim Exts() As String = Split( FileName, "." )
Dim Ext As String = LCase(Exts(Exts.Length-1))

FDisplay.Text = "<A Target='_blank' HREF='/classpic/"&cstr(id)&".jpg"& "'>查看上传文件</A>"
FDisplay1.text="<a href='/picture/default.asp?bj="&cstr(request.cookies("dgxyl").values("dgxylbj"))&"'>返回</a>"
End Sub
</script>
<SCRIPT language=JavaScript>
<!--
var requestsubmitted=false;
function guestbook_Validator(theForm)
{
//检查是否从新提交
if (requestsubmitted==true){
  alert("你已经提交了留言,请等待服务器应答!");
  return(false);
 }
requestsubmitted=true;

return (true);
}
//-->
</SCRIPT>
<Html>
<Body BgColor=White>
<H3 align="center">请正确填写下面各项</h3>
<Hr></H3>
<Div id="FileInfo" Visible="False" runat="server">
 <Asp:Label id="FSize" runat="server"/><br>
 <Asp:Label id="FName" runat="server"/><br>
<Asp:Label id="FDisplay" runat="server"/>
 <Asp:Label id="FDisplay1" runat="server"/>
</Div>
<Form Enctype="multipart/form-data" onsubmit="return guestbook_Validator(this)" runat="server">
上传文件
<Input Type="File" id="FileUp" runat="server" size="20"><br>
图片属性:<input type="radio" value="<%=request.cookies("dgxyl").values("dgxylbj")%>" name="R1" checked>本班<input type="radio" value="全校" name="R1">全校(本班则只在本班显示,全校则在全校显示)<P>
图片说明:<br>
<asp:TextBox id="TextBox1" runat="server" Width="233px" Height="141px">
</asp:TextBox>
        <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ControlToValidate="TextBox1" ErrorMessage="请输入图片说明">
</asp:RequiredFieldValidator><br>
<Asp:button id="Upload" OnClick="UploadFile" Text="上传图片" runat="server"/>
</form>
<Hr>
<p>注意:</p>
<ol>
  <li><b>严禁上传污染环境的照片,否则账号将被删除!</b></li>
  <li><font color="#808000"><b>请详细填写照片说明,图片说明不详细将会被视为乱传图片,将会被删除!</b></font></li>
</ol>
<p> </p>

</Body>
</Html>

.net mvc中上传图片生成缩略图

#region CreateThumbnail //HttpPostedFileBase在webform里改成HttpPostedFile           private string Crea...
  • pukuimin1226
  • pukuimin1226
  • 2013年08月22日 09:28
  • 4135

C#上传图片,同时生成缩略图

C#代码
  • ful1021
  • ful1021
  • 2014年08月14日 11:09
  • 719

php上传图片自动生成缩略图方法函数

$file_name='C:\AppServ\www\_MG_9888.jpg'; $file_new='C:\AppServ\www\bbbb.jpg'; scal_pic($file_name,...
  • muziduoxi
  • muziduoxi
  • 2013年11月20日 15:09
  • 3528

asp.net上传图片并同时生成缩略图

    Sub UploadFile(sender As Object, e As EventArgs)    If FileUp.PostedFile.ContentLength = 0 Then ...
  • ljbshiyoudaxue
  • ljbshiyoudaxue
  • 2006年08月13日 13:21
  • 461

上传图片保存并生成缩略图

过程讲解:一个springMvc的上传文件框架 1.上传文件,后台接受文件对象 2.正常将文件上传保存到服务器 3.将图片文件通过工具生成缩略图...
  • xiaoyu19910321
  • xiaoyu19910321
  • 2017年05月25日 23:36
  • 1563

asp.net上传图片并同时生成缩略图[转]

asp.net上传图片并同时生成缩略图                                                       Sub UploadFile(sender As ...
  • hotmail_mk
  • hotmail_mk
  • 2010年03月17日 10:41
  • 165

asp.net上传图片并同时生成缩略图

Sub UploadFile(sender As Object, e As EventArgs)If FileUp.PostedFile.ContentLength = 0 ThenFileInfo....
  • xiaoxiaohai123
  • xiaoxiaohai123
  • 2007年05月21日 18:56
  • 344

thinkPHP上传图片以及生成缩略图

记录一下最thinkPHP上传图片的方法(Upload)和生成缩略图(Image)的方法.html页面form中必须加enctype=”multipart/form-data” ...
  • qq_22793991
  • qq_22793991
  • 2016年12月17日 17:53
  • 314

PHP上传图片并生成缩略图_1

//is_uploaded_file 判断文件是否是通过HTTP POST上传的 //move_uploaded_file 将上传文件移至指定目录...
  • painstaker
  • painstaker
  • 2010年09月07日 15:58
  • 4655

java 上传图片 生成缩略图

一下3个是俺在网上找的,都没有验证过,过些日子可能会用,到时候再验证一下。不过看看问题应该不大。----------------------------------------------------...
  • zhouzilong502086525
  • zhouzilong502086525
  • 2011年02月28日 19:56
  • 5113
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp.net上传图片并同时生成缩略图
举报原因:
原因补充:

(最多只允许输入30个字)