Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Asp.net ÎļþÉÏ´«£¨Vb.net°æ£©

ÔÚAsp.netÖÐʵÏÖÎļþµÄÉÏ´«¹¦ÄÜ£¬ÊǷdz£¼òµ¥µÄÒ»¼þÊÂÇ飬ֻÐèÒªÀûÓÃ΢ÈíÌṩµÄFileUpload¿Ø¼þ¼´¿ÉÇáËÉʵÏÖ¡£
LargeFileUpload.aspx´úÂëÈçÏÂ
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
    Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Upload LargeFile</title>
</head>
<body>
    <form id="form1" runat="server" enctype="multipart/form-data">
<! ×¢ÒâÔÚformÖбØÐëÓÐenctype="multipart/form-data"£¬±íʾ±íµ¥ÖÐÓÐÉÏ´«Îļþ£¬·ñÔòÎļþÎÞ·¨ÉÏ´«>
        <div>
            <center>
                <asp:FileUpload ID="FileUpload1" runat="server" Width="336px" /><br />
<!runat="server" ±íʾ´Ë¿Ø¼þÊÇ·þÎñÆ÷¿Ø¼þ>
                <asp:Button ID="btnUpload" runat="server" Text="Upload" />
                <asp:Button ID="btnReset" runat="server" Text="Reset" />
            </center>
        </div>
    </form>
</body>
</html>LargeFileUpload.aspx.vb´úÂëÈçÏ£ºPartial Class LargeFileUpload
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Me.IsPostBack Then
            'Upload file
            Call UploadFiles()
        End If
    End Sub
    Private Sub UploadFiles()
        Try
         


Ïà¹ØÎĵµ£º

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

VBʹÓÃÊÖÐεÄͼ±ê

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

asp.netÔÚÏßÈËÊýͳ¼Æ

ÓÐÈËÒ²ÎÊÁ˸öÔÚÏßͳ¼ÆµÄÎÊÌ⣬ÎҵļûÒâÊÇÕâÑùµÄ£º  
  ÔÚApplication_StartʼþÖмÓÈëÒÔÏ´úÂ룺  
  Application.Lock();  
  Application.["UserCount"]=0;  
  Application.Unlock();  
   
  Session_Startʼ ......

ÎÞÒâÖз¢ÏÖVB ForÑ­»·µÄÒ»¸öÌØµã

ÎÞÒâÖз¢ÏÖVB ForÑ­»·µÄÒ»¸öÌØµã£ºÔÚÑ­»·ÌåÖУ¬Æóͼ¸Ä±äÑ­»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáǰÍ˳öÑ­»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
  Dim s(0 To 4) As String
  Dim N As Integer, i As Integer
  s(0) = "²âÊÔ1"
  s(1) = "²âÊÔ2"
  s(2) = "²âÊÔ3"
  s(3) = "²âÊÔ4"
  s(4) = "²âÊÔ5 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