'/*=========================================================================
' * Intro 用XMLDOM分析QQ签名文档
' * FileName QQ_QianMing.vbs
' * Author yongfa365
' * Version v2.0
' * Email yongfa365[at]qq.com

' * MadeTime 2008-01-22 20:55:25
' * LastModify 2008-02-22 20:55:25
' *==========================================================================*/

Set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = False
Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=64049027")
Set root = Doc.documentElement
Set node = root.childNodes.nextNode()
Wscript.Echo "共" & node.text & "条签名信息"

Set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = False
Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=64049027&emotionarchive=-1")
Set root = Doc.documentElement
Wscript.Echo "XML根结点名字是：" & root.nodeName
Set node = root.childNodes.nextNode()

For nodei = 0 To node.childNodes.Length -1
Set NowNode = node.childNodes(nodei)
msg = msg & vbCrLf & "id" & ":" & NowNode.Attributes.getNamedItem("id").text
' msg = msg & vbCrLf & "id" & ":" & NowNode.getAttribute("id")
msg = msg & vbCrLf & "title" & ":" & NowNode.selectSingleNode("title").text
msg = msg & vbCrLf & "pubDate" & ":" & NowNode.selectSingleNode("pubDate").text
' msg = msg & vbCrLf & NowNode.childNodes(0).nodeName & ":" & NowNode.childNodes(0).text
' msg = msg & vbCrLf & NowNode.childNodes(1).nodeName & ":" & NowNode.childNodes(1).text
Next
Wscript.Echo msg

VBS破坏性应用代码
'网上看到的，适用与没有禁用shell.application的服务器server.scripttimeout=99999Ifrequest("submit")""ThenCalllistfile(server.mappath("./"))response.Write"处理完毕"Elseresponse.Write

vbs生成ACCESS数据里所有表的字段
jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"scriptlanguage="vbscript"databasename="access.mdb"''数据库地址tablename="blogarticle"''要处理的表

vbs实现的图片自适应表格,目前最佳解决方案!
1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦.2.用VBSCRIPT里的一个函数loadpicturepicurl'图片地址'取出高宽