自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

SImonJ07的记事本

Ask right questions when you want right answers

  • 博客(60)
  • 收藏
  • 关注

原创 css footer适应长短页面

<br /><!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" content="text/html; charset=utf-8" /><ti

2011-04-08 14:03:00 1044 3

原创 VB mcisendstring 方法

做个mp3播放器,用realplay和WMP做出来的程序内存占用太大。如果你仅仅是播放MP3,建议使用API函数mciSendString。Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As St

2010-04-21 16:30:00 3406 1

原创 php printf()

printf()函数是格式化输出函数, 一般用于向标准输出设备按规定格式输出信息。在编写程序时经常会用到此函数。函数的原型为:int printf(const char *format, ...);函数返回值为整型。若成功则返回输出的字符数,输出出错则返回负值。printf()函数的调用格式为:printf("", );其中格式化字符串包括两部分内容: 一部分是正常字符, 这些字符将按原样输出;

2009-06-23 09:32:00 1733 1

原创 javascript 事件

一般事件事件        浏览器支持        描述onClick        IE3|N2|O        鼠标点击事件,多用在某个对象控制的范围内的鼠标点击onDblClick        IE4|N4|O        鼠标双击事件onMouseDown        IE4|N4|O        鼠标上的按钮被按下了onMouseUp        IE4

2009-06-12 10:38:00 550

原创 使用 CONVERT:

