读书人

哪位高手来帮写个这东西,很简单的,不会

发布时间: 2012-02-29 16:44:10 作者: rapoo

谁来帮写个这东西,很简单的,不会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
%>

读书人网 >ASP

热点推荐