编程开发论坛 - Powered by Discuz! Board

标题: 怎么会重复执行一句代码呢？大峡帮帮忙看看~~ [打印本页]

作者: 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 OCP@3366.NET")
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
// 当文件中的用户名是空的话就写入 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

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

引用:

原帖由 Nothing 于 2006-6-23 09:27 发表
下面代码中，请注意User和user是完全不同的字符。
If Instr("an||" & inistr,"an||user=")> 0 then
bun=true ...

我有换过来了
代码还是一样执行这句话

请大峡在帮帮忙看看到底是那出错了

我是在服务器的空间运行这段代码的
服务器段的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生成的是什么，看看在有用户名和没用户名是它有什么变化

[ 本帖最后由 qxl584 于 2006-7-29 11:16 编辑 ]

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)