⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 wenjianshangchuan.txt

📁 用asp来实现文件的上传功能！ 是asp教程的作业！自己已经检测过没有错误 但是可能还需要改进 请专家指点！
💻 TXT
字号:
🔍 
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
    Sub button1_Click(ByVal sender As Object, ByVal E As EventArgs)
        Dim filename1, filename2, filepath1, filepath2 As String
        filename1 = Path.GetFileName(FileUpload1.PostedFile.FileName)
        filepath1 = Server.MapPath(filename1)
        FileUpload1.PostedFile.SaveAs(filepath1)
        message1.Text = "文件1已经成功上载，详细信息如下"
        message1.Text &= "<br>保存路径：" & filepath1
        message1.Text &= "<br>文件名称：" & filename1
        message1.Text &= "<br>文件大小：" & FileUpload1.PostedFile.ContentLength & "字节"
        message1.Text &= "<br>文件类型：" & FileUpload1.PostedFile.ContentType
        message1.Text &= "<br>客户端路径：" & FileUpload1.PostedFile.FileName
        message1.Text &= "<br>文件说明：" & intro1.Value
        message1.Text &= "<br><a href='upload/" & filename1 & "'>察看文件</a>"
        
        
        filename2 = Path.GetFileName(FileUpload2.PostedFile.FileName)
        filepath2 = Server.MapPath(filename2)
        FileUpload2.PostedFile.SaveAs(filepath2)
        If Right(filename2, 3) = "jpg" Or Right(filename2, 3) = "gif" Or Right(filename2, 3) = "bmp" Then
            FileUpload2.PostedFile.SaveAs(filepath2)
            Label1.Text = ""
            Image1.ImageUrl = filepath2
            Image1.Visible = True
        Else
            Label1.Text = "请上传后缀名为jpg，gif，bmp的图片文件！"
        End If
        message2.Text = "文件2已经成功上载，详细信息如下"
        message2.Text &= "<br>保存路径：" & filepath2
        message2.Text &= "<br>文件名称：" & filename2
        message2.Text &= "<br>文件大小：" & FileUpload2.PostedFile.ContentLength & "字节"
        message2.Text &= "<br>文件类型：" & FileUpload2.PostedFile.ContentType
        message2.Text &= "<br>客户端路径：" & FileUpload2.PostedFile.FileName
        message2.Text &= "<br>文件说明：" & intro2.Value
        message2.Text &= "<br><a href='upload/" & filename2 & "'>察看文件</a>"
    End Sub
    
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Untitled Page</title>

</head>
<body >
    <form id="form1" runat="server">
    <div>
        &nbsp;</div>
        <br />
        <br />
        <table border="1" width="90%" align="center">
            <tr>
                <td align="center" >
                    <span  color: style="font-size: 24pt; color: #ff9933" #ff8c00"><strong>
                        文件传实例</strong></span></td>
            </tr>
            <tr>
                <td >
                    <table bgcolor="#ff9933" style="text-align: center" width="70%" id="Table2"   align="center">
                        <tr>
                            <td align="center" >
                                选择文件：</td>
                            <td align="left" >
                                <asp:FileUpload ID="FileUpload1"  runat="server" /></td>
                        </tr>
                        <tr>
                            <td align="center" >
                                文件说明：</td>
                           <td align="left"> 
<input id="intro1" type="text" runat=server maxlength="67777576" size="20" /></td>
                        </tr>
                        <tr>
                            <td align="center" >
                                选择文件：</td>
                            <td align="left" >
                                <asp:FileUpload ID="FileUpload2"  runat="server" /></td>
                        </tr>
                        <tr>
                            <td align="center">
                                文件说明：</td> <td  align="left" > 
<input id="intro2" type="text" runat=server maxlength="678879898" size="20" /></td>
  <tr>
                            <td >
                            </td>
                            <td align="center" >
                                <asp:Button ID="Button1"  onclick="button1_Click" Height="25px" Text="提交" Width="59px" runat="server" />&nbsp;
                            </td>
                        </tr>
                    </table>
                </td>
            </tr>
            <tr>
                <td>
                    <asp:Label id="message1" runat=server />
                    &nbsp; &nbsp; &nbsp;
                    <asp:Image ID="Image1" runat="server" Visible="False" />
                    &nbsp;
                    <br />
           <asp:Label ID="message2" runat="server"></asp:Label>
                    &nbsp; &nbsp; &nbsp;
                    <asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label></td>
            </tr>
                   </table>
        <br />
     

     
    </form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -