技术类
yeagen
这个作者很懒,什么都没留下…
展开
-
D7中使用D5 D6的控件
其实,我们在原来版本如D5、D6中使用的控件如Quickrep,FastNet等,在D7中仍然是保留的。只是Delphi没有将他们默认的安装到组件面版中来。这些控件包全部保存在Delphi目录的bin下,文件扩展名为.bpl(共将近60个)。安装这些包的方法很简单,只需点击菜单"component---->Install Packages...",然后使用"ADD"选择需要的包就可以了。下面就其中原创 2005-08-08 15:02:00 · 903 阅读 · 0 评论 -
兼容多种不同版本的浏览器,创建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 · 711 阅读 · 0 评论 -
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 · 763 阅读 · 0 评论 -
老文章——TWebBrowser编程简述
引 言 这篇文章最先发表于2000年07月25日,最后一次修改是在2001年02月07日。这里再次贴出的目的,一是作为前一阶段的完结,所以文章中的错误都不作修改;二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识,比较完整地写出来,与网友共勉。TWebBrowser编程简述摘要:Delphi 3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式转载 2006-08-03 14:41:00 · 527 阅读 · 0 评论 -
用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 · 593 阅读 · 0 评论 -
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 · 608 阅读 · 0 评论 -
自己写的防数字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 · 380 阅读 · 0 评论 -
500元大洋学习SEO
某君花500元大洋学习SEO,将教程笔记公布。感谢他的分享!呵呵原文:http://www.kuziyuan.com/article/6/2007/200703092487.htmPR值算法原理总体上基于下面2个前提:1、一个网页被多次引用,则它可能是很重要的;一个网页虽然没有被多次引用,但是被重要的网页引用,则它也可能是很重要的;一个网页的重要性被平均的传递到它所引用的网页。这种重要的网页称为权转载 2007-03-19 12:01:00 · 1005 阅读 · 0 评论 -
如何在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 · 731 阅读 · 0 评论 -
解决JS乱码问题
"";原创 2007-03-29 12:35:00 · 658 阅读 · 0 评论 -
动态创建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 · 491 阅读 · 0 评论 -
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 · 1298 阅读 · 0 评论 -
JS的replaceall
String.prototype.replaceAll = function(s1,s2){ return this.replace(new RegExp(s1,"gm"),s2); }原创 2007-05-18 07:55:00 · 1256 阅读 · 0 评论 -
Windows权限的含义
下面简单解释一下六个权限选项的含义:①完全控制(Full Control):该权限允许用户对文件夹、子文件夹、文件进行全权控制,如修改资源的权限、获取资源的所有者、删除资源的权限等,拥有完全控制权限就等于拥有了其他所有的权限;②修改(Modify):该权限允许用户修改或删除资源,同时让用户拥有写入及读取和运行权限;③读取和运行(Read & Execute):该权限允许用户拥有读取和列转载 2007-09-19 18:17:00 · 633 阅读 · 0 评论 -
OnUnLoad事件不起作用的解决方法
在IE在直接在Body的Onunload事件中JS脚本,常常会不起作用,可以用以下代码代替: window.attachEvent(onunload,function(){window.location.replace(Admin_Quit.asp);}); 这应该算是IE的一个BUG吧原创 2006-08-09 12:01:00 · 1713 阅读 · 0 评论 -
用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 · 991 阅读 · 1 评论 -
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 · 1065 阅读 · 0 评论 -
DELPHI的split函数
procedure TForm1.Button1Click(Sender: TObject);var s1:TStringList;begin s1:=split(11111111:2222:33333:44444,:); Memo1.Lines.AddStrings(s1); s1.Free;end;function split(s,s1:string):TStringList;beg原创 2005-04-23 20:55:00 · 1818 阅读 · 1 评论 -
允许access将某字段设置为“允许空字符串”的方法
Set Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db1.mdb")Set adox = Server.CreateObject("ADOX.Catalog")Set adox.ActiveConne原创 2005-04-23 20:58:00 · 1402 阅读 · 0 评论 -
关于windows2000“组件服务”上有向下的红箭头的解决方法
笔者同事所用机器的IIS最近出了问题,访问本地ASP文件时用“http://localhost”或“http://计算机名”可以正常访问,但如果用“http://127.0.0.1”访问,就会弹出一个对话框要求输入密码。因为只是用IP地址不能正常进行访问,所以感觉不会是大问题,根据以往的经验,首先查看用户组中的“IUSR_计算机名”、“IWAM_计算机名”两个账号是否被禁用了,结果发现状态正常。接原创 2005-04-23 20:59:00 · 1443 阅读 · 0 评论 -
下拉菜单在弹出时会被下面大面积FLASH盖住
——“下拉菜单在弹出时会被下面大面积FLASH盖住”的解决:在下面那个大面积FLASH代码的就可以解决了。原创 2005-11-28 03:23:00 · 862 阅读 · 0 评论 -
ASP中怎么实现SQL数据库备份、恢复!
作者:未知 来源:未知 加入时间:2005-9-21 99软件站选择自 hanghwp 的 Blog 1、ASP中怎么实现SQL数据库备份、恢复!答:asp在线备份sql server数据库:1、备份SQL="backup database 数据库名 to disk="&Server.MapPath("backup")&"/"&"backuptext.dat"&""set cnn=Serv原创 2005-11-28 02:56:00 · 445 阅读 · 0 评论 -
动易的JS栏目生成,未整理
%@language=vbscript codepage=936 %>response.buffer=true Const PurviewLevel=1Const PurviewLevel_Channel=0Const PurviewLevel_Others=""ChannelID=0%>dim hf, strTopMenu, pNum, pNum2, OpenType_Class, strMen原创 2005-11-28 17:16:00 · 1856 阅读 · 0 评论 -
ASP连接数据库的全能代码
解决了ACCESS数据库路径的问题!采用DBType=0或DBType=1来区分AC库还是MSSQL库具体采用AC库时应注意的事项,请看程序说明-----------------------------------------------Dim DBType,Conn,StrConnDBType=0 0为Access数据库,1为MSSQL数据库 If(DBType=0) The原创 2005-11-28 03:03:00 · 456 阅读 · 0 评论 -
Delphi编写组件封装asp代码的基本步骤
Delphi编写组件封装asp代码的基本步骤作者:asp爱好者 文章来源:网友投稿 点击数: 更新时间:2005-3-11 如果你想脱离asp爱好者的水平,那么你就应该学会为asp编写组件。我在google上搜索了一下,Delphi编写asp组件的文章一共就几篇,所以今天写了这篇Delphi编写asp组件的基础文章,希望对新手有点帮助。 开始吧,让我们一起编写原创 2006-01-03 15:14:00 · 521 阅读 · 0 评论 -
判断一个虚拟目录是否存在
unit U_IIS;interfaceuses ComObj, Variants; //一、判断一个虚拟目录是否存在: function IsVirtualDirExist(strVirtualDir: string): Boolean; //二、新建一个虚拟目录: function CreateVirtualDir(strVirtualDir, strRealPath: stri原创 2006-01-03 18:13:00 · 86 阅读 · 0 评论 -
ASP控制虚拟主机函数ADSI
使用ASP设置指定站点CPU最大使用程度=================================================函数介绍:设置指定站点CPU最大使用程度本函数使用ADSI,需要Administrators组用户权限函数名称:SetCPULimitVar (Computer,SiteNum,LimitVar)用法:SetCPULimitVar 计算机名,站点编号,原创 2006-01-01 21:39:00 · 769 阅读 · 2 评论 -
ASP的创建站点及FTP的方法
1.创建用户 下面这段代码在独立服务器white上创建用户user1,初始口令user1,用到了ADSI. Dim Username,UserPass Dim oDomain,oUser Username = "user1" UserPass = "user1" Set oDomain = GetObject("WinNT://white") Set oU原创 2006-01-03 17:47:00 · 572 阅读 · 0 评论 -
配置PHP运行环境
Windows 2000/XP/2003 下 IIS+PHP+MySQL+Zend Optimizer+GD库+phpMyAdmin安装配置一、软件准备:以下均为截止2005-4-20的最新正式版本PHP(5.0.4):http://cn.php.net/get/php-5.0.4-Win32.zip/from/a/mirrorMySQL(4.1.11):http://www.skycn.com/原创 2006-03-01 16:39:00 · 2081 阅读 · 0 评论 -
用磁盘序列号对ASP进行加密
自从ASP(Active Server Pages)问世以来,因其可以创建健壮易于维护、与平台无关的应用系统,ASP技术受到了越来越多网络程序员的喜爱,使用ASP从事WEB开发的人也越来越多。但ASP只是一种非编译型的、在服务端运行的脚本语言,采用明文(plain text)方式来编写,即使采用了ASP加密程序对ASP源码进行加密,也不一定能保证发布到运行环境中去的ASP应用程序不被非法拷贝。对于转载 2006-09-26 14:56:00 · 730 阅读 · 0 评论 -
当使用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 · 748 阅读 · 0 评论