逸'Coding'Blog

摘要： function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字vari:integer;beginresult:=true; //设置返回值为 是（真）Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不是0-9中的任一个 begin result:=false; //返回值 不是（假） ... 阅读全文

摘要： 想法不错,放着以后应该会有用网站挂马非常让人头痛，每次的安全措施都是治标不治本，想找到根本原因，只能去分析你的程序源代码，由于很多网站不是一个程序员开发，很多的注入漏洞很难发现，曾经通过公共文件加入过滤代码，基本无效，买了个叫龙盾的IIS防火墙，好像有点用，但最后还是被攻破了，sqlserver又被挂了。 每次注入都要用“UPDATE 表名 set 字段名= REPLACE(字段名, 网站挂马非常让人头痛，每次的安全措施都是治标不治本，想找到根本原因，只能去分析你的程序源代码，由于很多网站不是一个程序员开发，很多的注入漏洞很难发现，曾经通过公共文件加入过滤代码，基本无效，买了个叫龙盾的II.. 阅读全文

摘要： (*//标题:获取其他进程中ListBox和ComboBox的内容说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2004-03-25//*)function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;var vItemCount: Integer; I: Integer; S: string;begin Result := False; if not Assigned(mStrings) then Exit; mStrings.Begi... 阅读全文

摘要： FDOM 和DOM-------------FDOM返回参数中日期所在月份的第一天的日期。而LDOM返回该月份的最后一天的日期（所给日期的下一个月的第一天日期减去一）。 function FDOM(Date: TDateTime): TDateTime; var Year, Month, Day: Word; begin DecodeDate(Date, Year, Month, Day); Result := EncodeDate(Year, Month, 1); end; function LDOM(Date: TDateTime): TDateTime; v... 阅读全文

摘要： create proc spGenInsertSQL @TableName as varchar(100) as --declare @TableName varchar(100) --set @TableName = 'orders' --set @TableName = 'eeducation' DECLARE xCursor CURSOR FOR SELECT name,xusertype FROM syscolumns WHERE (id = OBJECT_ID(@TableName)) declare @F1 varchar(100) de... 阅读全文

摘要： unit Unit_DBGridEhToExcel;interfaceusesSysUtils, Variants, Classes, Graphics, Controls, Forms, Excel2000, ComObj,Dialogs, DB, DBGridEh, windows,ComCtrls,ExtCtrls;typeTDBGridEhToExcel = class(TComponent)private FProgressForm: TForm; {进度窗体} FtempGauge: TProgressB... 阅读全文

摘要： //客户端机器的MAC地址function GetMacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result :=''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文

摘要： 根据您的描述，建议您按照如下步骤尝试操作： SIM卡没注册上 1.设定-更多-移动网络-网络模式-卡1/卡2-网络运营商-点击可用的 3.更换其他SIM卡 4.个别地方因3G信号不稳定可尝试：设定-更多-移动网络-网络模式-GSM本人用这个方法以后就可以了. 阅读全文

摘要： {****************************************************//Description : 把一个表或Query或StringGrid中的数据保存到一个Execl文件中Function List : 创建接口 procedure CreateExcelInstance; 把表内容放到Excel文件中 procedure TableToExcel( const Table: TTable ); 把Query内容放到Excel文件中 procedure QueryToExcel( const Query: TQuery ); 把Stri... 阅读全文

摘要： IF EXISTS(Select Name From Sysobjects Where Name='P_ExistsDropView' And Xtype='P')DROP PROC P_ExistsDropViewGOCreate Proc P_ExistsDropView(@DelView Varchar(200))AsDeclare @SQLText Varchar(1000)If Exists(Select Top 1 Name From Sysobjects Where Name=@DelView And XType='V') Begi 阅读全文