djcsch2001的专栏

原创 在sql server中用存储过程发送邮件

DECLARE @object intDECLARE @hr intEXEC   @hr=sp_OACreate CDONTS.NewMail,@object OUTEXEC   @hr=sp_OASetProperty @object,From,Your FriendEXEC   @hr=sp_OASetProperty @object,Body,This is

原创 获得验证码

1.在许多论坛的登录页面上，都有一个附加码，这样做的目的是防止有人利用破解程序，暴力破解里面的密码2.生成附加码的代码：    Response.Buffer=false    NumCode    Function NumCode()        Response.Expires=-1        Response.AddHeader "Progma","no-c

原创 使用CDONTS发送邮件

set myMail=CreateObject("CDONTS.NewMail")myMail.SetLocalIDS(65001)myMail.From=txtMailFrommyMail.To=txtMailTomyMail.Subject="Subject"myMail.BodyFormat=0myMail.MailFormat=0myMail.Body=mail

原创 获取用户IP

userip=Request.ServerVariables("HTTP_X_FORWORD_FOR")if userip="" then    userip=Request.ServerVariables("REMOTE_ADDR")End if

原创 用Delphi写扬声器音乐

一、窗体 二、代码窗体代码:unit Unit2;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,BleepInt;type  TForm2 = class(TForm)    Button1: T

原创 HTML网格美化

其中重点是cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" 其中bgcolor可以换成需要的颜色，还有bordercolordark和bordercolorlight连个属性可以更改

原创 SQL SERVER常用的SQL和T_SQL语句

一、查看数据库的版本select @@version常见的几种SQL Server2000打补丁后的版本号8.00.194    Microsoft SQL Server 20008.00.384    Microsoft SQL Server 2000 SP18.00.532    Microsoft SQL Server 2000 SP28.00.760    Micr

原创 Unicode函数

一、计算unicode字符串的Ansi编码的长度Function strUnicodeLen(asContents)    asContents1="a" & asContents    len1=len(asContents1)    k=0    for i=1 to len1        asc1=asc(mid(asContents1,i,1))       

原创 使用EXCEL的查询

一、直接用ADO连接Excel直接用ADOQuery连接，其ConnectionString设为Provider=microsoft.jet.oledb.4.0;data source=C://2.xls;Extended Properties=Excel 8.0,HDR=Yes;IMEX=1SQL属性：select * from [Result$] where month(ad

原创 Delphi的DTS编程

一、DTS简介DTS为导入导出模块，在SQL SERVER中有专门的导入导出工具 二、调用SQL SERVER导出的包若要执行保存为COM结构化的存储文件DTS包，使用dtsrun /Ffilename /Npackage_name /Mpackage_password若要执行保存在SQL SERVER msdb中的DTS包，使用dtsrun /Sserver_name /

原创 禁止用户复制网页的内容

一.用HTML元素对象的onselectstart事件防止用户选择网页方法是body中插入如下代码   二.用HTML元素对象的oncopy和oncut事件防止用户复制网页内容，方法是在body中插入如下代码：三.用HTML元素对象的onpaste事件防止用户粘贴网页的内容，方法是在body中插入如下代码：四.使网页不能另存为：五.屏蔽鼠标右键    fun

原创 判断浏览器的类型

        浏览器选择　        Dim BrowseMsg        BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")        Response.Write(BrowseMsg)        If Instr(BrowseMsg,FireFox)>0 then            

原创 使年份适用于做有浏览器(IE,FireFox)

1.getYear函数Javascript中getYear函数取得当前年份，但对于IE和FireFox却不同，IE中显示2006,而FireFox中则显示与1900的差值106 2.getFullYear通用函数为了使年份值可以通用，可用Javascript中的getFullYear函数代替getYear

原创 字符串和数组的转换

1.将字符串转为数组方法：先创建一个动态数组，数组大小等于字符串的长度，然后依次取出字符串中的每个字符存入该动态数组中，最后将数组返回，代码如下：将字符串string1转换为数组Public Function StringToArray(ByVal string1)    Dim i,Array1()    Redim Array1(Len(string1))    Fo

原创 过滤字符串中的HTML代码(VBScript)