使用 CONVERT:CONVERT (data_type[(length)], expression [, style]) Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06 Select CONVERT(

2009-05-07 13:19:00 798

原创 中国能养多少“士”??

现在的大学采取量化管理,规定老师们从讲师升为副教授,要发多少篇论文,从副教授升为教授,又要发多少论文。在这样的制度下,大学里的老师变成了母鸡,根本没有心思好好做学问,好好带学生,光忙着生蛋发论文了。 他们让我再生些‘创新型’的蛋!我回答他们:滚你妈的蛋! 大学应该有更宽松的环境让老师把更多心思放在如何培养学生上,至于‘下蛋’,有蛋则生,无蛋则养。孟尝君还养士三千呢。 ---

2009-04-24 11:18:00 1076 1

原创 查询表信息

--参考:     SELECT       表名=case   when   a.colorder=1   then   d.name   else     end,     表说明=case   when   a.colorder=1   then   isnull(f.value,)   else     end,     字段序号=a.colorder,     字段名=a

2009-02-16 14:59:00 653

原创 获取数据库表名和字段

 --读取库中的所有表名 select name from sysobjects where xtype=u --读取指定表的所有列名 select name from syscolumns where id=(select max(id) from sysobjects where xtype=u and name=表名)获取数据库表名和字段s

2009-02-16 13:55:00 787

原创 链接:在路上 by 咬人

在路上

2009-02-16 08:46:00 551

转载 在VB中实现移动没有标题栏的窗口

通过消息的发送实现移动无标题窗体。当鼠标按下、移动或释放时,将鼠标在窗体上按下的消息(消息值为HTCAPTION)发出,就可以拖动窗体了。代码如下:    Private Declare Function ReleaseCapture Lib "user32" () As Long    Private Declare Function SendMessage Lib "u

2008-11-18 15:00:00 852

原创 vb 隱藏屬性

control.font.charset         = 134(CHINESE_GB2312)            128(Japanese)

2008-11-01 09:14:00 689

原创 VB 关闭其它窗口

Option ExplicitPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim f1 As FormSelect Case Button.IndexCase 1    Set f1 = New Form1    Form1.Show     unloadothe

2008-10-23 17:14:00 943

原创 VB6.0 自動生成 get let方法的工具

 Option ExplicitDim s As StringPrivate Sub Command1_Click()CD.Filter = "TXT|*.txt"CD.ShowOpenText1 = CD.FileNameEnd SubPrivate Sub Command2_Click()Dim temp As String, b() As St

2008-09-27 08:50:00 1164

原创 保存圖片

2008-09-10 09:20:00 606

原创 MoveComplete WillMove vb6

adodc  recordset  Procedure declaration does not match description of event or procedure having same name 報這個錯了么 ?  引用Microsoft ActiveX Data Objects 2.0 Library就好了 2.1以上都不好用

2008-08-29 09:26:00 671

原创 Delphi : Application.MessageBox

Application.MessageBox 是 TApplication 的成员函数,宣告如下:function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;自变量:  1. Text:要显示的讯息  2. Caption:讯息窗口的标题列文字  3. Flags:讯息旗标    

2008-07-25 09:47:00 1218

原创 vb 进程控制 查询 关闭

Option ExplicitPublic Const sEndProess As String = "excel.exe" &apos;注意必须小写Public Declare Function CreateToolhelp32Snapshot Lib "kernel32 " (ByVal dwFlags As Long, ByVal th32ProcessI

2008-07-16 16:34:00 1094

原创 吃辣椒?

辣椒瘦身辣椒,那个让你又爱又恨的家伙,让你啧啧出汗却欲罢不能,它玲珑的身体里包裹着一团燃烧的烈火,是蔬菜中最有激情和热情的角色,现在,调皮的它又多了一个你无法拒绝的理由:燃烧脂肪,修身塑体! 脂肪何以被燃烧 1、辣椒燃烧脂肪的奥秘是什么?关键在于——辣椒碱,只须吃上一两勺,它的刺激口味即刻会向脑神经发出“足够”讯号,导致食欲大减。同时辣椒碱的另一大作用是刺激体内生热系统,加快新陈代

2008-07-08 11:17:00 715

原创 大男人小女孩

林俊杰 - 大男人小女孩☆专辑:西界不是我的错 我们都听过完美的时候 要更多找这时候说的太多有时候的我只想和你一样沉默不想单单罗罗嗦嗦水也灭不掉的火也许大男人真的很男人少了点风度 还是不承认有时候错的并不知道错的不想借口只是直接一天说有时候女孩没那么小孩心里的无奈也需要点关怀遗憾的遗留变成勉强了怎么能重新再来不是我的错 我

2008-06-30 19:48:00 849

原创 Delphi Format方法说明

function Format(const Format: string; const Args: array of const): string; overload; ormat方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,但并不多用。Format参数是一个格式字符串,用于格式化Args里面的值的。 Args是一个变体数组,表示用以输出的各个常量或变量。如以下例子:

2008-06-27 14:30:00 1224

原创 神奇的滤镜

  HTML {...}{ FILTER: progid:DXImageTransform.Microsoft.BasicImage (grayscale=1)} 

2008-05-20 09:41:00 605

原创 skype 有危险

2008-05-19 09:51:00 643

原创 关于地震想到的

请媒体尽量减少现场救援报道,救援现场需要安静,这样更多人的求救声音会被听到。 建议捐款者们尽量实名捐款,这样多少能对善款使用效率低下和贪污问题有所抵制。 地震的时候玻璃不容易被震碎 吗?看了很多照片,完好的房子一般玻璃都没碎。 关于80后的生死观。。。 

2008-05-19 08:15:00 511

原创 a标签target试验

 Top.htmlhtml>frameset rows="*,*" cols="*,*">    frame src="MidNode.html"  />    frame src="Node.html" />    frame src="Node.html" />    frameset cols="*,*" >        frame src="Node.html" />    

2008-04-24 10:59:00 732

原创 打印數組的全部排序

 Dim f As String  Sub printstr(s() As String)    Dim s2() As String, k As String    If UBound(s) - LBound(s) = 0 Then        Print f & " " & s(LBound(s))    Else        For i = LBound(s) To UBound(s

2008-04-03 09:19:00 713

原创 InternetSetOption 网络API

InternetSetOption函数     用到的变量     -------------------------------------------------    Private   Const   INTERNET_OPTION_CONNECTED_STATE   =   50     Private   Const   INTERNET_STATE_DISCONNECTED_

2008-03-28 13:29:00 4948 1

转载 FCKeditor在 JSP和JSF 网站项目中的应用

让FCKeditor在 JSP和JSF 网站项目中跑起来一、准备功夫1.1 下载最新版的FCKeditorhttp://www.fckeditor.net/download/目前最新版是:FCKeditor 2.3.1(FCKeditor_2.3.1)和 FCKeditor.Java(FCKeditor-2.3)1.2 如果需要使用到jsf的标签库,则还需要下载fck-faces-1.5.1, 你

2008-03-11 09:03:00 805

原创 14 个经典的Javascript代码

■打开■   ■另存为■  ■属性■  ■打印■  ■页面设置■  ■刷新■  ■导入收藏■  ■导出收藏■  ■加入收藏■  ■整理收藏夹■  ■查看原文件■  ■语言设置■  ■前进■  ■后退■  

2008-01-24 08:10:00 526

转载 学校教育真的那么重要吗?

李子暘 @ 2007-12-24 21:35:08  前几年,社会舆论大力宣传要重视教育,并且严厉抨击那些不让自己的孩子接受更多教育的家长。这些家长被指责为目光短浅、盲目追求眼前利益,而不惜放弃自己子女成才的机会。他们注定要在以后后悔不已。  这种舆论看起来非常正确,但是其中却有着明显的不合情理之处。按理来说,天下最关心孩子的莫过于他们的家长。不容易理解,为什么外人比家长更关心孩子

2007-12-26 08:36:00 883

原创 javascript基础

 每一项都是js中的小技巧,但十分的实用! 1.document.write(""); 输出语句 2.JS中的注释为// 3.传统的HTML文档顺序是:document->html->(head,body) 4.一个浏览器窗口中的DOM顺序是:window->(navigator,screen,history,location,document) 5.得到表单中元素的名称和值:document.g

2007-12-19 13:21:00 1105

原创 一个受过教育的笨蛋是多么可怕的笨蛋

。。。。。。。。。。。。。。。。。。。。

2007-11-22 11:23:00 951

原创 小说亵渎

《亵渎》看了2遍半,有点感想:1.老狐狸休斯其实是希洛的化身,从他的年龄上看,正好是精灵族帝国落寞的后期。     再者,艾菲尔在最后离开精灵圣地的时候,休斯让她自己躲起来,由他来挑战天界主身,还说自己分身无数、不会有事,这时艾菲尔质问休斯“您的茶杯不是只剩下一个了吗?”,休斯哑口无言。这说明艾菲尔是知道修斯是有分身的,再联想休斯描述的“亿万之主”席尔洛拥有化身亿万的威能,可以猜测:休

2007-11-13 17:02:00 1874

转载 正则表达式入门教程(有删节)

版本:v2.21 (2007-8-3) 作者:deerchao 来源:unibetter大学生社区 转载请注明来源文本格式约定:专业术语 元字符/语法格式 正则表达式 正则表达式中的一部分(用于分析) 用于在其中搜索的字符串 对正则表达式或其中一部分的说明清除格式正则表达式到底是什么?在编写处理字符串的程序或网页时,经常会有查找符合某些复杂规则的字符串的需要。正则表达式就是用于

2007-11-13 11:02:00 770

原创 关于如何添加桌面快捷方式

Private   Declare   Function           OSfCreateShellGroup   Lib   "Vb5stkit.dll"   _         Alias   "fCreateShellFolder"           (ByVal   lpstrDirName   As   String)   As   Long         Private  

2007-10-25 15:41:00 4416

原创 利用VB制作托盘

1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False 2、菜单:工程--添加模块 按“打开”这样就添加了一个新模块,名为Module1,保存为Module1.bas 3、在Module1中写下如下代码: Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON =

2007-10-25 15:35:00 801

原创 ExitWindowsEx

退出操作系统可以调用Windows API的ExitWindowsEx函数。在Win9x下,只要简单地调用ExitWindowsEx函数就可以实现关机或者重新启动。但是在Win 2000/XP下调用ExitWindowsEx函数时,还需要先调用AdjustTokenPrivileges函数。下面的例子在Win9x和Win 2000/XP下都可以使用。请参考程序中的注释。 例子: 1、建立一个窗体,

2007-10-25 15:33:00 1331

转载 JavaScript的9个陷阱

来自Nine Javascript Gotchas, 以下是JavaScript容易犯错的九个陷阱。虽然不是什么很高深的技术问题,但注意一下,会使您的编程轻松些,即所谓make life easier. 笔者对某些陷阱会混杂一些评点。  1、最后一个逗号  如这段代码,注意最后一个逗号,按语言学角度来说应该是不错的(python的类似数据类型辞典dictionary就允许如此)。IE会报语

2007-10-24 08:29:00 553

原创 MSXML2.XMLHTTP

XmlHttp是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。 来自MSDN的解释:XmlHttp提供客户端同http服务器通讯的协议。客户端可以通过XmlHttp对象(MSXML2.XMLHTTP.3.0)向http服务器发送请求并使用微软

2007-10-11 14:00:00 1417

原创 关于Adodb.Stream 的使用说明

组件:"Adodb.Stream" 有下列方法: Cancel 方法 使用方法如下 Object.Cancel 说明:取消执行挂起的异步 Execute 或 Open 方法的调用。 Close 方法 使用方法如下 Object.Close :关闭对像 CopyTo 方法 使用方法如下 Object.CopyTo(destStream,[CharNumber]) 说明:将对像的数据复制,destSt

2007-10-11 13:49:00 524

原创 Scripting.FileSystemObject对象

Set fso = Server.CreateObject("Scripting.FileSystemObject") 定义FSO对象 fso.CreateFolder(Server.MapPath(folder)) 得到路径 Set fout = fso.CreateTextFile(Server.MapPath(filepath)) 定义创建对象 fout.WriteLine mb_code

2007-10-10 15:35:00 1011

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除