学习过程中遇到的几个问题~盼指教

kkn9net 2008-03-26 10:45:24
以下的问题都是在看书过程中遇到的,实在想出解决的办法,请各位给分析分析,50分送上

第一个问题:adrotator组件问题
<%
dim ad
set ad=server.CreateObject("mswc.adrotator")
ad.clickable=(true) 问题:
response.Write ad.getadvertisement("show.txt") '错误提示是无法加载轮换计划文件,请问这个出错的原因?'
set ad=nothing
%>


第二个问题:scripting.filesystemobject组件问题
<%
function counts(counterfile)
dim objfso,objts
application.Lock
set objfso=server.CreateObject("scripting.filesystemobject")
set objts=objfso.OpenTextFile(server.mappath("counterfile.txt"),1,true)
if not objts.atendofstream then
counts=clng(objts.readline)
end if
counts=counts+1
objts.close 问题:
set objts=objfso.OpenTextFile(server.mappath("counterfile.txt"),2,true) '错误提示权限不够?原因是?'
objts.writeline(counts)
objts.close
application.UnLock
end function
%>
<title>application</title>
</head>
<body>
你是第<%=counts("counter.txt")%>
</body>
</html>

第三个问题:邮件发送的问题
<%
tomail=request.Form("dizhi") 问题:
set mail=server.CreateObject("CDONTS.NewMail") '错误提示无效的类别字符串,书上也是这么写的实在不知道哪错了?'
mail.from=tomail
mail.subject="内容"
mail.to="主题"
mail.bodyformat=0
mail.mailformat=0
mail.send
response.Write("已经成功发出")

%>



最后个问题:做的一个关于统计在线人数的,请各位帮忙看看这样的想法行不?可以的话请大虾帮忙改改
<%
dim tmp(),num,refreshtime,idtime
refreshtime=10
idtime=refreshtime*3
if application(session.SessionID&"lasttime")=empty then
if application("all")=empty then
application("all")=0
num=0
end if 问题:
tmp(num)=session.SessionID '错误提示 下标越界,不知道为啥??'
num=num+1
application("all")=application("all")+1
end if
application(session.SessionID&"lasttime")=timer
for i=0 to ubound(tmp)
if timer-application(tmp(i)&"lasttime")>idtime then
application(tmp(i)&"lasttime")=empty
tmp(i)=empty
application("all")=application("all")-1
end if
next
%>
<html>
<head>
<meta http-equiv="refresh" content="<%=refreshtime%>",url=<%=request.ServerVariables("path_info")%>>
</head>
<body>
在线人数是<%=application("all")%>人
</body>
</html>
不知道这样的方法能不能成功进行人数的统计?


请大虾们不吝指教~~~~~~~~~
...全文
93 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hookee 2008-03-27
1.使用绝对路径c:\xxx\show.txt试试
2.给counterfile.txt所在目录IUSER_XXX写入修改权限
3. 机器上装了smtp服务吗?
4.用Redim tmp(n) 给数组一个范围后才能使用
回复
汗,其他的跟你组件有关

至于tmp(num)=session.SessionID '错误提示 下标越界,不知道为啥??'


dim tmp(100),
回复
rbwang 2008-03-26
所在目录没有给可读可写权限
这样你所有的操作都无法进行
回复
myvicy 2008-03-26
你所使用的组件是否都已经注册?
你的硬盘是否ntfs格式,有没有给当前用户读写权限?
回复
kkn9net 2008-03-26
先自己顶一下~~~大虾们快来哈~~ ^-^
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-03-26 10:45
社区公告
暂无公告