IT博客-领星动网编程开发之爆炸小宇宙http://www.cnitblog.com/lxasp/cnitblog.com/lxasp - - 有一种信念叫做编程zh-cnTue, 21 Apr 2026 13:11:21 GMTTue, 21 Apr 2026 13:11:21 GMT60空有互变信息模型http://www.cnitblog.com/lxasp/archive/2025/02/17/96922.htmllxasplxaspMon, 17 Feb 2025 10:41:00 GMThttp://www.cnitblog.com/lxasp/archive/2025/02/17/96922.htmlhttp://www.cnitblog.com/lxasp/comments/96922.htmlhttp://www.cnitblog.com/lxasp/archive/2025/02/17/96922.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96922.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96922.html
关于信息

lxasp 2025-02-17 18:41 发表评论
]]>三五成群。三人行，必有我师。父母是儿女的启蒙老师。合家欢。http://www.cnitblog.com/lxasp/archive/2023/10/24/96751.htmllxasplxaspTue, 24 Oct 2023 05:05:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/10/24/96751.htmlhttp://www.cnitblog.com/lxasp/comments/96751.htmlhttp://www.cnitblog.com/lxasp/archive/2023/10/24/96751.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96751.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96751.html 三人行，必有我师
父母是儿女的启蒙老师
合家欢

lxasp 2023-10-24 13:05 发表评论
]]>四面八方http://www.cnitblog.com/lxasp/archive/2023/10/24/96750.htmllxasplxaspTue, 24 Oct 2023 03:50:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/10/24/96750.htmlhttp://www.cnitblog.com/lxasp/comments/96750.htmlhttp://www.cnitblog.com/lxasp/archive/2023/10/24/96750.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96750.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96750.html

lxasp 2023-10-24 11:50 发表评论
]]>创建畸形目录和复制文件的可行实用方法（WIN7/WIN10）2023年10月亲测可用http://www.cnitblog.com/lxasp/archive/2023/10/15/96744.htmllxasplxaspSun, 15 Oct 2023 15:29:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/10/15/96744.htmlhttp://www.cnitblog.com/lxasp/comments/96744.htmlhttp://www.cnitblog.com/lxasp/archive/2023/10/15/96744.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96744.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96744.html手动在cmd创建畸形目录输入命令：
md autorun.inf
cd autorun.inf
md \\?\%cd%\.
md \\?\%cd%\..
md ...\

复制进文件时：
cd autorun.inf\...\...\
copy c:\tmp\1\*.*

复制出文件时：
cd autorun.inf\...\...\
copy *.* c:\tmp\2\
注意：必须在CMD里使用。在资源管理器可以看见“...”但不能“正常”使用该目录（无法删除也无法复制出里面的文件）。 

 

lxasp 2023-10-15 23:29 发表评论
]]>CAB压缩解压工具箱 -- 用批处理实现的CAB压缩解压程序http://www.cnitblog.com/lxasp/archive/2023/09/28/96737.htmllxasplxaspThu, 28 Sep 2023 13:44:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/09/28/96737.htmlhttp://www.cnitblog.com/lxasp/comments/96737.htmlhttp://www.cnitblog.com/lxasp/archive/2023/09/28/96737.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96737.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96737.html
主要的两个文件：
2cabexp.cmd    --解压CAB压缩包文件到“我的文档”目录里，可支持拖放。在XP需要用本工具箱里的expand.exe和dpx.dll才可支持带目录结构的CAB文件解压。

2cabmkp.cmd   --将目录或文件生成CAB压缩包文件的批处理，可支持拖放。

两个批处理都支持方便的拖放功能。在资源管理器中将所需文件拖放到2cabexp.cmd或2cabmkp.cmd的文件名中即可方便解压或压缩。

CAB压缩解压批处理工具箱下载： cabmkmenu_202309122102.zip

实现CAB压缩的重要参数设置如下：
.OPTION EXPLICIT
.Set InfFileName=NUL
.Set RptFileName=NUL
.Set DestinationDir=
.Set CabinetName1="%~nx1.CAB"
.Set CabinetNameTemplate="%~nx1*.CAB"
.Set DiskDirectoryTemplate="%~dp1."
.Set UniqueFiles=OFF
.Set FolderSizeThreshold=2147483648
.Set MaxDiskSize=0
.Set Cabinet=on
.Set Compress=on
.Set CompressionType=LZX
.Set CompressionMemory=21

FolderSizeThreshold=2147483648  --这个就是单个CAB压缩包文件支持的最大容量（2GB）。

  

