usher158的专栏

一、日期型的使用 ShortDaysUs = "星期一" + s + "MO" + s + "TU" + s + "WE" + s + "TH" + s + "FR" + s + "SA" LongDaysUs = "星期一" + s + "MON" + s + "TUE" + s + "WED" + s + "THU" + s + "FRI" + s + "SAT" ShortMonthsUs = "一月" + s + "FEB" + s + "MAR" + s + "APR" + s + "MAY" + s + "JUN" + s + "JUL" + s + "AUG" + s + "SEP" + s + "OCT" + s + "NOV" + s + "DEC" LongMonthsUs = "一月" + s + "FEBR" + s + "MARC" + s + "APRI" + s + "MAY" + s + "JUNE" + s + "JULY" + s + "AUGU" + s + "SEPT" + s + "OCTO" + s + "NOVE" + s + "DEC

获取、修改计算机的IP地址及子网掩码. Option Explicit Const REG_SZ As Long = 1 Const HKEY_LOCAL_MACHINE = &H80000002 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _ (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _ (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _ ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _ lpType As Long, lpData As Any, lpcbData As Long) As Long Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Dim aaa As String

一个操作注册表的。例子 '================================ '注册表操作函数 '================================ '读取注册表字符串键值 Public Function GetString(hKey As Long, strPath As String, strValue As String) Dim keyhand As Long Dim lResult As Long Dim strBuf As String Dim lDataBufSize As Long Dim intZeroPos As Integer Dim lValueType As Long 'new add RegOpenKey hKey, strPath, keyhand lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize) If lValueType = REG_SZ Or lValueType = REG_EXPAND_SZ Then strBuf = String(lDataBufSize, " ") lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal strBuf, lDataBufSize) If lResult = ERROR_SUCCESS Then intZeroPos = InStr(strBuf, Chr$(0)) If intZeroPos > 0 Then GetString = Left$(strBuf, intZeroPos - 1) Else: GetString = strBuf

将KisFZReportInOrOut.dll覆盖%systemdrive%\windows\system32\kiscom目录下的同名文件，并利用%systemdrive%\windows\system32下的regsvr32.exe注册。

ASP 食品企业类网站源码 v2.0.rar

这是关于5.1版至5.1.2-alpha版MySQL数据库系统的参考手册。该手册不适用于旧版本MySQL软件，这是因为在MySQL 5.1和以前的版本存在很多功能性差异和其他差异。如果正在使用MySQL软件的较旧版本，请参阅MySQL 5.0参考手册，该手册涵盖了MySQL 5.0，或参阅MySQL 4.1参考手册，该手册涵盖了MySQL 3.22、3.23、4.0和4.1系列。在手册的文本中，通过引用发布版本号（5.1.x），注明了MySQL 5.1的二级版本。

JavaScript 是网景（Netscape）公司开发的一种跨平台，基于客户端浏览器、面向（基于）对象(Object)、事件驱动(Event Driven)式的网页脚本语言。<br><br>　　JavaScript 的前身叫LiveScript，是Netscape 公司弄好的脚本语言。后来在Sun 公司推出著名的Java 语言之后，NC 公司和Sun 公司于1995看一起重新设计了LiveScript，并把它改名为了JavaScript。<br>