UC知道15高分悬赏。ASP生成文件TXT的问题？不要随便复制网上的内容
来源：百度知道 编辑：UC知道 时间：2024/05/23 10:50:59
生成文件名的问题，我希望每次生成的时候文件名自动加1或着不一样，
求解 ！！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
u=request.form("ID")
p=request.form("NAME")
v=request.form("AGE")
%>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
fname=server.MapPath("bfb" & P & ".txt")希望生成的文件名每次都不一样
if (fso.FileExists(fname)=true) then
response.redirect ""
Response.end
end if
set sn=fso.CreateTextFile(server.MapPath("bfb" & P & ".txt"),True) 希望生成的文件名每次都不一样
sn.WriteLine u
sn.WriteLine p
sn.WriteLine v
sn.close
%>
<title></title>
</head>
我还想请懂的顺便 帮我 改好了。谢谢。我刚学 很多不懂啊
求解 ！！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
u=request.form("ID")
p=request.form("NAME")
v=request.form("AGE")
%>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
fname=server.MapPath("bfb" & P & ".txt")希望生成的文件名每次都不一样
if (fso.FileExists(fname)=true) then
response.redirect ""
Response.end
end if
set sn=fso.CreateTextFile(server.MapPath("bfb" & P & ".txt"),True) 希望生成的文件名每次都不一样
sn.WriteLine u
sn.WriteLine p
sn.WriteLine v
sn.close
%>
<title></title>
</head>
我还想请懂的顺便 帮我 改好了。谢谢。我刚学 很多不懂啊
楼上的答案可以选用，使用时放到until循环中，循环条件设为检测文件是否存在……
int(x*rnd)
x可以根据需要设置大小……
用这段试试……
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
u=request.form("ID")
p=request.form("NAME")
v=request.form("AGE")
%>
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
dim newname
dim nn
nn=10000
randomize'随机一下
do
newname =year(now())&month(now())&day(now())&int(nn*rnd)'rnd每次都会变的
fname=server.MapPath("bfb" & newname & ".txt")
until not fso.FileExists(fname)
'这一段不能用，因为产生一个存在的文件名，就不继续执行，自动跳到其他地址上去了……
'这么每次才能产生一个“新”的文件……
'if (fso.FileExists(fname)=true) then
'response.redirect ""
'Response.end
'end if
set sn=fso.CreateTextFile(server.MapPath("bfb" & P & ".txt"),True) 希望生成的文件名每次都不一样
sn.WriteLine