xiaomaoxia-优快云博客

转载分享一个实用的网关iptables脚本

实现功能：1.指定入站端口限制2.丢弃非法syn包3.透明代理，透明DNS4.客户端IP与MAC地址绑定5.出入邮件扫描6.端口转发echo 1 > /proc/sys/net/ipv4/ip_forward ##开启ip转发/sbin/iptables -F -t filter ##清空规则/sbin/iptables -F -t nat ##清空NAT规则/sbin/iptables -

2010-05-06 23:00:00 605

原创 iptables

2010-05-06 22:59:00 348

转载 linux防火墙iptables详细教程

2010-05-06 22:54:00 606

环境：三台机器，centos4.3系统,ipvsadm软件 RPM下载文档:ipvsadm-1.24-6.i386.rpm大小:30KB下载:下载IP分配： LB eth0 192.168.0.198 eth0:1 192.168.1.6 eth0:2 192.168.0.196 RS1 eth0 192.168.1.2 RS1 eth0 192.168.1.3 注意：真实服务器只配置内网IP地址

2010-05-06 22:50:00 431

转载 CentOS 4.4下Squid配置手记

CentOS 4.4下Squid配置手记今天RedHat 9.0下再一次无法自动拔号之后，我一怒一下，删除用了三年RH9.0 安装上了CentOS 4.4，下面是我的配置情况。一，安装CentOS 4，不用说了。二，ntsysv，去掉一些不必要的服务三，yum update;yum clear 可以出去玩一会了四，配置NAT#cat nat.shEXIF=ppp0 IN

2010-05-06 22:45:00 497

转载各种寄存器的主要用途

各种寄存器的主要用途如下表：寄存器代号主要用途累加器EAX算术运算、存储中间结果、函数返回值基地址寄存器EBX基地址指针计数器ECX循环计数、移位操作计数、重复操作计数数据寄存器EDX乘除运算、存储中间结果源变址寄存器ESI存储指针、串指令的源操作数指针源目标变址寄存器EDI存储指针、串指令的目的操作数指针基地址指针EBP存储指针、存取堆栈指针栈

2010-04-28 10:33:00 1033

转载使用TEXTCOPY

CREATE PROCEDURE sp_filecopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename varchar (250), @wherecla

2007-07-23 19:14:00 929 1

转载输入法问题

1、在单元中设置一个全局变量，用来保存输入法句柄： HKLCurrent: HKL; 2、在一个控件失去焦点之前取得当前的输入法句柄： hklCurrent := GetKeyboardLayOut(0); 3、在另一个控件获得焦点时重新激活相应的输入法： activatekeyboardlayout(hklCurrent,KLF_ACTIVATE);//设置相应的输

2006-08-31 23:25:00 831

转载动态修改其它进程的代码,实现DLL注入

传统的远程进程控制方式有利用HOOK技术注入DLL,和利用远线程在目标进程中建立新的执行线程的方式.远线程不被win9x所支持,而hook技术会对目标进程性能造成一定的影响.并具可以通过枚举消息链的方式发现.本文给出一种动态修改目标进程代码,注入DLL到目标进程的方法,效率高,不需要额外线程.缺点是使用难度大于上面二种办法,并且修改目标代码的方法,受到编译器的影响.使用不同的编译器时,需要根据

2006-08-24 16:05:00 1034

转载配置文件连接

//*****************************//* 连接数据库//* INI参数变量说明//* mcb_addr :服务器地址//* mcb_user :数据库用户名;//* mcb_pwd :密码;//* mcb_DBName:数据库名;Function ConnectDB:boolean;var f:Tinifile;//INI文件 m

2006-08-13 08:57:00 862

转载数据库导入导出收藏

