救命!!! 在本机可以正确执行,怎么上传到网上就触发不了啊!(关于处理ie关闭时的问题)

ylh1223 2004-05-08 03:45:10
代码如下:
<HTML>
<HEAD><TITLE>办公自动化系统</TITLE>
<script language=javascript>
function exit()
{
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("GET","sessionEnd.aspx",false);
xmlhttp.send();
}
</script>
</HEAD>
<body onbeforeunload="exit()">
</BODY>
</HTML>
请高手指点!!!!!在线等待..............
...全文
35 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wanghr100 2004-05-08
测试了可以.

demo.htm

<input type="text" name="txt">
<script>
window.onbeforeunload=function()
{
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
oBao.open("POST","t.asp?txt="+document.all.txt.value,false);
oBao.send();
}
</script>


t.asp

<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
<%
conn.Execute("Update web set weburl='"&Request("txt")&"' where id=1")
%>

数据库:data.mdb
表web
字段id,weburl


参考:
http://expert.csdn.net/Expert/topic/3027/3027050.xml?temp=.4983026
  • 打赏
  • 举报
回复
ylh1223 2004-05-08
分不够再加!!
  • 打赏
  • 举报
回复
相关推荐
三级联动Ajax菜单(包含省市数据) \n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; ?>
第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 无标题文档

JS读取文本文件的内容并赋值给textarea控件





已导入:0 条记录


第二个文件ajax_txt_save.asp的代码: (此页是用ASP中的FSO来读取txt文本文件中的内容并输出,为ajax_txt.asp这个页面的AJAX异步获取提供数据) <% '//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页 Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Dim objFSO Dim objText Dim ObjFile Dim strTextContent Dim objDrive '创建一个文件操作对象实例 Set objFSO = CreateObject("Scripting.FileSystemObject") '要打开的文件 ObjFile=trim(request("filesname")) '从文浏览控件中获取 IF objFSO.FileExists(ObjFile) then Set objText = objFSO.OpenTextFile(ObjFile,1) '循环读取数据 k=0 While not objText.AtEndOfStream '文件的末尾 strTextContent = strTextContent & objText.ReadLine() & vbcrlf k=k+1 wend objText.Close response.write strTextContent & "," & k else strTextContent= "文件不存" response.end() end if %> 以代码经测试,100%能使用,且不受浏览器的安全级别限制,祝你好运!
发帖
JavaScript

8.6w+

社区成员

Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
帖子事件
创建了帖子
2004-05-08 03:45
社区公告
暂无公告