asp.net上传图片并同时生成缩略图:
<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()
|