4051l 2006-6-23 09:09
怎么会重复执行一句代码呢 ？ 大峡帮帮忙看看~~
<%
set fs=server.CreateObject("Scripting.FileSystemObject") '创建一个文件处理对象
timeout = Server.ScriptTimeout '设定时间
if not fs.fileExists(server.mappath("1.ini")) then '判断文件是否存在
set filec=fs.createtextfile(server.mappath("1.ini")) '不存在就创建一个文件
filec.writeline("[GLOBAL]") '写入信息
filec.writeline("Version=6.2.0.1")
filec.writeline("PacketTimeOut=300")
filec.writeline("UseUPnP=0")
filec.writeline("MaxNrUsers=100")
filec.writeline("BlockFTPBounceAttack=1")
filec.writeline("AntiHammer=1")
filec.writeline("ProcessID=1912")
filec.writeline("[DOMAINS]")
filec.writeline("Domain1=0.0.0.0||21|点击网络anyIP|1|0|0")
filec.writeline("[Domain1]")
filec.writeline("ReplyHello=IIS FTP SERVER5")
filec.writeline("ReplyHelp=SEND MAIL TO [email]OCP@3366.NET[/email]")
filec.writeline("ReplyNoAnon=对不起,密码错误!")
filec.writeline("ReplyNoCredit=对不起,信用额度不足")
filec.writeline("ReplyTooMany=当前用户过多.请稍后重试.")
filec.writeline("ReplyDown=服务器维护中.请稍后重试.")
filec.writeline("ReplyOffline=服务器维护中.请稍后重试.")
filec.writeline("Logfile=d:\sulog\%Y%N%D.txt")
filec.writeline("Logging=1")
filec.writeline("LogGETs=0")
filec.writeline("LogPUTs=0")
filec.writeline("LogIPNames=1")
filec.writeline("LogFileGETs=0")
filec.writeline("LogFilePUTs=0")
filec.writeline("LogFileIPNames=1")
filec.writeline("LogFileRotation=Dayly")
filec.writeline("MDTMCanChange=0")
filec.writeline("SignOn=d:\sulog\login.txt")
filec.writeline("SignOff=d:\sulog\login_out.txt")
filec.writeline("DirChangeMesFile=d:\sulog\change.txt")
filec.writeline("DirChangeMesFile2=d:\sulog\chang_help.txt")
filec.close
end if
set f=fs.opentextfile(server.mappath("1.ini"),1) '打开一个文件和读出所有的内容
dim n,inistr
n=0
inistr=""
addedUserList = false
if not fs.fileexists(server.mappath("2.ini")) then
Set tf = fs.CreateTextFile(server.mappath("2.ini"),true) '生成新的INI文件
end if
while not f.atendofstream
inistr=f.readline '读取每一行
If Instr("an||" & inistr,"an||User")> 0 Then
''记录用户原来的数量
n=n+1
end if
If Instr("an||" & inistr,"an||[USER=")> 0 and NOT addedUserList Then
'往用户列表的部分添加现在的用户
n = n +1
tf.WriteLine("User" & n & "=" & userName & "|1|0")
addedUserList = true
end if
tf.WriteLine(inistr)
wend
f.Close '关闭只读对象的操作
bun=false
If Instr("an||" & inistr,"an||user=")> 0 then
bun=true
else
[color=Red]// 当文件中的用户名是空的话 就写入 tf.WriteLine("User" & n & "=" & userName & "|1|0") 可为什么等它不为空的时候 这句总是在执行啊 救救啊[/color]
n=1
response.write"jjjjjjjjjjjjjjjjjjjjjjjjjj"
tf.WriteLine("User" & n & "=" & userName & "|1|0")
response.write "User" & n & "=" & userName & "|1|0"& "\\\\\\\\\\\\\\\\"
'bun=true
end if
tf.writeline("[USER=" & userName & "|"& n & "|]")
response.write n & "ffffffffffffffff1111"
tf.writeline("Password=" & pwd1 )
tf.writeline("HomeDir=f:\")
tf.writeline("RelPaths=1")
tf.writeline("PasswordLastChange=" & pwd)
tf.writeline("TimeOut="& timeout)
tf.writeline("Access1=F:\|RWAMLCDP" )
tf.close
set tf=fs.getfile(server.mappath("2.ini")) ' 取出2文件中的所有内容复制到指定的目标1文件中
tf.copy server.mappath("1.ini")
tf.delete
Set fs = nothing
Nothing 2006-6-23 09:27
下面代码中，请注意User和user是完全不同的字符。
If Instr("an||" & inistr,"an||user=")> 0 then
bun=true
else
// 当文件中的用户名是空的话 就写入 tf.WriteLine("User" & n & "=" & userName & "|1|0") 可为什么等它不为空的时候 这句总是在执行啊 救救啊
n=1
response.write"jjjjjjjjjjjjjjjjjjjjjjjjjj"
tf.WriteLine("User" & n & "=" & userName & "|1|0")
response.write "User" & n & "=" & userName & "|1|0"& "\\\\\\\\\\\\\\\\"
'bun=true
end if
4051l 2006-6-23 14:25
[quote]原帖由 [i]Nothing[/i] 于 2006-6-23 09:27 发表
下面代码中，请注意User和user是完全不同的字符。
If Instr("an||" & inistr,"an||user=")> 0 then
bun=true ... [/quote]
我有换过来了
代码还是一样执行这句话
请大峡在帮帮忙看看 到底是那出错了
我是在服务器的空间运行这段代码的
服务器段的IIS是5.0版的
qxl584 2006-7-29 11:13
关键在于这句
If Instr("an||" & inistr,"an||user=")> 0 then
你想想，如果有用户名时是这样的：an||user=username，没用户名是是这样的：an||user=
先不管理你inistr里放的是什么，这样对比一下：无论有没有用户名，你的第一个字符串中都有“an||user=”存在。
就到这吧，我想你也应该明白了，逻辑错误。
首先你监视一下"an||" & inistr生成的是什么，看看在有用户名和没用户名是它有什么变化
[[i] 本帖最后由 qxl584 于 2006-7-29 11:16 编辑 [/i]]