Function filenum(filename,i)
Dim st,s
Set st= CreateObject("ADODB.Stream")
st.Type = 2 '流类型为文本
st.Mode = 3 '模式为读写
st.Open
st.LineSeparator=13
st.LoadFromFile filename
Do While Not St.EOS
s = Split(st.readtext(), vbCrLf)
Loop
'MsgBox UBound(s) total
filenum=s(i)
st.Close
End function


MsgBox filenum("file.txt",2)

利用sql语句复制一条或多条记录
insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1'如果id为自动编号,就把改为:insertintoarticle(class,title,content)select'2',title,contentfromarticl

百度空间备份脚本baidublogbak.vbs代码分析
'用法示例：'cscriptbak.vbs百度用户名第I页至第n页目录列表.htm用户名密码'例如我的blgo示例：'cscriptbaidublogbak.vbsmyvbscript03url.htmmyvbscriptmima'表示从第0页备

vbs版sql查询分析器lcx作品
花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