UC知道ASP代码的编写问题!求助.
来源：百度知道 编辑：UC知道 时间：2024/06/23 22:07:54
<%
dim hz
tme = now()
hz=Request.QueryString("hz")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("hz.txt"),8,True)
if hz=1 then
file.writeline hz
file.close
set file=nothing
set fs=nothing
%>
这个代码可以记录发送过来的数据. 我想做一个统计的.具体想法↓
hz.txt 我自己先设定并且内容如下↓
'-----------------------------
【hz】
〖1〗:20
〖2〗:23
〖3〗:50
......
【dm】
〖1〗:78
〖2〗:45
〖3〗:34
....
【hm】
【lx】
'-----------------------------
if 接受到的数据变量是 hz then
if hz 的值是 1 then
在 〖1〗:78+1 为 〖1〗:79
end if
end if
其他也一样． 请问这段代码如何改呢？
谢谢楼下的．方法可以有很多，我不太会数据库只能这样了‘‘希望会的朋友能帮帮忙
dim hz
tme = now()
hz=Request.QueryString("hz")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("hz.txt"),8,True)
if hz=1 then
file.writeline hz
file.close
set file=nothing
set fs=nothing
%>
这个代码可以记录发送过来的数据. 我想做一个统计的.具体想法↓
hz.txt 我自己先设定并且内容如下↓
'-----------------------------
【hz】
〖1〗:20
〖2〗:23
〖3〗:50
......
【dm】
〖1〗:78
〖2〗:45
〖3〗:34
....
【hm】
【lx】
'-----------------------------
if 接受到的数据变量是 hz then
if hz 的值是 1 then
在 〖1〗:78+1 为 〖1〗:79
end if
end if
其他也一样． 请问这段代码如何改呢？
谢谢楼下的．方法可以有很多，我不太会数据库只能这样了‘‘希望会的朋友能帮帮忙
^_^
楼主如果用重写这段代码的时间来学习数据库的操作，那么你是很合算的！
一种思路是：
1. 读取hz.txt文件，将每一行赋给数组元素。
2. 找到要修改的行，并将该行数据修改，赋给相应的数组元素。
3. 将数组的值写入hz.txt。
我把楼主的hz.txt文件理解成这样一个表：
.......〖1〗..〖2〗..〖3〗
－－－－－－－－－－－－－
..hz....20.......23.......50
－－－－－－－－－－－－－
..dm....78.......45.......34
－－－－－－－－－－－－－
..hm....35.......66.......59
请阅读研究调试运行下面的程序：
（该程序本人调试通过）
hz.asp
<%
dim TxtFileName,hz
TxtFileName="hz.txt"
'hz表示要修改的记录号
hz=1
set fs=server.CreateObject("Scripting.FileSystemObject")
'读取文本文件
set file=fs.OpenTextFile(server.MapPath(TxtFileName),1)
TXTFile = file.readall
file.close
'以回车符号为标志分割文本数据放入数组Array_TXT中
Array_TXT = split(TXTFile,chr(13)&chr(10))
'查找“【dm】”的位置
for i=0 to Ubound(Array_TXT)
if Trim(Array_TXT(i))="【dm】" then exit for
next
'找到要修改的行
Row_Txt = i +