摘要: <%'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'┃ ┃'┃ 摘 要: 统计图--直方图 ┃'┃ 作 者: 翁云兵 ┃'┃ 创建日期:2004年11月5日 ┃'┃ 完成日期:2004年11月5日 ┃'┃ ┃'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'参数含义(数组,横坐标,... 阅读全文
posted @ 2012-12-03 09:28 USID 阅读(752) 评论(0) 推荐(0) 编辑
摘要: 以下示例将标题属性添加到 Address 表中的 PostalCode 列。USE AdventureWorks2008R2;GOEXEC sp_addextendedproperty @name = N'Caption', @value = 'Postal code is a required column.',@level0type = N'Schema', @level0name = Person,@level1type = N'Table', @level1name = Address,@level2type = N 阅读全文
posted @ 2012-11-21 16:44 USID 阅读(858) 评论(0) 推荐(0) 编辑
摘要: 代码 如下:<!--#include file="include/config.asp"--><!--#include file="common/sub_function.asp"--><htm><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>2012年6月工程进度报审表</title></head>&l 阅读全文
posted @ 2012-11-21 09:41 USID 阅读(471) 评论(0) 推荐(0) 编辑
摘要: 1 <% 2 Private Const BITS_TO_A_BYTE = 8 3 Private Const BYTES_TO_A_WORD = 4 4 Private Const BITS_TO_A_WORD = 32 5 6 Private m_lOnBits(30) 7 Private m_l2Power(30) 8 9 Private Function LShift(lValue, iShiftBits) 10 If iShiftBits = 0 Then 11 LShift = lValue 12 Exit Func... 阅读全文
posted @ 2012-10-12 15:43 USID 阅读(1682) 评论(0) 推荐(0) 编辑
摘要: To set a hook, call theSetWindowsHookExfunction from the User32.dll file. This function installs an application-defined hook procedure in the hook chain that is associated with the hook.To set a mouse hook and to monitor the mouse events, follow these steps:Start Microsoft Visual Studio .NET.On theF 阅读全文
posted @ 2012-04-18 13:54 USID 阅读(232) 评论(0) 推荐(0) 编辑
摘要: 在很多WEB开发的时候我们都需要用到透明遮罩层来实现某些功能。下面共享一下比较实用的代码;JS代码:<script language="javascript" type="text/javascript">//创建一个遮罩层function Layer(html){ //创建一个遮罩层,半透明 var lay = document.createElement("div"); lay.id = "frame" with(lay.style) { width = "100%"; heig 阅读全文
posted @ 2012-02-07 16:31 USID 阅读(443) 评论(0) 推荐(0) 编辑
摘要: 该控件在最新的谷歌浏览器,最新的火狐浏览器,还有在IE8上都进行成功测试,兼容性好。很容易扩展,调用方式简单,以后的项目上日期控件可以选择自己编写的了。 阅读全文
posted @ 2011-12-13 17:13 USID 阅读(1942) 评论(4) 推荐(1) 编辑
摘要: <%function ccdate(str)'自定义日期类型转换函数if isnull(str) or str="" then ccdate=""elseif isdate(str) then if FormatDateTime(str,vbShortDate)=FormatDateTime("1900-1-1",vbShortDate) then ccdate="" else ccdate=FormatDateTime(str,vbShortDate) end ifend ifend functio 阅读全文
posted @ 2011-07-12 18:54 USID 阅读(450) 评论(0) 推荐(0) 编辑
摘要: 一直想在博客园入住的,今天得以成功!让我们一起学习,一起成长 阅读全文
posted @ 2011-01-24 11:57 USID 阅读(131) 评论(0) 推荐(0) 编辑