upstat.asp

来自「插件介绍： XUploadFiles 是一个用于辅助网站进行文件上传的」· ASP 代码 · 共 22 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' 每个文件上传成功后，均会执行该程序，这里将所有上传的文件名写入到文件 upstat.txt 中
' 统计文件上传的结果：上传时间、参考网页、上传文件

Dim filename,file_tag
filename = "upstat.txt"
file_tag = Request.QueryString("tag")
if file_tag <> "" then
	Dim fso,textStreamObject
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set textStreamObject = fso.OpenTextFile(Server.Mappath(filename),8,true,0)
	textStreamObject.Write(Now)
	textStreamObject.Write(vbTab)
	textStreamObject.Write(Request.ServerVariables("HTTP_REFERER"))
	textStreamObject.Write(vbTab)
	textStreamObject.WriteLine(file_tag)
	textStreamObject.Close
	Set textStreamObject = Nothing
	Set fso = Nothing
end if
%>