&"</td><td>"&theDate&"</td></tr>"
Sun = Sun + 1
Exit Sub
End If
ofile.close()
Set ofile = Nothing
Set FSO2s = Nothing
Else
temp = "<a
href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode
(replace(replace(FilePath,server.MapPath("")&"","",1,1,1),"","/"))
&""" target=_blank>"&replace(thePath,server.MapPath("")&"","",1,1,1)
&"</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("")&"","",1,1,1),"","")
&""",""EditFile"")' class='am' title='编辑'>编辑</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("")&"","",1,1,1),"","")&""",""DelFile"")'
onclick='return yesok()' class='am' title='删除'>删除</a > "
temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("")&"","",1,1,1),"","")
&""",""CopyFile"")' class='am' title='复制'>复制</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace
(FilePath,server.MapPath("")&"","",1,1,1),"","")
&""",""MoveFile"")' class='am' title='移动'>移动</a>"
Report = Report&"<tr><td
height=30>"&temp&"</td><td>"&GetDateCreate(thePath)
&"</td><td>"&theDate&"</td></tr>"
Sun = Sun + 1
Exit Sub
End If
End If
Next
End Sub
