急!!请高手看过来!asp网站为何一有多个人同时访问就会出错?

wl0618 2005-03-24 04:55:34
刚刚更换的单位网站,用的是网狐asp源代码改编的,测试时只有我一个人,所以没有发现什么问题。发布以后发现早上和中午上班事网站报错,但是如果马上刷新页面或者过几分钟后再打开可能又没有问题了,就是说网站不稳定,在同时多人打开它的时候会出错。

错误提示是conn.asp文件。错误 '80004005', 常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x5b4 Thread 0x6b8 DBC 0x21b71e4 Jet'。conn.open connstr这行的毛病,这个conn.asp肯定是没有问题的。数据库是access2000,大小是800K。

这个页面用到了include,包含了好几个小文件。rs对象是每用一次就释放的,conn对象只是在最后才释放出来。

不知是什么问题,望各位高手指点!
...全文
235 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
echina 2005-03-24
  • 打赏
  • 举报
回复
UP
wl0618 2005-03-24
  • 打赏
  • 举报
回复
To: enjsky(郭志军)

改成你那样后,网页打开变得很慢了,最后说超时了,不知是怎么回事?

望多多指教!谢谢!!
enjsky 2005-03-24
  • 打赏
  • 举报
回复
If IsObject(conn) = False then
dim conn
dim connstr
on error resume next
Path= server.MapPath("database/news.mdb")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
End If
wl0618 2005-03-24
  • 打赏
  • 举报
回复
应该不是操作系统的问题,上面还跑着其他的asp程序,都没有问题,就这个有问题
myvicy 2005-03-24
  • 打赏
  • 举报
回复
参考一下这个帖子,他已经解决问题了。
http://community.csdn.net/Expert/topic/3862/3862805.xml?temp=.6675836
king2003 2005-03-24
  • 打赏
  • 举报
回复
估计是你系统的问题,典型的不稳定
Aimar168 2005-03-24
  • 打赏
  • 举报
回复
不是程序的问题
常用办法:
1、重启服务器,有些就能恢复正常。
2、安装 MDAC 新版。
3、没有办法的办法:重装系统
jiuhexuan 2005-03-24
  • 打赏
  • 举报
回复
Path= server.MapPath("database/news.mdb")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path

用这个驱动字符试试
wl0618 2005-03-24
  • 打赏
  • 举报
回复
数据库链接的路径没有错。就是说整个页面有时是打不开的,有时打开是正常的。要是数据库链接路径有问题,那应该根本就一次打不开了。

conn.asp:

