俺么搔瑞

2009年12月31日 没有评论

200912310803022af12

分类: 图片 标签:

EVERY WOMAN IN THE WORLD

2009年12月13日 没有评论

EVERY WOMAN IN THE WORLD
Air Supply
(Dominic Buggatti/Frank Musker)


Every night seems dinner and wine
Saturday days
I was never in love, never had the time
In my hustle and hurried world
Laughing my self to sleep, waking up lonely
I needed someone to hold me, oh
It’s such a crazy home town
It can drag you down
Till you run out of dreams
So you party all night to the music and lights
But you don’t know what happiness means
I was dancing in the dark with strangers
No love around me
When suddenly you found me, oh
Girl, you’re every woman in the world to me
You’re my fantasy, you’re my reality
Girl, you’re every woman in the world to me
You’re everything I need, you’re everything to me

阅读全文…

vbs批量重命名脚本

2009年12月3日 没有评论

功能::假设有个文件夹的所有文件名称前面有个AA_开头,这个小脚本的作用就是删除这个AA_。只是简单的小脚本,如果还有多个”_”字符的时候,重复使用有可能会全部都删除了。

使用:dir填写实际文件所在目录;target填写要分割的字符,保存为.VBS文件,双击运行。做好备份,因为是直接修改原始文件!

dir=("C:\Users\海军\Desktop\104CANON")
target=("_")

Set fso = CreateObject("Scripting.FileSystemObject")
set rfd=fso.getfolder(dir)
set fs=rfd.files
for each f in fs

        If InStr(f.name,target) Then
            length=Len(f.name)
            star=InStr(f.name,target)
            newname=Right(f.name,length-star)
            f.name=newname
        End If

Next

分类: 技术 标签: ,

Virtuemart Menu

2009年11月26日 没有评论

The vmart module just outputs links instead of an unordered list like they should.
You’ll need to edit /templates/jp_techpraise_1.5/css/theme1.css (or the theme you’re using)
and add this

/*
* Virtuemart Menu
*/
.moduletable_content a{
display:block;
padding:2px 2px;
border-bottom:1px dotted #C8CACA;
//border-top:1px dotted #FDFDFD;
//color:#666;
text-decoration:none;
}

.moduletable_content a:hover {
background-color:#F0F0F0;
}

a#active_menu  {
color:#cc0000;
background-color:#b02500;
}

分类: 技术 标签:

小聚

2009年11月1日 1 条评论

今天和老邓,金生吃饭了

喝了点酒

奎元家庭幸福

金生将要离开广州

我,依然在这里

人人都有自己的故事

3年,5年,慢慢的老去

还没有找到老婆,也许会孤单一辈子了啊

今天的肚子很不争气

不知道是喝酒喝的还是吃的,好疼,实在忍不住,

只好回来了,拉肚子

人人都有本难念的经

一路好走

万事如意

So What-Pink

2009年11月1日 没有评论

pink – so what

nanananananana

nananananana

nanananananana

nananananana

i guess i just lost my husband

i don’t know where he went

so i’m gonna drink my money

i’m not gonna pay his rent (nope)

i got a brand new attitude

and i’m gonna wear it tonight

i wanna get in trouble

i wanna start a fight

nanananananana

i wanna start a fight

nanananananana

i wanna start a fight

so so what

i’m still a rock star

i got my rock moves

and i don’t need you

and guess what 阅读全文…

分类: 音乐 标签: ,

庆国庆60周年

2009年9月30日 没有评论

60周年!!!!!举国同庆!!

分类: 杂志 标签:

一位高人的QTP学习笔记

2009年9月22日 没有评论

转贴一个高人的QTP笔记供大家学习。
文章比较长,一共三部分:
1、连接数据库查询例子,无参数化
//查询收文操作,通过数据库查询记录数是否正确
//1、输出记录数值,例如78条 2、获取输出的记录数值 3、连接数据库,查询记录数
4、输出记录数值和从数据库中查询记录数值,相比较,相等则成功,不等则失败
Browser(“湛江信息化测试登录”).Page(“湛江东兴石油企业有限公司办公自动化系统”).Frame(“mainFrame”).Output CheckPoint(“78”)
Dim mm
‘mm=DataTable.GlobalSheet.GetParameter(“mainFrameOutput_Text_out”).Value
//注释,获取datatable值与DataTable(“mainFrameOutput_Text_out”, dtGlobalSheet)一致
mm=DataTable(“mainFrameOutput_Text_out”, dtGlobalSheet)
MsgBox mm
Dim res,cmd,sql
Set res=createobject(“adodb.recordset”)
Set cmd=createobject(“adodb.command”)
Cmd.activec
Cmd.CommandType = 1
sql=”select count(*) from oa_receivebumf  where BUMFNAME like ‘%收文测试%'”
‘sql=”select  count(*)  from oa_receivebumf  where BUMFNAME='”&nn&”‘”
//注释,sql语句,等于时sql语句
// sql=”select  count(*)  from oa_receivebumf  where BUMFNAME like ‘%nn%'” //like时sql语句
Cmd.CommandText = sql
Set res = Cmd.Execute()
//msgbox res(“name”)
MsgBox res(0)
If   Cstr(res(0)) = Cstr(mm)Then
Reporter.ReportEvent micPass, “test”,   “查询成功”
else
Reporter.ReportEvent micfail, “test”,   “查询失败”
End If
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing 阅读全文…

分类: 技术 标签: ,

黎明 – Sugar In The Marmalade

2009年9月19日 没有评论

黎明 对不起,我爱谁

2009年9月19日 没有评论

分类: 音乐 标签: ,