原创 愛恩 asp 生成json數據

<!--#include file="json.inc"--> <% dim json,json1,json2,json3,jsonStr set json=new Aien_Json '定義主json對象 json.JsonTy

原创 ASP 網頁亂碼

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  //簡體中文 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> //UTF-8    Response.ContentTy

原创 vb 多級路徑創建,讀取文件或文件夾[vb類寫法]

1.創建一個類,命名爲:myfile ,複製下面代碼進去 '判斷文件是否存在 Public Function isFileExis(path As String) As Boolean If Dir(path, v

原创 requirejs 簡單用法

<!-- y.html --><script src="require.js" data-main="main"></script> // math.js define(function (){var

原创 [vb6.0] 解析JSON

Private Sub Command1_Click() Dim ScriptControl As Object, Psw As Object, JscriptCode$ JscriptCode = "function t

原创 less css 用js 運行時解析編譯成css

var strCss=$("#txt").val();//less代碼 var p=new(less.Parser)();//聲明 //開始解析 p.parse( strCss,function(err,t){ if(e

原创 ios系統和某些移動端background-attachment:fixed不兼容性

ios系統和某些移動端background-attachment:fixed不兼容性,沒有任何效果,但可以hack一下就可以了,代碼如下: ps:想在哪個標籤加背景,可以在它class後:before. body:before {

原创 [vb6.0] 運行後使控件可拖動

Option Explicit Dim cX As Long Dim cY As Long Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

原创 css 讓div垂直水平居中,兼容ie6+

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd

原创 jq select 總結

<script src="https://ss0.bdstatic.com/5aV1bjqh_Q23odCf/static/superman/js/lib/jquery-1.10.2_d88366fd.js"></script> <met

原创 vb6.0 清除IE瀏覽器緩存

Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2" 這是 IE 清理文件的的說明 清除Internet臨時文件 RunDll32.exe InetCpl.cpl

原创 require.js 配置文件研究

//require.config用來配置一些參數,它將影響到requirejs庫的一些行爲 require.config({ /* ============================================== 1.

原创 vb list列表框實現右鍵選中項

'//鼠標右鍵菜單的api Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As