- 博客(20)
- 收藏
- 关注
原创 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
1551
原创 hMailServer+RoundCube 在windows下的配置
最近在windows下测试开源的数据库 找到了 hMailServer 和 RoundCube 。在网上也找到了一些相关的介绍。但是始终找不到相应的配置,因此将自己配置的经验整理出来分享 给 大家。环境要求: 操作系统:winxp php环境 :APMServ 5.2.6 这是一个集成的 php+mysql+Apache的安装包,适合初学者的环境配置。
2012-06-10 10:24:15
5664
原创 让织梦主页可以调用副栏目(副标题为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
1729
原创 织梦系统如何调用新闻
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
781
原创 批处理简单执行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
1086
原创 批处理 简单实现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
422
原创 openfire 之1 用户集成(sql2000)
网上很多文章关于用户集成的 都是关于openfire 和mysql结合的 最近做了个测试 将sql2000 集成遇到的问题点针对版本3.6.4 列举下1.2000数据库无法连接 ,启动后,进dos命令 telnet localhost 1433 测试一下sql2000接口端口能否可用,如果进入了全黑的界面,那就恭喜你了,sql2000传 输 端口可用! 否测出现 ...不
2010-02-11 10:57:00
1882
转载 windows2003的安全设置
一 设置和管理账户 1、系统管理员账户最好少建,更改默认的管理员帐户名(Administrator)和描述,密码最好采用数字加大小写字母加数字的上档键组合,长度最好不少于14位。 2、新建一个名为Administrator的陷阱帐号,为其设置最小的权限,然后随便输入组合的最好不低于20位的密码。3、将Guest账户禁用并更改名称和描述,然后输入一个复杂的密码,然后禁用。 4、开始-程序-管理
2009-10-10 09:56:00
492
原创 如何代接其他分机
什么是代接电话哪? 当 A有电话呼入时 , b可以帮忙接a的电话 这个操作就是代接电话 在trixbox中代接有2种方法1.指定代接某分机**+分机号 分机号 指你要代接的分机号码 而不是本机号码2.群组代接*8 不需要记住对方号码注意: 群组代接需要在 extension 的 2个栏目 pickupgroup ,callgroup 中设定一个群组号
2009-10-09 15:53:00
2228
转载 如何限制指定电话的外呼权限(电话只能使用指定外线)
如果实现此功能 ,需要安装一个非官方的但是很稳定的程序模组用途:可限制分機撥打指定的 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
2192
转载 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
1298
转载 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
767
原创 sql2000主从表插入并发问题的解决
在我们向数据库的主从表插入时候(子表需要获得主表的插入的自增id) 并发是经常发生的其实可以采取办法 避免的 下面介绍一个简单的方法就是创建一个存储过程 采用存储过程插入数据 然后 采用SCOPE_IDENTITY( )获取id例如create PROCEDURE [dbo].[Ski_Insert_Hotel_TS_TYPE]/***********创建人:日期、:功能:新增客房
2007-01-22 21:55:00
1262
原创 获得硬盘相关信息
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
1105
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
791
转载 获取硬盘信息
strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!//" & strComputer _ & "/root/cimv2")Set colDiskDrives = objWMIService.ExecQuery _
2006-12-31 02:30:00
929
转载 vb获得硬盘物理序列号
最近在找加密算法 发现很多读取硬盘序列号的方法是收费的bs之下面公布我找到的方法 绝对是物理序列号============================================模块功能:取得硬盘的信息编 程:来自互联网,阿勇修改更新日期:2005/7/8调用方法: GetDiskVolume() 取得逻辑盘的序列号 GetHa
2006-12-31 02:25:00
2790
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
1320
原创 wmi 学习笔记之获得系统版本
Dim strComputer As StringstrComputer = "."Dim objWMIService As SWbemServicesDim colOperatingSystems As SWbemObjectSetDim objOperatingSystem As SWbemObjectSet objWMIService = GetObject("winmgmts:" _
2005-09-30 14:20:00
969
原创 如何用vb的winsocket解决udp文件传送丢包的问题
udp协议是1种无连接的协议,他和tcp协议比较有传输速度快,占用资源少的问题。但是由于udp协议本身没有自动找包的功能,因此经常会出现丢包的现象,会造成传送的文件丢包的现象因为时间匆忙和水平有限,本人在效率上没有作优化,只是简单的实现,请大家自己看源码吧注释:主要功能:把文件猜成4k大小的包 在包头+上包的长度 接受了1个包判断长度是否和接受的长度相符如果符合那么就继续发,如果出现丢包那么就从发
2004-11-04 09:55:00
2791
2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人