孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
上一页 1 ··· 19 20 21 22 23 24 25 26 下一页

2008年9月24日

创建带自动增量的表
摘要： 1.AccessAccess中自动增量字段用Counter实现，如：Create Table log( ID Counter PRIMARY KEY, tname char(50), tkeyvalue char(50));2.MSSQL中用IDENTITY，如：Create Table new_employees( id_num int IDENTITY(1,1), fname varchar(20), minit char(1), lname varchar(30)); 阅读全文
posted @ 2008-09-24 09:46 孤独的猫 阅读(198) 评论(0) 推荐(0)

分隔字符串函数
摘要： var stl:TStringList; i:integer;begin stl :=TStringList.Create;stl.Delimeter :='|'; stl.DelimetedText :='1|2|3|4|5|'; for i:=0 to stl.Count-1 do mmo1.lines.add(stl[i]);stl.Free; end;Delphi中自带ExtractStrings实现字符分割，如将'1|2|3|4|'分割到TStringList中(1,2,3,4),可用ExtractStrings(['1' 阅读全文
posted @ 2008-09-24 09:35 孤独的猫 阅读(192) 评论(0) 推荐(0)

2008年9月23日

在Delphi用vbscript的正则表达式
摘要： 一.由于Delphi本身没有正则表达式单元,可以引用vbscript来使用正则表达式,步骤为1.在project中单击Import Type Library,选中Microsoft VBScript Regular Expression 5.5(version 5.5)2.单击"Create Unit"按钮,生成Unit单元二.新建一工程,导入上面生成的单元(在uses中引用该单元)新建一按钮,在其单击事件中写入var reg:TRegExp; re:boolean;begin reg:=TRegExp.Create(nil); reg.Pattern :='^$& 阅读全文
posted @ 2008-09-23 22:13 孤独的猫 阅读(324) 评论(0) 推荐(0)

让DBGrid不能插入记录
摘要： 一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin if (ActiveControl is TDBGrid) then abort; end; 阅读全文
posted @ 2008-09-23 22:11 孤独的猫 阅读(203) 评论(0) 推荐(0)

调用htmlhelp文件(*.chm)
摘要： function HtmlHelpA(hwndcaller:Longint;lpHelpFile:string;uCommand:Longint;dwData:string):HWND;stdcall;external 'hhctrl.ocx'例句:HtmlHelpA(self.handle,ExtractFilePath(Application.ExeName)+'pbtool.chm',0,'gaishu.html'); 阅读全文
posted @ 2008-09-23 22:09 孤独的猫 阅读(597) 评论(0) 推荐(0)

2008年9月21日

正则表达式的使用
摘要： 如判断字符串是否为空<%Public Function Validation(Pattern,string1)Dim RegExp1,Matches Set RegExp1=New RegExpRegExp1.Pattern=PatternRegExp1.IgnoreCase=TrueRegExp1.Global=TrueMatches=RegExp1.Test(string1)Validation=MatchesEnd FunctionPublic Function CheckIsEmpty(string1)CheckIsEmpty=Validation("^$", 阅读全文
posted @ 2008-09-21 09:07 孤独的猫 阅读(144) 评论(0) 推荐(0)

远程注册组件
摘要： Sub Register(strFilePath,regMethod)Dim theFile,strFile,oShell ,exitcode Set theFile=oFs.GetFile(strFilePath) strFile=theFile.Path Set oShell=CreateObject("WScript.Shell") If regMethod="REG"then oShell.Run "C:\winnt\system32\regsvr32.exe /s" & strFile,0,False exitcod 阅读全文
posted @ 2008-09-21 08:59 孤独的猫 阅读(181) 评论(0) 推荐(0)

2008年9月20日

读写注册表
摘要： 可用WScript对象来对注册表进行操作,如function readcomputer() Dim ReadComputername Set ReadComputername=CreateObject("WScript.Shell") Dim ComputerName,RegPath RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\CouputerName\ComputerName" ComputerName=ReadComputername.RegRead(RegPath) res 阅读全文
posted @ 2008-09-20 22:24 孤独的猫 阅读(176) 评论(0) 推荐(0)

显示数据库中的图像
摘要： show.asp----------------图像显示页面<% set rs=Server.CreateObject("ADODB.Recordset") sql="select top 1 * from newstable2 order by id desc" rs.open sql,conn,1,3%><html> 新闻文本:<%=rs("text")%><br> 新闻图像:<% If IsNull(rs("picture"))=false then%&g 阅读全文
posted @ 2008-09-20 22:18 孤独的猫 阅读(258) 评论(0) 推荐(0)

文本与图像上传到数据库
摘要： 1.upload.asp方法<head><script language=vbscript> function checkinfo() if (document1.form1.picture.value<>"") then if (Instr(1,document.form1.picture.value,".")<=0) or (Instr(1,document.form1.picture.value,"\")<=0) or ((Instr(1,document.form1.pictur 阅读全文
posted @ 2008-09-20 21:52 孤独的猫 阅读(212) 评论(0) 推荐(0)

离开时自动提示设为首页
摘要： <body onunload="BASEBody.style.behavior='url(#default#homepage)';if (!BASEBody.isHomePage('http://eyaya.com.ru'))) BASEBody.SetHomePage('http://....');"> 阅读全文
posted @ 2008-09-20 21:49 孤独的猫 阅读(140) 评论(0) 推荐(0)

2008年9月19日

实现ASP缓存技术
摘要： 1.服务器端缓存ListBox=Application("ListBox")If ListBox<>"" thenResponse.Write "本次通过服务器缓存读取数据:<BR>"End IfIf ListBox="" thenResponse.Write "本次为第一次读取数据，从数据库中读取:<BR>" Response.Write "另外打开窗口读取或者刷新页面即可验证从服务器缓存中读取数据<BR>"Set Conn= 阅读全文
posted @ 2008-09-19 15:22 孤独的猫 阅读(363) 评论(0) 推荐(0)

定时自动关闭弹出窗口
摘要： 1.window对象的setTimeOut方法window对象的setTimeOut方法用于延迟执行某一操作，其语法是:SetTimeOut(express,secdelay[,language])其中express是一个字符串，可包含热呵呵对函数、方法或者单个Javascript语句的调用；secdelay是以毫秒为单位的运行间隔时间,language指定脚本语言，如为Javascript，可不指定此参数2.定时关闭的弹出窗口<script language="Javascript">function closewindow(){window.close(); 阅读全文
posted @ 2008-09-19 15:17 孤独的猫 阅读(388) 评论(0) 推荐(0)

弹出自定义窗口
摘要： 1.window对象的open方法　window的open方法用于创建一个新窗口，语法如下window.open(URL,windowname[,windowFeatures][,replaceFlag])URL: 弹出窗口的URL地址windowname:弹出窗口的名称，可为空windowFeature:字符串值，是由逗号分隔的属性赋值表达式，下表为window.open方法的属性属性类型说明height　整型窗口高度width整型窗口宽度top整型窗口距离屏幕上方的像素值left整型窗口距离屏幕左侧的像素值toolbarBoolean是否显示工具栏，1或yes为显示，0或no为不显示men 阅读全文
posted @ 2008-09-19 15:00 孤独的猫 阅读(282) 评论(0) 推荐(0)

利用Stream下载文件
摘要： Function dl(f,n)On error resume NextSet s=CreateObject("Adodb.Stream")s.Mode=3s.Type=1s.Opens.Loadformfile(f)if Err..Number>0 thenResponse.status="404"ElseResponse.ContentType="application/octet-stream"Response.AddHeader "Content-Disposition:","attachm 阅读全文
posted @ 2008-09-19 14:54 孤独的猫 阅读(541) 评论(0) 推荐(0)

验证整数
摘要： Function IsInt(str)If IsNumeric(str) or (len(str)>5) thenIsInt=FalseExit FunctionElseIf (len(str)<5) thenIsInt=TrueExit FunctionElseIf CInt(left(str,4))>3276 thenIsInt=FalseExit FunctionElseIf CInt(Left(str,4))=3276 and CInt(Right(str,1))>7 thenIsInt=FalseExit FunctionElseIsInt=TrueEnd I 阅读全文
posted @ 2008-09-19 14:32 孤独的猫 阅读(139) 评论(0) 推荐(0)

在同一页面处理提交代码
摘要： 可用Request.ServerVariables("Request_Method")="POST"判断是否提交，如下dice.asp页面<html><head><title>测试Request_Method</title></head><body><%Session("point")=6If Request.ServerVariables("Request_Method")="POST" then%><f 阅读全文
posted @ 2008-09-19 14:21 孤独的猫 阅读(195) 评论(0) 推荐(0)

2008年9月18日

在ASP中直接显示对话框
摘要： <%Reponse.Write "<Script Language=Javascript>alert('对不起,该类不存在或已删除');"Response.Write "</Script>"%> 阅读全文
posted @ 2008-09-18 19:34 孤独的猫 阅读(177) 评论(0) 推荐(0)

打开页面时自动弹出窗口询问是否设为首页
摘要： 将下列代码放在<head></head>之间<script language="javascript">function myhomepage(){this.homepage.style.behavior='url(#default#homepage)';this.homepage.sethomepage('http://www.sina.com.cn');}</script><p align="center"><a href="http://ne 阅读全文
posted @ 2008-09-18 19:33 孤独的猫 阅读(175) 评论(0) 推荐(0)

加为首页(加为收藏页)
摘要： <a target=_top href=javascript:window.external.AddFavorite('http://77085.anyn.cn','网页建设')>加入收藏</a><a href=#onclick="this.style.behavior='url(#default#homepage)';this.setHomepage('http://77085.anyn.cn');"targeg="_blank">设为首页</a& 阅读全文
posted @ 2008-09-18 19:33 孤独的猫 阅读(160) 评论(0) 推荐(0)

ASP中输入特殊字符
摘要： 输入%>时必须用转义符"\>"输入"时必须用""来实现,如输入"ASP实现应用经典"%>",如<%Response.Write "特殊字符串:""ASP实际应用经典%\>""<br>"%> 阅读全文
posted @ 2008-09-18 19:32 孤独的猫 阅读(763) 评论(0) 推荐(0)

图像按钮
摘要： <input type=image name="liuyan" src='../image/liuyan.gif' width=80 style="cursor:hand"><a href="javascript:document.form2.reset();"<Img src=".../image/....gif" width.....(略) style="cursor:hand" border=0></a>有一提交按钮与一重置按钮,且 阅读全文
posted @ 2008-09-18 19:32 孤独的猫 阅读(87) 评论(0) 推荐(0)

增加记录
摘要： 增加记录窗体为add.asp<form name="form1" method="post" action="insert.asp"><input type="submit" name="submit" value="增加">...</form>在insert.asp中具体操作数据库<!--include file="conn2.asp"--><%name1=request("name&quo 阅读全文
posted @ 2008-09-18 19:32 孤独的猫 阅读(115) 评论(0) 推荐(0)

使文本框只能输入整数或小数
摘要： procedure TForm1.Edit2KeyPress(......);beginif not (key in [#8,'0'..'9',DecimalSeperator]) thenbeginkey :=#0;endelsebeginif (key=DecimalSeperator) and (Pos(key,Edit2.Text)>0) thenbeginkey :=#0;end;end;end; 阅读全文
posted @ 2008-09-18 19:31 孤独的猫 阅读(320) 评论(0) 推荐(0)

设置文本框只能输入数字
摘要： SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_NUMBER); 阅读全文
posted @ 2008-09-18 19:30 孤独的猫 阅读(335) 评论(0) 推荐(0)

HTML集合属性的应用
摘要： 如果以ASP表单(Form)中,有若干个CheckBox,负责同类信息的选取,这是可以采用集合属性,即将CheckBox的name设为相同,但Values设为不同即可,如<!--set.html--><html><body><form method="post" action="set.asp"><title>集合属性应用</title><p>请选择要操作的项目,提交数据后,将会显示您选择的项目</p><br>1.<input type=&q 阅读全文
posted @ 2008-09-18 19:25 孤独的猫 阅读(175) 评论(0) 推荐(0)

IFrame页面
摘要： 用IFrame包含起来的文件可以直接嵌入父窗口,其使用等同于一新页面,而要你管<!--include -->时,无法传递参数,此时可用session全局变量来实现 阅读全文
posted @ 2008-09-18 19:24 孤独的猫 阅读(158) 评论(0) 推荐(0)

执行简单的查询
摘要： 可以通过socket.getaddrinfo()函数查询出IP地址,如下例#!/usr/bin/env python# Basic getaddrinfo() basic example - Chapter 4 - getaddrinfo-basic.pyimport sys, socketresult = socket.getaddrinfo(sys.argv[1], None)print result[0][4]运行如下:$ ./getaddrinfo-basic.py www.yahoo.com('216.109.118.71',0) 阅读全文
posted @ 2008-09-18 13:31 孤独的猫 阅读(147) 评论(0) 推荐(0)

绑定socket和侦听连接
摘要： 为了绑定一个端口,需执行下面的命令:s.bind(('',80))这条指令请求80端口,它是标准的HTTP端口.bind的第一个参数是您要绑定的IP地址,它通常为空,意思是可以绑定到所有的接口和地址.事实上,可以通过调用bind()函数来把客户端socket绑定到一个特定的IP地址和端口号,然而,客户端的这种能力很少被用到,因为操作系统会自动提供合适的值. 如果想只用特定的IP地址,可如下调用:s.bind(('192.168.1.1',80)) 侦听连接s.listen(5),其中5表示在服务器实际处理连接的时候,允许有多少个未决的连接在队列中等待.作为约定, 阅读全文
posted @ 2008-09-18 12:46 孤独的猫 阅读(353) 评论(0) 推荐(0)

2008年9月17日

编程大师论道:PHP的魅力和不足何
摘要： 编程大师论道:PHP的魅力和不足何在2008-07-01 来自：lizhe1985 [收藏到我的网摘]SOA 案例分析系列学习和实验 SOA 的各方面知识、方法、技术及工具Snort：入侵检测工具Snort使用手册：保护和分析 Web 站点Snort 使用手册之第2部分通过设置 Snort 报告 Web 站点入侵JAVA家族里的贵族—Groovy！国内 首个 Groovy 中文 视频教程 Groovy入门来源：开发者在线 在编程领域有不少堪称经典著作，其中包括《Thinking In C++》和《Thinking In Java》，它们的作者是著名的计算机科学作家Bruce Eckel。近日这 阅读全文
posted @ 2008-09-17 20:47 孤独的猫 阅读(189) 评论(0) 推荐(0)

上一页 1 ··· 19 20 21 22 23 24 25 26 下一页