教育系统应用

开发平台：

Delphi

default.asp：源码内容

							<%@ Language=VBScript %>
<% Response.Expires = 0 %>
<%
	set fs = CreateObject("scripting.filesystemobject")
	
	detailtxt = Request.Form("t1")
	if len(detailtxt) > 0 then
		set fscream = fs.OpenTextFile(server.MapPath("description.asp"),2,true,0)
		fscream.write detailtxt
		fscream.close
		set fscream = nothing
	end if 
%>
<!--#include file ="../identify.asp"-->
<HTML>
<HEAD>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="../xcss.css">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background=../images/zapsmbknd.gif>
<h2>浏览软件下载</h2>
<hr>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1">
<tr>
<td>
<%
if session("usertype")<=1 then	
%>
<FORM action="default.asp" method=POST>
<pre>
<TEXTAREA rows=10 cols=80 id=t1 name=t1>
<%
	set fscream = fs.OpenTextFile(server.MapPath("description.asp"),1,true,0)
	Do While fscream.AtEndOfstream <> True
		linetxt = fscream.readline
		Response.Write linetxt & chr(10)
	Loop	
	
	fscream.close
	set fscream = nothing
%>
</TEXTAREA>
</pre>
<br><INPUT type="submit" value="保存" id=submit1 name=submit1>
</FORM>
<%
else
%>
<pre>
<!--#include file ="description.asp"-->
</pre>
<%
end if
%>
</td>
</tr>
</table>
<hr>
<table WIDTH="510" BORDER="0" CELLSPACING="1" CELLPADDING="1">
<tr>
<td>
<% 
	set dir = fs.GetFolder(server.MapPath("."))
	for each file0 in dir.files
		if lcase(file0.name) <> "default.asp" and lcase(file0.name) <> "description.asp" then
%>
<p><a href="<%=file0.name%>"><%=file0.name%></a>
，文件大小为<%=file0.size%>字节。</p>
<%		
		end if
	next
%>
</td>
</tr>
</table></BODY>
</HTML>

						