手机WAP编程

开发平台：

ASP/ASPX

admin_fileinfo2.asp：源码内容

							<!--#include file="admin_sb.asp"-->
<!--#include file="inc/include.asp"-->
<%
'************** ASPSecurity 文件信息提取*************
' Copyright 2006
' Create:2006-1-19
' Update:2006-7-22
'****************************************************
server.ScriptTimeout = 600
Dim Report
	if request.Form("filepath")="" then
		TmpPath = Server.MapPath("")
	elseif request.Form("filepath")="." then
		TmpPath = Server.MapPath(".")
	else
		TmpPath = Server.MapPath("")&""&request.Form("filepath")
	end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" rev="stylesheet" href="inc/control.css" type="text/css" media="all" />
</head>
<body class="ContentBody">
<div class="MainDiv">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent">
  <tr>
    <th class="CTitle">雷客图ASP站长安全助手 提取文件信息
  </tr>
  <tr>
    <td class="CPanel">
        <div id="updateInfo" style="background:ffffe1;border:1px solid #89441f;padding:4px;display:none"></div>
		<form name="form1" method="post" action="admin_fileinfo2.asp">
	<table width="100%" border="0" cellpadding="0" cellspacing="0">
	 <tr>
		 <td valign="top" style="padding:5px;width:140px"><img src="images/Icon/ControlPanel.png" width="128" height="128"/></td>
		 <td valign="top">
		 <div align="left" style="padding:5px;line-height:170%;clear:both;font-size:12px">
<%
	If request.Form("filepath") = "" or request.Form("FileExt") = "" Then
		response.Write("条件不完全，恕难从命<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
		response.End()
	End If
	DimFileExt = request.Form("fileExt")
	Report = "@本文件由“雷客图ASP站长安全助手”生成；请妥善保存，以备后用"&vbcrlf&"@"&Now&vbcrlf&"@FileType:"&DimFileExt&vbcrlf
	Report = Report&"<" & TmpPath & ">"
	Call ShowAllFile(TmpPath)
	DownFile(Report)
%> 
		     <p>
		     </p>
		   </div></td>
		 </tr>
	</table>
</form>
</td></tr>
</table>
</div>
</body>
</html>
<%
Sub ShowAllFile(Path)
	Set FSO = CreateObject("Scripting.FileSystemObject")
	if not fso.FolderExists(path) then exit sub
	Set f = FSO.GetFolder(Path)
	Set fc2 = f.files
	For Each myfile in fc2
		If CheckExt(FSO.GetExtensionName(path&""&myfile.name)) Then
			Report = Report&myfile.name&"*"&myfile.Size&"*"&myfile.DateLastModified&"|"
		End If
	Next
	Set fc = f.SubFolders
	For Each f1 in fc
		Report = Report&vbcrlf&"<"&path&""&f1.name&">"
		ShowAllFile path&""&f1.name
    Next
	Set FSO = Nothing
End Sub
Sub DownFile(Str)
	Response.Clear()
	Response.AddHeader "Content-Disposition", "attachment; filename="& Replace(Replace(Replace(Replace(now,"/",""),":",""),"-","")," ","") &".txt"
	Response.ContentType="application/ms-download"
	Response.Write(Str)
	Response.End()
End Sub
%>

						