日期:2014-05-17  浏览次数:20872 次

谁来帮写个这东西,很简单的,不会ASP
<%
num=request( "Mac ")
set   fs=server.CreateObject( "Scripting.FileSystemObject ")
set   file=fs.OpenTextFile(server.MapPath( "qqnum.txt "),8,True)
file.writeline   num
file.close
set   file=nothing
set   fs=nothing
response.write   "Send   OK! "
%>


我想这样提交

asp?Mac=00-E0-16-06-0E-1E

不带参数访问ASP   不做任何记录

这个   qqnum.txt   文件名   我想按照系统日期来取.

比如今天   2007.07.30   文件名就是   2007.07.30.txt

过了   24点以后我在提交,就会重新生成一个txt   就会是   2007.07.31.txt

txt文件里面显示  

********************************************************
Val   :   3
********************************************************

00-E0-16-06-0E-1E     59.48.211.206     2007-7-30   11:59:19
00-14-2A-EE-6C-CB     222.64.32.22       2007-7-30   11:59:19
00-19-21-15-33-3D     60.183.97.136     2007-7-30   11:59:18


------解决方案--------------------
<%
num=request( "Mac ")
if num <> " " then
tmpfile=year(now) & ". " & month(now) & ". " & day(now) & ".txt "
set fs=server.CreateObject( "Scripting.FileSystemObject ")
set file=fs.OpenTextFile(server.MapPath(tmpfile),8,True)
file.writeline num & " " & request.servervariables( "remote_addr ") & " " & now
file.close
set file=nothing
set fs=nothing
response.write "Send OK! "
end if
%>