lxasp 2023-09-28 21:44 发表评论
]]>nop exe Windows executable that does nothing 什么都不做的空操作的无窗口的EXE可执行文件 (3 editions)http://www.cnitblog.com/lxasp/archive/2023/09/28/96736.htmllxasplxaspThu, 28 Sep 2023 01:15:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/09/28/96736.htmlhttp://www.cnitblog.com/lxasp/comments/96736.htmlhttp://www.cnitblog.com/lxasp/archive/2023/09/28/96736.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96736.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96736.html Here is a Windows exe that does nothing without black cmd window or anything else.
There are three editions here: a normal size 2048 bytes, a small size 1536 bytes, a micro size 523 bytes.


什么都不做的空操作的无窗口的EXE可执行文件--可用于替换不要常驻进程的EXE

含有3个版本：常规版的EXE，2048字节；缩小版的EXE，1536字节；微小版的EXE，523字节。

【下载】Download: nop-exe-nul-exe-w32.zip

 

lxasp 2023-09-28 09:15 发表评论
]]>CMD BAT 批处理技术：获得“我的文档”目录路径＋获得随机数＋字符串替换去除截取＋取字符串长度http://www.cnitblog.com/lxasp/archive/2023/08/29/96721.htmllxasplxaspTue, 29 Aug 2023 07:54:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/08/29/96721.htmlhttp://www.cnitblog.com/lxasp/comments/96721.htmlhttp://www.cnitblog.com/lxasp/archive/2023/08/29/96721.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96721.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96721.html获得“我的文档”目录路径：
FOR /F "TOKENS=1,2 DELIMS=:" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Personal') DO (SET "DC=%%A"&SET "DS=%%B")
SET DS=%DC:~-1,1%:%DS%

 获得随机数：
SET /a rnd=%random%%%(30000-10000+1)+10000

 取字符串后缀最后一个字符并判断是否含有斜杠\ 为字符串末尾自动加上斜杠\
SET DZ=%DQ:~-1%
IF NOT "%DZ%"=="\" (SET "DQ=%DQ%\"&SET "DZ=")

 字符串替换去除双引号
SET ST=%ST:"=%

 字符串替换空格为0 字符串去除冒号: 字符串去除点号.
SET MT=%time%
SET MT=%MT::=%
SET MT=%MT:.=0%
SET MT=%MT: =0%
ECHO %MT%

 取得参数路径的属性并判断是否为文件夹目录
SET ATT=%~A1
SET ATT=%ATT:~0,1%
IF /I "%ATT%"=="d" SET TAR=%~F1\

 取得字符串长度
@ECHO OFF
SET /P STR=请输入任意长度字符串：
IF NOT DEFINED STR GOTO :EOF
SET TLEN=0
:LBLEN
SET /A TLEN+=1
SET STR=%STR:~0,-1%
IF DEFINED STR GOTO :LBLEN
ECHO 字符串长度(字符个数)：%TLEN%
PAUSE

可以一行内写多个SET变量的情况：SET 加双引号，并且在同一行内不可引用同一行内其他的变量。
因为当前行的变量内容要在本行结束后才生效。但是，从文本长度大小来算，加双引号在同一行写的，比直接回车的字节要多。
两个双引号和&共3个字节，而回车换行CRLF是2个字节。
SET /A "RA=%RANDOM%%%(30000-10000+1)+10000"&SET "TA=%~A1"&SET "TD=%~D1"
 

lxasp 2023-08-29 15:54 发表评论
]]>打开文件对话框的VBScript全兼容解决方案(无临时文件)XP-W7-W10(IE6-11) GetOpenFileNamehttp://www.cnitblog.com/lxasp/archive/2023/08/29/96720.htmllxasplxaspTue, 29 Aug 2023 07:22:00 GMThttp://www.cnitblog.com/lxasp/archive/2023/08/29/96720.htmlhttp://www.cnitblog.com/lxasp/comments/96720.htmlhttp://www.cnitblog.com/lxasp/archive/2023/08/29/96720.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/96720.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/96720.htmlVBScript实现运行“打开文件对话框”进行文件选择。（不创建临时文件）

GetOpenFileName VBScript Solution Without Create Temporary File

Using HTA:APPLICATION with HtmlDlgHelper.openfiledlg(InitFilePath,'',FileTypeFilters,DialogCaption) 

Return The Result FileName From FileSystemObject(FSO) Stdout

Fully compatible: Windows XP / Windows Server 2003 (IE6--IE8)
Fully compatible: Windows 7 / Windows 8 / Windows 10 (IE8--IE11)
Fully compatible: Windows Vista (IE7) / Windows Server 2008 (IE7)

