转载 由一张贴子引发出来的多个回复！

（原）我见过的一个让我瞠目结舌的电脑高手!(绝对真实)  很久以前，那还是我用win98的时候有次我系统崩溃了，因为我是电脑白吃，我朋友给我介绍了一个高手来帮我修电脑。　　他看了一下电脑，问我有没有98的盘，我说没有。　　他想了一下，叫我把固定电话拿给他，我想修电脑要电话干什么，但人家是高手，我也不好说什么，就把电话拔下来给他了。　　他把电话线空着的一头接在电脑的一个插孔内，然后进入了dos，

原创 推荐两个软件：虑镜.chm，终极配色手册.chm

虑镜.chm.jpg下载后删除.jpg 终极配色手册.chm.jpg下载后删除.jpg

原创 js调用FLASH

sohu.js------------------------------------------------------------------------if(typeof sas=="undefined")var sas=new Object();if(typeof sas.ued=="undefined")sas.ued=new Object();if(typeof sas.ued.uti

原创 我的网页配色器！

原创 asp常用函数

1.函数array()　 功能:创建一个数组变量　 格式:array(list)　 参数:list　为数组变量中的每个数值列,中间用逗号间隔　 例子:　 <%　i　=　array　("1","2","3")　%>　 结果:　i　被赋予为数组　 2.函数Cint()　 功能:将一表达式/其它类型的变量转换成整数类型(int)　 格式:Cint(expression)　 参数:expres

原创 ACCESS最快分页

Option ExplicitResponse.Buffer = True分页Function ShowPage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim CountPage,Ci_ShowPage if totalnumber mod maxperpage=0 then     CountPag

原创 在Access中创建表

在Access中创建表一般是用ADO来执行SQL语句来创建表。Access中的字段类型在SQL语句中是什么呢？在MSDN中有篇文章介绍得很详细：http://msdn.microsoft.com/office/understanding/access/codesamples/default.ASPx?pull=

原创 ASP错误总结

 ASP错误总结Microsoft VBscript 语法错误(0x800A03E9)-->内存不足 Microsoft VBscript 语法错误(0x800A03EA)-->语法错误 Microsoft VBscript 语法错误(0x800A03EB)-->缺少 : Microsoft VBscript 语法错误(0x800A03ED)-->缺少 ( Microsoft VBsc

原创 日历过程

SUB NEWDATE()    以下为ASP中通过该日历算法实现的具体代码    先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示    dim CurrentDate,pyear,pmonth,pday,fromDate    dim toDate,nunmonthstart,nunmonthend,maxi,i,iv    If Request("ReqDate")=""

原创 保证asp叶面一定不会出现乱码

保证asp叶面一定不会出现乱码的代码应该是这样的：（假定是UTF-8的叶子）   可以建立公共文件code.asp，所有页面都包含这个编码指定. 

原创 Xml_javascript分页

function getxmlDoc(){  xmlDoc=new ActiveXObject("Microsoft.XMLDOM");    var currNode;    xmlDoc.async=false;    xmlDoc.load("myTest.xml");    if(xmlDoc.parseError.errorCode!=0)    {        var myErr=x

原创 Microsoft.XMLDOM

XMLDOM是用来访问和操作XML文档的编程接口规范。XMLDOM被设计为可用于任何语言和任何操作系统。借助DOM，程序员可以创建XML文档、遍历其结构，增、改、删其元素。DOM将整个XML文档视作一棵树，文档级的元素是树的根。XMLDOM包含四个主要对象：XMLDOMDocumentXMLDOMNodeXMLDOMNodeListXMLDOMNamedNodeMap每个XMLDOM对象有其自己的

原创 偷取男人心的七种武器，能让男人宠爱你一生

“我能想到最浪漫的事，就是和你一起慢慢变老，直到我们老得哪也去不了，你还依然把我当成手心里的宝。”总能听到女人时不时地哼唱这几句歌词。没错，哪个女人不想让他疼爱自己一辈子？可是，若想让他宠你，你得先学点儿爱的艺术……条件一：像情人那样做老婆 　　做个好老婆不难，做个好情人也不难，但是，一个老婆要做得跟他的情人一样，让他想念，让他迷恋，真需费点功夫。条件二：永远保持柔情似水 　　没有一个男人可以逃出

原创 返回XMLHTTP请求的当前状态

readyState返回XMLHTTP请求的当前状态语法lValue = oXMLHttpRequest.readyState;Examplevar XmlHttp;XmlHttp = new ActiveXObject("Msxml2.XMLHTTP.3.0");function send() {   XmlHttp.onreadystatechange = doHttpReadyStateCh

原创 珍惜你爱的人,和爱你的人

    女孩捧着饭盒呆呆的站在男孩的后面，看到了他开心的在键盘上打字，和他的传奇老婆诉说着绵绵情爱，女孩的心揪了一下，但她还是告诉自己，这只是网络而已。她把饭盒放在男孩的桌边说：“快点吃，凉了就不好吃了。”男孩头也没抬的恩了一声，继续他的情话大奉献。女孩默默的走了。此刻已是凌晨2点，女孩叹了口气，她已不奢望男孩会送她，但却连一句叮嘱的话都没有。她宽容的一笑，回家了。事隔数月———女孩说：“看着我的

原创 XMLHttp常用属性，方法，成员 XMLHttpRequest对象

onreadystatechange属性readyState属性responsebody属性responsestream属性responsetext属性responsexml成员status成员statusText成员abort方法getallresponseheaders方法getResponseHeader方法open方法send方法setrequestheader方法xmlhttp:onre

原创 自动广告图片

div id="fc" style="width:501px;height:140px;filter:progid:DXImageTransform.Microsoft.Fade ( duration=0.5,overlap=1.0 );"> div style="display:none;"> a href="#" target="_blank">  img src="images/01.g

原创 ascll码表

原创 复制与粘贴

function pasetext()   {     var sText = clipboardData.getData("Normal");         sText=sText.replace(/[/w[^>]*(?:style|lang|class=)(?:[ |>*)([^>]*)/gi,$1$3);        insertHTML(sText);  }要用正则过滤一下. 

原创 防止上传图片木马

首先判断文件大小：if file.filesize  Response.Write("alert(您没有选择上传文件)")  Response.Write("history.go(-1)")  Response.End()end if将文件上传到服务器后，判断用户文件中的危险操作字符:set MyFile = server.CreateObject("Scripting.FileSyste

原创 语音上传

＜script language="javascript"> function openScript(url, width, height){ var Win = window.open(url,"openScript",width= + width + ,height= + height + ,resizable=1,scrollbars=yes,menubar=no,sta

原创 javascript处理图片效果，看起来不错。

无标题文档function imgWidth(obj,Width_){ if(obj.width>Width_) {  obj.width = Width_; }}function ImgStyle(obj) obj.filters.item(0).apply() obj.filters.item(0).transition = 12 obj.Style.visibility = "" obj.f

原创 写给女孩的17条(女生必看)

1.给他取个专属的呢称,他心里会很高兴的.2.每天给他打一个电话，哪怕很短，因为他想听你说话的声音．听出他感冒了要逼迫他马上吃药，不要相信他说挂掉电话就吃的鬼话．3.他说给你唱歌听时，要微笑答应，就算走音了也要鼓励他，因为他只是想唱给你听，把他的心意记在心里就好． 4.冬天和他一起出去时记得带上手套，不然他会因为心疼你把他的大手握在你的小手外面，可他又不是人皮手套．5.分别后记得回头,然后对他笑笑

原创 数据库连接

function getConn()    dim conn    set conn = server.CreateObject("ADODB.Connection")    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"Data/ChinaCity.mdb") &";"    

原创 广告图片效果

                       .bigon{background:url(http://mat1.qq.com/ent/ent2007/ent2-04.gif);color:#C9000E;}  .bigoff{background:url(http://mat1.qq.com/ent/ent2007/ent2-03.gif);color:#3C3C3C;}           

原创 再来一个图片显示的JS代码

script language="JavaScript1.1" type="text/javascript">...var slidespeed=2000;var slideimages=new Array("","http://www.9702.com.cn/attachments/20061208_142535_20258.jpg","http://www.9702.com.cn/atta

原创 filesystemobject 创建文本文件。。

CreateFile "c:a.txt",temp_Str001Function CreateFile(strPath,TextStr) As Boolean    On Error Resume Next    Dim oFSO,tf        If InStr(strPath, "") 0 Or InStr(strPath, ":")  0 Then        CreateFi

原创 文本框特效

输入框景背景透明：------------------------------------------------------------------------------------------鼠标划过输入框，输入框背景色变色：style="width: 106; height: 21" onmouseout="this.style.borderColor=black;this.sty

原创 用按扭查看源文件

原创 禁用html页面的缓存的几种方法

1。在Asp页面首部〈head>加入     Response.Buffer   =   True     Response.ExpiresAbsolute   =   Now()   -   1     Response.Expires   =   0     Response.CacheControl   =   "no-cache"     Response.AddHeader   "Pra

原创 防范SQL注入式攻击JS版本

SQL注入式攻击是利用是指利用设计上的漏洞，在目标服务器上运行Sql命令以及进行其他方式的攻击 动态生成Sql命令时没有对用户输入的数据进行验证是Sql注入攻击得逞的主要原因。 比如： 如果你的查询语句是select * from admin where username="&user&" and password="&pwd&"" 那么，如果我的用户名是：1 or 1

原创 树型菜单

请看运行代码! html>head> title>Treetitle> script type="text/javascript">...function writeCSS()...{ document.writeln(""); document.writeln(""); document.writeln(".dtree {"); document.writeln(" font-fam

原创 ASP操作Excel技术总结

一、环境配置  服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：  1．Win9x+PWS+Office  2．Win2000  Professional+PWS+Office  3．Win2000  Server+IIS+Office  目前笔者测试成功的环境是后二者。Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防

原创 asp 导入导出Excel

 dim s,sql,filename,fs,myfile,x   Set fs = server.CreateObject("scripting.filesystemobject")  --假设你想让生成的EXCEL文件做如下的存放  filename = Server.MapPath("order.xls")  --如果原来的EXCEL文件存在的话删除它  if fs.FileExis

原创 ASP导出Excel数据的四种方法

一、使用OWC 　　什么是OWC？ 　　OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下，

原创 点击IE右上角的X时，弹出对话框

DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">html xmlns="http://www.w3.org/1999/xhtml">head>meta http-equiv="Content-Type" c

原创 全文简繁转换

全文简繁转换共有两处JS代码，前面一部分放在heaD内。后面 的一部分放在需要链接简繁的位置。 DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">html xmlns="http://www.w3.org

转载 有12个球，其中只有一个有质量问题

有12个球，其中只有一个有质量问题，其他的球均 质量相同。问题，把这些球称量三次，找出那个质量问题球？查来的。参考答案1： 首先，把12个小球分成三等份，每份四只。 拿出其中两份放到天平两侧称（第一次） 情况一：天平是平衡的。 那么那八个拿上去称的小球都是正常的，特殊的在四个里面。 把剩下四个小球拿出三个放到一边，另一边放三个正常的小球（第二次） 如天平平衡，特殊的是剩下那个。 如果不平衡，在天平