📄 inputfile.aspx

📁 很好的新闻更新系统

💻 ASPX

字号:

<html>
<head><title>upload files</title>
</head>
<link rel="stylesheet" href="style.css">
<body>
<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>
</body>
</html>
<script Language="VB" runat="server">
Sub UpLoadFile(Sender As Object,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
response.write("文件上传成功！请把以下代码插入到新闻的适当位置：[upimg]"& FileName &"[/upimg]")
response.write("<br><a href='inputfile.aspx'>继续</a>")
FileUP.PostedFile.SaveAs(Server.Mappath(".")&"\upload\"&FileName)
end if
End Sub
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -