zmphy-CSDN博客

原创 64位操作系统使用7.0版winiis系统，报ActiveX 部件不能创建对象问题！

问题：用delphi 做了一个DLL,然后在ASP中server.createobject使用,以前一直使用的非常正常,但是最近遇到的一个客户是WINDOWS 2008 云终端,结果,一运行到server.createobject,就提示Microsoft VBScript 运行时错误错误 '800a01ad' ActiveX 部件不能创建对象,DLL注册了多次也没有效果,后来在网上搜索

2012-07-19 15:02:38 8562

转载企业管理器打开任意表都会有出错信息：对象关闭时，不允许操作。

解决办法: C:\Program Files\Common Files\System\Ole DB\oledb32.dll给予修改的访问权限

2012-05-16 14:03:57 1102

转载 Url Rewriting后的问题

There is no build provider registered for the extension '.htm'. You can register one in the section in machine.config or web.config. Make sure is has a BuildProviderAppliesToAttribute attribute which

2012-04-17 19:21:16 564

原创 TWebbrowser报invalid floating point operation错误解决办法

TWebbrowser报invalid floating point operation错误解决办法 borland给的解决方法是, 加一句Set8087CW(Longword($133f));来关闭这个机制. 你可以加在form的oncreate事件里害我搞了半天,备忘一下.切记!

2012-02-24 22:53:12 1235

原创 delphi+dbgrid+qreport做自定义报表小结

参照网上流行的两篇文章,一个是"在动态报表制作中巧用DBGRID",一个是"在delphi中动态生成quickreport报表"自己互相结合,做了个用户可以自定义的报表.小结一下:1.qreport要绑定数据.2.QREPORT的DetailBand1的第一栏宽度要-1.3.动态创建的控件,Preview后,要释放.4.合计只能对整型起作用.

2010-03-10 14:28:00 3474 1

原创改写了一个常用的DELPHI的加解密函数

改写了一个常用的DELPHI的加解密函数 DELPHI//////////////////////////////////Function EncrypKey (Src:String; Key:String):string; var idx :integer; KeyLen :Integer; KeyPos :Integer;

2010-01-13 14:42:00 1952 5

转载 Windows默认文件操作(SHFileOperation)

Windows默认文件操作(SHFileOperation)要实现使用系统自带文件操作，如文件的复制，删除，移动等等，我们就需要利用API函数(别忘记引用ShellAPI)来进行操作：该函数在C语言中的声明：WINSHELLAPI int WINAPI SHFileOperation(LPSHFILEOPSTRUCT lpFileOp); 在

2009-12-23 16:13:00 798

转载 EXCEL去重办法

1,按想要删除的字段排序，2，找一空白列（假设为 M 列），假设“四川成都瑞祥饰品贸易部”这个称名所在的列为 C 列3，一般第一行是字段名，第二行才是内容。那么在空白列 M 列的第三行输入： =if(c2=c1,0,1) 4，选中M3 单元格，双击单元格右下方的 + 号，使所有的M列引用。5，新建一空白文本文件，6，复制M列到空白文本，7，再复制文体下的内容到M列，8，对M列排序。9，删除

2009-11-18 13:44:00 1644

转载 sql语法：inner join on, left join on, right join on详细使用

.理论只要两个表的公共字段有匹配值，就将这两个表中的记录组合起来。个人理解：以一个共同的字段求两个表中符合要求的交集，并将每个表符合要求的记录以共同的字段为牵引合并起来。语法select * FROM table1 INNER JOIN table2 ON table1 . field1 compopr table2 . field2INNER JOIN 操作包含以下部分：

2009-08-20 09:48:00 606

转载 GridView 72般绝技

GridView 72般绝技作者：清清月儿版权永远属于CSDN社区的清清月儿快速预览：GridView无代码分页排序GridView选中，编辑，取消，删除GridView正反双向排序GridView和下拉菜单DropDownList结合GridView和CheckBox结合鼠标移到GridView某一行时改变该行的背景色方法一鼠标移到GridView某一行时改变该行的背景色方法二Gr

2009-08-08 14:27:00 644

转载 adodb.stream 字符串转二进制流函数与二进制流转字符串函数

function sTb(str, charSet) 字符串转二进制函数参数说明 str: 要转换成二进制的字符串 charSet: 字符串默认编码集, 如不指定, 则默认为 gb2312

2009-06-30 11:26:00 3787

转载改变下拉列表的值触发文本框值变化一种办法

改变下拉列表的值而触发文本框值变化或者让文本框的值等于下拉列表中当前选定的值。通常有几种方法，一种就是全部放在form中用post提交刷新页面完成；一种就是用JS函数来完成，现在介绍一种只须要一句代码就可以完成的方法：onChange="document.all.bitrate.value= document.all.sel.options[document.all.sel.selec

2009-06-19 15:59:00 3530

转载用回车键实现换行

document.onkeydown=function(){var fx="";var qx=true; //移到文本框中后是否自动全选try{ switch(event.keyCode){ //判断按键 case 13: if(event.srcElement.tagName!="SUBMIT"){ //非TEXTAREA对象中按回车键 fx="down"; }

2009-06-08 15:46:00 3259 1

原创 TEXTAREA中加入TABLE

为了传递一批参数,将TABLE中的内容加到TEXTAREA中.作为一个参数传送. AAAAAAAAAAAAAA function doBtnClick() { dzcountbc.appendChild(document.getElementById("dzcount")); } //-->

2009-05-22 14:03:00 3653

转载浏览或使用uft-8格式的页面的时候,页面不显示(空白页面,实际已经显示)

浏览或使用uft-8格式的页面的时候,有可能出现一些乱码或不显示的问题,即使网页已经声明过编码格式：因此最简单的解决办法是在网页文件的标签中一定要把字符定义放在之前。

2009-05-06 10:50:00 562

原创 ASP程序在2000下一切正常,但转到2003服务器上,乱码

以前所有的ASP程序一直在2000服务器上使用,一切正常,最近换了台2003的服务器,结果,所有程序,不定程度上出现了乱码.在网上找了一些资料,现在总结一下:故障原因:2003默认UTF-8,结果与GB2312冲突造成.解决方法:1. 加%@codepage="65001"%>,强制ASP用UTF来传输数据.可以加在包含文件中,如CONN.ASP等连接数据库的ASP中.2.加

2009-03-19 15:19:00 575

原创 WINDOWS 2003,XP ODBC通过TCP/IP连不上SQL 2000

连不上的原因是2003把SQL的1433端口禁掉了. 在查询分析器中,用select @@version检查一下,SQL的版本号,比Microsoft SQL Server 2000 - 8.00.2039 低的就说明,要重新打下补丁.找个SQL 2000 SP4的补丁安装一下.安装过程中别忘了钩上“对所有数据库启用跨数据库的所有权连接”，当然这个是微软不推荐的。因为存在安全隐患阿。

2009-03-18 12:16:00 1862

转载在线QQ客服代码

将一下代码加入到版权信息的代码视图里面：里面的QQ号码换成你自己的QQ号码就可以了 var online= new Array();if (!document.layers)document.write()http://www.dns333.com/kefu_up.gif" border=0>http://webpresence.qq.com/getonline?Type=1&amp

2009-03-18 09:47:00 1091

原创防一句话木马注入

最近又有用户的SQL出现数据混乱,数据中有SELECT等情况,可能是一句话木马引起的,特加入防木马注入. 摘自:孤行一鬼 If Request.FormIf Request.QueryStringIf Request.Cookiessub qhwins() dim win,wins win=array(60,33,45,45,-19253,-12808,-10818,-11319,

2009-03-12 16:33:00 2166

转载解决windows2003, xp中搜索不到文件的问题

朋友可能常用到windows系统的搜索功能，就是在一大堆文件中查找含有某个单词的文件。在windows2000中使用正常，可在windows2003, xp中使用无效，系统装模做样地查了半天，硬是说没找到。摸索了半天，原因找到了，现在奉献给大家：运行regedit，编辑注册表HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Conten

2009-03-04 21:33:00 2268

zmphy的专栏