<%
set rs=server.createobject("adodb.recordset")
connstr="DBQ="+server.mappath("database/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr %>
Snoworld 2005-03-24
  • 打赏
  • 举报
回复
是不是数据库权限不够啊
MonkeyDHua 2005-03-24
  • 打赏
  • 举报
回复
数据库连接的路径错了吧?把你的conn.asp贴出来看看
如果你不能写程序给大家用,不要说别人写的是垃圾!!! 如果你是个高手您教教我,只有中国的程序员水平都提高了,才能赶超印美!! 如果此软件你觉得不合你用,大可以不用,地球少了谁都一样转,我愿做一粒石子! 程序演示:http://www.deepteach.com/www1/ 官方网址:http://www.ITstudy.cn/ 程序开发:吕海鹏 程序简介: 由文章、下载、图片主要功能模块和广告、公告、调查、友情链接、网站统计、用户、数据库管理等多个通用模块组成,每个模块又包含若干个子模块,构建出强大和完善的功能体系。系统防止SQL注入攻击,对密码进行MD5不可逆加密处理。用户:admin密码:admin 【程序主要功能】 1、文章栏目无限级分类、自由添加,排序 2、文章可视化的在线编辑器提供了强大的图文混排功能,在线添加、编辑、删除 3、网站相关信息后台动态配置 4、自由添加友情链接 5、完善的支持HTML编码的广告模块, 6、软件下载 【系统开发环境】 1.系统环境:MSWINDOWS2003+IIS6.0 2.数据库:MSAccess2003 3.测试浏览器:Maxthon1.5.6.42MozillaFirefox5.0滕讯TT3.1微软IE浏览器7.0 4.系统分辨率:1024X768 5.开发工具:Dreamweaver8EditPlus2.21Access2003 【安装使用】 1、将整个目录上传到虚拟空间,即可直接访问index.asp首页文件(不可以将index.asp改成其它的名字,否则系统跳转出错),不需要做其他的操作。 2、后台登陆文件“admin/deep_login.asp”可任意更名(隐藏登陆路径)及更改管理目录名 3、管理员用户:admin密码:admin登录管理并修改密码 3、确保你存放的文件夹有everyone可写权限 4、默认数据库为#data.mdb(可用记事本打开ConnDB.asp修改数据库路径或改名等设置,如不了解不要改动) 5、系统未提供软件的上传功能,先使用FTP上传。FTP上传后将地址复制到下面的地址框中。 【版本更新说明】 ver2.1.10 · ·登录页提供收藏功能,便于收藏管理 ·“论坛新帖”代码独立为一个include文件方便全局修改管理, ·增加email、QQ显示 ·文章标题增加[图文]显示标志 ·修订软件下载布局 ·更换简繁转换js代码 ·后台程序修改为按模块分目录管理 ·修订后台管理顶部栏目导航位置添加bug ver2.1.2 ·增加顶部栏目导航 ·修订ie7下·显示过小错误 ·增加文章浏览次数后台修改(可实现浏览****) ·前台页面div+css优化 ·增加后台文章批量删除 ·增加sogou搜索 ver2.0.25 ·修订首页新闻动态排序 ·修订首页flash图片新闻少于5个显示错误 ·增加后台下载栏目排序功能 ·修订首页子栏目标题more和文章标题不整齐 ·修订首页单元格宽度不整齐 ·修订css统一整理至一个Style文件夹下,方便Div+css管理 ·修订个页面论坛登陆,整合为一个文件统一调用 ·前台页面css优化 ·修订首页新闻动态显示内容,改为后台设定显示栏目 ·修订站内公告内容页bug ·修订后台文章添加、修改页,增加更新时间修改 ver2.0.15 ·修订站内公告,增加搜索链接、上下文链接 ·修订后台验证 ·修订文章内容页,增加加入收藏功能 ·修订文章内容页,增加页面打印功能 ·修订后台管理上传文件管理翻页错误 ·修订后台下载添加软件页翻页错误 ·美化后台管理 ·修订站点信息页 ·修订文章内容页,实现内容字体大小可变化 ·修订文章列表页,增加对应文章信息显示 ·修订文章一级栏目添加不显示错误 ·修订后台软件下载修改页所属栏目错误 ·调整后台管理目录 ·增加最新文章 ·页面SEO ver2.0.3 ·增加文章、下载总数统计 ·增加分页程序 ·更换图文新闻代码 ver2.0.0 ·完全重写整站代码及美工 ·增加图文新闻、当前在线人数统计 ·首页导航栏目可在上下任意显示 ·添加软件时能从已经上传的软件中进行选择,并自动显示软件大小。 ·后台增加软件图片与上传软件的显示与管理,实用的清除上传的无用垃圾图片或软件功能。 【特别感谢】 ... 【声明】 该软件遵守GPL条约,受GPL条约的保护。您可以自由复制、传播、使用但未经作者允许勿用于商业场合。使用本软件造成的一切后果作者一概不负责任! 1、本软件及相关文档的版权及其他权利都归“DeepTeach.com吕海鹏”所有并保留一切权利。除了吕海鹏授权许可协议所提供的明确书面许可外,拥有本程序及相关文档并不赋予您任何有关这些版权或其他知识产权的许可。 2、本软件仅供学习。你可以任意使用、拷贝和分
如果你不能写程序给大家用,不要说别人写的是垃圾!!! 如果你是个高手您教教我,只有中国的程序员水平都提高了,才能赶超印美!! 如果此软件你觉得不合你用,大可以不用,地球少了谁都一样转,我愿做一粒石子! 程序开发:吕海鹏 ----------------------------------------- 【程序主要功能】 1、全后台化管理,操作简单 2、栏目无限分类,自由添加,排序,设定是否前台显示 3、各大搜索和站内搜索随意切换 4、网站在线提交、审阅、编辑、删除 5、站点相关信息后台动态配置 6、自助网站收录,后台审阅 7、网站广告在线发布 8、自动生成html静态页 ------------------------------------------ 【系统开发环境】 1.系统环境:MSWINDOWSXP+IIS5.1 2.数据库:MSAccess2003 3.测试浏览器:Maxthon1.6.2FireFox2.0.0.12微软IE浏览器7.0 4.系统分辨率:1024X768 ------------------------------------------ 【安装使用】 1、将整个目录上传到虚拟空间,即可直接访问index.asp首页文件(不可以将index.asp改成其它的名字,否则系统跳转出错),不需要做其他的操作。 2、后台登陆文件“admin/deep_login.asp”,可任意更改管理目录名(隐藏登陆路径) 3、管理员用户:admin密码:admin登录管理并修改密码. 3、确保你存放的文件夹有everyone可写权限 4、默认数据库为#data.mdb(可用记事本打开connDB.asp修改数据库路径或改名等设置,如不了解不要改动) ---------------------------------------- 【版本更新说明】 ver2.5.0 ·重构全部管理模块 ·重构前后台结构,精简合并文件 ·重构前台样式采用div+css ·重构数据库 ver2.4.5 ·重写后台网址分类管理 ·后台右侧快捷导航管理栏目增改类型不匹配错误(感谢veeda) ver2.4.3 ·实现新站收录、问题网址报告中分类栏目的子类缩行显示 ·修订修改库字段类型造成的前台提交新网址错误 ·增加生成首页html静态页功能 ver2.3.8 ·增加清空全部记录功能 ·网页底部增加email、多QQ信息设置 ·增加google搜索选项 ·修订搜索引擎无法在firefox下切换错误 ·全面修订程序页面,优化网页,文件夹分类 ver2.2.20 ·修订网址分类修改时所属类别不对应bug ·增加网址分类新增栏目时直接选择所属栏目 ·修订firefox后台导航显示错误 ·美化后台管理框架 ·后台管理首页增加快捷导航和系统信息提示 ver2.2.16 ·后台程序优化为按模块分目录管理 ·登录页提供收藏功能,便于收藏管理 ·后台分类空值错误 ·后台程序修改为按模块分目录管理 ver2.2.11 ·修订ie7下·显示过小错误 ·修订后台搜索关键字多空格搜索不到错误 ·修改后台布局 ·修改搜索页网址分类名称错误 ·修订站内搜索关键字多空格搜索不到错误 ·重写左侧侧栏“名站导航”“实用工具”实现后台任意栏目前台左侧或酷站大全位置设定 ·修改数据库栏目表-fview字段类型改为数字 ·优化频道内容页 ver2.2.5 ·修订首页firefox显示错误 ·修订网站二级页面样式 ·修订首页链接title ver2.2.2 ·优化首页和部分网页div+css ·重写首页酷站大全代码 ·修订首页firefox显示错误 ·增加sougou搜索 ver2.1.27 ·修订css统一整理至一个Style文件夹下,方便Div+css管理 ·增加原来删除的天气提示功能 ·增加网站批量删除 ·整合优化样式表 ver2.1.22 ·修订网址排序前后台不一致 ·修订后台验证 ·修订后台管理“网址网站管理”,“未审核网站管理”记录为空时bug(感谢canyao) ·修订网址、栏目的排序,序号统一为由小到大(感谢zylg_com) ·美化后台管理 ·修订广告代码、网站信息设置为空时错误(感谢canyao) ver2.1.17 ·美化搜索选项 ·增加当前在线人数统计 ·修订后台分类某一类别下网址为空,显示出错(感谢仙桃朋客) ·后台增加未审核网址管理(感谢仙桃朋客) ver2.1.14 ·修订网站搜索 ·修订栏目排序 ver2.1.12 ·修订小类网址分页不跳转(感谢stardd) ·删除首页天气预报 ·修订首页酷站大全具体内容数少于6个表格不齐 ·整站由分辨率800X600格式变更为1024X768格式 ·修订登录页 ·增加顶部栏目 ver2.1.7 ·修订误删主类
Javascript小技巧一箩筐 事件源对象 event.srcElement.tagName event.srcElement.type 捕获释放 event.srcElement.setCapture(); event.srcElement.releaseCapture(); 事件按键 event.keyCode event.shiftKey event.altKey event.ctrlKey 事件返回值 event.returnValue 鼠标位置 event.x event.y 窗体活动元素 document.activeElement 绑定事件 document.captureEvents(Event.KEYDOWN); 访问窗体元素 document.all("txt").focus(); document.all("txt").select(); 窗体命令 document.execCommand 窗体COOKIE document.cookie 菜单事件 document.oncontextmenu 创建元素 document.createElement("SPAN"); 根据鼠标获得元素: document.elementFromPoint(event.x,event.y).tagName=="TD document.elementFromPoint(event.x,event.y).appendChild(ms) 窗体图片 document.images[索引] 窗体事件绑定 document.onmousedown=scrollwindow; 元素 document.窗体.elements[索引] 对象绑定事件 document.all.xxx.detachEvent("onclick",a); 插件数目 navigator.plugins 取变量类型 typeof($js_libpath) == "undefined" 下拉框 下拉框.options[索引] 下拉框.options.length 查找对象 document.getElementsByName("r1"); document.getElementById(id); 定时 timer=setInterval("scrollwindow()",delay); clearInterval(timer); UNCODE编码 escape() ,unescape 父对象 obj.parentElement(dhtml) obj.parentNode(dom) 交换表的行 TableID.moveRow(2,1) 替换CSS document.all.csss.href = "a.css"; 并排显示 display:inline 隐藏焦点 hidefocus=true 根据宽度换行 style="word-break:break-all" 自动刷新 简单邮件 快速转到位置 obj.scrollIntoView(true) 锚 anchors 网页传递参数 location.search(); 可编辑 obj.contenteditable=true 执行菜单命令 obj.execCommand 双字节字符 /[^x00-xff]/ 汉字 /[u4e00-u9fa5]/ 让英文字符串超出表格宽度自动换行 word-wrap: break-word; word-break: break-all; 透明背景 获得style内容 obj.style.cssText HTML标签 document.documentElement.innerHTML 第一个style标签 document.styleSheets[0] style标签里的第一个样式 document.styleSheets[0].rules[0] 防止点击空链接时,页面往往重置到页首端。 word 上一网页源 asp: request.servervariables("HTTP_REFERER") javascript: document.referrer 释放内存 CollectGarbage(); 禁止右键 document.oncontextmenu = function() { return false;} 禁止保存 地址栏图标 favicon.ico 名字最好不变16*16的16色,放虚拟目录根目录下 收藏栏图标 查看源码 关闭输入法 自动全选 ENTER键可以让光标移到下一个输入框 文本框的默认值 title换行 obj.title = "123 sdfs " 获得时间所代表的微秒 var n1 = new Date("2004-10-10".replace(/-/g, "/")).getTime() 窗口是否关闭 win.closed checkbox扁平
获取选中内容 document.selection.createRange().duplicate().text 自动完成功能 打开该功能 关闭该功能 窗口最大化 无关闭按钮IE window.open("aa.htm", "meizz", "fullscreen=7"); 统一编码/解码 alert(decodeURIComponent(encodeURIComponent("http://你好.com?as= hehe"))) encodeURIComponent对":"、"/"、";" 和 "?"也编码 表格行指示 //各种尺寸 s += " 网页可见区域宽:"+ document.body.clientWidth; s += " 网页可见区域高:"+ document.body.clientHeight; s += " 网页可见区域高:"+ document.body.offsetWeight +" (包括边线的宽)"; s += " 网页可见区域高:"+ document.body.offsetHeight +" (包括边线的宽)"; s += " 网页正文全文宽:"+ document.body.scrollWidth; s += " 网页正文全文高:"+ document.body.scrollHeight; s += " 网页被卷去的高:"+ document.body.scrollTop; s += " 网页被卷去的左:"+ document.body.scrollLeft; s += " 网页正文部分上:"+ window.screenTop; s += " 网页正文部分左:"+ window.screenLeft; s += " 屏幕分辨率的高:"+ window.screen.height; s += " 屏幕分辨率的宽:"+ window.screen.width; s += " 屏幕可用工作区高度:"+ window.screen.availHeight; s += " 屏幕可用工作区宽度:"+ window.screen.availWidth; //过滤数字 //特殊用途 //不缓存 //正则匹配匹配中文字符的正则表达式: [u4e00-u9fa5] 匹配双字节字符(包括汉字在内):[^x00-xff] 匹配空行的正则表达式: [s| ]* 匹配HTML标记的正则表达式:/<(.*)>.*|<(.*) />/ 匹配首尾空格的正则表达式:(^s*)|(s*$)(像vbscript那样的trim函数) 匹配Email地址的正则表达式:w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)* 匹配网址URL的正则表达式:http://([w-]+.)+[w-]+(/[w- ./?%&=]*)? 以下是例子: 利用正则表达式限制网页表单里的文本框输入内容: 用正则表达式限制只能输入中文:onkeyup="value=value.replace(/[^u4E00-u9FA5]/g,"")" onbeforepaste="clipboardData.setData("text",clipboardData.getData("text").replace(/[^u4E00-u9FA5]/g,""))" 1.用正则表达式限制只能输入全角字符: onkeyup="value=value.replace(/[^uFF00-uFFFF]/g,"")" onbeforepaste="clipboardData.setData("text",clipboardData.getData("text").replace(/[^uFF00-uFFFF]/g,""))" 2.用正则表达式限制只能输入数字:onkeyup="value=value.replace(/[^d]/g,"") "onbeforepaste="clipboardData.setData("text",clipboardData.getData("text").replace(/[^d]/g,""))" 3.用正则表达式限制只能输入数字和英文:onkeyup="value=value.replace(/[W]/g,"") "onbeforepaste="clipboardData.setData("text",clipboardData.getData("text").replace(/[^d]/g,""))" //消除图像工具栏 or //无提示关闭 function Close() { var ua=navigator.userAgent var ie=navigator.appName=="Microsoft Internet Explorer"?true:false if(ie) { var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE ")))) if(IEversion< 5.5) { var str = "" str += ""; document.body.insertAdjacentHTML("beforeEnd", str); document.all.noTipClose.Click(); } else { window.opener =null; window.close(); } } else { window.close() } } //取得控件得绝对位置(1) <script language="javascript"> function getoffset(e) { var t=e.offsetTop; var l=e.offsetLeft; while(e=e.offsetParent) { t+=e.offsetTop; l+=e.offsetLeft; } var rec = new Array(1); rec[0] = t; rec[1] = l; return rec } //光标停在文字最后 <script language="javascript"> function cc() { var e = event.srcElement; var r =e.createTextRange(); r.moveStart("character",e.value.length); r.collapse(true); r.select(); } //页面进入和退出的特效 进入页面 推出页面 这个是页面被载入和调出时的一些特效。duration表示特效的持续时间,以秒为单位。transition表示使 用哪种特效,取值为1-23:   0 矩形缩小   1 矩形扩大   2 圆形缩小   3 圆形扩大   4 下到上刷新   5 上到下刷新   6 左到右刷新   7 右到左刷新   8 竖百叶窗   9 横百叶窗   10 错位横百叶窗   11 错位竖百叶窗   12 点扩散   13 左右到中间刷新   14 中间到左右刷新   15 中间到上下   16 上下到中间   17 右下到左上   18 右上到左下   19 左上到右下   20 左下到右上   21 横条   22 竖条   23 //网页是否被检索   其中属性值有以下一些:   属性值为"all": 文件将被检索,且页上链接可被查询;   属性值为"none": 文件不被检索,而且不查询页上的链接;   属性值为"index": 文件将被检索;   属性值为"follow": 查询页上的链接;   属性值为"noindex": 文件不检索,但可被查询链接;   属性值为"nofollow": //打印分页

page1

page2

//设置打印 <script language=javascript> function window.onload() { // -- advanced features factory.printing.SetMarginMeasure(2) // measure margins in inches factory.printing.SetPageRange(false, 1, 3) // need pages from 1 to 3 factory.printing.printer = "HP DeskJet 870C" factory.printing.copies = 2 factory.printing.collate = true factory.printing.paperSize = "A4" factory.printing.paperSource = "Manual feed" // -- basic features factory.printing.header = "居左显示&b居中显示&b居右显示页码,第&p页/共&P页" factory.printing.footer = "(自定义页脚)" factory.printing.portrait = false factory.printing.leftMargin = 0.75 factory.printing.topMargin = 1.5 factory.printing.rightMargin = 0.75 factory.printing.bottomMargin = 1.5 } function Print(frame) { factory.printing.Print(true, frame) // print with prompt }
具体使用手册,更多信息,点这里 //自带的打印预览 WebBrowser.ExecWB(1,1) 打开 Web.ExecWB(2,1) 关闭现在所有的IE窗口,并打开一个新窗口 Web.ExecWB(4,1) 保存网页 Web.ExecWB(6,1) 打印 Web.ExecWB(7,1) 打印预览 Web.ExecWB(8,1) 打印页面设置 Web.ExecWB(10,1) 查看页面属性 Web.ExecWB(15,1) 好像是撤销,有待确认 Web.ExecWB(17,1) 全选 Web.ExecWB(22,1) 刷新 Web.ExecWB(45,1) 关闭窗体无提示

//去掉打印时的页眉页脚 <script language="JavaScript"> var HKEY_Root,HKEY_Path,HKEY_Key; HKEY_Root="HKEY_CURRENT_USER"; HKEY_Path="\Software\Microsoft\Internet Explorer\PageSetup\"; //设置网页打印的页眉页脚为空 function PageSetup_Null() { try { var Wsh=new ActiveXObject("WScript.Shell"); HKEY_Key="header"; Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,""); HKEY_Key="footer"; Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,""); } catch(e){} } //设置网页打印的页眉页脚为默认值 function PageSetup_Default() { try { var Wsh=new ActiveXObject("WScript.Shell"); HKEY_Key="header"; Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&w&b页码,&p/&P"); HKEY_Key="footer"; Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&u&b&d"); } catch(e){} } //浏览器验证 function checkBrowser() { this.ver=navigator.appVersion this.dom=document.getElementById?1:0 this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0; this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0; this.ie4=(document.all && !this.dom)?1:0; this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0; this.ns4=(document.layers && !this.dom)?1:0; this.mac=(this.ver.indexOf("Mac") > -1) ?1:0; this.ope=(navigator.userAgent.indexOf("Opera")>-1); this.ie=(this.ie6 || this.ie5 || this.ie4) this.ns=(this.ns4 || this.ns5) this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns5 || this.ns4 || this.mac || this.ope) this.nbw=(!this.bw) return this; } //计算内容宽和高 //无模式的提示框 function modelessAlert(Msg) { window.showModelessDialog("javascript:alert(""+escape(Msg)+"");window.close();","","status:no;resizable:no;help:no;dialogHeight:height:30px;dialogHeight:40px;"); } //屏蔽按键 屏蔽鼠标右键、Ctrl+N、Shift+F10、Alt+F4、F11、F5刷新、退格键 <script language="Javascript"> //可编辑SELECT //设置光标位置 function getCaret(textbox) { var control = document.activeElement; textbox.focus(); var rang = document.selection.createRange(); rang.setEndPoint("StartToStart",textbox.createTextRange()) control.focus(); return rang.text.length; } function setCaret(textbox,pos) { try { var r =textbox.createTextRange(); r.moveStart("character",pos); r.collapse(true); r.select(); } catch(e) {} } function selectLength(textbox,start,len) { try { var r =textbox.createTextRange(); r.moveEnd("character",len-(textbox.value.length-start)); r.moveStart("character",start); r.select(); } catch(e) {//alert(e.description)} } function insertAtCaret(textbox,text) { textbox.focus(); document.selection.createRange().text = text; } //页内查找 function findInPage(str) { var txt, i, found,n = 0; if (str == "") { return false; } txt = document.body.createTextRange(); for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) { txt.moveStart("character", 1); txt.moveEnd("textedit"); } if (found) { txt.moveStart("character", -1); txt.findText(str); txt.select(); txt.scrollIntoView(); n++; } else { if (n > 0) { n = 0; findInPage(str); } else { alert(str + "... 您要找的文字不存在。 试着输入页面中的关键字再次查找!"); } } return false; } //书 http://www.itpub.net/attachment.php?s=&postid=1894598 http://www.wrclub.net/down/listdown.aspx?id=1341//操作EXECL <script language="javascript"> function jStartExcel() { var xls = new ActiveXObject ( "Excel.Application" ); xls.visible = true; var newBook = xls.Workbooks.Add; newBook.Worksheets.Add; newBook.Worksheets(1).Activate; xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2; xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5; newBook.Worksheets(1).Columns("A").columnwidth=50; newBook.Worksheets(1).Columns("A").WrapText = true; newBook.Worksheets(1).Columns("B").columnwidth=50; newBook.Worksheets(1).Columns("B").WrapText = true; newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0"; newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131; newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15"; newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell"; newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell"; newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell"; newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell"; newBook.Worksheets(1).Name="My First WorkSheet"; } tip <script Language="JavaScript"> //***********默认设置定义.********************* tPopWait=50;//停留tWait豪秒后显示提示。 tPopShow=5000;//显示tShow豪秒后关闭提示 showPopStep=20; popOpacity=99; //***************内部变量定义***************** sPop=null; curShow=null; tFadeOut=null; tFadeIn=null; tFadeWaiting=null; document.write(""); document.write("
"); function showPopupText(){ var o=event.srcElement; MouseX=event.x; MouseY=event.y; if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""}; if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""}; if(o.dypop!=sPop) { sPop=o.dypop; clearTimeout(curShow); clearTimeout(tFadeOut); clearTimeout(tFadeIn); clearTimeout(tFadeWaiting); if(sPop==null || sPop=="") { dypopLayer.innerHTML=""; dypopLayer.style.filter="Alpha()"; dypopLayer.filters.Alpha.opacity=0; } else { if(o.dyclass!=null) popStyle=o.dyclass else popStyle="cPopText"; curShow=setTimeout("showIt()",tPopWait); } } } function showIt(){ dypopLayer.className=popStyle; dypopLayer.innerHTML=sPop; popWidth=dypopLayer.clientWidth; popHeight=dypopLayer.clientHeight; if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24 else popLeftAdjust=0; if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24 else popTopAdjust=0; dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust; dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust; dypopLayer.style.filter="Alpha(Opacity=0)"; fadeOut(); } function fadeOut(){ if(dypopLayer.filters.Alpha.opacity0) { dypopLayer.filters.Alpha.opacity-=1; tFadeIn=setTimeout("fadeIn()",1); } } document.onmouseover=showPopupText; 插入文字"); } } //netscapte下操作xml doc = new ActiveXObject("Msxml2.DOMDocument"); doc = new ActiveXObject("Microsoft.XMLDOM") ->> doc = (new DOMParser()).parseFromString(sXML,"text/xml") //判断键值 <script language="javascript"> var ie =navigator.appName=="Microsoft Internet Explorer"?true:false; function keyDown(e) { if(!ie) { var nkey=e.which; var iekey="现在是ns浏览器"; var realkey=String.fromCharCode(e.which); } if(ie) { var iekey=event.keyCode; var nkey="现在是ie浏览器"; var realkey=String.fromCharCode(event.keyCode); if(event.keyCode==32){realkey="" 空格""} if(event.keyCode==13){realkey="" 回车""} if(event.keyCode==27){realkey="" Esc""} if(event.keyCode==16){realkey="" Shift""} if(event.keyCode==17){realkey="" Ctrl""} if(event.keyCode==18){realkey="" Alt""} } alert("ns浏览器中键值:"+nkey+" "+"ie浏览器中键值:"+iekey+" "+"实际键为"+realkey); } document.onkeydown = keyDown; //Javascript Document.

按任意一个键。。。。

//禁止FSO 1.注销组件 regsvr32 /u scrrun.dll 2.修改PROGID HKEY_CLASSES_ROOTScripting.FileSystemObject Scripting.FileSystemObject 3.对于使用object的用户,修改HKEY_CLASSES_ROOTScripting. //省略号
就是比如有一行文字,很长,表格内一行显示不下.
//检测media play版本 //图象按比例 <script language="JavaScript"> //细线SELECT function getComputerName() { var objWMIService = GetObject("Winmgmts:rootcimv2"); for(e = new Enumerator(objWMIService) ; !e.atEnd() ; e.moveNext()) { var getComputer = e.item(); return getComputer.Name; } } //条件编译 <script language=javascript> /*@cc_on @*/ /*@if (@_win32 && @_jscript_version>5) function window.confirm(str) { execScript("n = msgbox(""+ str +"", 257)", "vbscript"); return(n == 1); } @end @*/ //mergeAttributes 复制所有读/写标签属性到指定元素。
This is a sample DIV element.
This is another sample DIV element.
以上内容可以随意转载,转载后注名来源和出处! 原文链接:http://ttyp.cnblogs.com/archive/2004/11/15/63900.aspx //Import function Import() { for( var i=0; i"); else document.write(""); } }; //js枚举 function getComputerName() { var objWMIService = GetObject("Winmgmts:rootcimv2"); for(e = new Enumerator(objWMIService) ; !e.atEnd() ; e.moveNext()) { var getComputer = e.item(); return getComputer.Name; } } //条件编译 <script language=javascript> /*@cc_on @*/ /*@if (@_win32 && @_jscript_version>5) function window.confirm(str) { execScript("n = msgbox(""+ str +"", 257)", "vbscript"); return(n == 1); } @end @*/ //mergeAttributes 复制所有读/写标签属性到指定元素。
This is a sample DIV element.
This is another sample DIV element.
电子书制作:源码爱好者

28,404

社区成员

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

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