📄 upfile.asp
字号:
<!--#include file='connect.asp'-->
<%
Dim strSql
strSql="select * from Class"
set rs=conn.execute(strSql)
%>
<html>
<head>
<title>上传文件页面</title>
<style>
body {font-size:9pt}
td {font-size:9pt}
input {font-size:9pt}
textarea {font-size:9pt}
</style>
</head>
<body bgcolor="#CCCCCC" background="image/background18311.gif">
<table border='0' width='680' align='center' cellspacing="0" cellpadding="0" background="image/background18311.gif" >
<tr bgcolor='#cccccc' height='1' >
<td bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor='#FFFFFF' background="image/background18311.gif">
<div align="center">
<p><b><i><font size="7" color="#ff00ff">文件上传</font></i></b></p>
<hr>
<p>该页面设定可上传文件大小为<font color='red'> 5M </font>以下</p>
</div>
<p align="center">并如果已经存在同名文件将报错(具体可按需设定) </p>
<div align="center">
<table border='1' width="339" background="image/background18311.gif">
<form method="POST" action="upfile1.asp" enctype="multipart/form-data" id="form1" name="form1">
<tr>
<td width="63">报错方式：</td>
<td width="262">
<input type='radio' name='errnumber' value='0'>
自动更名
<input type='radio' name='errnumber' value='1' checked>
报错提示
<input type='radio' name='errnumber' value='2'>
直接覆盖</td>
</tr>
<tr>
<td width="63">文件类别：</td>
<td width="262">
<select name="fileclass1" size="1">
<% do while not rs.eof %>
<option value="<%=rs("classid")%>"><%=rs("classname")%></option>
<% rs.movenext %>
<% loop %>
</select>
</td>
</tr>
<tr>
<td width="63">文件主题：</td>
<td width="262">
<input type='text' name='filename' size='30'>
</td>
</tr>
<tr>
<td width="63">选择文件：</td>
<td width="262">
<input type="file" name="fruit" size="30">
</td>
</tr>
<tr>
<td valign='top' width="63">文件简介：</td>
<td width="262">
<textarea name='fileExt' cols='40' rows='5'></textarea>
</td>
</tr>
<tr>
<td colspan='2' width="302">
<input type="submit" value="上传文件" name="subbutt">
</td>
</tr>
</form>
</table>
</div>
</td>
</tr>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -