lee576的专栏

转载 ASP.NET中检测含有中文字符串的实际长度

  function int StrLength(string Str)    {        ASCIIEncoding En=new ASCIIEncoding();        Byte[] B=En.GetBytes(Str);        int Length=0;        for(i=0;i      {    if(B==63)        { 

原创 在 case 语句中使用字符串

我今天要介绍的是一个比较另类的方法。大家都知道，case 语句只能对顺序类型6d6Linux联盟（ordinal type）管用，那么我们先看一下顺序类型到底有那些呢：1)整型；2)字6d6Linux联盟符型；3)枚举型。6d6Linux联盟于是也就演化出三种在 case 语句里面使用字符串的方法（耐心看下去哦，最后一6d6Linux联盟种方法才是今天的重点:-p）：6d6Linux联盟6d6Li

原创 delphi7莫名奇妙编译出现的问题

[Fatal Error] Unable to build. License is invalid or has expired.[Fatal Error] Unable to build. License is invalid or has expired.[Fatal Error] xklserver.dpr(2): Read error on System.dcu有人说是盗版原因,这

原创 台湾一首搞笑童谣

近日看到台湾偶像剧(我从来不看偶像剧的,以前出差在宾馆无聊时看了一下,觉得这部拍的还行,之前有很多台剧都给我拍的很烂的感觉,) 里有一个人编的一首烂诗:大胖呆,炒韭菜,烧烧一碗来,冷冷我不爱没想到是台湾的一个童谣台湾的国小(大概相当于国内小学)有个校规:(二)升旗时间教授学生『大胖呆』童谣.歌词如下【大胖呆哎唷白目眉,没人请伊都自己来,来来大胖呆炒韭菜,烧烧一碗来,冷冷阮不爱,大胖呆到

转载 ASP.NET服务器端与javascript交互的一种方法

转载 在GridView中针对鼠标单击的某一独立单元格进行编辑

原文地址：http://www.codeproject.com/aspnet/EditGridviewCells.asp[原文源码下载][译者改后源码下载]介绍ASP.NET的GridView控件允许你通过设置它的EditIndex属性来编辑数据行，此时整个数据行都处于编辑模式。 如果你在EditItemTemplate的一些列中使用了DropDownList控件，那么你也许不希望整个数据行都处于

原创 asp.net如何在页面加载时响应回车事件

protected void Page_Load(object sender, EventArgs e)   ...{  this.Page.SetFocus(TextBox1);//设置焦点   }   -------------------------------------------  protected void Page_Load(object sender, EventArgs 

原创 在ajax中让客户端弹出警告窗口的代码

ScriptManager.RegisterStartupScript(this, GetType(), "js", "alert(请填写各级渠道在项目中的参与情况!);document.getElementById(ctl00$ContentPlaceHolder1$txtGJQDZXMZDCYQK).focus();", true); 

原创 关于引用了母版页后，怎么在内容页里写javascript的验证表单的代码？

本来要做一个看似比较简单的功能，就是回车登录，结果因为用了net2.0的母版页,一些常规方法都失效了，搞的我很郁闷,用了三种方法最终才成功先说一下我失败的几个:      if(event.keyCode==13)     {         documen.getElementById().focus();         documen.getElementById(

原创 用Delphi编写Windows服务(Service)

    Windows的服务是一个比较实用的功能，你的程序可以在Windows未进行登录的时候就开始运行，不受用户注销的影响，也不容易被用户误关闭。     但是编写服务也许不是一件容易的事情，幸好Delphi给我们提供了一个模板，可以很容易的编写一个标准的Windows服务程序。     首先，在Delphi内新建一个Service Application。     此时，Delph

原创 Delphi 编写Windows NT服务

Delphi 编写Windows NT服务 1．产生一个Win32服务应用 　　产生一个Win32服务应用，选择File|New菜单，在New Items页中选择Service　Application。这样在你的工程里加入一个全局变量命名的应用，它是 TserviceApplication类型。每个服务工程自动的声明一个TServiceApplication 实例，并不需要直接

原创 用Delphi创建windows服务程序

Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File-->New-->Othe

原创 怎样用DELPHI调用COM组件

在Delphi中的话，创建一个工程后，菜单Project下有一个Import   Type   Library选项，     点击进入，选择你用VC编写的dll的Type   Library，将其创建后，会产生一个XXXX_LIB，     XXXX会根据组件的不同而不同，在你的工程内Uses这个XXXX_TLB，这样你就可以在你的     工程内调用了，例如：     procedure   x

原创 使用VS.Net IDE调试JavaScript

请按照如下步骤进行:(1)     打开IE --> Internet Options -- > Advanced ; 去掉”Disable Script Debugging” 上的选项 (2)      打开需要调试的页面 (3)      启动VS.Net IDE, 选择 TOOLS-Debug Process (Ctrl + Alt + P). 选择需要调试的IE进程。

原创 "转角遇到爱"之经典对白与漫画文字

为什麽你轻易俘虏我的心，我却难以将你的目光拉近？遇见。可以是灯火阑珊，也无妨百转千回。总是期待你能偶而回头，鼓舞我追逐後的汗水。你看看我，你瞧瞧我，是不是有一点点可爱？眼中有一点点的期待，期待著你的爱。喂，你那么难追，是不是想坚定我爱你的决心？爱是翅膀。当你舍弃我时，我只有从两千尺高空坠落。不是每个灰姑娘,都能找到属于自己的鞋。最

原创 作业中调用存储过程不成功

我在sql server 2000上建立了一个连接oracle 9i的链接服务器存储过程中用到了这个链接服务器,我在查询分析器下执行成功,但在作业中调用存储过程不成功出错提示如下:执行用户: NT AUTHORITY/SYSTEM。OLE DB 提供程序 MSDAORA 报错。验证失败。 [SQLSTATE 42000]（错误 7399）   [SQLSTATE 01000]（错误

原创 sql server 2000/2005 游标的使用操作

1. 定义游标定义游标语句的核心是定义了一个游标标识名，并把游标标识名和一个查询语句关联起来。DECLARE语句用于声明游标，它通过SELECT查询定义游标存储的数据集合。语句格式为：DECLARE 游标名称 [INSENSITIVE] [SCROLL]CURSOR FOR select语句[FOR{READ ONLY|UPDATE[OF 列名字表]}]参数说明：INSENSITIVE选项：说明所

原创 如何注册dll

如果DLL文件没有注册,系统注册表中就没有这个DLL文件信息.那么等到调用的时候,因为不知道这个DLL文件的位置,只能报告没有这个DLL.所以这时候就需要注册DLL了. WINDOWS系统的DLL不用注册.因为安装时已经注册好了. 注册: regsvr32 文件名 解除注册 regsvr32 文件名 /u 不弹出信息框 regsvr32 文件名 /i 还有一种注册方式:在要注册的dll文件

原创 exe注册成windows服务办法

注册成服务办法：程序---运行---D:/resin/bin/httpd.exe -install 移除服务：程序---运行---D:/resin/bin/httpd.exe -remove

原创 以太网接口TCP/IP协议介绍,说的很容易懂了

TCP/IP协议，或称为TCP/IP协议栈，或互联网协议系列。TCP/IP协议栈(按TCP/IP参考模型划分)   应用层 FTP SMTP HTTP ...

原创 windows 2003下安装vs.net 2005 sp1补丁包

您尝试在 Windows Server 2003 或 WindowsXP 中安装大 WindowsInstaller 包或大型 WindowsInstaller 修补程序包时错误信息： " Error 1718。 文件被数字签名策略拒绝 "原因当计算机有连续不足用于 WindowsServer 2003 或 WindowsXP 来验证 .msi 程序包或 .msp 包正确签名发生此问题。his p

原创 在windows2003上使用USB移动硬盘

在windows2003上使用USB移动硬盘和windowsxp不同，windowsxp直接可以使用，但windows2003则不行，因为默认为了保证系统的安全性，windows2003不允许使用移动硬盘设备。解决方案：1、打开“计算机管理”对话框，在树形菜单中找到磁盘管理中，然后识别出来哪个分区是你的活动硬盘分区，为其分配一个未被占用的盘符，然后就可以在我的电脑中看到了。2、开始——>运行——>

原创 Sql Server上建Oracle链接服务器

 exec sp_addlinkedserver @server=ORACLEDB,                        @srvproduct=Oracle,                        @provider=MSDAORA,                        @datasrc=ROADSMS  --该参数为使用sqlplus登录时的主机字

原创 轻松掌握SQL Server数据同步技术

SQL复制的基本元素包括：　　出版服务器、订阅服务器、分发服务器、出版物、文章。　　SQL复制的工作原理　　SQL SERVER 主要采用出版物、订阅的方式来处理复制。源数据所在的服务器是出版服务器，负责发表数据。出版服务器把要发表的数据的所有改变情况的拷贝复制到分发服务器，分发服务器包含有一个分发数据库，可接收数据的所有改变，并保存这些改变，再把这些改变分发给订阅服务器。　　SQ

原创 Ms SQL server2000 数据库 同步的问题

经过测试，可以顺利实现数据库结构的初始化和数据的单向同步（也就是订阅服务器的数据可以及时更新为发布服务器的数据)。 准备工作： >>数据的同步中主要考虑的三部分，可以理解成三台主机。发布服务器，分发服务器和订阅服务器；可以从字面的意思理解，要实现的功能实际就是让订阅服务器通过分发服务器保持数据及时地和发布服务器上的数据一致。整个执行过程是这样一来的： a.订阅服务器应该有个初始化，一般来说我们开始

原创 局域网发送文件的源代码（idUDPserver,idUDPClient)

===============服务端================unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,id

原创 武汉市近年社会平均工资（职工平均工资对照表）

年 度

原创 从表中取第n条到第m条记录

自然会想到用top．但是top是从第一条开始算起的，怎么办呢？其实．稍微转换一下就出来了假设n,m为已知．从表Str中取　字段idselect top m-n+1 id from Str where (id not in (select top n-1 id from Str))呵呵．是不是觉得很简单呢？这里稍微改一下，m　n也可设为参数带入 

原创 Delphi7.0自带Indy 9基础介绍

        Internet Direct（Indy）是一组开放源代码的Internet组件，涵盖了几乎所有流行的Internet协议。是由Chad Z. Hower领导的一群开发者构建的，可以从Indy的站点www.nevrona.com/indy上找到更多的信息并下载其新版本。Delphi 7中所带的是Indy 9。在其的组件面板上，一共安装有100多个Indy组件。使用这些组件你可以开发

原创 IdTCPClient和IdTCPServer主要属性

IdTCPClient属性1 : IOHandler 如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接2 : Intercept 如果有一个网络连接正在使用,那么Intercept 提供的组件或接口将可以拦截相应的网络数据流中的数据3 : BoundIP 指定使用IdTCPClient组件的计算机系统的IP地址,也就是

原创 服务端用idhttpserver来接收xml数据包

多个客户端同时向一个服务端发送xml数据包         服务端用idhttpserver来接收xml数据包，现在发现服务端程序经常莫名其妙死掉！     没有任何错误提示，直接关闭！接收数据量比较大！         idhttpserver的commandget方法是这样写的：     －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－         if   requ

原创 关于在网页上获取信息.idhttp

假如我给我的空间里存放了一个名为1.txt的文件. 我想在delphi里读取他. 例如:http://www.baidu.com/1.txt 这样如何读取,谁能给个详细的源码.分数全部送上.-------------------------------------------------------------------------------------------------------

转载 1433端口映射 架设sql server

关于通过外网连接内网SQL Server服务器的方法      近日，在论坛上看到的有关SQL Server远程连接的文章后，真的受益良多。一直以来困惑了已久的关于从外网如何连接到内网的SQL Server服务器上的方法，现已解决了，相信也有不少象我这样的狐友们。故此，现在把我实现的方法拿出与大家分享一下，小弟很菜，若有不对的地方，请大家纠正，谢谢！操作设置如下：1.在内网里的某一台机上安装好操作

原创 Windows 防火墙上也有端口映射功能

端口映射可以在路由器上设置，可以在代理服务器上设置，其实 Windows Server 2003/XP/2000 的防火墙上也有端口映射功能。假如要进行端口映射的计算机的IP地址是：192.168.0.1。完成把192.168.0.1的80端口，映射到192.168.0.10的8080端口，进行如下设置即可。 打开 “Windows 防火墙”，选择“高级”标签页。 I>在“高级”标签

原创 什么是端口映射

 如果你是ADSL、CABLE MODEM或光纤等宽带接入用户，想在网吧或公司内部建一个游戏服务器或WEB服务器，并且能够让互联网上的用户访问你的服务器，那么你就会遇到端口映射问题。 通常情况下，路由器都有防火墙功能，互联网用户只能访问到你的路由器WAN口(接ADSL线口)，而访问不到内部服务器。要想让外面用户访问到服务器，那么你就要在路由器上做一个转发设置，也就是端口映射设置，让用户的请求到了路

转载 公布Oracle端口映射源码，并加以例程说明

 从这里到end. 为一个单元,可以copy到delphi中保存{----------------------------------------------------------------------------- Unit Name: IdMappedOra Author:    LCK------------------------------------------------

原创 IDTCPSERVER/IDTCPCLIENT设计一个外网和内网信息传递程序

各位先行者：     　　　我想设计一个DELPHI　IDTCPserver/IDTCPClient设计内网和外网的信息传递程序，有谁能提供代码程序啊1 楼self.IdTCPClient1.Host:=ip;         self.IdTCPClient1.Port:=port;         try             IdTCPClient1.Connect(5000)

原创 批处理文件的编写及使用

首先，批处理文件是一个文本文件，这个文件的每一行都是一条DOS命令（大部分时候就好象我们在DOS提示符下执行的命令行一样），你可以使用DOS下的Edit或者Windows的记事本(notepad)等任何文本文件编辑工具创建和修改批处理文件。 其次，批处理文件是一种简单的程序，可以通过条件语句(if)和流程控制语句(goto)来控制命令运行的流程，在批处理中也可以使用循环语句(for)来循环执行一条

原创 IdTCPServer如何段开和客户端的连接

1、请问IdTCPServer如何段开和客户端的连接，现在有我写了一个SERVER端和一Client端程序，当Client先段开与SERVER的连接，SERVER再停掉服务没有问题，但是当Client没有段开连接而SERVER直接关闭服务就会报异常，我想在关闭SERVER前先关掉所有客户端的连接，试了很长时间都没有成功，请问怎么解决。SERVER用的是IdTCPServer，Client用的是Id

原创 关于idtcpserver收包错位的问题

想用idtcpserver做一个主站软件，接受远程终端通过GPRS功能发送的报文。在IdTCPServerExecute里用AThread.connection.ReadLn读接收