vb读XML节点属性
2009-4-2 16:43:42 阅读390 评论0 22009/04 Apr2
1.
Set CareerExperience = Resumes.Item(0).SelectSingleNode("CareerExperience")
MsgBox CStr(CareerExperience.Attributes.getNamedItem("years").Text)
Set CareerExperience = Nothing
2.
Set objXmlDom = CreateObject("Microsoft.XMLDOM")
关于VB抓XML文件(UTF-8)源码的问题
2009-4-2 16:42:09 阅读212 评论0 22009/04 Apr2
1。
Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.ReadyState <> 4
DoEvents
Wend
GetCode = xmlHTTP1.ResponseBody
If CStr(GetCode) <> "" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
“猪坚强”励志歌
2008-8-27 13:20:24 阅读65 评论0 272008/08 Aug27
《猪坚强》歌词全文
像猪一样的坚强，积蓄更多的能量。在绝境中把最美的梦想守望，不会害怕不会慌张。
像猪一样的坚强，拥有平凡的力量，让死神在无奈中仓皇逃亡，决不退缩决不投降。
女性婚姻营销学（幽默搞笑）
2008-8-25 17:27:39 阅读140 评论0 252008/08 Aug25
普天之下皆生意，对拼杀在市场前线的商业女性来说，以营销的方式对待婚姻，也许会取得家庭事业双丰收。
未婚篇：
1.相处不适及早分手，这叫市场转移。
2.多交些普通意义上的男性朋友，这叫潜在消费者积累。
3.生活相处前，先用脑子判断，这叫消费者画像。
4.遇到黑白马王子，不要轻易中断联系，这叫目标客户锁定。
5.女追男不是糗事，这叫市场攻势。
6.要知道对方还有几个女孩同时喜欢，这叫竞争形势掌握。
让人喷饭的百度知道问答！进来的肯定都笑！
2008-8-20 16:28:04 阅读73 评论0 202008/08 Aug20
回答:不好，浪费纸
▉提问:最简单的长寿秘诀是什么？
回答:保持呼吸，不要断气。
▉问：为什么这几天我拉的便便是一颗颗小小硬硬的？
回答：这是楼主变成小绵羊的前兆
▉提问:怎样可以最有效地瘦臀？
回答:蹭树。
▉提问:显示器画面不停地轻微抖动，有什么办法？
答:你也不停地抖动，当你的频率和振幅与显示器画面一致时，你就感觉不出来了。
▉提问:为什么好马不吃回头草？
回答:因为马儿拉屎在后面拉。
▉提问:如何除掉烦人的狗？我家附近有人养狗，且不管它随便跑，经常晚上在我家门口拉屎，有没有办法不让它在我家拉屎，或神不知鬼不觉地把它弄死且没人知道。
回答一:和主人说没用，我告诉
JS判断输入日期的有效性
2008-8-7 14:59:29 阅读78 评论0 72008/08 Aug7
<script language=javascript>
function strDateTime(str){
var reg = /^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/;
var r = str.match(reg);
if(r==null)return false;
var d= new Date(r[1], r[3]-1,r[4]);
var newStr=d.getFullYear()+r[2]+(d.getMonth()+1)+r[2]+d.getDate()
return newStr==str
}
alert(strDateTime("2002-1-31"))
alert(strDateTime("2002-1-41"))
alert(strDateTime("2000-2-29"))
JS正则表达式详解[收藏]
2008-8-6 14:39:13 阅读10 评论0 62008/08 Aug6
//校验是否全由数字组成
[code] function isDigit(s) { var patrn=/^[0-9]{1,20}$/; if (!patrn.exec(s)) return false return true } [/code]
//校验登录名：只能输入5-20个以字母开头、可带数字、“_”、“.”的字串
[code] function isRegisterUserName(s) { var patrn=/^[a-zA-Z]{1}([a-zA-Z0-9]|[._]){4,19}$/; if (!patrn.exec(s)) return false return true } [/code]
测试一下你的杀毒软件的等级!
2008-8-6 11:32:42 阅读13 评论0 62008/08 Aug6
测试一下你的杀毒软件是不是垃圾!100%准 前段时间中毒太深，深有感触。发个东西跟大家共享。
＊请大家赶紧测试完后附上您用的杀毒软件方便大家参考！！！！！！
把下面这段代码复制到记事本里，保存为文本文件，然后静观杀毒软件之变。若有反应
，那您就可以初步放心了。。。 注意,本病毒代码绝对不会伤害到机器.请放心!!!
--------我是分割线,不要复制我,复制我下面的代码------------------------------
VB转换半角全角字符
2008-8-5 13:54:31 阅读35 评论0 52008/08 Aug5
一个函数搞定：VB如何转换半角全角字符
仔细看啊，下面的"A","Ａ","1","１"是不一样的哦
debug.Print strconv("A",vbWide)
Ａ
debug.Print strconv("1",vbWide)
１
debug.Print strconv("１",vbNarrow)
1
debug.Print strconv("Ａ",vbNarrow)
A
点击TD变色
2008-7-30 13:53:28 阅读14 评论1 302008/07 July30
<head>
</head>
<body>
<script language="javascript">
function chgColor(obj)
{
var theTable = document.getElementById("myTable");
var theTds = theTable.cells; //把cells改成rows，就是TR改色
for(var i=0;i<theTds.length;i++)
{
用javascript获取屏幕高度和宽度等信息
2008-7-30 13:50:47 阅读9 评论0 302008/07 July30
网页可见区域高：document.body.clientHeight;
网页可见区域宽：document.body.offsetWidth; (包括边线的宽)
网页可见区域高：document.body.offsetHeight; (包括边线的宽)
网页正文全文宽：document.body.scrollWidth;
网页正文全文高：document.body.scrollHeight;
网页被卷去的高：document.body.scrollTop;
网页被卷去的左：document.body.scrollLeft;
网页正文部分上：window.screenTop;
网页正文部分左：window.screenLeft;
屏幕分辨率的高：window.screen.height;
鼠标托动表格排序
2008-7-30 13:49:53 阅读59 评论0 302008/07 July30
<html>
<head>
<title>鼠标托动表格排序</title>
</head>
<body>
<script language="javascript">
var beginMoving=false;
function MouseDownToMove(obj){
obj.style.zIndex=1;
obj.mouseDownY=event.clientY;
obj.mouseDownX=event.clientX;
beginMoving=true;
我的办公桌(拖动)
2008-7-30 13:43:14 阅读40 评论0 302008/07 July30
<head>
<title>我的办公桌</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="%CD%CF%B6%AF%B2%E3/style.css">
<script Language=JavaScript>
// Input 0
/**
* get element
* document.getElementById的封装
* 如果浏览器不支持getElementById方法则返回null
XP15个主要系统进程
2008-4-18 10:29:55 阅读29 评论1 182008/04 Apr18
进程文件:svchost或者svchost.exe
进程名称:microsoft service host process
描述:svchost.exe是一个属于微软windows操作系统的系统程序，用于执行dll文件。这个程序对你系统的正常运行是非常重要的。注意：svchost.exe也有可能是w32.welchia.worm病毒，它利用windowslsass漏洞，制造缓冲区溢出，导致你计算机关机。请注意此进程的名字，还有一个病毒是svch0st.exe，名字中间的是数字0，而不是英文字母o。请注意此进程所在的文件夹，正常的进程应该是在windows的system32和servicepackfiles\i386下面