真的好好，昨天看到，今天就用上了：if adoUpload.Connected=true then adoUpload.Close; adoUpload.Execute(insert INTO msg_test (msg_citycode,msg_contents) select msg_citycode,msg_contents FROM OPENDATASOURCE(SQLOLED

2006-08-12 14:09:00 1037

转载数据库互导

1.前一段去兰州出差了，所以有些问题没法及时回答，抱歉！2.明天去泰港澳游了，高兴，发一段代码上来供大家参考！3.以前测试过，大部分可以用，但也不敢担保一定可以正常运行，我现在也没有环境重新测试，只好你们自已试试了，有些参数自已要改的，我就不写了，有什么问题等半个月后我再来看看！[FRM]object Form1: TForm1 Left = 194 Top = 126 Width = 54

2006-08-12 13:36:00 989

转载异构数据库之间的导入导出示例

异构数据库之间的导入导出示例异构数据库之间的导入导出示例，abc为表,包含以下导入与导出MSSQL2EXCEL EXCEL2MSSQL MSSQL2VFP VFP2MSSQLMSSQL2access access2MSSQL excel2access access2excel实现部分procedure TForm1.btn_MSSQL2EXCELClick(Sender: TObject);

2006-08-12 13:25:00 1046

转载一键式安装.Net FrameWork,MSDE,Web安装程序,Windows安装程序,还原数据库文件,注册表导入

一键式安装.Net FrameWork,MSDE,Web安装程序,Windows安装程序,还原数据库文件,注册表导入何为"一键式安装"? 我的解释就是,运行安装程序的时候,把.Net FrameWork、Sql Server(MSDE)、Web应用程序、其它安装文件、注册表修改、数据库还原等操作一次安装完成,不需要客户做其它任何操作,而且安装过程中不用客户做任何操作,系统自动替代用户操作,比

2006-07-20 15:56:00 1808

转载如何通过按钮使dateTimePicker的月份获得焦点

procedure TForm1.Button1Click(Sender: TObject);begin postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0); datetimepicker1.SetFocus;end

2006-06-08 08:50:00 2320

转载 SQL Server日期计算

. SQL Server日期计算a. 一个月的第一天SELECT DATEADD(mm, DATEDIFF(mm,0,getdate()), 0) b. 本周的星期一SELECT DATEADD(wk, DATEDIFF(wk,0,getdate()), 0) c. 一年的第一天SELECT DATEADD(yy, DATEDIFF(yy,0,getdate()), 0) d

2006-06-01 17:22:00 776

转载如何算出两个日期之间相隔的月分数

date1,date2:TDatetime;s1,s2:string;month,i1,i2:integer;datetostring(s1,yyyy-mm-dd,date1);datetostring(s2,yyyy-mm-dd,date2);i1:=12*strtoint(copy(s1,1,4))+strtoint(copy(s1,6,2));i2:=12*strtoint(copy

2006-05-25 09:16:00 1146

转载将 Visual Studio .NET 调试器用于 ASP.NET 应用程序

将 Visual Studio .NET 调试器用于 ASP.NET 应用程序发布日期： 8/16/2005 | 更新日期： 8/16/2005Min Kwan ParkVisual C# Debugger QA TeamMicrosoft Corporation摘要：因为帐户的配置和相互作用可以在多个不同步骤中引起中断，所以调试 ASP.NET 可能是件棘手的事情。本文概括

2006-05-18 09:47:00 1273

转载 DBGridEh 文章

定制网格标题复杂标题 TDBGridEh 允许在多列上创建标题，例如：设置 DBGridEh.UseMultiTitle 属性为 True 并且填充字段的标签或列标题的标题，可以使用下面的规则：字段标签中的文本部分或列标题必须由几部分组成，并且用 "|" 分割，几个列的每一个通用部分都设置为相同。其它字段或标题必须在相应的部分包含同样的文本。例如：Field1.DisplayLabel :

2006-04-28 17:10:00 1218

转载 DBGridEh 改变行居中！

改变行高：在OnGetCellParams事件里//改变高使适应字体高度，你可以改成你自己想要的高度if TStringgrid(dbgrid1).RowHeights[dbgrid1.DataSource.DataSet.RecNo] TStringgrid(dbgrid1).RowHeights[dbgrid1.DataSource.DataSet.RecNo]:=ABS(afont.Hei

2006-04-28 16:56:00 3312 1

转载 Dbgrid使用技巧(下)-

Dbgrid使用技巧(下)- - 二、建立项目，实现功能 1．新建一项目，并为表单添加相关控件，各控件主要属性如下表： 2．建立各Click的事件代码 Button1(打开表)的Click事件代码如下： procedure TForm1.Button1Click(Sender: TObject); begin

2006-04-28 15:59:00 4326

转载 Dbgrid使用技巧（上）-

Dbgrid使用技巧（上）- - 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色

2006-04-28 15:56:00 2007

转载 md5 加密

{1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。2、MD5String为加密字符串。3、MD5File为加密这个文件。4、MD5Print是将加密后的密文转换成字符串。5、MD5Match是用来比较密文是否一致。加密字符串aaa MD5String(aaa)将加密后的aaa显示出来

2006-04-26 10:12:00 589

转载取得某一个月的第一天和最后一天

--可以不用字符串函数就可以select dateadd(mm, datediff(mm, 1901-01-01, getdate()), 1901-01-01) ,dateadd(dd, -1, dateadd(mm, 1+datediff(mm, 1901-01-01, getdate()), 1901-01-01))

2006-04-19 15:02:00 672

转载账套创建

Option ExplicitConst CompanyName As String = "一卡通系统"Private Sub CmdExit_Click() Unload MeEnd SubPrivate Sub CmdOk_Click() On Error GoTo err Dim Dat

2006-04-19 09:01:00 981

转载财务软件、进销存软件、ERP中会计凭证录入模块DIY全攻略

财务软件、进销存软件、ERP中会计凭证录入模块DIY全攻略(二) 一、需求分析 1、录入界面要求友好，直观便捷，提供多种录入途径并有容错设计； 2、凭证录入要符合现行会计制度的要求，制度规定的凭证要素要求用户完整录入，否则不能保存； 3、提供凭证分类功能、能自动生成凭证号； 4、提供新增、保存、修改、复原、查找凭证功能； 5、提供凭证浏览功能； 6、提供会计分录的复制、粘贴、删除功能；

2006-04-19 09:00:00 7341

转载判断输入，如果不合要求则无效

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in [0..9]) then key:=#0;end;

2006-04-18 09:46:00 867

转载动态sql语句基本语法

动态sql语句基本语法 1 :普通SQL语句可以用Exec执行 eg: Select * from tableName Exec(select * from tableName) Exec sp_executesql Nselect * from tableName -- 请注意字符串前一定要加N 2:字段名，表名，数据库名之类作为变量

2006-04-14 11:27:00 1115

转载 SQLserver2000 数据备份等

/*--备份数据库--邹建 2003.10--*//*--调用示例--备份当前数据库exec p_backupdb @bkpath=c:/,@bkfname=db_/DATE/_db.bak--差异备份当前数据库exec p_backupdb @bkpath=c:/,@bkfname=db_/DATE/_df.bak,@bktype=DF--备份当前数据库日

2006-04-14 11:04:00 1107 1

转载在DBGRID中回车到下一格已到最后一格则换行

在onkeypress事件写如下代码：if key=#13 then begin keybd_event(vk_tab,0,0,0); keybd_event(vk_tab,0,keyeventf_keyup,0); end;

2006-04-10 16:43:00 1087

转载取DBGRID内一个单元格内的值

type TDBGridEx = class(TDBGrid) function GetValue(row, col: integer):Variant; end;function TDBGridEx.GetValue(row, col: integer): Variant;begin // TDBGrid有行列索引，但它们是protected的 self.Row := row;

2006-04-06 11:46:00 1839

转载把DBGrid导出到Excel表格（支持多Sheet）

{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integ

2006-04-06 11:38:00 735

转载点击DBGrid的Title对查询结果排序

欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TFHkdata.SortQuery(Column:TColumn);var SqlStr,myFieldName

2006-04-06 11:37:00 687

转载自制精美易用的DBGrid

看了以上这么多的技巧和方法，想必大家未免会有一种冲动吧－自己动手做一个DBGrid，下面就介绍一种自制DBGrid的方法啦。 Delphi中的TDBGrid是一个使用频率很高的VCL元件。TDBGrid有许多优良的特性，例如它是数据绑定的，能够定义功能强大的永久字段，事件丰富等，特别是使用非常简单。但是，与FoxPro、VB 、PB中的DBGrid相比就会发现，TDBGrid也有明显的缺陷：

2006-04-06 11:36:00 850

转载 DBGrid的实用技巧

1.隔行不同颜色显示with TDBGrid(Sender) dobeginif (gdSelected in State) or (gdFocused in State) thenCanvas.Brush.Color := clAquaelse if DataSource.DataSet.RecNo mod 2 = 0 thenCanvas.Brush.Color := $00F0F0F5els

2006-04-06 11:33:00 744

转载啟動時以0.5秒速度動畫顯示窗體

procedure TForm1.FormCreate(Sender: TObject);begin AnimateWindow(Handle,500,AW_BLEND);{ 动画显示窗体^_^ AW_HOR_POSITIVE = $00000001; AW_HOR_NEGATIVE = $00000002; AW_VER_POSITIVE = $00000004; AW_VER_NEG

2006-04-06 11:30:00 522

转载自我复制到系统目录中,并写注册表,使程序开机自动运行

procedure TForm1.CopyNWriteRegestry;var Path:array [0..255] of char; Hk:HKEY; SysStr,CurStr:string;begin//以下是自我复制,首先判断该程序是否存在，再决定是否进行复制 GetSystemDirectory(Path,255); SysStr:=StrPas(Path);

2006-04-06 11:29:00 938

转载將FASTREPORT報表從數據庫存入取出

Lets assume, you have a Blob Filed called "Report" and the table Name is "Reports":On the frxDesigner object, go to the Event "OnSaveReport" and put this code...function TForm1.frxDesigner1SaveReport

2006-04-06 11:28:00 1396

转载另類D6+fastreport3分組報表

作者:DengGuo通常在用fastreport作分組報表時,我們想到的是用groupheader+masterdata+groupfooter,但是在實現分組頁次時總是不能得到各分組頁次與總頁,類似-----------------------------------------------------------按公司名分組後,A公司

2006-04-06 11:27:00 1486 1

转载 fastreport打印空白行的方法

FastReport 3.Xvar PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數procedure MasterData1OnBeforePrint(Sender: TfrxComponent);begin PageLine := mod PageMaxRow; if (PageLine =

2006-04-06 11:25:00 5318

空空如也

空空如也