asp与ie问题，哪位解决了送三星手机一部，急急急急急。。。

[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上传文件后，最后一个修改的文件会覆盖其他人所编辑的这个文件，请问如何实现当第二个人打开时会提示“此文件正在编辑，请稍后在打开！”对话框或者不可编辑也行。
有其他解决办法也可以。
望各位大虾能帮小弟解决这个问题。
帮小弟一个问题给500分，两个1000分。哪位全部解决了送三星手机一部

[longlover]

谁能想个好办法呢？

[longlover]

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

[leiaming]

我手机烂了，给我吧

[longloner]

怎么办呢？谁能解决了呢？

[孟子E章]

' 函数： GetBrowserType - 返回一个长整型数值，表示返回页面的浏览器属性。前两位表示浏览器类型，后两位表示浏览器的主版本号
Function GetBrowserType()
On Error Resume Next

Dim strUA, ich, os, lMajorVer, lMinorVer
strUA = GetServerVariable("HTTP_USER_AGENT")
ich = InStr(strUA, "MSIE")
os = InStr(strUA, "Windows")

If (ich > 0) And (os > 0) Then
lMajorVer = CLng(Mid(strUA, ich + 5, 1)) ' lMajorVer =5
lMinorVer = CLng(Mid(strUA, ich + 7, 1)) ' lMinorVer =5
End If

' 如果使用的是 IE，则返回版本号。否则只给出这是其它浏览器(BROWSER_OTHER)
If (ich > 0) And (os > 0) Then
GetBrowserType = (BROWSER_IE Or (lMajorVer * (BROWSER_MINORVERMASK + 1)) Or lMinorVer)
Else
GetBrowserType = BROWSER_OTHER
End If
End Function

[Windgu]

【推荐】adovbs.inc文件保存在inetpubiissamplesIISamples目录，下面的锁定函数
adLockPessimistic在编辑一条记录时锁定它，尝试试用一下

[longloner]

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

[longloner]

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

[dingdi]

太诱惑人了，关注

[longlover]

到底有没有人能解决呀，送samsungT408一部，急急急急急急急...

[Rex_love_Burger]

这大概还要客户机装了word和excel才行吧..

[Primer2002cn]

真的假的，呵呵!

[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>

[zhaoliangpat]

呵呵。捡到便宜了！

[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]

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

[yglyjf]

关注........

[longloner]

谁能想个好办法呢？

[longloner]

感谢各位大虾，先谢谢了，十分感谢...
我先说一下，我写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>