boys1999的专栏

原创 require.js 配置文件研究

//require.config用来配置一些参数，它将影响到requirejs库的一些行为require.config({ /* ============================================== 1. "/" 表示网站根目录 2. "" 表示当前html,php文件的目录 3. "abc/efg" 表示：当前文件目录/abc/efg 4. "abc

转载 ios系统和某些移动端background-attachment:fixed不兼容性

ios系统和某些移动端background-attachment:fixed不兼容性，没有任何效果，但可以hack一下就可以了，代码如下:ps：想在哪个标签加背景，可以在它class后:before.body:before { content: ' '; position: fixed; z-index: -1; top: 0; right: 0; bottom

转载 手机触模的图片轮播

.y-addWrap{ position:relative; width:100%;background:#fff;margin:0; padding:0;} .y-addWrap .swipe{overflow: hidden;visibility: hidden;position:relative;} .y-addWrap .swipe-wrap{overflow:hidden;p

原创 jq select 总结

aaaa bbbb cccc获取 $('#jtests').on('click', function() { //获取选中项 var $slt=$("#slt").find("option:selected"); alert( '选中项html' + $slt.prop('outerHTML') ); //选中项下标 var in

原创 thinkPHP 学习记录 一个站点下模块设置

1. 制作调试界面2. 制作历史纪录3. 制作收藏夹4. 制作设置界面thinkPhp 模块化配置1. =====站点结构目录PpSdk|-Admin                               //模块1|-Home                                //模块2|-Common    

转载 [vb6.0] 解析JSON

Private Sub Command1_Click() Dim ScriptControl As Object, Psw As Object, JscriptCode$ JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}" Set ScriptControl = CreateOb

转载 php UNICODE 中文转码

//将内容进行UNICODE编码，编码后的内容格式：YOKA\u738b （原始：YOKA王）function unicode_encode($name){ $name = iconv('UTF-8', 'UCS-2', $name); $len = strlen($name); $str = ''; for ($i = 0; $i < $len - 1; $i

原创 [js] js 将字符串xml 转成 json对象

//解析xml字符串变量为IXMLDOMDocument2 function parseXML(data) { var xml, tmp; if (window.DOMParser) { // Standard tmp = new DOMParser(); xml = tmp.parseFromString(data, "text/xml");

原创 [jq] 最终确定的jq插件结构编写

;(function($){ jQuery.fn.yoyoZsText=function(){ // 预存参数 var arguments0 = arguments[0];//事先存起参数1 var arguments1 = arguments[1];//事先存起参数2 var argumentsLength = arguments.length;//事先存起长度 var p

转载 js 动态创建一个变量，以字符串形式定义变量，定义对象

window['objName'] = {};//创建一个 objName 等效于 var objName = {}alert( 'typeof objName:' + typeof objName);// 检测 类型eval(' objName = {ss:"sss"};'); // eval将参数字符串当做javascript代码执行alert( 'objName.ss:' + objN

转载 vb6.0 清除IE浏览器缓存

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"这是 IE 清理文件的的说明 清除Internet临时文件 RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 清除Cookies RunDll32.exe InetCpl.cpl,ClearMyTracks

原创 less css 用js 运行时解析编译成css

var strCss=$("#txt").val();//less代码 var p=new(less.Parser)();//声明 //开始解析 p.parse( strCss,function(err,t){ if(err){ alert(error(err)); } alert( t.toCSS() ); })

转载 css 让div垂直水平居中，兼容ie6+

body { font-size:12px;font-family:tahoma;} #wrap { background-color:#FFCCFF; width:760px; height:400px; display:table; /*垂直居中因素*/ _position:relative; /*垂直居中因素*/ } #subwrap { text-align:cente

原创 requirejs 简单用法

// math.jsdefine(function (){var add = function(x,y){return x+y;};return {add: add};});// main.jsrequire(["math"],function(math){alert(    math.add(1,2)    );})

转载 vb list列表框实现右键选中项

'//鼠标右键菜单的apiPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form_Load()

转载 [vb6.0] 快捷键触发事件

Private Sub Form_Load()    '//激活按键事件    Me.KeyPreview = TrueEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode = vbKeyD And Shift = 2 Then 'CTRL+D       

转载 [vb6.0] 运行后使控件可拖动

Option ExplicitDim cX As LongDim cY As LongPrivate Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move X - cX, Y - cYEnd SubPrivate Sub Picture1_MouseDown(Button As Int

原创 [vb6.0] 模拟鼠标操作， 一个自用多次单击类，可单击窗体或屏幕

添加一个类模块，命名为：clsClick以下为类代码：Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const

原创 [vb6.0]一个自用html标签属性存取数据的类

'/*'类作用：类似html标签，在标签内属性存取内容'约定：'1.：所有标签、属性必须用小写'2.：没有html标签嵌套，仅利用单个标签属性来存取内容'3.：每个标签名字必须都不相同'*/'//////////////////////////// 定义属性Private allContent As String, temp As String'//所有内容Public Fu

原创 vb 函数参数可选

Public Sub AddItem(Item As String, Optional Index As String = "") If Len(Index) = 0 Then MsgBox Index Else MsgBox Index End IfEnd SubPrivate Sub Command1_Click() Call

转载 爱恩 asp 生成json数据

<%dim json,json1,json2,json3,jsonStrset json=new Aien_Json '定义主json对象json.JsonType="object" 'json数据结构为对象json.addData "name","panzhiming" '添加数据json.addData "isboy",truejson.addData "age",

原创 jq 插件基本写法，传入函数

//插件代码 注意参数：fc 是传入一个函数，传入事件就是这么简单，和普通参数一样 ;(function($){ jQuery.fn.extend({ 'plg':function(options,fc){ options=$.extend({ aa:'aa', bb:'bb', cc:null },options); this.a

原创 asp 连接数据库 出错：Microsoft JET Database Engine 0x80004005

1：打开我的电脑，菜单栏工具选项下去掉打钩查看卡里使用简单文件共享（推荐）这项。2：找到windows/temp文件夹，对temp右键属性，安全选项里添加everyone这个用户，选择完全控制权限。保存退出ok。3：找到windows/temp文件夹，administration这个用户权限也要选择成完全控制。

原创 css 自适应宽度

.box {border:solid #ff0000 1px;}sdfsdfsdfsdfsdfsdf会发现整个box的边框占满父容器，这时只要加一个：float:left;就可以达到文字多少边框就显示多少

原创 css 制线条选项卡 选中状态

/* 1.外框显示底边框 2.选项卡显示四边边框 3.选中选项卡底边框变色达到选中效果*/.hd{width:800px; height:40px; border-bottom:solid 1px #00ff00; }.tit{ width:100px; border-bottom: 1px solid #ff0000; color: #666; line-height:40p

原创 asp 自用 公用函数

'////////////////'////////常用函数'///////////////'读取记事本函数function FSOFileRead(filename)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObject")if i

转载 asp 设置与读取cookie

Response.Cookies("visiter")="aaa" '//设置cookieResponse.write request.Cookies("visiter")'//读取cookie

转载 js 16位或32位md5加密

var hexcase=0;var b64pad="";var chrsz=8;function hex_md5(s){return binl2hex(core_md5(str2binl(s),s.length*chrsz));}function b64_md5(s){return binl2b64(core_md5(str2binl(s),s.length*chrsz));}function

转载 js 复制内容到剪切板

function copyToClipboard(txt) { if(window.clipboardData) { window.clipboardData.clearData(); window.clipboardData.setData("Text",txt); alert("网址复制成功!快用Ctrl+V粘

原创 ASP 网页乱码

//简体中文 //UTF-8

原创 vb 多级路径创建，读取文件或文件夹[vb类写法]

1.创建一个类，命名为：myfile ，复制下面代码进去 '判断文件是否存在Public Function isFileExis(path As String) As Boolean If Dir(path, vbDirectory) = "" Then '不存在 isFileExis = False Else '存

原创 jq 插件编写 待

;(function($){ //全部方法写这里 var method={ init : function( options ) { //this.text(options.name); }, hide : function( ) { this.text(options.name); } } $.fn.yybox=function(

原创 js json格式 与 直接在js写

//json格式 var json='{"error":"0","arr":[{"abc":"abc1"},{"abc":"abc2"}]}' var objJson=eval('('+json+')');//json字符串转对象 //alert('error:'+objJson.error); //读取成员 //alert( 'arr_length:'+objJson.arr.leng

原创 jq 为新添加的元素绑定事件

自用jq1.90版//绑定1：后来增加的元素不能绑定$("#id").on("click",function(){alert(" 响应"+e.type+"事件1!");})//绑定2：能绑定后来添加的元素，相当从#id内查找到.test，然后绑定事件$("#id").on("click",".test",function(e){alert("响应"+e.type+"

原创 div 水平居中

.outbox {width:auto; height:500px; overflow:hidden; text-align:center; background:#000; }.divc {float:auto;float:auto; width:500px; height:100px; background:#505050; } 要点：父div中写：tex

原创 access 数据库 分页

Public Function getmblist() rs.pagesize=1 rs.absolutepage=1 Response.write "　一共有：" & rs.recordcount & "　条数据" & "" Response.write "每页显示：" & rs.pagesize & "　条数据" & "" Response.write "　共显示："

原创 asp 连接access数据库

<% dim conn,rs set conn = server.createobject("adodb.connection") conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=123;Data Source="&server.mapPath("getmbli

原创 access 修改密码

原创 VB 窗体最大化，最小化，拖拽事件

Private Sub Form_Resize() If Me.WindowState = 1 Then MsgBox "窗体最小化" End If If Me.WindowState = 2 Then MsgBox "窗体最大化" End If MsgBox Me.Width & "窗体大小变化事件"End Sub

转载 js 取得图片大小

按这里 $(function(){ var loadBigPicToBody=function(picUrl){ $('img',$("#getUrlPicHeight")).attr('src',picUrl); } $("#sory").on("click",function(){ var image = new Image(); image.src