“window.location.href”、”location.href”是本页面跳转 “parent.location.href”是上一层页面跳转 “top.location.href”是最外层的页面跳转 举例说明： 如果A,B,C,D都是jsp，D是C的iframe，C是B的iframe，B是A的iframe，如果D中js这样写 “window.location.href”、”location.href”：D页面跳转 “parent.location.href”：C页面跳转 “top.location.href”：A页面跳转 如果D页面中有form的话, <form>: form提交后D页面跳转 <form target=”_blank”>: form提交后弹出新页面 <form target=”_parent”>: form提交后C页面跳转 <form target=”_top”> : form提交后A页面跳转 关于页面刷新，D 页面中这样写： “parent.location.reload();”: C页面刷新 （当然，也可以使用子窗口的 opener 对象来获得父窗口的对象：window.opener.document.location.reload(); ） “top.location.reload();”: A页面刷新
不改文件头，如果是php的话：在向服务器提交中文内容时，需要uriencode， 服务器接受需要转码：mb_convert_encoding($CHNstring,’gbk’,'utf-8′); 返回需要变回来mb_convert_encoding($CHNstring,’utf-8′,’gbk’); 当然，你的服务器端php文件得在ANSI编码下，上面说的才能生效。 本人测试次方法在IE6、7、8，FF下有效opera没测试
对于有些选择分支结构,可以使用简单的条件运算符来代替.如: 引用 ——————————————————————————– if(a=’A’&&ch
$isEmpty=”; $isEmpty=’ 非空 ‘; $test = empty($isEmpty)?”:trim($isEmpty); 三目运算符?: 根据前面的条件empty($isEmpty)true或者false，条件为true时，计算?后面的表达式，false时计算:后面的表达式。 如果不习惯可以改成如下代码 if (empty($isEmpty)) //条件成立 { $cookie = ”; } else { $cookie = trim($isEmpty); }
function StringToWideString(const S: string; CodePage: Word): WideString; var InputLength, OutputLength: Integer; begin InputLength := Length(S); OutputLength := MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, nil, 0); SetLength(Result, OutputLength); MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, PWideChar(Result), OutputLength); end; { 936指定gb2312的中文代码页，54936（gb18030）,更好些 utf8 对应 65001}
ADODB.Connection 错误 ’800a0e7a’ 错误描述： 在ASP连接Access数据库的时候，产生如下的出错提示： ADODB.Connection 错误 ’800a0e7a’ 未找到提供程序。该程序可能未正确安装。 /conn.asp，行 12 原代码： <% dim conn set coon=server.CreateObject(“adodb.connection”) dim str str=”provider=Microsoft.jet.OLEDB.4.0;Data Source=” & server.mappath(“blog_db.mdb”) ‘str=”DBQ=”&server.MapPath(“blog_db.mdb”)&”;Driver={Mirosoft access driver(*.mdb)}” coon.open str %> 环境： Windows 2003、IIS6.0、Access 2007（兼容2003） 故障解决方法:开始-运行-cmd,然后输入 cscript C:\inetpub\adminscripts\adsutil.vbs SET W3SVC/AppPools/Enable32bitAppOnWin64 true ,回车运行就可解决问题
var Buf,HeadStr:string; InStream,OutStream:TMemoryStream; RevData:TStringList; begin InStream :=TMemoryStream.Create; OutStream :=TMemoryStream.Create; RevData := TStringList.Create; Buf :=’TaoKeName=admin&TaoKePass=123456′; InStream.Write(buf[1],Length(Buf)); InStream.Position :=0; HttpCli1.SendStream :=InStream; HttpCli1.RcvdStream :=OutStream; HttpCli1.URL :=’http://localhost/login.asp’; HttpCli1.Post; OutStream.Position := 0; HeadStr:=HttpCli1.RcvdHeader.Text; RevData.LoadFromStream(OutStream); Memo1.Lines.Add(RevData.Text);
function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字 var i:integer; begin result:=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; //返回值 不是（假） exit; //退出函数 end; end; end; function IsUpperCase(Vaule:String):Boolean; //判断Vaule 是不是大写字母 var i:integer; begin result:=true; //设置返回值为 是 Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not [...]
unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = ‘获取本地ip失败’; C_Err_GetNameByIpAddr = ‘获取主机名失败’; C_Err_GetSQLServerList = ‘获取SQLServer服务器失败’; C_Err_GetUserResource = ‘获取共享资失败’; C_Err_GetGroupList = ‘获取所有工作组失败’; C_Err_GetGroupUsers = ‘获取工作组中所有计算机失败’; C_Err_GetNetList = ‘获取所有网络类型失败’; C_Err_CheckNet = ‘网络不通’; C_Err_CheckAttachNet = ‘未登入网络’; C_Err_InternetConnected =’没有上网’; C_Txt_CheckNetSuccess = ‘网络畅通’; C_Txt_CheckAttachNetSuccess = ‘已登入网络’; C_Txt_InternetConnected =’上网了’; //检测机器是否登入网络 function IsLogonNet: Boolean; [...]
大家知道，即使程序员抱有最好的愿望，而且计划工作做得非常周密，也无法避免代码出现错误。实际上可能出现的程序错误是很多的，但是它们基本上可以分为两种类型：一种是编译错误；另一种是运行期错误。编译错误是指使得Visual Bacsic（下面简称VB）的编译器无法对代码进行编译的错误。如果一个过程中包含了编译错误，VB将不执行该过程，并且我们也不能向用户提供带有编译错误的运行期版本应用程序，大多数编译错误是句法错误造成的。 一、VB的编译选项 VB有两个设置项会在很大程度上影响我们创建非常坚实的代码的能力。一个设置项是Compile On Demand（按需要进行编译），另一个设置项是Background Compile（后台编译）。可以打开Options对话框，选定General选项卡，然后对这两个设置项进行设置，如下图1所示。当选定Compile On Demand时，如果单击工具栏上的Run按钮，或者按F5键，VB并不全面编译我们的项目。相反，只在引用过程时，才对这些过程进行编译。使用Compile On Demand，通常可使比较大的项目或者速度较慢的计算机上的项目能够更快地启动运行，但是它也会产生某些不被注意的编译错误。 在发现和纠正所有编译错误之前，不能将项目编译成.exe或.dll之类的可发布文件，因此，选定Compile On Demand并不能够发布带有编译错误的代码。但是，选定Compile On Demand后，会导致编译错误随着时间的推移而不断增加，从而在最后试图进行全面编译时，迫使我们对代码进行大量的纠错。如果在IDE中调试项目，VB常常必须停止（不只是暂停）运行，以便进行纠错操作。这使得调试正在运行的项目时对大量编译错误的纠正操作变得非常麻烦。如果能够在合理的时间内全面编译项目，那么可以考虑关闭Compile On Demand。也可以使Compile On Demand保持选定状态，但是要定期按Ctrl+F5键，以便重新运行我们的项目。这使我们在编程时能够定期纠正编译错误，而不必一次性纠正大量的编译错误。 图1 编译时选中Compile On Demand和Background Compile两个选项 二、Err对象 在能够编写有效的错误处理代码之前，我们必须了解VB的Err对象，这是个运行期对象，它包含了关于最新错误的信息。当程序运行时遇到一个错误，或者当我们使用Err对象的Raise方法故意引发一个错误时，便形成Err对象的属性。当遇到On Error语句（比如On Error Resume Next），并且在使用Exit Sub、Exit Function或Exit Property语句退出一个过程后，Error对象的属性值就被清除。若要显式清除Err对象，可以调用它的Clear方法。下表1列出了Err对象的属性。 属性 说明 Number 用于标识该错误的专用号码 Source 当前VB项目的名字 Description 表义性的错误消息。如果某个错误没有这个字符串，本属性就会指明”应用程序定义的错误或对象定义的错误” HelpFile 与错误相关的VB 帮助文件所在的驱动器、路径和文件名 HelpContext VB 帮助文件用于该错误的上下文ID LastDLLError 在32位Microsoft Windows操作系统上，上次调用动态链接库（DLL）的系统错误代码。LastDllError属性是只读属性 三、错误处理程序的类型 将一个项目当作已经编译的程序运行时，未捕获的错误会造成致命的后果，它们会导致程序终止运行。必须尽一切努力防止发生这种情况。若要防止代码中的错误中断代码的运行（并终止已编译程序的运行），我们可以创建错误处理程序以捕获代码中的错误。当捕获一个错误后，VB并不显示出错消息，也不终止代码的运行。相反，我们编写的专门用来处理错误的代码则开始运行。每个过程都应该拥有错误处理程序，而不管它包含多大的代码量。最好在代码中放入一个On Error语句，作为代码的第一行，放在紧靠过程标题的后面和变量说明的前面。如果一个过程的错误能够以这种方式出现，就应该在过程的开头用突出的注释来明确说明这一行为特性。 若要捕获错误，基本上可以使用下面两种方法： [...]