upfile.aspx

（完整代码） 1KB 

<script Language="VB" runat="server">
    Sub UpLoadFile(ByVal Sender As Object, ByVal e As EventArgs)
        '如果上传的长度为0，表示没有上传成功
        If FileUp.PostedFile.ContentLength = 0 Then
            Response.Write("文件上传失败！")
            Exit Sub
        End If
        '储存上传的文件
        Dim FileSplit() As String = Split(FileUp.PostedFile.FileName, "\")
        Dim FileName As String = FileSplit(FileSplit.Length - 1)
        Dim filext As String = LCase(Right(FileName, 4))
        If filext = ".asp" Or filext = ".aspx" Or filext = ".ascx" Or filext = ".exe" Then
            Response.Write("文件格式不对！")
        Else
            Dim ranNum As Integer = Int(90000 * Rnd()) + 10000
            FileName = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now) & CStr(ranNum) & filext
            step2.Visible = "False"
            Response.Write("<div style='text-align:center;'><br>文件上传成功！请把以下代码插入到新闻的适当位置：[upimg]" & FileName & "[/upimg]")
            Response.Write("<br><br><a href='upfile.aspx'>继续</a></div>")
            FileUp.PostedFile.SaveAs(Server.MapPath(".") & "\upload\" & FileName)
        End If
    End Sub
</script>
<html>
<head>
    <title>上传文件</title>
    <link href="style.css" type="text/css" rel="Stylesheet"  />
</head>
<body>
 <asp:panel ID="step2" runat="server">
<Form Enctype="multipart/form-data" runat="server">
<table width="97%" border="0" cellspacing="0" cellpadding="0">
    <tr>
        <td align="center">
请输入文件路径：
<input name="File" type="File" id="FileUp" runat="server">（注：文件格式为：*.jpg,*.gif,*.bmp。）
<asp:Button id="Upload" class="buttonface" OnClick="UpLoadFile" Text="上传" runat="server"/>
        </td>
    </tr>
</table>  
</form>
 </asp:panel>
</body>
</html>

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。