vb.net文件上传 vbs上传文件

vb.net ftp上传文件

Dim OpenFileDialog As New OpenFileDialog

延吉ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为成都创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!

OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"

If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

Dim FileName As String = OpenFileDialog.FileName

' TODO: 在此处添加打开文件的代码。

textbox1.Text = FileName

End If

第一个按钮 上传

Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))

MessageBox.Show(filelast)

My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)

第二个按钮

VB.net 读取文本文件?

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

怎么让VB.NET 上传图片到SQL 数据库只保存路径,图片保存到文件

图片和文件的记录加个地址的字段,字段内容是文件和图片的绝对路径就好了,那就把图片和文件弄成2进制存进去,或转成hash值

vb.net如何上传文件

My.Computer.Network.UploadFile

比如上传到FTP

My.Computer.Network.UploadFile("d:\1.txt", "“, "FTP账号", "FTP密码", True, 100)

新手路过。

asp.net以及VB做的网站,现在需要限制上传文件的格式,比如我只想上传jpg和doc格式的文件,求教方法

%@ language="javascript"%

%

var self = Request.serverVariables("SCRIPT_NAME");

if (Request.serverVariables("REQUEST_METHOD")=="POST")

{

var oo = new uploadFile();

oo.path = "../../images/swf/"; //存放路径,为空表示当前路径,默认为uploadFile

oo.named = "date"; //命名方式,date表示用日期来命名,file表示用文件名本身,默认为file

oo.ext = "all"; //允许上传的扩展名,all表示都允许,默认为all

oo.over = true; //当存在相同文件名时是否覆盖,默认为false

oo.size = 1*1024*1024; //最大字节数限制,默认为1G

oo.upload();

Response.write('script type="text/javascript"location.replace("'+self+'")/script');

}

//ASP无组件上传类

function uploadFile()

{

var bLen = Request.totalBytes;

var bText = Request.binaryRead(bLen);

var oo = Server.createObject("ADODB.Stream");

oo.mode = 3;

this.path = "uploadFile";

this.named = "file";

this.ext = "all";

this.over = false;

this.size = 1*1024*1024*1024; //1GB

//文件上传

this.upload = function ()

{

var o = this.getInfo();

if (o.sizethis.size)

{

alert("文件过大,不能上传!");

return;

}

var f = this.getFileName();

var ext = f.replace(/^.+\./,"");

if (this.ext!="all"!new RegExp(this.ext.replace(/,/g,"|"),"ig").test(ext))

{

alert("目前暂不支持扩展名为 "+ext+" 的文件上传!");

return;

}

if (this.named=="date")

{

var f = new Date().toLocaleString().replace(/\D/g,"") + "." + ext;

}

oo.open();

oo.type = 1;

oo.write(o.bin);

this.path = this.path.replace(/[^\/\\]$/,"$/");

var fso = Server.createObject("Scripting.FileSystemObject");

if(this.path!=""!fso.folderExists(Server.mapPath(this.path)))

{

fso.createFolder(Server.mapPath(this.path));

}

try

{

oo.saveToFile(Server.mapPath(this.path+f),this.over?2:1);

Response.write('script type="text/javascript"parent.form.swf_Pic.value=("images/swf/'+f+'")/script');

alert(f);

}

catch(e)

{

alert("对不起,此文件已存在!");

}

oo.close();

delete(oo);

}

//获取二进制和文件字节数

this.getInfo = function ()

{

oo.open();

oo.type=1;

oo.write(bText);

oo.position = 0;

oo.type=2;

oo.charset="unicode";

var gbCode=escape(oo.readText()).replace(/%u(..)(..)/g,"%$2%$1");

var sPos=gbCode.indexOf("%0D%0A%0D%0A")+12;

var sLength=bLen-(gbCode.substring(0,gbCode.indexOf("%0D%0A")).length/3)-sPos/3-6;

oo.close();

oo.open();

oo.type = 1;

oo.write(bText);

oo.position=sPos/3;

var bFile=oo.read(sLength);

oo.close();

return { bin:bFile, size:sLength };

}

//获取文件名

this.getFileName = function ()

{

oo.open();

oo.type = 2;

oo.writeText(bText);

oo.position = 0;

oo.charset = "gb2312";

var fileName = oo.readText().match(/filename=\"(.+?)\"/i)[1].split("\\").slice(-1)[0];

oo.close();

return fileName;

}

function alert(msg)

{

Response.write('script type="text/javascript"alert("'+msg+'");/script');

}

}

%

body topmargin="0" marginwidth="0"

form action="%=self%" method="POST" enctype="multipart/form-data" onSubmit="return (this.upFile.value!='');" name="myform" style="border: 1px solid #C0C0C0"

input type="file" name="upFile" size="21"/

input type=submit name=submit value=上传 class="tx1"

/form


网站栏目:vb.net文件上传 vbs上传文件
新闻来源:http://scyanting.com/article/dodsipo.html