📄 upfile.aspx
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -