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

longloner 2003-11-27 05:29:42
有一个局域网，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分。哪位全部解决了送三星手机一部
...全文
40 28 打赏 收藏 转发到动态 举报
写回复
用AI写文章
28 条回复
切换为时间正序
请发表友善的回复…
发表回复
longloner 2003-12-01
  • 打赏
  • 举报
 回复
这个显示在线人数代码为什么不对？
<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>
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站点虚拟目录，即存放上传文件目录
longloner 2003-12-01
  • 打赏
  • 举报
 回复
谁能想个好办法呢？
yglyjf 2003-11-28
  • 打赏
  • 举报
 回复
关注........
longlover 2003-11-28
  • 打赏
  • 举报
 回复
看来没有戏了，都两天了都没有人能全部解答
longlover 2003-11-28
  • 打赏
  • 举报
 回复
哪位能解决呀？各位大虾看清楚题目在回答！
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上面的菜单也可以（这样更好）
zhaoliangpat 2003-11-28
  • 打赏
  • 举报
 回复
呵呵。捡到便宜了！
longlover 2003-11-28
  • 打赏
  • 举报
 回复

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>
Primer2002cn 2003-11-28
  • 打赏
  • 举报
 回复
真的假的，呵呵!
Rex_love_Burger 2003-11-28
  • 打赏
  • 举报
 回复
这大概还要客户机装了word和excel才行吧..
longlover 2003-11-28
  • 打赏
  • 举报
 回复
到底有没有人能解决呀，送samsungT408一部，急急急急急急急...
dingdi 2003-11-28
  • 打赏
  • 举报
 回复
太诱惑人了，关注
longloner 2003-11-28
  • 打赏
  • 举报
 回复
各位，麻烦能不能把问题看清楚点，我是说怎么在浏览器版本高于5.0时在框架网页中word\excel如何实现能够编辑后提示保存，如果实现锲进IE后word\excel能够显示菜单－出现保存菜单也可以。现在问题是如果框架网页中一部分锲进word\excel后只有当右键新打开一个窗口编辑后关闭才提示保存窗口（当IE>5.0）当＝5.0时没有这个问题
longloner 2003-11-28
  • 打赏
  • 举报
 回复
各位，麻烦能不能把问题看清楚点，我是说怎么在浏览器版本高于5.0时在框架网页中如何实现能够编辑后提示保存，如果实现锲进IE后word\excel能够显示菜单－出现保存菜单也可以。现在问题是如果框架网页中一部分锲进word\excel后只有当右键新打开一个窗口编辑后关闭才提示保存窗口（当IE>5.0）当＝5.0时没有这个问题
Windgu 2003-11-28
  • 打赏
  • 举报
 回复
【推荐】adovbs.inc文件保存在inetpubiissamplesIISamples目录，下面的锁定函数
adLockPessimistic在编辑一条记录时锁定它，尝试试用一下
孟子E章 2003-11-28
  • 打赏
  • 举报
 回复
' 函数： 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
longloner 2003-11-28
  • 打赏
  • 举报
 回复
怎么办呢？谁能解决了呢？
leiaming 2003-11-28
  • 打赏
  • 举报
 回复
我手机烂了，给我吧
longlover 2003-11-28
  • 打赏
  • 举报
 回复
各位，麻烦把问题看清楚点，我是说怎么在浏览器版本高于5.0时在框架网页中word\excel如何实现能够编辑后提示保存，如果实现锲进IE后word\excel能够显示菜单－出现保存菜单也可以。现在问题是如果框架网页中一部分锲进word\excel后只有当右键新打开一个窗口编辑后关闭才提示保存窗口（当IE>5.0）当＝5.0时没有这个问题
而不是判断ie版本号！！！
longlover 2003-11-28
  • 打赏
  • 举报
 回复
谁能想个好办法呢？
加载更多回复（8）
解决IE10以上版本doPostBack未定义
.Net4.0下ASP.NET在IE10以上版本访问的时候，遇到分页或者控件回发的时候会提示doPostBack未定义，这个补丁是用来在服务器端修正这个问题，安装完需要重启。如不想在服务器修正，可以看...
考勤管理系统asp版
标题：“考勤管理系统asp版”是一个基于ASP（Active Server Pages）技术开发的办公应用软件，主要用于企业或组织内部对员工的出勤情况、迟到早退、请假等日常管理。ASP是一种服务器端脚本语言，它允许开发者利用HTML...
飓风信息管理最新修正版
飓风信息管理系统是目前国内最好的网站信息管理系统之一，并曾获得“创新飞跃杯软件设计大赛”1等奖，它最大的优点便是能够在较低的配置下（asp+mdb+虚拟目录)取得接近于大型商业网站的速度与功能，适合于各种类型的...
解决IE10中ASP.NET中Cookie或Session丢失问题
 这是ASP.NET2.0,3.5和4.0的Bugs,因这些版本无法识别IE10的User-Agent标头字符串,所以无法识别用户浏览器的版本,从而导至了ASP.NET的特定功能失效,认为游览器不支持Cookies功能,不处理与Cookie相
解决IE7和IE8中FileUpload控件获取不到路径的问题
我们都知道在asp.net开发中，往往使用UpLoadFile....本文就为大家解决疑惑，发现最后是浏览器的问题在IE6是可以获取到的 IE8就只能获取名称了 这个问题源自一位热心而且踏实的读者，发现《ASP.NET 3.5+SQL Ser
ASP

28,406

社区成员

356,946

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章