摘要: function HasChinese(str) for i=1 to Len(str) if Asc(Mid(str,i,1)) < 0 then HasChinese = true exit for end if next end function 阅读全文
posted @ 2016-03-07 17:59 大葛 阅读(318) 评论(0) 推荐(0)
摘要: http://www.excelpx.com/thread-255298-1-1.htmlPrivate Sub Calendar1_Click() With Calendar1 ActiveCell = .Value '赋值给激活单元格 .Visible =... 阅读全文
posted @ 2015-10-29 22:38 大葛 阅读(569) 评论(0) 推荐(0)
摘要: 弹出层插件:http://sentsin.com/jquery/layer/tab的插件:http://www.sunsean.com/idTabs/ 阅读全文
posted @ 2015-02-01 21:24 大葛 阅读(172) 评论(0) 推荐(0)
摘要: 找了一个插件,还不错,先在润邦的微信站用了一下,其中的资质页面用到这技术,详见:http://code.ciaoca.com/jquery/wookmark/ 阅读全文
posted @ 2014-11-13 22:56 大葛 阅读(98) 评论(0) 推荐(0)
摘要: '//根据表和ID和字段名,返回内容Function dsf_fieldValueFromTable(fTable,id,fieldName) dim rs,sql set rs=server.createobject("adodb.recordset") sql="select * from " ... 阅读全文
posted @ 2014-06-25 22:00 大葛 阅读(215) 评论(0) 推荐(0)
摘要: 2014网站移动大赛:http://zhanzhang.baidu.com/act/mobilespeed/index百度的移动化建议:1.优先考虑使用h5建立移动站,之后通过站长平台移动sitemap工具提交sitemap地址,让百度移动第一时间发现您的移动资源;2.如果您已有pc站,可以考虑做自... 阅读全文
posted @ 2014-06-07 20:29 大葛 阅读(145) 评论(0) 推荐(0)