2010 年 7月 30 日随笔档案 - houbusheng123

2010年7月30日

摘要：局部控制<a href="link1.htm" nfocus="this.blur()">link1</a><a href="link1.htm" nfocus="this.close()">link1</a><a href="link1.htm" hidefocus="true">link1</a><a href="l... 阅读全文

posted @ 2010-07-30 14:37 houbusheng123 阅读(156) 评论(0) 推荐(0) 编辑

字符串截取函数

摘要： Function gotTopic(str,strlen)'函数名称: gotTopic'功能描述: 控制字符串显示的长度'使用方法：gotTopic(str,strlen)Dim l,t,cl=len(str)t=0If IsNull(str) Then Exit FunctionFor i=1 to lc=Abs(Asc(Mid(str,i,1)))If c>255 Thent=t+2E... 阅读全文

posted @ 2010-07-30 14:04 houbusheng123 阅读(181) 评论(0) 推荐(0) 编辑

FLASH插件的引用

摘要： <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="1004" height="229"> <param ... 阅读全文

posted @ 2010-07-30 14:03 houbusheng123 阅读(154) 评论(0) 推荐(0) 编辑

页面切换函数

摘要： sub ShowPage(Url,TotleNum,NumPerPage,page,ShowJump,pagestyle) '函数名：showpage(Url,TotleNum,NumPerPage,ShowJump) '作用：显示分页代码 '参数：Url:传递查询参数 ' TotleNum:总条数' NumPerPage:每页条数' ShowJump:是否显示跳转按钮 (true or fa... 阅读全文

posted @ 2010-07-30 13:47 houbusheng123 阅读(186) 评论(0) 推荐(0) 编辑

时间和日期相关函数

摘要： Private Function GetLongDate(Value)'函数名称: GetLongDate'功能描述: '把时间转换为长日期格式格式与 FormatDateTime函数相似'使用方法：GetLongDate(Value) Dim strYear, strMonth, strDate strYear = Year(Value) strMonth = Month(Value)strD... 阅读全文

posted @ 2010-07-30 13:38 houbusheng123 阅读(157) 评论(0) 推荐(0) 编辑