VBScript Code:
Function pickOpenFileName(caption,filters,initfn)
  caption=Trim(caption)
  Set w=CreateObject("WScript.Shell")::Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn
  Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write('<TITLE>'+(p('c')||'\xA0')+'</TITLE>');try{moveTo(-9e4,0)}catch(E){}onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT><HTA:APPLICATION WINDOWSTATE=minimize /><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT>""")
  pickOpenFileName=e.StdOut.ReadLine
End Function


Function takeOpenFileName(caption,filters,initfn,msght)
  caption=Trim(caption)
  Set w=CreateObject("WScript.Shell")::Set k=w.Environment("PROCESS")::k("c")=caption::k("f")=filters::k("n")=initfn::k("m")=msght
  Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><BODY BGCOLOR=#DDEEFF TEXT=#336699><H1 ALIGN=RIGHT><SCRIPT>p=new ActiveXObject('WScript.Shell').Environment('PROCESS');document.write(p('m'))</SCRIPT></H1><OBJECT ID=D CLASSID=CLSID:3050F4E1-98B5-11CF-BB82-00AA00BDCE0B></OBJECT><SCRIPT>onload=function(){B=D.openfiledlg(p('n'),'',p('f'),p('c'));new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(B);close()}</SCRIPT>""")
  takeOpenFileName=e.StdOut.ReadLine
End Function


Sub maybeSplashScreen()
  Set w=CreateObject("WScript.Shell")
  v=w.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")
  If CInt(Left(v,2))>7 Then Exit Sub
  v=w.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
  If CInt(Left(v,2))>5 Then
    Set e=w.Exec("%SystemRoot%\System32\mshta.exe ""about:<HTA:APPLICATION BORDER=none SHOWINTASKBAR=no INNERBORDER=no SCROLL=no /><STYLE>body{margin:0}table{border-collapse:collapse}table,td{border:5px solid #6F6}</STYLE><BODY BGCOLOR=#009900 TEXT=#FFFFFF><TABLE WIDTH=100% HEIGHT=100%><TR VALIGN=MIDDLE><TD ALIGN=CENTER><FONT SIZE=7>正在加载...<BR>Loading...</FONT></TD></TR></TABLE></BODY>""")
    WScript.Sleep 500
    e.Terminate
  End If
End Sub


maybeSplashScreen()

r=pickOpenFileName("","","")
If Len(r)>0 Then MsgBox r,64,"OpenFile"

r=pickOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","")
If Len(r)>0 Then MsgBox r,64,"OpenFile"


r=takeOpenFileName("","","","欢迎使用<BR>实用软件")
If Len(r)>0 Then MsgBox r,64,"OpenFile"

r=takeOpenFileName("请选择数据文件","电子表格(*.xls)|*.xls|所有文件(*.*)|*.*|","","欢迎使用<BR>实用软件<BR>版本:202308")
If Len(r)>0 Then MsgBox r,64,"OpenFile"

 

lxasp 2023-08-29 15:22 发表评论
]]>关系数据库的设计思路和程序可重用的设计思路是相反的http://www.cnitblog.com/lxasp/archive/2017/04/27/90645.htmllxasplxaspThu, 27 Apr 2017 03:40:00 GMThttp://www.cnitblog.com/lxasp/archive/2017/04/27/90645.htmlhttp://www.cnitblog.com/lxasp/comments/90645.htmlhttp://www.cnitblog.com/lxasp/archive/2017/04/27/90645.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/90645.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/90645.html一套数据库应用系统的设计就是要把这两种相反的设计思路融合在一起。
示例
　学生
　　姓名
　　证件类型
　　证件号码
　　电子邮箱
　　手机号码
　教师
　　姓名
　　证件类型
　　证件号码
　　电子邮箱
　　手机号码
　关系数据库的设计思路是【拆】
　　学生基本表
　　教师基本表
　　学生证件表
　　教师证件表
　　学生联系表
　　教师联系表
　程序可重用的设计思路是【合】
　　设计一个用户的基类
　　然后把学生和教师继承于用户的基类
　　　用户
　　　　学生
　　　　教师  阅读全文

lxasp 2017-04-27 11:40 发表评论
]]>本人懂得..呵呵..http://www.cnitblog.com/lxasp/archive/2016/05/06/90431.htmllxasplxaspFri, 06 May 2016 14:51:00 GMThttp://www.cnitblog.com/lxasp/archive/2016/05/06/90431.htmlhttp://www.cnitblog.com/lxasp/comments/90431.htmlhttp://www.cnitblog.com/lxasp/archive/2016/05/06/90431.html#Feedback0http://www.cnitblog.com/lxasp/comments/commentRss/90431.htmlhttp://www.cnitblog.com/lxasp/services/trackbacks/90431.html本人懂得 dreamweaver,photoshop,eclipse,apache,nginx,lighttpd,jdk,redis,memcached,tomcat,mysql,sql server,oracle,toad,postgresql,sublime text,visual studio,visio,xmind,navicat,nodejs,electron,mongodb,visualsvn server,tortoisesvn,bitnami,redmine,scm manager,firefox,firebug,virtualbox,vmware,serv-u,filezilla等软件的下载....

lxasp 2016-05-06 22:51 发表评论
]]>