📄 formresp.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
'--- Module: FORMRESP.ASP
'--- Simple file upload form processing.
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<TITLE>上传结果</TITLE>
</HEAD>
<BODY>
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "c:\Inetpub\wwwroot\wordth"
Relpath= Session.Contents("stunoo") & ".doc"
%>
<% if upl.IsEmpty Then %>
上传文件大小为零，请检查输入的文件名或者浏览器设置是否正确
<% ElseIf upl.ContentDisposition <> "form-data" Then %>
出现错误，可能是浏览器版本不支持form-data上传机制
<br>
For Internet Explorer Users:
<UL>
<LI>For Windows 95 or Windows NT 4.0:
<UL>
<LI><A HREF="http://www.microsoft.com/ie/">Download</A> V3.02 or later of Internet Explorer
<LI><A HREF="http://www.microsoft.com/ie/download">Download</A> the File Upload Add-on
<LI>For further information, See Knowledge Base Article <A HREF="http://www.microsoft.com/kb/articles/Q165/2/87.htm">Q165287</A>
</UL>
<LI>For Windows 3.1, WFW 3.11 (Windows 16-bit), or Windows NT 3.51:
<UL><A HREF="http://www.microsoft.com/ie/">Download</A> V3.02A or later of Internet Explorer for 16-bit Windows
</UL>
</UL>
For Netscape Users:
<UL>
<LI><A HREF="http://home.netscape.com">Download</A> a version of Netscape Navigator or Communicator of 2.x or later
</UL>
For users of other browsers:
<UL>
<LI>Your browser must support a standard called RFC 1867. Please check with your browser vendor for
support of this standard.
</UL>
<%Else %>
<P>论文文件上传成功</P>
<%
on error resume next
'---
'--- Save the file now. If you want to preserve the original user's filename, use
'---
‘--- upl.Save
'---
'--- OR, if you want set your own name, uncomment one of the below lines
'---
upl.SaveAs Relpath '--- this uses .Path property
'--- upl.SaveAs "d:\someotherdir\myfile.ext"
'--- upl.SaveAs "\\bowser\calendar\myfile.ext" '--- NOTE: The anonymous user *must* have network
'--- access rights for UNC names to work
if Err <> 0 Then %>
<H1><FONT COLOR="#ff0000">An error occurred when saving the file on the server.</FONT></H1>
Possible causes include:
<UL>
<LI>An incorrect filename was specified
<LI>File permissions do not allow writing to the specified area
</UL>
Please send e-mail to <b>zirconsdu@mail.sdu.edu.cn</b>
<% Else
Response.Write("论文以保存在服务器上“)
End If %>
<P> </P>
<FONT SIZE="-1"><CENTER>
<TABLE WIDTH="80%" BORDER="1" CELLSPACING="2" CELLPADDING="0" HEIGHT="206">
<TR>
<TD COLSPAN="2"><P><CENTER>上传结果</CENTER></TD></TR>
<TR>
<TD WIDTH="30%" HEIGHT="27" ALIGN="RIGHT" VALIGN="TOP"> 文件名</TD>
<TD WIDTH="70%"><%=upl.UserFilename%> </TD></TR>
<TR>
<TD WIDTH="30%" HEIGHT="27" ALIGN="RIGHT" VALIGN="TOP">文件大小 </TD>
<TD WIDTH="70%"><%=upl.TotalBytes%> </TD></TR>
<TR>
<TD WIDTH="30%" HEIGHT="27" ALIGN="RIGHT" VALIGN="TOP">文件类型</TD>
<TD WIDTH="70%"><%=upl.ContentType%> </TD></TR>
<TR>
<TD WIDTH="30%" HEIGHT="27" ALIGN="RIGHT" VALIGN="TOP">编码类型</TD>
<TD WIDTH="70%"><%=upl.ContentDisposition%> </TD></TR>
</TABLE>
</FONT></CENTER>
<% End If %>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -