28,406
社区成员
发帖
与我相关
我的任务
分享请教一段代码
<script language="vbscript" runat="server">
function getvotefile()
dim fullpath,position
fullpath=request.servervariables("PATH_TRANSLATED")
position=InstrRev(fullpath,"\")
getvotefile=mid(fullpath,1,position) & "vote1.txt"
end function
</script>
<html>
<head><title>文本方式的投票结果</title></head>
<body>
<%
dim rec_cnt,ttl_cnt,sum_cnt
dim each_per(4)
dim vote_name(4)
dim vote_cnt(4)
on error resume next
votefile=getvotefile()
rec_cnt=CInt(request.form("radiobutton"))
set objfs=createobject("scripting.filesystemobject")
set objreadts=objfs.opentextfile(votefile,1,0,0)
i=0
while not objreadts.AtEndOfStream
trecord=objreadts.readline
vote_name(i)=left(rtrim(trecord),3)
vote_cnt(i)=right(rtrim(trecord),6)
if i=rec_cnt then
j=clng(vote_cnt(i))+1
vote_cnt(i)=right(space(6) & trim(cstr(j)),6)
end if
wend
objreadts.close
set objwritets=objfs.createtextfile(votefile,-1,0)
ttl_cnt=0
for j=0 to (i-1)
ttl_cnt=ttl_cnt+clng(vote_cnt(j))
objwritets.WriteLine vote_name(j) & vote_cnt(j)
next
objwritets.close
。。。。。。
请问为什么执行这段代码后会将vote1.txt里的内容清空啊？
function getvotefile()
dim fullpath,position
fullpath=request.servervariables("PATH_TRANSLATED")
position=InstrRev(fullpath,"\")
getvotefile=mid(fullpath,1,position) & "vote1.txt"
end function
</script>
<html>
<head><title>文本方式的投票结果</title></head>
<body>
<%
dim rec_cnt,ttl_cnt,sum_cnt
dim each_per(4)
dim vote_name(4)
dim vote_cnt(4)
on error resume next
votefile=getvotefile()
rec_cnt=CInt(request.form("radiobutton"))
set objfs=createobject("scripting.filesystemobject")
set objreadts=objfs.opentextfile(votefile,1,0,0)
i=0
while not objreadts.AtEndOfStream
trecord=objreadts.readline
vote_name(i)=left(rtrim(trecord),3)
vote_cnt(i)=right(rtrim(trecord),6)
if i=rec_cnt then
j=clng(vote_cnt(i))+1
vote_cnt(i)=right(space(6) & trim(cstr(j)),6)
end if
wend
objreadts.close
set objwritets=objfs.createtextfile(votefile,-1,0)
ttl_cnt=0
for j=0 to (i-1)
ttl_cnt=ttl_cnt+clng(vote_cnt(j))
objwritets.WriteLine vote_name(j) & vote_cnt(j)
next
objwritets.close
。。。。。。
请问为什么执行这段代码后会将vote1.txt里的内容清空啊？
...全文
请发表友善的回复…
发表回复
jspadmin 2005-10-16
- 打赏
- 举报
晕啊，检查vote1.txt里的格式
