?? 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -