📄 uploadscript3.asp
字号:
<!-- AspUpload Code samples: UploadScript3.asp -->
<!-- Invoked by Form3.asp -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->
<HTML>
<BODY BGCOLOR="#FFFFFF">
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Uncomment this line if unique file name generation is necessary
' Upload.OverwriteFiles = False
' We must call Upload.Save or SaveVirtual before we can use Upload.Form!
Upload.Save "c:\upload"
%>
<h3>Upload Results</H3>
<TABLE CELLSPACING=0 CELLPADDING=2 BORDER=1>
<TR><TH>Form Item</TH><TH>Value(s)</TH></TR>
<TR>
<TD>Form_text</TD>
<TD>
<% = Upload.Form("Form_Text") %>
</TD>
</TR>
<TR>
<TD>Form_check</TD>
<TD>
<% If Upload.Form("Form_Check") = "on" Then
Response.Write "checked"
Else
Response.Write "unchecked"
End If
%>
</TD>
</TR>
<TR>
<TD>Form_select</TD>
<TD>
<% ' This is very important as Upload.Form is not entirely
' identical to Request.Form in handling multi-select items.
' Upload.Form creates a separate item for every selection.
' To obtain all selected items we have to scroll through
' the entire Upload.Form collection and filter out selected items.
For Each Item in Upload.Form
If Item.name = "FORM_SELECT" Then
Response.Write Item.Value & "<BR>"
End If
Next
%>
</TD>
</TR>
<TR>
<TD>Form_radio</TD>
<TD>
<% = Upload.Form("FORM_RADIO") %>
</TD>
</TR>
<TR>
<TD>Form_file</TD>
<TD>
<% ' Make sure a file has been selected
If Not Upload.Files("FORM_FILE") Is Nothing Then
Response.Write Upload.Files("FORM_FILE").Path
Else
Response.Write "No files selected."
End If
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -