100分求救.

oubao 2004-12-09 09:56:58
sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\"a".txt", True)
tf.Write sqlf

我用这个段代码保存成a文件,但我想在a文件已经存在条件下则保存成a1文件,a1文件存在条件下保存成a2文件,请问该怎么办?

同样的,在打开文件时我想先把有关a的文件如a1,a2等文件的名字一起列出来,然后选取任意一个后再打开该文件,该怎么写?

谢谢指教!急,请大家帮忙!
...全文
96 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
oubao 2004-12-09
  • 打赏
  • 举报
回复
万分感谢!!!
pennyclz 2004-12-09
  • 打赏
  • 举报
回复
up
itcoo 2004-12-09
  • 打赏
  • 举报
回复
人才啊~~,做业务员一定满足客户各种要求的。
dh20156 2004-12-09
  • 打赏
  • 举报
回复
现在回帖真难啊,都回一送多~~ -_-!!!
lienzhu 2004-12-09
  • 打赏
  • 举报
回复

'.........文件存取部分.................................
sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
i=1
FileName="c:\a.txt"
do while fso.FileExists(FileName)
FileName="c:\a" & i &".txt"
i=i+1
loop
Set tf = fso.CreateTextFile(FileName, True)
tf.Write sqlf
'........文件列表部分.....................................
<%
function getfile(filename)
tmp=lcase(filename)
if len(tmp)<5 then
getfile=false
elseif Left(tmp,1)<>"a" or right(tmp,4)<>".txt" then
getfile=false
else
getfile=true
end if
end function
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
set fd = fso.getfolder("c:\") '定义文件夹对象
For Each file in fd.Files
if getfile(file.name) then
response.write "<a href='open.asp?fname="& file.name &"'>" & file.name & "</a><br>"
end if
next
set fd=nothing
set fso=nothing
%>
'...................文件读取部分..............................
open.asp
---------------------------
<%
Filename="c:\" & trim(request.querystring("fname"))
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
if fso.FileExists(Filename) then
set mytext=fso.opentextfile(Filename)
temp=mytext.readall
mytext.close
set mytext=nothing
end if
set fso=nothing
response.write "<pre>"& temp &"<pre>"
%>
lienzhu 2004-12-09
  • 打赏
  • 举报
回复
open.asp
---------------------------
<%
Filename="c:\" & trim(request.querystring("fname"))
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
if fso.FileExists(Filename) then
set mytext=fso.opentextfile(Filename)
temp=mytext.readall
mytext.close
set mytext=nothing
end if
set fso=nothing
response.write "<pre>"& temp &"<pre>"
%>
lienzhu 2004-12-09
  • 打赏
  • 举报
回复
<%
function getfile(filename)
tmp=lcase(filename)
if len(tmp)<5 then
getfile=false
elseif Left(tmp,1)<>"a" or right(tmp,4)<>".txt" then
getfile=false
else
getfile=true
end if
end function
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
set fd = fso.getfolder("d:\main") '定义文件夹对象
For Each file in fd.Files
if getfile(file.name) then
response.write "<a href='open.asp?fname="& file.name &"'>" & file.name & "</a><br>"
end if
next
set fd=nothing
set fso=nothing
%>
oubao 2004-12-09
  • 打赏
  • 举报
回复
谢谢二位的指点。
suntoday 2004-12-09
  • 打赏
  • 举报
回复
帮你顶一下,
micher_yan 2004-12-09
  • 打赏
  • 举报
回复
'检测指定路径或文件是否存在
function Test_FilePath(ByVal filepath)
Test_FilePath=false
filepath=server.MapPath(filepath)
dim fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
if right(filepath,1)="/" or right(filepath,1)="\" then
if fso.FolderExists(filepath) then
Test_FilePath=true
end if
else
if fso.FileExists(filepath) then
Test_FilePath=true
end if
end if
set fso=nothing
end function
'保存内容到指定文件
sub SaveValueTofile(byref FileValue,byref filename)
dim fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
dim f
set f=fso.CreateTextFile(Server.MapPath(filename),true)
f.Write FileValue
set f=nothing
set fso=nothing
end sub
使用
for i=1 to 999
if not test_filepath("a"&i&".txt") then
savevaluetofile(sqlf,"a"&i&".txt")
exit for
end if
next
lienzhu 2004-12-09
  • 打赏
  • 举报
回复
sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
i=1
FileName="c:\a.txt"
do while fso.FileExists(FileName)
FileName="c:\a" & i &".txt"
i=i+1
loop
Set tf = fso.CreateTextFile(FileName, True)
tf.Write sqlf
本文首发于DF创客社区,作者:云天 原文链接:http://mc.dfrobot.com.cn/thread-296401-1-1.html 【设计背景】 当在公园、郊区等偏僻区域或黑夜无人情景,发生突发事件,手机等通讯设备被抢、丢失或未携带等,需报警求救。在这种孤立无援情况下,我们急需报警求救设施。 根据以上需求,相关部可在以上这种环境下设置智能报警路灯。 【设计思路】 1、路灯配置智能终端(手机),利用人脸识别技术,采集人脸信息,后台记录(减少谎报),采集成功后,开启报警页面。 2、利用超声波检测到报警人,点亮路灯,并利用路灯发出求救信号,扩大求救范围。 【设计草图】 设计草图 【演示视频】 报警端演示 后台显示报警人 【材料准备】首先根据设计思路,准备好制作智能报警路灯所需的材料,清单和说明如下表和下图所示。 【电路设计】 为了方便编写程序,先设计智能报警路灯的电路连接关系,电路原理图如下图所示。 【程序设计】# 程序流程图设计 在写程序之前,先梳理一下思路,设计程序流程图,如下图所示。 ##硬件程序流程图 ##APP程序流程图 【ArduinoLeonardo硬件代码】#include #include double mind_n_bs; char mind_s_str; const byte LedArray_BBlG[] = {//"S"字模 B00111000, B01100100, B01100000, B00110000, B00011000, B00001100, B00100110, B00011100, }; const byte LedArray_pFgv[] = {//"O"字模 B00011000, B00100100, B01000010, B01000010, B01000010, B01000010, B00100100, B00011000}; const byte LedArray_42Se[] ={//“S”字模 B00111000, B01100100, B01100000, B00110000, B00011000, B00001100, B00100110, B00011100, }; const byte LedArray_PPNP[] = {B01100110,B11111111,B10011001,B10000001,B11000011,B01100110,B00111100,B00011000};//“心型”图案 DFRobot_LedControl max7219(5, 3, 4);//LED点阵(MAX7219),初始化DIN引脚为5,CS管脚为4,CLK管脚为3 DFRobot_Ultrasonic ultraA0;//模拟超声波 void SOS(); void XianShi(); void SOS()//12引脚上接电磁继电器,控制灯的开关,发出“SOS”莫尔代码 { digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(1500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(1500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(1500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); digitalWrite(12, HIGH); delay(500); digitalWrite(12, LOW); delay(100); } void XianShi()//LED点阵显示内容 { max7219.show(LedArray_BBlG); delay(200)

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