Public Function FilterHTML(str)    If Trim(str)=" " or IsNull(str) then        FilterHTML=" "    Else        str=Replace(str,">",">";        str=Replace(str,"        str=Replace(str,cha

原创 创建带自动增量的表

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

原创 分隔字符串函数

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

原创 在Delphi用vbscript的正则表达式

一.由于Delphi本身没有正则表达式单元,可以引用vbscript来使用正则表达式,步骤为1.在project中单击Import Type Library,选中Microsoft VBScript Regular Expression 5.5(version 5.5)2.单击"Create Unit"按钮,生成Unit单元二.新建一工程,导入上面生成的单元(在uses中引用该单元)新建一按钮,在

原创 让DBGrid不能插入记录

一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin  if (ActiveControl is TDBGrid) then    abort;            end;

原创 调用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,

原创 正则表达式的使用

如判断字符串是否为空    Public Function Validation(Pattern,string1)        Dim RegExp1,Matches        Set RegExp1=New RegExp        RegExp1.Pattern=Pattern        RegExp1.IgnoreCase=True        Re

原创 远程注册组件

Sub Register(strFilePath,regMethod)    Dim theFile,strFile,oShell ,exitcode    Set  theFile=oFs.GetFile(strFilePath)    strFile=theFile.Path    Set oShell=CreateObject("WScript.Shell")    If

原创 读写注册表

可用WScript对象来对注册表进行操作,如function readcomputer()  Dim ReadComputername  Set ReadComputername=CreateObject("WScript.Shell")  Dim ComputerName,RegPath  RegPath="HKLM/System/CurrentControlSet/Control/Comput

原创 显示数据库中的图像

show.asp----------------图像显示页面  set rs=Server.CreateObject("ADODB.Recordset")  sql="select top 1 * from newstable2 order by id desc"  rs.open sql,conn,1,3%>  新闻文本:  新闻图像:> showing.asp----------------图

原创 文本与图像上传到数据库

1.upload.asp方法    function checkinfo()       if (document1.form1.picture.value         if (Instr(1,document.form1.picture.value,".")            msgbox(图片格式不正确,请重写!)            document.form1.picture

原创 离开时自动提示设为首页

原创 实现ASP缓存技术

1.服务器端缓存    ListBox=Application("ListBox")    If ListBox        Response.Write "本次通过服务器缓存读取数据:"    End If    If ListBox="" then        Response.Write "本次为第一次读取数据，从数据库中读取:"        Respons

原创 定时自动关闭弹出窗口

1.window对象的setTimeOut方法    window对象的setTimeOut方法用于延迟执行某一操作，其语法是:    SetTimeOut(express,secdelay[,language])    其中express是一个字符串，可包含热呵呵对函数、方法或者单个Javascript语句的调用；secdelay是以毫秒为单位的运行间隔时间,language指定脚本

原创 弹出自定义窗口

1.window对象的open方法　window的open方法用于创建一个新窗口，语法如下window.open(URL,windowname[,windowFeatures][,replaceFlag])URL: 弹出窗口的URL地址windowname:弹出窗口的名称，可为空windowFeature:字符串值，是由逗号分隔的属性赋值表达式，下表为window.open方法

原创 利用Stream下载文件

Function dl(f,n)    On error resume Next    Set s=CreateObject("Adodb.Stream")    s.Mode=3    s.Type=1    s.Open    s.Loadformfile(f)    if Err..Number>0 then        Response.status="4

原创 验证整数

Function IsInt(str)    If IsNumeric(str) or  (len(str)>5) then        IsInt=False        Exit Function    Else        If (len(str)            IsInt=True            Exit Function       

原创 在同一页面处理提交代码

可用Request.ServerVariables("Request_Method")="POST"判断是否提交，如下dice.asp页面    测试Request_Method                Session("point")=6        If Request.ServerVariables("Request_Method")="POST" then

原创 在ASP中直接显示对话框

Reponse.Write "alert(对不起,该类不存在或已删除);"Response.Write ""%>

原创 打开页面时自动弹出窗口询问是否设为首页

将下列代码放在之间function myhomepage(){this.homepage.style.behavior=url(#default#homepage);this.homepage.sethomepage(http://www.sina.com.cn);}再将下面的代码放入内

原创 加为首页,加为收藏页

加入收藏<a href=#onclick="this.style.behavior=url(#default#homepage);this.setHomepage(http://77085.anyn.cn);"targeg="_blank">设为首页

原创 ASP中输入特殊字符

输入%>时必须用转义符"/>"输入"时必须用""来实现,如输入"ASP实现应用经典"%>",如Response.Write "特殊字符串:""ASP实际应用经典%/>"""%>

原创 图像按钮

有一提交按钮与一重置按钮,且都是图像按钮

原创 增加记录

增加记录窗体为add.asp...在insert.asp中具体操作数据库name1=request("name")pifa=CCur(request("pifa"))danwei=request("danwei")solArea=request("selArea")lingshou=CCur(request("lingshou"))num

原创 使文本框只能输入整数或小数

procedure TForm1.Edit2KeyPress(......);beginif not (key in [#8,0..9,DecimalSeperator]) thenbeginkey :=#0;endelsebeginif (key=DecimalSeperator) and (Pos(key,Edit2.Text)>0) thenbeg

原创 设置文本框只能输入数字

SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_NUMBER);