自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

  • 博客(55)
  • 资源 (4)
  • 问答 (1)
  • 收藏
  • 关注

原创 安装完wdinows 2003以后更改序列号的方法,以及可以安装R2补丁的序列号

1: 开始-运行-regedit:  备份HKEY_LOCAL_MACHINE/Software/Microsoft/WindowsNT/Current Version/WPAEvents键值,例如:wpa.reg2: 修改或刪除Wpaevents子鍵3:开始-运行  c:/windows/system32/oobe/msoobe /a   现在应该是没激活状态  此处的c:/wind

2007-10-31 11:47:00 932

原创 用Delphi创建服务程序

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

2007-09-24 10:25:00 394

原创 当使用Delphi调用Delphi编写的Com组件时,如果遇到“找不到成员”错误的解决方法

 procedure TForm1.Button2Click(Sender: TObject);var  A_Com:Variant;beginA_Com := CreateOleObject(Test.VH);A_Com.ShowText(Text);end; 这执行会报“找不到成员”的错误只要将A_Com.ShowText(Text);改成A_Com.ShowText[T

2007-09-23 11:33:00 724

转载 Windows权限的含义

下面简单解释一下六个权限选项的含义:①完全控制(Full Control):该权限允许用户对文件夹、子文件夹、文件进行全权控制,如修改资源的权限、获取资源的所有者、删除资源的权限等,拥有完全控制权限就等于拥有了其他所有的权限;②修改(Modify):该权限允许用户修改或删除资源,同时让用户拥有写入及读取和运行权限;③读取和运行(Read & Execute):该权限允许用户拥有读取和列

2007-09-19 18:17:00 593

原创 金额保留两位小数

 Function PriceCheck(ThePrices) PriceCheck = Formatnumber(ThePrices,2,-1,0,0)End Function (6665.900)一个例子用到了函数Formatnumber()的所有参数:第一个参数(-6665.8999)指定了要进行格式化的数字。第二个参数(3)指定了小数点后显示的位数。第三个参数(-1)指定了是否显示

2007-09-15 13:54:00 461

原创 css alpha 用 js 设置的写法

function ChangeBackTran(thisValue){ document.all.PreviewPicBox.filters.Alpha.opacity = thisValue ; } 

2007-08-27 18:20:00 499

原创 完整的键位扫描码和判断数字键、字母键、字符键的函数

一、键位扫描码,用event.keyCode获得8   退格      9   Tab       12   小键盘,numlock未锁定时 13   回车      16   Shift      17   Ctrl       18   Alt      19   Pause Break 20   CapsLock   27   Esc       33   PgUp      34   

2007-05-22 04:49:00 586

原创 JS的replaceall

String.prototype.replaceAll  = function(s1,s2){    return this.replace(new RegExp(s1,"gm"),s2);    }    

2007-05-18 07:55:00 1240

转载 动态创建table要注意tbody

CODE:var myTable = document.createElement("table");var myTbody = document.createElement("tbody");var myTr = document.createElement("tr");var myTd = document.createElement("td");myTd.innerHTML

2007-05-16 11:16:00 479

转载 Javascript attachEvent传递参数的办法

var newopen = function(id,level){  return function()  {    opentree(id,level);//该函数为外部定义的一个执行函数;  }}x.attachEvent("onclick",newopen(id,parseInt(level)+1));y.attachEvent("onclick",newopen(id,parseInt

2007-05-15 16:30:00 1286

转载 用isapi_rewrite Lite Version(免费版本)编写正则表达式

下面是一个简单的例子,我想让别人输入 http://server/test-12314.html 实际上访问的是 http://server/test.asp?id=12314 。那么我们的匹配表达式应该是 /test-([0-9]*).html 对应的格式化表达式应该为 /test.asp/?id=$1 。 进行正则表达式的编写的时候,可以利用isapi_rewrite提供的正则表达式测试工具(

2007-04-26 11:49:00 499

原创 Win2003+IIS安装ISAPI_Rewrite使论坛运行静态页面!

Win2003+IIS安装ISAPI_Rewrite使论坛运行静态页面!前提你要自己有服务器,然后下载:http://www.isapirewrite.com/download/isapi_rwl_0049.msi接着安装,随便装哪都行。然后,打开Internet 信息服务,右键,web站点属性,点ISAPI筛选器选项卡.添加筛选器,名称填个rewrite,路径自己指定ISAPI_Rewrite.

2007-04-26 11:45:00 994

原创 解决JS乱码问题

 "";

2007-03-29 12:35:00 643

转载 如何在html页面中的textbox框输入html标签(转由Rickel Huang )

如何在html页面中的textbox框输入html标签Rickel Huang 2005-4-18今天解决的一个问题,需要在一个textbox框中输入html标签,并显示得到的效果。方法:       在一个td中嵌套一个DIV元素,设置Div元素标签属性CONTENTEDITABLE,这样该Div标签就可以编辑了,用此方法模拟textbox一个问题在于你如果直接输入”这样的标

2007-03-28 13:42:00 716

转载 IASP 让你的ASP运行于Apache

自从MS推出ASP技术后,由于ASP在创建动态交互式站点上的强大功能及其代码编写的简便性,使ASP在很多Internet/Intranet/Extranet网站上得到了极其广泛的应用,尤其是涉及到数据库操作的网站应用系统更是倾向于采用ASP技术。但由于众所周知的原因,ASP只能工作于MS自己的操作系统平台和服务器软件之下,即只能在WindowsNT+IIS系列或Windows9X+PWS系列中使用

2007-03-19 12:23:00 1052

转载 500元大洋学习SEO

某君花500元大洋学习SEO,将教程笔记公布。感谢他的分享!呵呵原文:http://www.kuziyuan.com/article/6/2007/200703092487.htmPR值算法原理总体上基于下面2个前提:1、一个网页被多次引用,则它可能是很重要的;一个网页虽然没有被多次引用,但是被重要的网页引用,则它也可能是很重要的;一个网页的重要性被平均的传递到它所引用的网页。这种重要的网页称为权

2007-03-19 12:01:00 975

原创 自己写的防数字SQL注入的Request

Function IRequest(R_Para) Para = Request(R_Para) If IsNumeric(Para) = false Or Para="" Then  Response.write "参数不正确"  Response.end Else  IRequest = Para End ifEnd Function用于替换ASP中原来的Request 

2007-03-15 12:21:00 373

转载 10个最好Windows2003命令行函数

10个最好Windows2003命令行函数Windows的命令行程序是系统管理程序的支柱。然而我遍查了Windows Server 2003的附加软件,我从来没有报道过Windows系统内建的最有用的命令行程序。这些命令的用处体现在许多方面。当你需要做一个快速的修复工作,或者你要写一个批处理文件作为预定任务或一个大任务的一部分就会很有用。  我从Windows Server 2003中精选

2007-03-13 15:39:00 448

转载 用asp或asp.net显示NTFS磁盘空间

ASP的:disk=request.QueryString("disk")user=request.QueryString("user")if disk="" or user="" thenResponse.Write "没有指定硬盘或用户(disk,user)"elseSet colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")col

2007-02-08 16:49:00 580

转载 Delphi防止程序被重复执行

复制到新的unit中,引用到自己的程序中即可unit MultInst;interfaceconstMI_QUERYWINDOWHANDLE = 1;MI_RESPONDWINDOWHANDLE = 2;MI_ERROR_NONE        = 0;MI_ERROR_FAILSUBCLASS = 1;MI_ERROR_CREATINGMUTEX = 2;// Call this funct

2007-01-10 14:12:00 604

原创 asp动态include文件

 受 宏限制必须存在该文件并且会预先编译(不管前面是否加以条件)经常有这样的要求,根据不同的需求要求include不同的文件如各个人的不同设置,所以要求能动态include文件。代码如下:Function include(filename) Dim re,content,fso,f,aspStart,aspEnd  set fso=CreateObject("Scripting.F

2006-12-31 15:54:00 413

原创 修改eWebEditor显示路径方法

eWebEditor.aspconfig.BaseHref = ; config.BaseHref =  纯记录

2006-12-31 02:05:00 817

原创 js显示提示

 onClick="return confirm(确定要全部还原吗?);" 

2006-12-30 11:05:00 327

原创 ASP获取浏览器当前路径

http://192.168.0.5/super/super_article.asp?id=4----->http:// 

2006-12-29 11:39:00 662

原创 IFRAME完全自适应窗口高度

test.asp"  name="main" id="main" allowtransparency="true" align="default" marginwidth=0 marginheight=0 frameborder=0 scrolling=no height="200" width="850" onload="this.height=0;var fdh=(this.Document?

2006-12-08 03:22:00 752

原创 Delphi6开发Web Service程序

本文介绍的是如何用Delphi6开发Web Service程序,并把服务程序放在IIS Web服务器上提供给各种客户程序调用。 一编写服务程序 第一步:File----->New----->Other------>WebServices----->Soap Server Application 选择ISAPI/NSAPI Dynamic Link Library然后确定。生成一个框架。后面的大部分

2006-11-20 10:28:00 732

原创 web开发常用js及html代码(待整理)

css创建CLASS并不是建立多种风格的唯一手段, ID也可以用来实现同一规则被应用到页面中不同的地方。   它的语法是:   #id名 {标志属性:属性值;标志属性:属性值;……标志属性:属性值}   如上面的例子,可以改写为:        #001 { font-size: 10pt; color: red}   #002 { font-size: 12pt; color: blue}   

2006-10-31 03:32:00 1069

原创 设置Access字段属性时常遇到的两个选项

Function SetAccess(conns,tables,fields)Set adox = Server.CreateObject("ADOX.Catalog")Set adox.ActiveConnection = conns  conns用于确认链接哪个MDBSet tbl = adox.Tables(tables)set col=tbl.Columns(fields)col.P

2006-10-23 17:13:00 729

转载 防止cint和clng的溢出出错

一、检测它是不是整数function Is_Int(a_str)    if not isnumeric(a_str) or len(str) > 5 then       Is_Int = false        exit function     elseif len(str)       Is_Int = true        exit function   

2006-10-23 11:42:00 593

转载 Delphi中的IsNumeric

function IsNumeric(Data: string) : boolean; var i, code : integer;begin    val(data, i, code);    if code = 0 then        result := true    else        result := false; end;  

2006-10-19 12:43:00 1059

转载 如何插入Access库记录后马上得到自动编号值

如何插入Access库记录后马上得到自动编号值 首先须保证获得记录集的方式支持bookmark属性,如1,3插入一条带自动编号字段的记录后,获取该记录的bookmark属性值temp = rs.bookmark然后rs.bookmark = temp试试!!Response.write rs.Fields("ID").  

2006-09-28 13:58:00 658

原创 编号从新开始

dbcc  checkident(表名,reseed,0);    ---------------------------------------------------------------   下午才学的:dbcc  checkident(yourtable,reseed,0)  编号从新开始   -------------------------------------------

2006-09-28 13:56:00 605

转载 用磁盘序列号对ASP进行加密

自从ASP(Active Server Pages)问世以来,因其可以创建健壮易于维护、与平台无关的应用系统,ASP技术受到了越来越多网络程序员的喜爱,使用ASP从事WEB开发的人也越来越多。但ASP只是一种非编译型的、在服务端运行的脚本语言,采用明文(plain text)方式来编写,即使采用了ASP加密程序对ASP源码进行加密,也不一定能保证发布到运行环境中去的ASP应用程序不被非法拷贝。对于

2006-09-26 14:56:00 718

原创 Visual Studio .net 2005 简体中文版 迅雷下载地址

ftp://ttbbs-VIP:[email protected]/下载/大型软件/[02.21][Visual Studio 2005 Professional Edition - DVD 简体中文版本][阿笨]/CS_VS_2005_Pro_DVD_TTBBS.ORG.iso 2006年8月15日  下载时 2.5M/S爽

2006-08-15 12:12:00 4547

原创 OnUnLoad事件不起作用的解决方法

在IE在直接在Body的Onunload事件中JS脚本,常常会不起作用,可以用以下代码代替:    window.attachEvent(onunload,function(){window.location.replace(Admin_Quit.asp);});  这应该算是IE的一个BUG吧

2006-08-09 12:01:00 1687

转载 兼容多种不同版本的浏览器,创建XMLHTTPRequest

try{ if( window.ActiveXObject ){   for( var i = 5; i; i-- ){   try{     if( i == 2 ){      xmlhttp_request = new ActiveXObject( "Microsoft.XMLHTTP" );    }else{     xmlhttp_request = new ActiveXObject

2006-08-07 16:46:00 696

转载 老文章——TWebBrowser编程简述

引 言  这篇文章最先发表于2000年07月25日,最后一次修改是在2001年02月07日。这里再次贴出的目的,一是作为前一阶段的完结,所以文章中的错误都不作修改;二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识,比较完整地写出来,与网友共勉。TWebBrowser编程简述摘要:Delphi 3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式

2006-08-03 14:41:00 514

转载 几招轻松搞定服务器安全

几招轻松搞定服务器安全一、删除或更名以下危险的ASP组件:   WScript.Shell、WScript.Shell.1、Wscript.Network、Wscript.Network.1、adodb.stream、Shell.application   开始------->运行--------->Regedit,打开注册表编辑器,按Ctrl+F查找,依次输入以上Wscript.Shell等

2006-08-02 16:31:00 520

原创 用dom动态创建一个script对象

用dom动态创建一个script对象:Test.aspvar script=document.createElement("script");script.src="XXXX.asp"; //加载需要执行的js代码document.appendChild(script);  XXXX.asp中的格式为:setTimeout(function(){SearchList.innerHT

2006-07-30 14:50:00 975 1

原创 在html中接收地址栏中的参数

  今天在工作中遇到一个问题,就是要在在html文件中接收地址栏中的参数,以往都是在aspx中接收参数,只要用request[参数名]就行,后来在网友的帮忙下得到解决。虽然不是自己解决,但从中也学到些东西。 window.open ("11.htm?aa="+dd);问题就是从11.htm中接收aa的值 解决方案如下: 1.使用 window.location.search 来取得后面的参数 //

2006-07-30 14:28:00 458

简单的在线编辑器(for asp)

简单的在线编辑器(for asp) 比较简洁,比较实用,目前没有发现什么BUG

2008-11-06

E流速建虚拟主机管理系统

E流速建-虚拟主机管理系统是E流速建家族中的一名新成员;是易建科技彻力打 造的一款服务器主机管理软件。<br><br>其主要功能为:在线注册域名、开通网站空间 (FTP)、开通数据库空间(SQL Server、MYSQL)、开通企业邮箱(EMAIL)和开通自助建站系统 (Easysiter)。同时提供了强大的代理商功能和财务管理功能,使得用户管理和资金管理变 得非常轻松。<br><br>独有的灾难恢复程序:可以让管理员在重装系 统后的管理变得异常轻松,一键搞定所有的IIS设置、NT用户以及权限分配。<br><br>免费版和收费版的功能是完全一样,只是需要定期更换注册码(一般二到三个月换一次)<br><br>在线试用:http://vhost.easysiter.com/<br>免费领取注册码地址:http://www.easysiter.com/new/vhost.asp<br>官方网站:http://www.easysiter.com/<br>交流论坛:http://www.easysiter.com/bbs/<br><br>下载地址:http://download.easysiter.com/Easysiter_Vhost_1.0.rar

2007-10-25

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除