upload.asp

文件上传系统 无组件上传 可选择文件类型 上传文件的大小

<%
  if session("admin")="" then
  response.redirect "../manage/login.asp"
  else
	if session("flag")>0 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if

%>
<!--#include file=conn.asp-->
<%
set rsmap = Server.CreateObject("ADODB.Recordset")
   mapsql = "SELECT * FROM setmap"
rsmap.Open mapsql,conn

pathset = rsmap("pathset")
upset = rsmap("upset")
nameset = rsmap("nameset")
fileset = rsmap("fileset")

%>
<% if fileset < 1 then 
   Response.write "<script>alert('对不起