编辑器/阅读器

开发平台：

C#

upload.asp：源码内容

							<!-- #include file="../INCLUDE/head.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-CN" lang="zh-CN">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<meta http-equiv="Content-Language" content="zh-CN" />
</head>
<!--#include FILE="UpLoadClass.asp"-->
<%
Public DBcate
DBcate="admin"
%>
<!-- #include file="../INCLUDE/conn.asp" -->
<%
Call CheckRights()
dim request2
set request2=New UpLoadClass
	request2.TotalSize= 20971520
	request2.MaxSize  = 262144
	'request2.FileType = "rar/zip"
	request2.open()
%>
	<%
	if request2.Error=4 then
		response.Write("<p>too big (>250KB) failed</p>")
	end if
	if request2.form("checkbox")="1" then
	session(SessionStr&"fugai")=1
	else
	session(SessionStr&"fugai")=0
	end if
response.write session(SessionStr&"fugai")
	
	if trim(request2.Form("strFile1"))<>"" then
	session(SessionStr&"up_sxna")=request2.Form("strFile1")
    response.redirect "import_output.asp?action=importfromlocal"
	else
	   if trim(request2.Form("OPMLnet"))<>"" then
       session(SessionStr&"up_sxna")=request2.Form("OPMLnet")
	   response.redirect "import_output.asp?action=importfromnet"
	   else
	   response.write  "wrong"
	   end if
	end iF
	response.write session(SessionStr&"up_sxna")
    %>
<%
set request2=nothing
%>

						