2008年01月_小鸿叔

11月 10月 07月 06月 05月 04月 03月 02月 01月

原创 VB符号代表的数据类型

! Single # Double $ String % Integer & Long @ Currency

2008-01-29 14:33:00 3874

原创 VB adodc控件用法

Adodc1.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" + App.Path + "ccc.mdb"Adodc1.RecordSource = "select * from sheet1"Adodc1.RefreshFor i = 1 To Adodc1.Recordset.RecordCount P

2008-01-28 14:58:00 13086

原创 sqlserver 格式化数字，加前导0

select right(cast(power(10,3) as varchar)+33,3) select right(cast(power(10,3) as varchar)+1,3) 分别格式化33和1 结果为 033 001

2008-01-26 14:07:00 6219

原创 VB隐藏进程

Form中的代码Private Sub Command1_Click() App.TaskVisible = False 任务栏隐藏 Call HideCurrentProcess 进程隐藏End Sub 新建一个模块，代码如下：--------------------------------------------------------

2008-01-26 11:25:00 5483 5

原创 VB查找硬盘文件（全硬搜索）

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As LongPrivate Declare Function GetLogicalDrive

2008-01-25 15:19:00 3439 2

原创 VB API处理INI文件函数

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturn

2008-01-25 11:12:00 1048

原创无提示,直接关闭IE

script type="text/javascript"> function cl() { window.opener=null; window.open("",_self,""); //加上这一句，对IE7有效window.close(); } script> head> body> input type="button" onclick="cl()" value="close">

2008-01-25 08:26:00 892 2

原创求N个1-M之间的顺序随机数(vb 或 asp通用)

Function getRnd(i As Integer) As Integer 取1-i之间的随机数一个 Randomize getRnd = Int(Rnd() * i + 1)End FunctionFunction getAllRnd(Counter As Integer, jishu As Integer) As Integer()取Counter个1-jishu之间的随机数

2008-01-23 11:38:00 1118

原创通过ADOX建立Access(MDB)数据库 (VB、ASP版)

asp:On Error Resume NextSet adox = Server.CreateObject("Adox.Catalog")adox.Create "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("oyleme.mdb")Set adox= Nothing%> VB添加工程－引用

2008-01-22 14:10:00 1712

转载 asp验证码（加法运算）

在提交页面中验证session("GetCode")@CodePage="65001"%> Call Com_CreatValidCode("GetCode") Sub Com_CreatValidCode(pSN) 禁止缓存 Response.Expires = -9999 Response.AddHeader "Pragma","no-cache"

2008-01-22 12:03:00 3123 2

原创只允许输入数字 (js)

script type="text/javascript"> function isDigit(code) { return ((code >= 48) && (code 57))?true:false;} script> input type="text" name="aa" onkeypress="return isDigit(event.keyCode|event.which)

2008-01-21 15:48:00 742

原创数据库连接字符串(SQL Server Access)

access+ASP方法一:db="data/data.mdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath(db)conn.Open connstraccess+ASP方法二:db="data

2008-01-21 15:39:00 902

转载 asp 防盗链

如果我们知道一个静态文件的实际路径如：http://www.xx.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可以毫不费力的把它下载下来！当网站提供51Windows.pdf下载时，怎么样才能让下载者无法得到他的实际路径呢！本文就来介绍如何使用ASP来隐藏文件的实际下载路径。　　我们在管理网站文件时，可以把扩展名一样的文件放在同一

2008-01-19 16:59:00 792

原创防提交的页面不是本网站（非法链接到网站）

From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) Serv_url then response.write "非法链接！" 防止盗链

2008-01-19 16:32:00 9350

转载 VB写注册表

