📄 filesave.asp
字号:
<%@ Language=VBScript %>
<!--#include file="connect.asp"-->
<!--#include file="articlechar.inc"-->
<%
if session("adminok")="" then
response.redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="../yuhuan.css">
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
filename="filename"
path=Server.MapPath(obj.request("directory")) & "\"
result=obj.SaveFile(filename, path, false) '保存文件到服务器
if result="3" then
Response.Write "Error!"
Response.End
end if
%>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#000000">
<table border="0" width="100%" cellspacing="1" cellpadding="0" bordercolorlight="#000000"
bordercolordark="#FFFFFF" class="9v">
<tr>
<td width="100%" bgcolor="#ffcc66" align="center" class=p2 height="18">
<font color="mintcream"> </font>文件上传 ----日期:<%=Formatdatetime(now(),vbshortdate)%> 时间:<%=Formatdatetime(now(),vbshorttime)%>----</td>
</tr>
<tr>
<td width="100%" align="right" class=9v bgcolor="#FFFFcc" height="18"><a href="javascript:self.close()">『关闭窗口』</a></td>
</tr>
<form name="file1" method="post" action="filesave.asp" enctype="multipart/form-data" >
<tr>
<td width="100%" align="center" class=9v bgcolor="#FFE6B0" height="18">
文件已经成功上传...</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFcc" height="100"><table width="100%" border="0" cellspacing="0" cellpadding="0" class=9v>
<tr>
<td width="36"> </td>
<td bgcolor="#FFffcc">目录:
<input name="directory" type="text" class=thin value="../photoes" size="31">
<br> <br>
文件:
<input type="file" name="filename" size="21" class=9v> </td>
</tr>
</table> </td>
</tr>
<tr>
<td width="100%" bgcolor="#FFE6B0" align="center" height="27">
<input type="reset" name="Reset" value="重选" class=button>
<input type="submit" name="Submit" value="上传" class=button>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -