📄 upfile.asp
字号:
<!--#include FILE="file.asp"-->
<%
if Request("menu")="up" then
ftime="up"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&""
On Error Resume Next
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set FileUP=new Upload_file
FileUP.GetDate(-1)
formPath="upfile/"
set upfile=FileUP.file("file1")
filename=formPath&ftime&"."&upfile.FileExt
'types=LCase(upfile.FileExt)
upfile.SaveToFile Server.mappath(filename)
set FileUP=nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Response.Cookies("filename")=""&Request.Cookies("filename")&"|"&ftime&""
session("upfilename")=filename
response.write "<table cellpadding=0 cellspacing=0 width=100% height=100% class=a4><tr><td valign='top'><a target=_blank href="&filename&">"&cluburl&"/"&filename&"</a><input type='text' name='path' style='VISIBILITY: hidden; ' value='"&filename&"'></td></tr></table>"
responseend
else
%>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<link href="bwc.css" rel="stylesheet" type="text/css">
<body topmargin=0 rightmargin=0 leftmargin=0>
<form enctype=multipart/form-data name="up" method=post action=upfile.asp?menu=up>
<table cellpadding=0 cellspacing=0 width=100% class=a4>
<tr class="text" align="center">
<td ><input type="file" name="file1" size="1" style="width: 40px; border: 1px solid #FFFFFF">
<input type="submit" value=" 上 传 " name="ok" >
</td></tr></table>
</form>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -