博文
php-asp-MSSQL(2005-09-14 13:58:00)
摘要：<?php
class php_asp_db{
var $Fields = array();
var $Records = array();
var $Recnum;
var $Fieldcount;
function php_asp_db(){}
function Query($sql){
//取交警服务器IP
$fp = fopen("/www/webroot/TrafficIP.txt", "r");
if (flock($fp, LOCK_SH)) {
$IP = fgets($fp, 20);
$IP = substr($IP,0,strlen($IP)-1);//去除最后一个回车
flock($fp, LOCK_UN);
}
else {//取IP失败
echo "连接服务器失败，请稍后重试";
&nb......
彩字图片处理程序(2005-09-14 13:53:00)
摘要：<?php
/**
功能：获得一个图片文件的尺寸大小，返回一个数组
参数：
filename：图片文件名
*/
function GetFileSize($filename){
$str = exec("identify '$filename'");
$s = split(" ",$str);
$s = split("x",$s[2]);
return $s;
$src_image_w=$s[0];
$src_image_h=$s[1];
}
/**
功能：将多个GIF文件合成一个
参数：
scr：原文件名列表
dst：目的文件名
pos_x,pos_y：合成后的图片位置列表
delay：图片间隔显示时间
loop：图片循环次数；0，无限循环
*/
function ComposeGIF($src = array(),$dst,$pos_x = array(),$pos_y = array(),$delay=100,$loop=0){
$s = GetFileSize($dst);
$src_image_w=$s[0];
......
彩印图片处理程序(2005-09-14 13:52:00)
摘要：#!/usr/local/bin/php -q
<?php
Class GIF1{
/**
功能：将多个GIF文件合成一个
参数：
scr：原文件名列表
dst：目的文件名
pos_x,pos_y：合成后的图片位置列表
delay：图片间隔显示时间
loop：图片循环次数；0，无限循环
*/
function ComposeGIF($src = array(),$dst,$pos_x = array(),$pos_y = array(),$delay=100,$loop=0){
$s = GetFileSize($dst);
$src_image_w=$s[0];
$src_image_h=$s[1];
//$cmdline = "convert -delay
$delay -size ".$src_image_w."x".$src_image_h." -page +0+0 $dst";
for($i=0;$i<count($src);$i++){
//$cmdline .= " -page +".$po......
取客户端IP的函数(2005-09-14 13:50:00)
摘要：function get_client_realip()
{
global $_SERVER;
if (isset($_SERVER["HTTP_X_FORWARDED_FOR"]))
{
$realip = $_SERVER["HTTP_X_FORWARDED_FOR"];
}
elseif (isset($_SERVER["HTTP_CLIENT_IP"]))
{
$realip = $_SERVER["HTTP_CLIENT_IP"];
}
else
{
$realip = $_SERVER["REMOTE_ADDR"];
}
return $realip;
}
function get_client_ip()
{
global $_SERVER;
return $_SERVER["REMOTE_ADDR"];
}......
BCB实时监视剪贴板(2005-07-25 11:09:00)
摘要：头文件Unit1.h的内容：
#ifndef Unit1H
#define Unit1H
//--------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <vcl\Clipbrd.hpp>
//--------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private: // User declarations
void __fastcall ClipboardChanged(TMessage& Msg);
public: // User declarations
......
BCB中使用多线程(2005-07-25 11:01:00)
摘要：//创建一个多线程处理函数
DWORD CALLBACK ThreadFunc(void *p)
{
//这里写处理代码
return 0;
}
//开启多线程,在按钮单击事件或OnCreate事件中执行，如
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD ThreadID;
HANDLE hthread=CreateThread(0,0,ThreadFunc,0,0,&ThreadID);
}
......
ASP的URL解码函数(2005-07-22 14:42:00)
摘要：server.URLEncode 相对应的函數
<script language="vbscript">
function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if inStr(strSpecial,chr(v))>0 then
deStr=deStr&chr(v)
i=i+2
else
v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
deStr=deStr & chr(v)
i=i......
身份证号码校验位计算函数（VB版）(2005-07-08 09:24:00)
摘要：function fcs(s)'s为17位号码，含“19”，仅返回最后的校验位
sum1 = Mid(s, 1, 1) * 7 + Mid(s, 2, 1) * 9 + Mid(s, 3, 1) * 10 + Mid(s, 4, 1) * 5 + Mid(s, 5, 1) * 8 + Mid(s, 6, 1) * 4 + Mid(s, 7, 1) * 2 + Mid(s, 8, 1) + Mid(s, 9, 1) * 6 + Mid(s, 10, 1) * 3 + Mid(s, 11, 1) * 7 + Mid(s, 12, 1) * 9 + Mid(s, 13, 1) * 10 + Mid(s, 14, 1) * 5 + Mid(s, 15, 1) * 8 + Mid(s, 16, 1) * 4 + Mid(s, 17, 1) * 2
Select Case sum1 Mod 11
Case 0
fcs = "1"
Case 1
fcs = "0"
Case 2
fcs = "x"
Case 3
fcs = "9"
Case 4
fcs = "8"
Case 5
fcs = "7"
Case 6
fcs = "6"
Case 7
fcs = "5"
Case 8
fcs = "4"
Case 9
fcs = "3"
Case 10
fcs = "2"
End Select
end function......
HTML编辑器-框架做的表单(2005-06-24 15:16:00)
摘要：<HTML>
<HEAD>
<TITLE> html编辑器教程 </TITLE>
<script language="javascript">
<!--
function init()
{
olEditor.document.open();
olEditor.document.write ("<div><i>HTML</i><b>编</b><font color= red>辑</font><u>器</u></div>");
olEditor.document.close();
olEditor.document.designMode="on"; //加上这个普通的iframe就可以变成一个在线编辑器了
}
function InsertDate(date)
{
olEditor.focus();
olEd......
java连接SQL Server 2000(2005-05-21 17:07:00)
摘要：import java.sql.*;
public class database {
Connection conn = null;
String dbip = "127.0.0.1";//设置数据库ip
//设置数据库用户名和密码：
String use = "administrator";
String pass = "123456";
Statement stmt;
ResultSet rs;
public database(){
}
public java.sql.Connection getConn(String dbip1,String use1,String pass1,String DSN){
try{
String dbip = dbip1;//设置数据库ip
String use = use1; //设置数据库用户名和密码：
String ......