用WSH（Windows Script Host）更容易掌握 Set Reg = CreateObject("Wscript.Shell") Reg.RegWrite "要写入的值的名称","值" Reg.RegRead "要读取的值的名称" Reg.RegDelete "要删除的键名或值名" 比如：读取你的键值 Set Reg = CreateObject("Wscript.Shell"

2008-01-19 14:25:00 881

原创 VB 鼠标右键选择list控件的内容

Private 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 List1_MouseUp(Button As Intege

2008-01-18 16:59:00 2111 1

原创 ASP ACCESS建表（自动编号ID）

dim conn dim dbpath set conn=server.createobject("adodb.connection") dbpath=Server.mappath("data/data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbpathdmlSql="Create table Tab

2008-01-18 16:29:00 2001

原创 VB更改EXCEL单元格内容

更改c:.xls中sheet1 E2内容修改为1020 先点击工程－引用Microsoft Excel... Private Sub Command1_Click() Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = Crea

2008-01-18 11:52:00 6259

原创 VB得到指定文件夹下的文件列表

Function GetFileList(ByVal Path As String, ByRef FileName() As String, Optional fExp As String = "*.*") As Boolean Dim fName As String, i As Long If Right$(Path, 1) "" Then Path = Path & ""

2008-01-18 10:46:00 1646

原创 VB防止程序二次加载

Option ExplicitPublic Sub CheckExist(fm As Form) Dim title As String If App.PrevInstance Then title = App.title Call MsgBox("这程式已执行", vbCritical) App.t

2008-01-17 11:31:00 871 1

原创 VB清除ＩＥ缓存

在窗体里放一个command控件，然后点击，就可以清除了： Option Explicit Private Declare Function FindFirstUrlCacheGroup Lib "wininet.dll" ( _ ByVal dwFlags As Long, _ ByVal dwFilter As Long, _ ByRef lpSearchCondition As Long

2008-01-17 09:06:00 4343

原创 asp (vbscript)中用正则表达式替换字符串

str="010-65321478 13116782417"dim regExSet regEx=New RegExpregEx.Pattern="/d{11}"regEx.Global=true 全部匹配str=regEx.Replace(str,"手机")regEx.Pattern="/d{3}-/d{8}"str=regEx.Replace(str,"座机")msgbox(str)

2008-01-15 16:48:00 2173

原创各种参考手册地址（Ado、HTML、XHTML、CSS、XML、JavaScript、PHP、ASP、SQL）

http://www.w3school.com.cn/ Ado、HTML、XHTML、CSS、XML、JavaScript、PHP、ASP、SQL

2008-01-14 14:38:00 1156 1

原创 access模糊查询表所有字段

StrSearch = "jack" 查询字符串Dim conn As New ADODB.ConnectionconnStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:/a.mdb"conn.Open connStrDim rs As New ADODB.Recordsetsql = "select top 1 * from

2008-01-14 13:42:00 2458

原创 VB动态创建控件

Dim WithEvents MyBtn As CommandButton Set MyBtn = Controls.Add("VB.CommandButton", "Button1") With MyBtn .Caption = "我可以响应事件！" .Width = 1800 .Left = 100 .Top = 700 .Visible

2008-01-14 11:35:00 1780

原创 DoEvents+Sleep 使用=Timer

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()i = 0Do While i DoEvents: Sleep 1 i = i + 1LoopLabel1.Caption = "OK"End Sub

2008-01-14 10:49:00 1454 2

原创得到Access表的数据类型(RecordSet.fields(i).type)

function getType(num) getType=num select case num case "202" : getType="文本" case "203" : getType="备注" case "3" : getType="长整型" case "2" : getType="整型"

2008-01-12 16:26:00 4267

原创 Javascript 剪贴版操作

window.clipboardData.getData("Text"); //获得剪贴版的文字 window.clipboardData.setData("Text","你的内容"); //文本加入到剪贴板 window.clipboardData.clearData();

2008-01-09 16:59:00 1523

原创 javascript 字符串去空格(vb trim)

document.QueryForm.QueryText.value=document.QueryForm.QueryText.value.replace(/^/s*/,"");//去左空格document.QueryForm.QueryText.value=document.QueryForm.QueryText.value.replace(//s*$/,"");//去右空格

2008-01-09 16:52:00 1425

原创在新开窗口中提交表单内容

var winName=(Math.round(Math.random()*1000)).toString(); //生成新开窗口的名字，可不防止总是在同名窗口中提交window.open("",winName);document.QueryForm.target=winName;document.QueryForm.action="Query.asp";document.QueryForm.

2008-01-08 13:23:00 1010

原创 VB读写TXT文件

Private Sub Command1_Click() 读文件Open "d:a.txt" For Input As #1 Dim Lines As StringDim NextLine As StringDim i As IntegerDo While Not EOF(1) On Error Resume Next Line Input #1, NextLine Lin

2008-01-07 13:30:00 14718 4

原创 ASP 获得Access表名

dim adoconnset adoconn=server.createobject("adodb.connection")connString="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("knddb06.mdb")adoconn.open connStringset adoxCatalogx=server.

2008-01-07 10:02:00 1056

原创 vb建立删除文件夹

首先要[工程]－[引用] Microsoft Scriptting RuntimePrivate Sub Command1_Click()Dim fso As New FileSystemObjectIf fso.FolderExists("c:abc") Then MsgBox ("文件夹已存在")Else fso.CreateFolder ("c:abc")End IfEnd

2008-01-07 08:44:00 1134

转载 VB中MsFlexGrid控件的使用细则收集

>> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格中插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”) >>选中某个单元 MsFlexGrid.Row=1 MsFlexGrid.Col=1 >>用粗体格式化当

2008-01-04 11:58:00 1598

原创 VB中查找控件的方法

For Each control In Me.Controls If TypeOf control Is TextBox Then If control.Name = "Text1" Then control.Text = "" End If End IfNext control

2008-01-03 14:06:00 2722

VBExplorer（VB反编译工具，详看软件介绍）

VBExplorer 前身为VBEditor，本程序是一个反编译VB程序的应用程序，具有以下特性： 1、目前已可以解析VB自身所有控件的属性，并进行编辑(包括字体的修改，背景颜色的修改，图片的保存和替换等)和导出(包括工程文件和图片文件); 2、可以对P-Code编译的程序进行代码解析，此功能正在不断完善； 3、搜索函数使用的Unicode字符串，并进行编辑。

2008-04-30