asp.net上传图片并生成缩略图
发布日期:2021-06-30 19:17:48
浏览次数:2
分类:技术文章
本文共 3553 字,大约阅读时间需要 11 分钟。
<script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs)If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = FalseExit SubElseFileInfo.Visible = TrueFDisplay1.Visible = TrueEnd IfFSize.Text ="上传文件大小"+ CStr(FileUp.PostedFile.ContentLength/1024)+"KB"
FName.Text = "已上传文件名:"+FileUp.PostedFile.FileName+"<br>"+FName.Text'写入数据库
on error resume nextdim myconn as sqlconnectiondim mycomm as sqlcommanddim sql as stringdim id as integerDim image,anewimage As System.Drawing.Imagedim width,height,newwidth,newheight as integerDim callb As System.Drawing.Image.GetThumbnailImageAbortmyConn=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() thenid=myReader("id")end ifmyconn.close()'保存图片FileUp.PostedFile.SaveAs( Server.MapPath("/classpic/")&cstr(id)&".jpg" )'生成缩略图image=System.Drawing.Image.FromFile(Server.MapPath("/classpic/"+cstr(id)+".jpg"))width=image.Widthheight=image.heightif width>height thennewwidth=250newheight=image.height/image.Width*newwidthelsenewheight=250newwidth=image.Width/image.height*newheightend ifresponse.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" οnsubmit="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></Body></Html>转载地址:https://linuxstyle.blog.csdn.net/article/details/211979 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
很好
[***.229.124.182]2024年04月23日 20时23分40秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
Python的多线程不是真的多线程(GIL全局解释器锁)
2019-04-30
Python手动读取MNIST数据集
2019-04-30
Python手动读取CIFAR-10数据集
2019-04-30
Pytorch(十一) —— 分布式(多GPU)训练
2019-04-30
Deeplab v3
2019-04-30
NLP 之 Perplexity困惑度
2019-04-30
tensor/矩阵/图片等更换通道,调整size
2019-04-30
本地和colab 中 改变tensorflow的版本
2019-04-30
Camera-ready ddl
2019-04-30
CUB-200鸟类数据集
2019-04-30
Python反射机制
2019-04-30
YAPF —— Python代码格式化工具
2019-04-30
UGC 用户产生内容
2019-04-30
ranger
2019-04-30
slurm
2019-04-30
xfce4
2019-04-30
xrdp
2019-04-30
Raft算法
2019-04-30
Python计算文本BLEU分数
2019-04-30