看段代码,找个问题,中部手机...

longloner 2003-12-01 12:02:55
这个显示在线人数代码为什么不对?
<SCRIPT LANGUAGE=VBScript RUNAT=Server>


Sub Session_OnStart
startPage = "login.asp"
currentPage = Request.ServerVariables("SCRIPT_NAME")
if strcomp(currentPage,startPage,1) then
Server.Transfer(startPage)
end if
End Sub

Sub Session_OnEnd
Session.Abandon
End Sub
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application("SessionNo")=0
End Sub

Sub Application_OnEnd

End Sub


Sub Session_OnStart
Application.Lock
Application("SessionNo")=Application("SessionNo")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("SessionNo")=Application("SessionNo")-1
Application.UnLock

End Sub



</SCRIPT>
局域网,win2000server系统,asp编程,sql数据库,一服务器和多客户机。

现有一问题,在一个框架网页中左边页面为菜单,右边页面为上传文件的列表,列表中的上传文件为word、excel格式文件,点击打开该文件时锲进IE中右半部分中(_self),当打开编辑后

IF
ie<=5.0
then 提示修改保存,
else 不提示修改保存对话框,
但当右键在新窗口中打开时,此时整个IE页面为word、excel格式文件,修改关闭后提示保存。
请问各位大虾,如何通过asp来实现 when ie>5.0 提示修改保存对话框,或者如何实现当左键打开时可以弹出一个独立的新窗口也可以。(默认为锲进当前IE中)

还有当多个用户同时打开修改右边框架中同一个word、excel上传文件后,最后一个修改的文件会覆盖其他人所编辑的这个文件,请问如何实现当第二个人打开时会提示“此文件正在编辑,请稍后在打开!”对话框或者不可编辑也行。
有其他解决办法也可以。
望各位大虾能帮小弟解决这个问题。
帮小弟一个问题给500分,两个1000分。
全部解决了送手机,送手机,送三星手机一部
...全文
42 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hxn8203 2003-12-01
  • 打赏
  • 举报
回复
什么型号的?能拍照吗?
longloner 2003-12-01
  • 打赏
  • 举报
回复
为什么只加不减呢?
longloner 2003-12-01
  • 打赏
  • 举报
回复
感谢各位大虾,先谢谢了,十分感谢...
我先说一下,我写when ie>5.0是为了述说方便,不是代码,也并不是要求“查到访问者的浏览器类型以及版本”,因为当ie版本高于5.0时,打开嵌套在框架网页中文件列表中的word\excel文件,编辑之后,关闭或切换该页面时,不提示保存对话框,所做修改无效。而5.0版本有提示。
我想问如何能让它关闭时弹出提示框,最好能在框架中显示出word\excel上面的菜单条,即 文件(F) 编辑(E)......
我把上传的文件名入了库,服务器有一个存放上传文件的文件夹,IE中文件列表中的word\excel文件使用FTP直接链接打开该文件,修改后保存到服务器,为什么保存对话框文件名处当为汉字时为乱码,这怎么办?并且如何判断提示该文件有人正在编辑。
想问各位大虾,上面“查看在线人数”那段代码为什么只执行“+”,不执行“-”,(每次关闭后打开都加 1 )
右框架中链接文件代码如下 Response.Write"<td width=260 nowrap bgcolor=LemonChiffon><a href=ftp://172.21.0.112/cust/"&temptxt3&">"&temptxt1&"</a></td>"
“cust”为FTP站点虚拟目录,即存放上传文件目录
cueixu1 2003-12-01
  • 打赏
  • 举报
回复
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application("SessionNo")=0
End Sub

Sub Application_OnEnd

End Sub


Sub Session_OnStart
Application.Lock
Application("SessionNo")=Application("SessionNo")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("SessionNo")=Application("SessionNo")-1
Application.UnLock

End Sub



</SCRIPT>
放到根目录中的global.asa里边,不可能不执行
至于其他的问题,有没有做半截的页面先看一下。好知道你到什么进度
如果真的是诚心的话留言给我。至于手记么~~送不送随便你了
stefli 2003-12-01
  • 打赏
  • 举报
回复
放在global.asa中试一试
而且要放在根目录。
longloner 2003-12-01
  • 打赏
  • 举报
回复
不能,T408

28,407

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