精华内容
下载资源
问答
  • vb网页编辑器源代码

    2012-10-08 10:19:58
    在CSDN下载的都是不能用的,找了一个完整的上传之, vb网页编辑器,有完整的源代码,测试可以使用。
  • VB Scoket HTTP上传文件实例,向网页提交文件,实现网页上传的功能。使用了Scoket和HTTP协议相关知识。
  • 为了测试文件上传,使用了梁无惧开发的“无惧上传类”,使用的版本是v2.2,这是一个无组件上传类,不用专门去注册组件。由于提供了源代码,也可以供我们学习和参考。 upfile_class.asp代码如下: <% '---------...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的

    为了测试文件上传,使用了梁无惧开发的“无惧上传类”,使用的版本是v2.2,这是一个无组件上传类,不用专门去注册组件。由于提供了源代码,也可以供我们学习和参考。
    upfile_class.asp代码如下:

    <%
    '----------------------------------------------------------------------
    '转发时请保留此声明信息,这段声明不并会影响你的速度!
    '*******************	 无惧上传类 V2.2	************************************
    '作者:梁无惧
    '网站:http://www.25cn.com
    '电子邮件:yjlrb@21cn.com
    '版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
    '发送一份给作者.并且保留作者此版权信息
    '**********************************************************************
    '----------------------------------------------------------------------
    '----------------------------------------------------------------------
    '文件上传类
    Class UpFile_Class
    
    Dim Form,File
    Dim AllowExt_	'允许上传类型(白名单)
    Dim NoAllowExt_	'不允许上传类型(黑名单)
    Dim IsDebug_ '是否显示出错信息
    Private	oUpFileStream	'上传的数据流
    Private isErr_		'错误的代码,0或true表示无错
    Private ErrMessage_	'错误的字符串信息
    Private isGetData_	'指示是否已执行过GETDATA过程
    
    '------------------------------------------------------------------
    '类的属性
    Public Property Get Version
    	Version="无惧上传类 Version V2.0"
    End Property
    
    Public Property Get isErr		'错误的代码,0或true表示无错
    	isErr=isErr_
    End Property
    
    Public Property Get ErrMessage		'错误的字符串信息
    	ErrMessage=ErrMessage_
    End Property
    
    Public Property Get AllowExt		'允许上传类型(白名单)
    	AllowExt=AllowExt_
    End Property
    
    Public Property Let AllowExt(Value)	'允许上传类型(白名单)
    	AllowExt_=LCase(Value)
    End Property
    
    Public Property Get NoAllowExt		'不允许上传类型(黑名单)
    	NoAllowExt=NoAllowExt_
    End Property
    
    Public Property Let NoAllowExt(Value)	'不允许上传类型(黑名单)
    	NoAllowExt_=LCase(Value)
    End Property
    
    Public Property Let IsDebug(Value)	'是否设置为调试模式
    	IsDebug_=Value
    End Property
    
    
    '----------------------------------------------------------------
    '类实现代码
    
    '初始化类
    Private Sub Class_Initialize
    	isErr_ = 0
    	NoAllowExt=""		'黑名单,可以在这里预设不可上传的文件类型,以文件的后缀名来判断,不分大小写,每个每缀名用;号分开,如果黑名单为空,则判断白名单
    	NoAllowExt=LCase(NoAllowExt)
    	AllowExt=""		'白名单,可以在这里预设可上传的文件类型,以文件的后缀名来判断,不分大小写,每个后缀名用;号分开
    	AllowExt=LCase(AllowExt)
    	isGetData_=false
    End Sub
    
    '类结束
    Private Sub Class_Terminate	
    	on error Resume Next
    	'清除变量及对像
    	Form.RemoveAll
    	Set Form = Nothing
    	File.RemoveAll
    	Set File = Nothing
    	oUpFileStream.Close
    	Set oUpFileStream = Nothing
    	if Err.number<>0 then OutErr("清除类时发生错误!")
    End Sub
    
    '分析上传的数据
    Public Sub GetData (MaxSize)
    	 '定义变量
    	on error Resume Next
    
    	if isGetData_=false then 
    		Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
    		Dim sFormValue,sFileName
    		Dim iFindStart,iFindEnd
    		Dim iFormStart,iFormEnd,sFormName
    		'代码开始
    		If Request.TotalBytes < 1 Then	'如果没有数据上传
    			isErr_ = 1
    			ErrMessage_="没有数据上传,这是因为直接提交网址所产生的错误!"
    			OutErr("没有数据上传,这是因为直接提交网址所产生的错误!!")
    			Exit Sub
    		End If
    		If MaxSize > 0 Then '如果限制大小
    			If Request.TotalBytes > MaxSize Then
    			isErr_ = 2	'如果上传的数据超出限制大小
    			ErrMessage_="上传的数据超出限制大小!"
    			OutErr("上传的数据超出限制大小!")
    			Exit Sub
    			End If
    		End If
    		Set Form = Server.CreateObject ("Scripting.Dictionary")
    		Form.CompareMode = 1
    		Set File = Server.CreateObject ("Scripting.Dictionary")
    		File.CompareMode = 1
    		Set tStream = Server.CreateObject ("ADODB.Stream")
    		Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
    		if Err.number<>0 then 
    			response.write("创建流对象(ADODB.STREAM)时出错,可能系统不支持或没有开通该组件")
    			OutErr("创建流对象(ADODB.STREAM)时出错,可能系统不支持或没有开通该组件")
    		end if
    		oUpFileStream.Type = 1
    		oUpFileStream.Mode = 3
    		oUpFileStream.Open 
    
    		oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
    		oUpFileStream.Position = 0
    		RequestBinDate = oUpFileStream.Read 
    
    		iFormEnd = oUpFileStream.Size
    
    		bCrLf = ChrB (13) & ChrB (10)
    		'取得每个项目之间的分隔符
    		sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
    		iStart = LenB(sSpace)
    		iFormStart = iStart+2
    		'分解项目
    		Do
    			iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
    			tStream.Type = 1
    			tStream.Mode = 3
    			tStream.Open
    			oUpFileStream.Position = iFormStart
    			oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
    			tStream.Position = 0
    			tStream.Type = 2
    			tStream.CharSet = "gb2312"
    			sInfo = tStream.ReadText
    			'取得表单项目名称
    			iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
    			iFindStart = InStr (22,sInfo,"name=""",1)+6
    			iFindEnd = InStr (iFindStart,sInfo,"""",1)
    			sFormName = Mid(sinfo,iFindStart,iFindEnd-iFindStart)
    			'如果是文件
    			'If InStr (iFindEnd,sInfo,"filename=""",1) > 0 Then
    			If InStr (45,sInfo,"filename=""",1) > 0 Then
    				Set oFileInfo = new FileInfo_Class
    				'取得文件属性
    				iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10
    				iFindEnd = InStr (iFindStart,sInfo,""""&vbCrLf,1)
    				sFileName = Trim(Mid(sinfo,iFindStart,iFindEnd-iFindStart))
    				oFileInfo.FileName = GetFileName(sFileName)
    				oFileInfo.FilePath = GetFilePath(sFileName)
    				oFileInfo.FileExt = GetFileExt(sFileName)
    				iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
    				iFindEnd = InStr (iFindStart,sInfo,vbCr)
    				oFileInfo.FileMIME = Mid(sinfo,iFindStart,iFindEnd-iFindStart)
    				oFileInfo.FileStart = iInfoEnd
    				oFileInfo.FileSize = iFormStart -iInfoEnd -2
    				oFileInfo.FormName = sFormName
    				file.add sFormName,oFileInfo
    
    			else
    			'如果是表单项目
    				tStream.Close
    				tStream.Type = 1
    				tStream.Mode = 3
    				tStream.Open
    				oUpFileStream.Position = iInfoEnd 
    				oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
    				tStream.Position = 0
    				tStream.Type = 2
    				tStream.CharSet = "gb2312"
    				sFormValue = tStream.ReadText
    				If Form.Exists (sFormName) Then
    					Form (sFormName) = Form (sFormName) & ", " & sFormValue
    					else
    					Form.Add sFormName,sFormValue
    				End If
    			End If
    			tStream.Close
    			iFormStart = iFormStart+iStart+2
    			'如果到文件尾了就退出
    		Loop Until (iFormStart+2) >= iFormEnd 
    		if Err.number<>0 then OutErr("分解上传数据时发生错误,可能客户端的上传数据不正确或不符合上传数据规则")
    		RequestBinDate = ""
    		Set tStream = Nothing
    		isGetData_=true
    	end if
    End Sub
    
    '保存到文件,自动覆盖已存在的同名文件
    Public Function SaveToFile(Item,Path)
    	SaveToFile=SaveToFileEx(Item,Path,True)
    End Function
    
    '保存到文件,自动设置文件名
    Public Function AutoSave(Item,Path)
    	AutoSave=SaveToFileEx(Item,Path,false)
    End Function
    
    '保存到文件,OVER为真时,自动覆盖已存在的同名文件,否则自动把文件改名保存
    Private Function SaveToFileEx(Item,Path,Over)
    	On Error Resume Next
    	Dim FileExt
    	if file.Exists(Item) then
    		Dim oFileStream
    		Dim tmpPath
    		isErr_=0
    		Set oFileStream = CreateObject ("ADODB.Stream")
    		oFileStream.Type = 1
    		oFileStream.Mode = 3
    		oFileStream.Open
    		oUpFileStream.Position = File(Item).FileStart
    		oUpFileStream.CopyTo oFileStream,File(Item).FileSize
    		'==============================
    		'for i=len(Path) to 1 step -1
            '    if mid(Path, i, 1) = "/" or mid(Path, i, 1) = "\" then exit for
            'next
            'onlyPath = left(Path, i)
            'onlyFileName = right(Path, len(Path) - i)
            'tmpFileName = Split(onlyFileName,".")(0)
    		
            tmpPath=Split(Path,".")(0)
    		'==============================
    		FileExt=GetFileExt(Path)
    		if Over then
    			if isAllowExt(FileExt) then
    				'===============================================
    				'oFileStream.SaveToFile OnlyPath & tmpFileName & "." & FileExt,2
    				oFileStream.SaveToFile tmpPath & "." & FileExt,2
    				
    				'===================================
    				if Err.number<>0 then OutErr("保存文件时出错,请检查路径,是否存在该上传目录!该文件保存路径为" & tmpPath & "." & FileExt)
    				Else
    				isErr_=3
    				ErrMessage_="该后缀名的文件不允许上传!"
    				OutErr("该后缀名的文件不允许上传")
    			End if
    			Else
    			Path=GetFilePath(Path)
    			dim fori
    			fori=1
    			if isAllowExt(File(Item).FileExt) then
    				do
    					fori=fori+1
    					Err.Clear()
    					tmpPath=Path&GetNewFileName()&"."&File(Item).FileExt
    					oFileStream.SaveToFile tmpPath
    				loop Until ((Err.number=0) or (fori>50))
    				if Err.number<>0 then OutErr("自动保存文件出错,已经测试50次不同的文件名来保存,请检查目录是否存在!该文件最后一次保存时全路径为"&Path&GetNewFileName()&"."&File(Item).FileExt)
    				Else
    				isErr_=3
    				ErrMessage_="该后缀名的文件不允许上传!"
    				OutErr("该后缀名的文件不允许上传")
    			End if
    		End if
    		oFileStream.Close
    		Set oFileStream = Nothing
    	else
    		ErrMessage_="不存在该对象(如该文件没有上传,文件为空)!"
    		OutErr("不存在该对象(如该文件没有上传,文件为空)")
    	end if
    	if isErr_=3 then SaveToFileEx="" else SaveToFileEx=GetFileName(tmpPath)
    End Function
    
    '取得文件数据
    Public Function FileData(Item)
    	isErr_=0
    	if file.Exists(Item) then
    		if isAllowExt(File(Item).FileExt) then
    			oUpFileStream.Position = File(Item).FileStart
    			FileData = oUpFileStream.Read (File(Item).FileSize)
    			Else
    			isErr_=3
    			ErrMessage_="该后缀名的文件不允许上传"
    			OutErr("该后缀名的文件不允许上传")
    			FileData=""
    		End if
    	else
    		ErrMessage_="不存在该对象(如该文件没有上传,文件为空)!"
    		OutErr("不存在该对象(如该文件没有上传,文件为空)")
    	end if
    End Function
    
    
    '取得文件路径
    Public function GetFilePath(FullPath)
      If FullPath <> "" Then
        GetFilePath = Left(FullPath,InStrRev(FullPath, "\"))
        Else
        GetFilePath = ""
      End If
    End function
    
    '取得文件名
    Public Function GetFileName(FullPath)
      If FullPath <> "" Then
        GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
        Else
        GetFileName = ""
      End If
    End function
    
    '取得文件的后缀名
    Public Function GetFileExt(FullPath)
      If FullPath <> "" Then
        GetFileExt = LCase(Mid(FullPath,InStrRev(FullPath, ".")+1))
        Else
        GetFileExt = ""
      End If
    
    End function
    
    '取得一个不重复的序号
    Public Function GetNewFileName()
    	dim ranNum
    	dim dtNow
    	dtNow=Now()
    	randomize
    	ranNum=int(90000*rnd)+10000
    	'以下这段由webboy提供
    	GetNewFileName=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum
    End Function
    
    Public Function isAllowExt(Ext)
    	if NoAllowExt="" then
    		isAllowExt=cbool(InStr(1,";"&AllowExt&";",LCase(";"&Ext&";")))
    		else
    		isAllowExt=not CBool(InStr(1,";"&NoAllowExt&";",LCase(";"&Ext&";")))
    	end if
    End Function
    End Class
    
    Public Sub OutErr(ErrMsg)
    if IsDebug_=true then
    	Response.Write ErrMsg
    	Response.End
    	End if
    End Sub
    
    '----------------------------------------------------------------------------------------------------
    '文件属性类
    Class FileInfo_Class
    Dim FormName,FileName,FilePath,FileSize,FileMIME,FileStart,FileExt
    End Class
    
    %>
    

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看vb.net 教程 目录

    展开全文
  • vb编写的刷流量的练手软件-初次上传 原理: 利用网页重新加载技术,达到刷新网站PV的效果,增加日志的访问量,或者博客的人气值。
  • 【转】在网页中运行VB6程序

    千次阅读 2017-06-15 18:08:53
    VB6做的程序在网页里运行, 需要把程序做成OCX格式,下面简单做一介绍: 首先新建一个工程, 选择ActivX控件:    然后添加控件和代码:     然后F5运行      然后按下图设置,去掉弹出消息阻止 ...
     
    

     

    用VB6做的程序在网页里运行, 需要把程序做成OCX格式,下面简单做一介绍:

    首先新建一个工程, 选择ActivX控件:

     

     然后添加控件和代码:

     

     

    然后F5运行 

     

     

    然后按下图设置,去掉弹出消息阻止

     

     

     

     

    这样就制作完成了。

     最后把OCX编译,把这个网页另存到本地,将2个文件上传到网站即可。

     

     下载测试代码

     

    展开全文
  • web网页批量上传图片代码

    热门讨论 2012-12-03 14:11:37
    支持语言:PHP,JSP,ASP,ASP.NET(C#),ASP.NET(VB),C++,VC,VC.NET,VB,VB.NET,C#,C#.NET,Delphi,C++Builder 支持平台:Visual Studio 6.0/2002/2003/2005/2008/2010,C++ Builder 6.0/2009/2010,Delphi 7/2009,Visual ...
  • ASP.NET 图片上传下载缩略察看C#和VB双版.rar 从本地向SQL Server上传存入图片 从SQL Server下载并在网页中显示图片 同时能显示缩略图和大图 含VB.NET和C#两个版本 内含数据库文件,简单附加到SQL Server中即可 ...
  • 上一节中创建了PostDataRequest 自定义类,本节来看如何使用这个自定义类模仿网页上传表单和数据。 设计界面如下: 其中发送文件对应的文本框内是服务器接收数据的网页地址。 当按下“发送文件”按钮时,代码如下: ...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的

    上一节中创建了PostDataRequest 自定义类,本节来看如何使用这个自定义类模仿网页上传表单和数据。
    设计界面如下:

    其中发送文件对应的文本框内是服务器接收数据的网页地址。
    当按下“发送文件”按钮时,代码如下:

        Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
            Dim postUrl As String = txtAddr.Text
            Dim pdc As New PostDataRequest(postUrl)
            pdc.addKeys("txtname1", "This is testA!")
            pdc.addKeys("txtname2", "这是测试!")
            pdc.addFile("g:\15xx.jpg")
            pdc.addFile("g:\1515.jpg")
    
            Dim responsedata() As Byte
            responsedata = pdc.uploadFile
            If IsNothing(responsedata) OrElse responsedata.Length = 0 Then
                Console.WriteLine("发生错误")
            Else
                Console.WriteLine(Encoding.UTF8.GetString(responsedata))
            End If
        End Sub

    代码中发送了2个文件和2个表单键值对。
    运行结果如下:

    可以看到2个文件都上传成功,在上传的目录下会发现那两个文件:


    如果点击按钮后数据没有上传成功,显示“一共上传了0个文件”那么请检查以下设置
    1、savefile.asp中上传文件大小限制设置:
      upfile.GetData (10240000) -->这里是设置的10M
    2、检查iis中文件大小限制的设置:
    参看《ASP 上传大文件时出错的解决方法

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看vb.net 教程 目录

    展开全文
  • 网页发送文件比起前几节发送参数的难度大了很多。这里为了测试代码,会使用到三个asp文件: 1、uploadfile.asp :测试上传文件和参数页面 2、savefile.asp:返回上传结果的页面 3、upfile_class.asp:这里将使用...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的
    向网页发送文件比起前几节发送参数的难度大了很多。这里为了测试代码,会使用到三个asp文件:
    1、uploadfile.asp :测试上传文件和参数页面
    2、savefile.asp:返回上传结果的页面
    3、upfile_class.asp:这里将使用“无惧上传类” V2.2,其他的无组件上传和这个处理数据的方式大同小异。
    同时,请在这几个asp文件所在目录下再新建一个“upload”目录,上传的文件会保存到这个目录里面。
    uploadfile.asp代码如下:

    
    <html>
    <head>
    <title>上传文件</title>
    
    <style>
    .inputtype{
    	border-top-style:none;
    	border-left-style:none;
    	border-right-style:none;
    	border-bottom-style:solid;
    	border-bottom-width:1px;
    	border-color:#0000CC;
    	width:120px;
    	}
    body,td {
    	font-size:14px;
    	}
    	
    </style>
    </head>
    
    <body>
    <br/>
    <br/>
    <br/>
    <br/>
    <br/>
    <table border="1" width="440" cellspacing="0" cellpadding="0" bordercolor="#0080C0" style="border-collapse: collapse" align="center">
          <tr>
            <td height="30" align="center" bgcolor="#0080C0" style="color:#FFFFFF;font-size:14px; font-weight:bolder;">
    			导入数据
    		</td>
          </tr>	
    	  <tr>
    	  	<td>
    			<table width="100%" border=0 cellspacing=0 cellpadding=0>
    			<form name="formA" method="post" action="savefile.asp" enctype="multipart/form-data">
    				<tr height=30>
    					<td align="center" valign="middle">
    			   			<input name="txtname1" type=text value="测试数据1">
    					</td>
    				</tr>	
    				<tr height=30>
    					<td align="center" valign="middle">
    			   			<input name="txtname2" type=text value="测试数据2">
    					</td>
    				</tr>				
    				<tr height=30>
    					<td align="center" valign="middle">
    			   			<input name="file1" type=file class=input-text size="40">
    					</td>
    				</tr>
    				<tr height=30>
    					<td align="center" valign="middle">
    			   			<input name="file2" type=file class=input-text size="40">
    					</td>
    				</tr>
    				<tr height=30>
    					<td align="center">
    						<input type=submit name="submit" value="导入数据" style="width:70px; height:19px;" > 
    					</td>
    				</tr>
    			</form>
    			</table>	
    
    	  	</td>
    	  </tr>
    </table>
    </body>
    </html>
    

    savefile.asp代码如下:

    <%OPTION EXPLICIT%>
    <!--#include FILE="upfile_class.asp"-->
    <%
    dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount,txtname
    
    upfilecount=0
    set upfile=new upfile_class ''建立上传对象
    upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;"	'设置上传类型的黑名单
    upfile.GetData (10240000)   '取得上传数据,限制最大上传10M
    
    %>
    
    <html>
    <head>
    <title>文件上传</title>
    <style type="text/css">
    <!--
    .p9{ font-size: 9pt; font-family: 宋体 }
    -->
    </style>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head>
    <body leftmargin="20" topmargin="20" class="p9">
    <%
    
    if upfile.isErr then  '如果出错
        select case upfile.isErr
    	case 1
    	Response.Write "你没有上传数据呀???是不是搞错了??"
    	case 2
    	Response.Write "你上传的文件超出我们的限制,最大10M"
        end select
    else
    	response.write "属性:" & upfile.form("filenum")
    %>
    <table border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" class="p9" style="border-collapse: collapse">
      <tr bgcolor="#CCCCCC"> 
        <td height="25" valign='middle'> 本地文件 </td>
        <td  valign='middle'> 大小(字节) </td>
        <td  valign='middle'> 上传到 </td>
        <td  valign='middle'> 状态 </td>
      </tr>  
    <%
    	FSPath=GetFilePath(Server.mappath("upfile_class.asp"),"\")'取得当前文件在服务器路径
    	FSPath=FSPath & "upload\"
    	ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
    	ServerPath=ServerPath & "upload\"
    	for each formName in upfile.file '列出所有上传了的文件
    	   set oFile=upfile.file(formname)
    	   FileName=upfile.form(formName)'取得文本域的值
    	   if not FileName>"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
    	   upfile.SaveToFile formname,FSPath&FileName   ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
    	 %>
    <tr> 
        <td height="20"  valign='middle'> <%=oFile.FilePath&oFile.FileName%> </td>
        <td  valign='middle'> <%=oFile.filesize%> </td>
        <td  valign='middle'> <A HREF="<%=serverpath&FileName%>"><%=FileName%></A> </td>
        <td  valign='middle'> <%
        if upfile.iserr then 
    		Response.Write upfile.errmessage
    		else
    		upfilecount=upfilecount+1
    		Response.Write "上传成功"
    		end if
    		%> </td>
      </tr><%
    	 set oFile=nothing
    	next
    %>
      <tr> 
        <td colspan="4" height="25" valign='middle'> 一共上传了<%=upfileCount%>个文件</td>
      </tr>
      <tr> 
        <td colspan="4" height="25" valign='middle'> 文本1:<%=upfile.form("txtname1")%></td>
      </tr>
      <tr> 
        <td colspan="4" height="25" valign='middle'> 文本2:<%=upfile.form("txtname2")%></td>
      </tr>
    <%
    end if
    
    set upfile=nothing  '删除此对象
    %>
    </table>
    <p></p>
    
    </p>[<a href="uploadfile.asp">返回</a>]
    
    </body>
    </html>
    
    <%
    function GetFilePath(FullPath,str)
      If FullPath <> "" Then
        GetFilePath = left(FullPath,InStrRev(FullPath, str))
        Else
        GetFilePath = ""
      End If
    End function
    %>

    upfile_class.asp代码比较长,单独放在下一节。
    打开uploadfile.asp页面,输入值和选好需要上传的文件:

    点击导入数据后跳转到savefile.asp页面:

    可以看到参数已经获得,上传的文件也已经成功:

    上传的文件已经保存到upload目录下。

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看vb.net 教程 目录

    展开全文
  • vb程序

    2006-02-23 09:05:59
    该资源可控制网页上传等功能!!
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。...上传文件</title> <style> .inputtype{ border-top-style:none; border-left-s...
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    (自己的) ◆ 111.htm 在VB中实现文件上传 ◆ 112.htm 在VB中实现文件上载 ◆ 113.htm 在VB中使用UDP协议 ◆ 114.htm 在VB中用Outlook发电子邮件 ◆ 115.htm 在WindowsNT网络中广播消息 ...
  • 通过参照一个网页的JS文件,复制出 VB 6.0 应用界面.数据是否完全正确无法验证.谨作为参考.第一次上传资源,望指正,谢谢!
  • **需求描述** 1. 因为每次上传图片时,导入至服务器的路径都是不一样的 2. 某个HTML网页中,有要求相同的图片需要合并 ... VB用什么方法来判断两个图片路径对应的图片是否相同,来满足第2点的要求.
  • FTP上传控件

    2014-07-23 08:57:19
    ftp上传控件(FTP ActiveX OCX Control)是用Scoket API实现的FTP功能的客户端控件,可以在网页中实现上传文件的功能,可以在多种开发环境中使用,如VB,VC,C#,.net,PB,Delphi等
  • VB.NET 写的论坛

    2010-09-25 19:21:50
    所以论坛要简洁、简单,但要能上传图片,这样方便更清晰的描述问题。 2、可以有效的防止不良信息的传播。 以前的论坛就是没办法知道不良信息是谁发布的,也就不能做到良好的监管。所以论坛采用了windows身份认证,...
  • ftp上传控件

    热门讨论 2012-05-10 19:58:18
    ftp上传控件(FTP ActiveX OCX Control)是用Scoket API实现的FTP功能的客户端控件,可以在网页中实现上传文件的功能,可以在多种开发环境中使用,如VB,VC,C#,.net,PB,Delphi等。 >>上传、下载单个多个文件或目录,...
  • 答:因现在网上99%以上的PDF合并工具都是需要收费,或者要使用收费的破J版,或者是一些网页的在线服务不能上传和合并大批量的文件(这也涉及到文件的安全性)所以想着自己弄一个.问:这款小工具能为工作解决那些问题?答:...
  • upload here - 代码中极速插入图片地址的 vscode 插件最近感觉和图片上传杠上了 图片上传是前端开发流程中必须但又不是很引人注意的一环,通常会跑到某个上传图片的网页,大概分这么几步:打开网页切换到Finder,...
  • 为防止在非简体中文的VBIDE中出现乱码,将设计器中的插件名称和介绍改为英文. 为发布向导脚本增加了自动压缩和自动上传的功能. 增加了新功能需要用到的dll文件 4.22.0.142 增加对繁体中文的支持. 4.21.0.141 修改:单...
  • 本人第一次上传资料,希望对大家有用,该程序90%以上为本人原创,字符编码部分借签了部分别人的原码,希望对大家有帮助,本原码的作用是,通过程序的方式,与网站进行交互,从而取得网站的内容,这样你就可以对所...
  • 适用于C#及VB,可以上传图片、word、Excel等,拥有所有网页中常见的文档编辑功能,附有DotNetTextBox开发使用文档,并含有一个DotNetTextBox开发软件,可以根据自己的需求制作自己的DotNetTextBox文档编辑器。...
  • 制作思路: 编写一个截图控件,通过javascript在网页中调用这个控件,完成截图后,将保存在本地的截图的本地地址传给Ewebeditor,再调用ewebeditor的本地上传功能,实现自动上传。一、截图控件的开发 Activex Dll ...
  • FTP上传下载控件

    2013-01-30 15:16:00
    该FTP控件(FTP ActiveX OCX Control)是用Socket API实现的FTP功能客户端控件,可以在网页上传文件,还可以在多种开发环境中使用,如VB,VC, .NET, PB,Delphi,VFP等等.主要功能:>>上传、下载单个/多个文件或...
  • 答:因现在网上99%以上的PDF合并工具都是需要收费,或者要使用收费的破J版,或者是一些网页的在线服务不能上传和合并大批量的文件(这也涉及到文件的安全性)所以想着自己弄一个. 问:这款小工具能为工作解决那些问题? 答:...
  • 我原来用的是windows2000系统,往服务器c:\windows\system32目录下上传了一个VB编的dll文件,然后予以成功注册,在asp网页中顺利调用,代码为:set F=server.creatobject("工程名"."类名") 现在把网站迁移到译个...
  • 可以将客户端的文件上传到服务器端事先设置后的共享目录下(shared directory) 可以在客户端浏览到共享目录的文件结构 可以将共享目录中的文件下载到客户端 若是没有安装客户端,也可以通过网页直接访问:ftp:/...
  • CuteEditor6.4网页编辑... 内含C#和VB.net两个版本的演示 主要特点: 跨浏览器、跨平台的所见即所得网页编辑器 界面简洁加载速度快 能自动清理HTML代码中Word标记 图片插入和自动上传 在线图像编辑 创建PDF文件

空空如也

空空如也

1 2 3 4
收藏数 76
精华内容 30
关键字:

vb网页上传