利用vb实现图片上传

最新推荐文章于 2025-10-02 03:39:56 发布

原创

最新推荐文章于 2025-10-02 03:39:56 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #textbox #server #asp #string #integer

这篇博客展示了如何使用VB实现图片上传功能，包括读取上传文件大小、保存到服务器、写入数据库以及生成缩略图。用户需填写图片说明，选择图片属性，上传的图片会保存在特定路径并生成相应的缩略图。

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")