Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
用asp寫的計數器出了問題
0 views
Skip to first unread message
是否要再來一次..
Jul 22, 2003, 10:42:47 AM7/22/03
to
不好意...
由允用asp寫了個計數器..
但卻不能run..
而我我找不到問題在那
所以只好上來和各位大大求救
謝謝
<%
function math(mathfile)
dim obj1,objtxt
application.lock
set obj1 = server.createobject("scripting.filesystemobject")
set objtxt =obj1.opentextfile(server.mappath("/tay/mathfile/mathfile.txt"),1,true)
由允用asp寫了個計數器..
但卻不能run..
而我我找不到問題在那
所以只好上來和各位大大求救
謝謝
<%
function math(mathfile)
dim obj1,objtxt
application.lock
set obj1 = server.createobject("scripting.filesystemobject")
set objtxt =obj1.opentextfile(server.mappath("/tay/mathfile/mathfile.txt"),1,true)
if not objtxt.atendofstream then
math=clng(objtxt.readline)
math = math + 1
end if
objtxt.close
set objtxt =obj1.opentextfile(server.mappath("/tay/mathfile/mathfile.txt"),2,true)
objtxt.writeline("mathfile.txt")
objtxt.close
set obj1 =nothing
application.unlock
math = mathfile '函式名稱=回傳值
end function
if session("mathfile")=empty then
session("mathfile")=math("mathfile.txt") '變數名稱=函式名稱(參數)
end if
%>
<html>
<head>
<title>再寫不出來會被宰了</title>
</head>
<body>
你速第<% response.write session("mathfile")%>
</body>
</html>
--
[1;32m※ Origin: [33m大葉大學戀戀紅城 [37m<bbs.dyu.edu.tw> [m
[1;32m※ From : [36madsl-sta-zha-116-195.so-net.net.tw [m
0 new messages