zyg0-CSDN博客

原创 vb6.0 中事务处理的一个问题

On Error GoTo ErrorHandler Dim sSQL As String If DbConnection Then Cn.BeginTrans sSQL = "insert into test1(PID,UID,PS) Values(1,'1','1');" _ &

2012-06-10 10:24:53 1472

原创 hMailServer+RoundCube 在windows下的配置

最近在windows下测试开源的数据库找到了 hMailServer 和 RoundCube 。在网上也找到了一些相关的介绍。但是始终找不到相应的配置，因此将自己配置的经验整理出来分享给大家。环境要求：操作系统：winxp php环境：APMServ 5.2.6 这是一个集成的 php+mysql+Apache的安装包，适合初学者的环境配置。

2012-06-10 10:24:15 5276

原创让织梦主页可以调用副栏目（副标题为9个之内）

网站找了很久关于织梦调用副栏目的例子代码为　打开/include/taglib/arclist.lib.php，代码约位于295-296行(我目前用的DedeCMS最新版 5.7 SP1)，查找以下两行代码： if($CrossID=='') $orwheres[] = ' arc.typeid IN ('.GetSonIds($typeid).')'; else $orwhe

2012-04-15 14:17:22 1662

原创织梦系统如何调用新闻

require_once(dirname(__FILE__).'/../include/common.inc.php');require_once(DEDEINC."/typelink.class.php"); require_once(DEDEINC."/channelunit.func.php"); $strsqls="Select `id`,`typeid`,`se

2012-04-11 16:14:05 731

原创批处理简单执行rar压缩并保存附件到服务器指定文件夹

@echo offrem WinRar 程序路径set rar="C:\Program Files\WinRAR\WinRAR.exe" rem 生成当前时间并格式化成2010-01-01_120101set mydate=%date:~0,4%-%date:~5,2%-%date:~8,2%_%time:~0,2%%time:~3,2%%time:~6,2% rem

2012-04-11 16:09:12 1023

原创批处理简单实现mysql 的 window的自动备份脚本

net stop mysqlxcopy "D:\PHPnow\MySQL-5.0.90\data\数据库\*.*" D:\db_backup\%date:~0,10%\ /ynet start mysql然后更改你的数据库路径在windows计划任务中添加一下就可以了

2012-04-11 16:06:33 378

原创 openfire 之1 用户集成(sql2000)

网上很多文章关于用户集成的都是关于openfire 和mysql结合的最近做了个测试将sql2000 集成遇到的问题点针对版本3.6.4 列举下1.2000数据库无法连接 ,启动后,进dos命令 telnet localhost 1433 测试一下sql2000接口端口能否可用,如果进入了全黑的界面,那就恭喜你了,sql2000传输端口可用! 否测出现 ...不

2010-02-11 10:57:00 1827 1

转载 windows2003的安全设置

一设置和管理账户 1、系统管理员账户最好少建，更改默认的管理员帐户名（Administrator）和描述，密码最好采用数字加大小写字母加数字的上档键组合，长度最好不少于14位。 2、新建一个名为Administrator的陷阱帐号，为其设置最小的权限，然后随便输入组合的最好不低于20位的密码。3、将Guest账户禁用并更改名称和描述，然后输入一个复杂的密码，然后禁用。 4、开始-程序-管理

2009-10-10 09:56:00 447

原创如何代接其他分机

什么是代接电话哪？当 A有电话呼入时， b可以帮忙接a的电话这个操作就是代接电话在trixbox中代接有2种方法1.指定代接某分机**+分机号分机号指你要代接的分机号码而不是本机号码2.群组代接*8 不需要记住对方号码注意：群组代接需要在 extension 的 2个栏目 pickupgroup ，callgroup 中设定一个群组号

2009-10-09 15:53:00 2089

转载如何限制指定电话的外呼权限（电话只能使用指定外线）

如果实现此功能，需要安装一个非官方的但是很稳定的程序模组用途：可限制分機撥打指定的 Outbound Trunk。# cd /var/www/html/admin/modules# wget http://www.freepbx.org/trac/attachment/ticket/1447/customcontexts-0.3.3.tgz?format=raw# mv cust

2009-10-09 15:37:00 2070

转载 sql实现10进制转16进制(转)

create function dbo.f_int_hex(@num int,@len int) --@num 为要转换成16进制的10进制数,@len为转换后占用的位数 returns varchar(100) as begin declare @result varchar(100) set @result=

2007-03-01 11:32:00 1234

转载 windows页面的缓存

1、在Asp页面首部加入 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader

2007-01-24 14:47:00 724

原创 sql2000主从表插入并发问题的解决

在我们向数据库的主从表插入时候（子表需要获得主表的插入的自增id）并发是经常发生的其实可以采取办法避免的下面介绍一个简单的方法就是创建一个存储过程采用存储过程插入数据然后采用SCOPE_IDENTITY( )获取id例如create PROCEDURE [dbo].[Ski_Insert_Hotel_TS_TYPE]/***********创建人：日期、：功能：新增客房

2007-01-22 21:55:00 1225

原创获得硬盘相关信息

On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")For Each o

2006-12-31 02:33:00 1061 1

原创当shell结束后执行其他的操作

Option ExplicitPrivate Const WAIT_INFINITE = -1&Private Const SYNCHRONIZE = &H100000Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheri

2006-12-31 02:31:00 752

转载获取硬盘信息

strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!//" & strComputer _ & "/root/cimv2")Set colDiskDrives = objWMIService.ExecQuery _

2006-12-31 02:30:00 892

转载 vb获得硬盘物理序列号

最近在找加密算法发现很多读取硬盘序列号的方法是收费的bs之下面公布我找到的方法绝对是物理序列号============================================模块功能：取得硬盘的信息编程：来自互联网，阿勇修改更新日期：2005/7/8调用方法： GetDiskVolume() 取得逻辑盘的序列号 GetHa

2006-12-31 02:25:00 2702 4

原创系统服务的启动和停止,禁用和自动启动

strComputer = "."strServername="Messenger"Set services= GetObject("winmgmts://" & strComputer & "/root/cimv2")Set ServiceObject = services.Get("Win32_Service=" & strServername & "")ServiceObj

2005-10-09 11:09:00 1274

原创 wmi 学习笔记之获得系统版本

Dim strComputer As StringstrComputer = "."Dim objWMIService As SWbemServicesDim colOperatingSystems As SWbemObjectSetDim objOperatingSystem As SWbemObjectSet objWMIService = GetObject("winmgmts:" _

2005-09-30 14:20:00 920

原创如何用vb的winsocket解决udp文件传送丢包的问题

udp协议是1种无连接的协议，他和tcp协议比较有传输速度快，占用资源少的问题。但是由于udp协议本身没有自动找包的功能，因此经常会出现丢包的现象，会造成传送的文件丢包的现象因为时间匆忙和水平有限，本人在效率上没有作优化，只是简单的实现，请大家自己看源码吧注释：主要功能：把文件猜成4k大小的包在包头+上包的长度接受了1个包判断长度是否和接受的长度相符如果符合那么就继续发，如果出现丢包那么就从发

2004-11-04 09:55:00 2726 2

zyg0的专栏