asp小问题...没有人能解决！！！！！！！！！！！！！！！！不是高手勿进

[longloner]

有一个局域网，win2000server系统，asp编程，sql数据库，一服务器和多客户机。

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

IF
ie<=5.0
then 提示修改保存，
else 不提示修改保存对话框

但当右键在新窗口中打开时，此时整个IE页面为word、excel格式文件，修改关闭后提示保存。

请问各位大虾，如何通过asp来实现 when ie>5.0 提示修改保存对话框，或者如何实现当左键打开时可以弹出一个独立的新窗口也可以。（默认为锲进当前IE中）

还有当多个用户同时打开修改右边框架中同一个word、excel上传文件后，最后一个修改的文件会覆盖其他人所编辑的这个文件，请问如何实现当第二个人打开时会提示“此文件正在编辑，请稍后在打开！”对话框或者不可编辑也行。
有其他解决办法也可以。

各位，麻烦把问题看清楚点，我是说怎么在浏览器版本高于5.0时在框架网页中word\excel如何实现能够编辑后提示保存，如果实现锲进IE后word\excel能够显示菜单－出现保存菜单也可以。现在问题是如果框架网页中一部分锲进word\excel后只有当右键新打开一个窗口编辑后关闭才提示保存窗口（当IE>5.0）当＝5.0时没有这个问题

帮小弟一个问题给500分，两个1000分。哪位全部解决了送三星手机一部

[BingGroup]

建议：
很多功能都要程序才能实现，做成C/S结构更好

帮你顶

[longlover]

还有什么办法？

[longlover]

if (Request.Form("tjcx_zl")="查询")or(Response.Expires=0) then
set RsHits=con.Execute(sql9)
if RsHits.EOF then
HTML="<p> </p><td nowrap width=500 align=center><img border=0 src=images/AG00090_.gif><h3>没有您要查询的协议管理单!</h3></td></tr><tr>"
Response.Write HTML
else
%>
<tr>
<td width=624 nowrap bgcolor="#333399" style="color: #FFFFFF" colspan="5">
 选择    <a target="_self" href="xiangmu1.asp"><font color="#FFFFFF">发布人</font></a><font color="#FFFFFF">                
<a target="_self" href="xiangmu2.asp"><font color="#FFFFFF">文章标题</font></a>         
           <a target="_self" href="xiangmu3.asp"><font color="#FFFFFF">提交日期</font></a></font></td>
</tr>
<tr align="center">
<%
do until RsHits.EOF
temptxt1=left(RsHits("wsubject"),50)
temptxt2=RsHits("wdate")
temptxt3=left(RsHits("wname"),50)
temptxt4=left(RsHits("wauth"),10)


Response.Write"<td width=40 nowrap bgcolor=LemonChiffon><INPUT type=radio name=radio value="&temptxt3&"></td>"
Response.Write"<td width=70 nowrap bgcolor=LemonChiffon>"&temptxt4&"</td>"
Response.Write"<td width=260 nowrap bgcolor=LemonChiffon><a href=ftp://172.21.4.112/cust/"&temptxt3&">"&temptxt1&"</a></td>"
%>

‘<% Application.unLock
’Application("NumVisits") = Application("NumVisits") + 1
‘Application.lock

%>





<%

'Response.Write"<td width=330 nowrap bgcolor=LemonChiffon><a href=./files/"&temptxt3&">"&temptxt1&"</a></td>"
'Response.Write"<td width=100 nowrap bgcolor=LemonChiffon>"&temptxt5&"</td>" 'temptxt5=left(RsHits("wsource"),50)
Response.Write"<td width=85 nowrap bgcolor=LemonChiffon>"&temptxt2&"</td></tr><tr align=center>"
RsHits.MoveNext
loop
%>
</tr>
</table>
<p></p>
 <%
end if
end if
%>
</form>
</center>
</body>
</html>

<%con.Close %>
如何控制第二个用户在第一个用户保存上传文件前不能打开这个文件><a href=ftp://172.21.4.112/cust/"&temptxt3&">"&temptxt1&"</a>
还有如何在ie 5.0以上版本能实现框架中修改后提示保存，或者能在ie中出现word\excel上面的菜单也可以（这样更好）

[longlover]

看来没有戏了，都两天了都没有人能全部解答

[dgseamaple]

为什么只加不减呢？

因为Session有一定的生命周期，待到Session变量过期了，就会减少的。

[longlover]

如何设置这个变量过期呢？让它关了网页减再打开加呢？

[longloner]

厉害，收藏，但如何设置控制这个变量过期呢？让它关了网页减再打开加呢？

[山雨欲来-风满楼]

哇，这么多问题竟然只给10分？？

session过期触发事件可以在gloal.asp中写。

[longloner]

感谢各位大虾，先谢谢了，十分感谢...
我先说一下，我写when ie>5.0是为了述说方便，不是代码，也并不是要求“查到访问者的浏览器类型以及版本”，因为当ie版本高于5.0时，打开嵌套在框架网页中文件列表中的word\excel文件，编辑之后，关闭或切换该页面时，不提示保存对话框，所做修改无效。而5.0版本有提示。
我想问如何能让它关闭时弹出提示框，最好能在框架中显示出word\excel上面的菜单条，即 文件（F） 编辑（E）......
我把上传的文件名入了库，服务器有一个存放上传文件的文件夹，IE中文件列表中的word\excel文件使用FTP直接链接打开该文件，修改后保存到服务器，为什么保存对话框文件名处当为汉字时为乱码，这怎么办？并且如何判断提示该文件有人正在编辑。
想问各位大虾，上面“查看在线人数”那段代码为什么只执行“＋”，不执行“－”，（每次关闭后打开都加 1 ）

[longloner]

感谢cueixu1(紫之龙)及各位大虾，先谢谢了，十分感谢...
我先说一下，我写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站点虚拟目录，即存放上传文件目录

[longloner]

这个显示在线人数代码为什么不对？
<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>

[nofogw]

很简单,打开的时候设置个application
application(""&fileid&"")="yes"

前面的判断是
if application(""&fileid&"")="yes" then

response.write"<script>alert('此文件正在编辑，请稍后在打开！');history.back();</Script>"
response.end
end if

在修改完保存的时候设置

application(""&userid&"")=""
加到后面就行了

[nofogw]

在修改完保存的时候设置

application(""&fileid&"")=""
加到后面就行了

最后的是这样的,上面有点小错误

[longloner]

为什么只加不减呢？

[longloner]

我只剩下十分了，都拿去问问题了，前面的都是100分的，不过和这个问题一样，多问几个，不是回答的几率大吗，回答对的不是点数挣的也多吗？我穷阿...呜呜