谁帮我看看这个程序!!谢谢了!

<%
sub FOLDER_SHOW(ThisFName)
pathstr=Request.ServerVariables("PATH_TRANSLATED")
pathstr=replace(pathstr,ThisFName,"")
set fso=Server.CreateObject("Scripting.FileSystemObject").GetFolder(pathstr)'创建文件对象
Set SubFolders=fso.SubFolders'获得当前目录的所有子目录
Set FoldFiles=fso.Files'获得当前目录下的文件
Response.Write("<table width='697' border='0' align='center' cellpadding='1' cellspacing='1' bgcolor='#000000' class='my10pt'>")
Response.Write("<tr align='center' bgcolor='#99CCFF'>")
Response.Write("<td width='547'>当前目录下的文件名</td>")
Response.Write("<td width='147'>创建日期</td></tr>")
For Each Files In FoldFiles
if ThisFName<>Files.Name then
Response.Write("<tr align='center&#

谁帮我看看这个程序!!谢谢了! 帮我看看这个程序哪错了！！谢谢！！ 谁帮我看看这个C程序哪里错了 谁帮我看看这个程序哪出错了。 谁帮我看看这个程序那里错了 谁帮我看看我编的这个C语言程序哪出错了..帮改正下..谢谢 谁帮我看看这个程序哦。 谁帮我看看这个C程序 谁帮我看看这个程序 帮我看看这个配制谢谢了。