шютка...

AnDroiD - вот тебе скрипт аминистрирования галереи, убедит. просьба на абшыбки не реагировать (я исчо молодой фей).

@indexer_folder[var_folder] индексируем папки !! 
^var[form_name]
# Индексация папок
^eq[^query[];;
<strong> <font size="-1">Индексированные папки:</font></strong><br>
	<form action="add_indexer_folder.html" method="post">
	^context[tmp9;
		^macro[server;
			^sql[SELECT id,path FROM FOLDERS]
			^var[count;^item[count]]
			^eq[^var[count];0;
			<font size="-1">Папки не индексированы. Нажмите "добавить".</font><br>
			;
			^sort[^item[path
			];+A]
				^menu[
					 <li><font size="-1">^item[path]</font></li><br>
				]
			]
		]
	]
		</form>
		<hr width="100%" size="1" color="#cccccc">
		<form action="add_indexer_folder.html" method="post">
		<input type="hidden" value="1" name="state">
		<input type="submit" value="добавить">
		</form>
]

# вывод отчета о удаление
^eq[^form[state];9;
^macro[delete_ record;add_indexer_folder;FOLDERS]
<br>
<br>
^macro[location_button;дальше;add_indexer_folder] 
]
# добавление папок
^eq[^form[state];1;
<strong><font size="-1">Индексация папок:</font></strong><br>
	<form action="add_indexer_folder.html" method="post">
	^context[indexer_folder;
		^index[$var_folder]
		^menu[
			^var[form_name;+;1]
			    ^var[file_size;^stat[fsize;^item[0];;;]]
				^eq[^var[file_size];0;
				 ^var[folder_name;^item[0]]
						^context[tmp9;
							^macro[server;
								^sql[SELECT path FROM FOLDERS]

									^var[count;^item[count]]
									^eq[^var[count];0;
									<input class="1" type="checkbox" name="^var[form_name]" value="^var[folder_name]" checked>&nbsp^;<font size="-1">^var[folder_name]</font><br>	
									;
									^var[folder_reval;0]
										^menu[
											^eq[^var[folder_name];^item[path];
											^var[folder_reval;2]
											^var[not_indexer;+;1]
											
											]
										]
										^eq[^var[folder_reval];2;
										^var[not_indexer;+;1]
										;	
											
<input class="1" type="checkbox" name="^var[form_name]" value="^var[folder_name]" checked><b>&nbsp^;<font size="-1">^var[folder_name]</font></b><br>
										]
										^var[not_indexer;-;1]	
									]
							]
									
						]
				 ]
		]
		
		^eq[^var[count];^var[not_indexer];
		<br><font size="-1">Новых и не индексированных папок не найдено.</font><br><br>
		^macro[location_button;назад;add_indexer_folder]
		^macro[refresh;2;add_indexer_folder]
		;
	<input type="hidden" value="2" name="state">
	<br><input type="submit" value="внести в БД">					
		]
	]

	</form>
]

# Добавление папок в БД
^eq[^form[state];2;
	<strong><font size="-1">Следущие папки были добавлены в БД:</font></strong><br><br>
	^var[form_name;200]
	^while[form_name>=1;
	^ifdef[^form[^var[form_name]];
	<font size="-1">^form[^var[form_name]]</font><br>
			^context[tmp;
					^macro[server;
								^sql[insert into FOLDERS (
								path
								) values (
								'^form[^var[form_name]]'
								)]
								]
			]
	]	
	^var[form_name;-;1]	
	]<br>
^macro[location_button;продолжить работу с индексацией папок;add_indexer_folder]
^macro[refresh;2;add_indexer_folder]
]
	
@indexer_images[] - редактирование изображений
^var[form_name]
# список папок
^eq[^query[];;
	<br>
	<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
	<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="top" width="100%">
		<strong><font size="-1">Выберите папку:</font></strong>
		
		<form action="add_indexer_images.html" method="post" method="post">
# выбор папки		
	^macro[select_folder;]
		<br>
		^ifdef[^cookie[sufix];^var[form_sufix;^cookie[sufix]]]
		<hr width="100%" size="1" color="#cccccc">
		<font size="-1">суфикс:</font>&nbsp^;<input class="2" type="text" name="sufix" size="10" maxlength="10" value="^var[form_sufix]">&nbsp^;<font size="-1">(max 10)</font><br>
		<input type="hidden" value="1" name="state">
		<hr width="100%" size="1" color="#cccccc">
		<input type="submit" value="дальше">
		</form><br>
		<font size="-2">
		Описания изображений ищуться в выбранной папке, где имя файла описания (в txt)
		должно совпадать с именем изображения. В любом случае можно внести и свое описания в 
		процессе добавления файлов изображений.
		</font>		
		</td>
		</tr>
		</table>
]
# вывод списка файлов
^eq[^form[state];1;
# sufix
      ^eq[^form[sufix];^cookie[sufix];
	  	^var[sufix;^form[sufix]];
			^cookie[sufix;^form[sufix];90]
			^var[sufix;^form[sufix]]
		]
		<br>
	<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
	<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="top" width="100%">	
	<font size="-1"><strong>папка:</strong> ^form[1]<br>
	^ifdef[^var[sufix];<strong>суфикс trumbnail:</strong> ^var[sufix]</font>
	</td>
	</tr>
	</table>
	<br>
<form action="add_indexer_images.html" method="post">
	^context[indexer_images;
	^index[^form[1];\.(gif|jpg|png)$]
		^menu[
			^var[form_name;+;1]
			^var[image_name;^item[0]]
				^var[length_image_name;^eval[^length[^var[image_name]]-5]]
				^var[sufix_image_name;^mid[^var[image_name];^var[length_image_name];1]]		
				
# проверяем на наличие в БД 
					  ^context[tmp_xxx;
							^macro[server;				
								^sql[SELECT big FROM PIC where big = '^form[1]/^var[image_name]']
									^menu[
									^ifdef[^item[big];
										^var[ок_file;2]
										;
										^var[ок_file;0]
									]
									]
							]
						]
# проверяем наличие
	^eq[^var[ок_file];2;
		<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
	<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="bottom" width="100%"><br><br><br>
	<font size="-1">такой файл уже есть:&nbsp^;
	<a href="edit_img.html?editstate=8&file=^form[1]/^var[image_name]" class="aButton">&nbsp^;редактировать&nbsp^;</a></font>
	
	<hr width="100%" size="1" color="#cccccc" ></td>
	;			
			^eq[^var[sufix_image_name];^var[sufix];
					^var[form_name_t;^eval[^var[form_name]-1]]
					
					<input class="1" type="hidden" name="^var[form_name_t]_t" value="^form[1]/^var[image_name]" checked>
#					&nbsp^;<font size="-1">trumbnail</font>
<td  colspan="0" rowspan="0" align="right" valign="center">
					<img src="^form[1]/^var[image_name]" alt="trumbnail_name: ^var[form_name_t]_t" border="1">
						</td>
						</tr>
						</table>
					;
	<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
	<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="center" width="100%" >
					<input class="1" type="checkbox" name="^var[form_name]" value="^form[1]/^var[image_name]" checked>
					&nbsp^;<strong><font size="-1">^var[image_name]</font></strong>&nbsp^;
# форма имя файла				
					<input type="text" name="PIC_DESC_short_^form[1]/^var[image_name]" value="имя" size="20" maxlength="50" class="2">
# форма категории								
							<select name="PIC_CAT_^form[1]/^var[image_name]">
									<option value="0" SELECTED >-выберите категорию:</option>
									^context[tmp_select;
										^macro[server;
										^sql[SELECT id,name FROM PIC_CAT]
											^menu[
											<option value="^item[id]">^item[name]</option>
											]
										]
									]
							</select>
							<br><br>
# получаем имя для txt файла
							^var[txt_name;^left[^var[image_name];^eval[^length[^var[image_name]]-4]].txt]
# проверяем наличие файла
							^var[long;^-f[^form[1]/^var[txt_name]]]		
							<textarea cols="86" rows="2" name="PIC_DESC_long_^form[1]/^var[image_name]">
							^ifdef[^var[long];
							^include[^var[long]]
							;
# описания нет
							]
							</textarea>	
							<hr width="100%" size="1" color="#cccccc">
							</td>
					
				]
	]
# данные о размере изображения
					^context[image_size;
						^imgsize[^form[1]/^var[image_name]]
						&nbsp^;&nbsp^;&nbsp^;
						<input type="hidden" value="^item[0]" name="^var[image_name]_w">
						<input type="hidden" value="^item[1]" name="^var[image_name]_h">
					]
	^var[ок_file;0]				
# закрываем меню сканирования
		]
# взаимосвязь с папкой
	<input type="hidden" value="^form[1]" name="folder">
# значение для while при записи в БД
	<input type="hidden" value="^eval[^var[form_name]+1]" name="while_value">
	]
<input type="hidden" value="2" name="state">
^macro[location_button;назад;add_indexer_images] 
&nbsp^;&nbsp^;<input type="submit" value="дальше">
</form>

	;
	<br>
	<font color="#FF0000" size="-1">ВНИМАНИЕ !! Небыл указан суфикс trumbnail !!</font>
	^header[refresh;1^;url=add_indexer_images.html] 
	]
]
# запись в БД файлов 
^eq[^form[state];2;
# колличество фалов для while
	^var[form_name;^form[while_value]]
	<br>
<strong><font size="-1">В БД были записаны следущие файлы:</font></strong><br><br>
	^while[form_name>=1;
	^ifdef[^form[^var[form_name]];
	<font size="-1">^form[^var[form_name]]</font>
# проверяем на наличие в БД
			^context[tmp;
				^macro[server;				
					^sql[SELECT big FROM PIC where big = '^form[^var[form_name]]']
					^menu[ 
						^ifdef[^item[big];такой файл есть]
					]
				]
			]
					
		^context[tmp;
				^macro[server;				
^sql[insert into PIC (big,smal) values ('^form[^var[form_name]]','^form[^var[form_name]_t]'	)]			
					]
					
					^context[tmp_id;
						^macro[server;
							^sql[SELECT id FROM PIC WHERE big = '^form[^var[form_name]]']
							^menu[
								<strong>^item[id]</strong> ^form[PIC_CAT_^form[^var[form_name]]]<br>
								^var[PIC_id;^item[id]]
							]
							^sql[insert into PIC_CAT_REL (pic,cat) values ('^var[PIC_id]','^form[PIC_CAT_^form[^var[form_name]]]')]
							^sql[insert into PIC_DESC (pic,short,long) values ('^var[PIC_id]','^form[PIC_DESC_short_^form[^var[form_name]]]','^form[PIC_DESC_long_^form[^var[form_name]]]')]
							
						]					
					]
				
					
# завершаем контекст tmp
			]
# завершаем ifdef
	]	
		^var[form_name;-;1]
# завершаем while
	]
	<br>
	^macro[location_button;продолжить;add_indexer_images]
	^macro[refresh;2;add_indexer_images]
]

@edit_cat[] - добавление и редактирование категорий
# вывож списка категорий
^eq[^query[];;
		^context[tmp4;
		<form action="edit_cat.html" method="post">
			^macro[server;
				^sql[SELECT id,name FROM PIC_CAT]
				^ifdef[^item[id];
				<br>
				<strong><font size="-1">Текущие категории:</font></strong><br><br>
				^sort[^item[name];+A]
					^menu[
						<input class="1" type="checkbox" name="^item[id]" value="^item[id]" >&nbsp^;<font size="-1">^item[name]</font><br>
					]

		<hr width="100%" size="1" color="#cccccc">
		<input type="radio" value="1" name="state" class="1">&nbsp^;<font size="-1" color="#800000">редактировать</font><br>
# удаление
		^context[tmp32;
				^sql[SELECT ID FROM PIC_CAT_REL]
				^ifdef[^item[id];
				<font size="-2">(для удаления необходимо
				 сначало очистить взаимосвязи c изображениями)</font>
				;
				^macro[delete_ record;edit_cat;PIC_CAT]
				]
		]
		
		<br><br>
		<input type="submit" value="дальше">
		<hr width="100%" size="1" color="#cccccc">
		</form>
		;
				<br>
				<font size="-1">!! В БД нет записей категорий: пожалуйста введите необходимое колличество<br>
				новых категорий и нажмите "добавить".</font><br><br>
				]
			]
		
		<form action="edit_cat.html?" method="post">
		<input type="hidden" value="2" name="state">
	<font size="-1">Добавить категорий (max 9999):</font>&nbsp^;<input class="2" type="text" name="add_cat_summ" value="1" size="4" maxlength="4">
		&nbsp^;<input type="submit" value="добавить"  >
		</form>
		]
]

^eq[^form[state];9;
		^macro[delete_ record;edit_cat;PIC_CAT]<br>
		^macro[location_button;продолжить;edit_cat] 
	]

# вывод списка на редактирование 
^eq[^form[state];1;
		<br>
		<strong><font size="-1">Редактирование категорий:</font></strong><br><br>
			<form action="edit_cat.html" method="post">
				^context[tmp5;
					^macro[server;
						^sql[SELECT id,name FROM PIC_CAT]
							^menu[
								^eq[^form[^item[id]];^item[id];
									<strong><font size="-1">id: ^item[id]</font></strong>&nbsp^;<input class="2" type="text" name="^item[id]" value="^item[name]" size="70" maxlength="200">
									<input type="hidden" value="^item[id]" name="^item[name]">
								<br>
								^var[form_summ;1]
								]
							]
							^eq[^var[form_summ];;
							   <font color="#FF0000" size="-1">ВНИМАНИЕ !! Небыли указаны редактируемые категории!!</font><br>
							   ^header[refresh;1^;url=edit_cat.html] 
							]
					]
				]
				<hr width="100%" size="1" color="#cccccc">
				<input type="hidden" value="2" name="record_type">
			<input type="hidden" value="5" name="state">
			&nbsp^;
			^macro[location_button;назад;edit_cat] 
			&nbsp^;&nbsp^;<input type="submit" value="внести изменения">&nbsp^;&nbsp^;
			</form>
	
]

# Добавление категории
^eq[^form[state];2;
	<br>
	<strong><font size="-1">Новая категория:</strong><br>
	( измените имя указанное по-умолчанию).<br></font>
	<form action="edit_cat.html" method="post">
		^macro[server;
				^var[loop;1]
				^while[loop<=^form[add_cat_summ];	
							^sql[insert into PIC_CAT (
							name	
							) values (
							'новая категория'
							)]
							^var[loop;+;1]
				]		
							^sql[SELECT id,name FROM PIC_CAT WHERE PIC_CAT.name LIKE 'новая категория'  ]
							^menu[
							<strong><font size="-1">id: ^item[id]</font></strong>&nbsp^;<input class="2" type="text" name="^item[id]" value="^item[name]" size="70" maxlength="200"><br>
							]
		]
	<hr width="100%" size="1" color="#cccccc">
	<input type="hidden" value="1" name="record_type">
	<input type="hidden" value="5" name="state">
	&nbsp^;&nbsp^;<input type="submit" value="дальше">
	</form>
]

# проверка на наличие аналогов
^eq[^form[state];5;
# =log=<br>
<br>
# <strong><font size="-1"></strong><br>
	
	^context[tmp14;
		^macro[server;
			^sql[SELECT id,name FROM PIC_CAT]
				^menu[
			
			^var[name;]
			^var[name;^form[^item[id]]]
#			+^form[^item[id]]+<br>
						^ifdef[^var[name];
									^context[tmp15;
										^sql[SELECT id,name FROM PIC_CAT]
# обнуляем переменные
										^var[write;0]
										^var[id_new_record;0]
										^var[id_edit_form_name;0]
										^var[name_edit_form_name;0]
											
										
# проверяем запись с записями в БД
										^menu[
										
										
											 ^eq[^item[name];новая категория;
											 ^var[id_new_record;^item[id]]
											 ]
# получаем id и name в БД для перезаписи											 
											 ^eq[^item[id];^form[^item[name]];
											         ^var[id_edit_form_name;^item[id]]
													 ^var[name_edit_form_name;^item[name]]
#											 !~~^var[id_edit_form_name]~^var[name_edit_form_name]~~!<br>
													 ]
# сверяем на совпадение с именем по-умолчанию
											^eq[^item[name];^var[name];
											
													 ^eq[^var[name];новая категория;
#							<font size="-1"><strong>Id:&nbsp^;^item[id]&nbsp^;^var[name]</strong></font>  <font color="#FF0000" size="-1"> - не измено значение по-умолчанию</font><br>
													
													^var[no_change;1]
# удаление не изменной записи с именем по-умолчанию
													^var[id_delete_self_record;^item[id]]
														^context[tmp17;
														^sql[delete from PIC_CAT where id = '^var[id_delete_self_record]']
														^var[write;1]
														]
														^var[write;1]
													;
#									^item[name]=^var[name]-<strong>есть совпадения</strong><br>
												^var[write;1]	
													 ]
													
												;
#												^item[name]=^var[name]-нет совпадений<br>								
											]
										]
										^eq[^var[write];1;
^eq[^var[no_change];1;
<font size="-1"><strong>Id:&nbsp^;^item[id]&nbsp^;^var[name]</strong></font>  <font color="#FF0000" size="-1"><br>
 - не измено значение по-умолчанию, добавление новых категорий отменено.</font><br>;
 <font size="-1"><strong>Id:&nbsp^;^item[id]&nbsp^;^var[name]</strong></font> <font color="#FF0000" size="-1">значение категории не изменено.</font><br>
]
	
#											--------нее
											;
											^eq[^form[record_type];1;
# добавляем запись в БД
^context[tmp16;
 ^sql[update PIC_CAT set name = '^var[name]' where name = 'новая категория' and id = '^var[id_new_record]']
]
^eq[^var[no_change];1;;
<font size="-1">- добавлена категория:&nbsp^;&nbsp^;<strong>^var[name]</strong></font><br>
]				
;	
<br>

^rem[ # ~~~^form[^var[name]]~~~ ^form[^form[^var[name]]]~~^var[name]	~~~~<br>]
		
^context[tmp18;
 ^sql[UPDATE PIC_CAT SET name = '^var[name]' where name = '^var[name_edit_form_name]' and id = '^var[id_edit_form_name]']
]

<font size="-1">- изменена категория:&nbsp^;<strong>^var[name_edit_form_name]</strong>&nbsp^;<em>на</em>&nbsp^;<strong>^var[name]</strong></font><br>
											]								
										]
									]
						;
#						нет такой формы<br>	
						]
				]
		]
	]

	<hr width="100%" size="1" color="#cccccc">
	<form action="edit_cat.html" method="post">
	&nbsp^;&nbsp^;<input type="submit" value="дальше">
#	^macro[refresh;10;edit_cat]
	</form>
]

@edit_img[]
^eq[^query[];;
<br>
	<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
	<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="top" width="100%">
		<strong><font size="-1">Выберите папку:</font></strong>
		<form action="edit_img.html" method="post" method="post">
# выбор папки		
	^macro[select_folder;
		^eq[^item[count];1;
		
	^header[refresh;1^;url=edit_img.html?state=1&1=^item[path]]
		]
	]
		<br>
		<input type="hidden" value="1" name="state">
		<hr width="100%" size="1" color="#cccccc">
		<input type="submit" value="дальше">
		</form>
		</td>
		</tr>
		</table>
]
^eq[^form[state];1;
		<table width="98%" height="100%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
		<tr align="center" valign="center">
		<td  colspan="0" rowspan="0" align="left" valign="top" width="50%">
	<iframe src="edit_img_2.html?folder=^form[1]&img_size=small&type=img_list" name="img_list" id="img_list" width="100%" height="100%" marginwidth="0" marginheight="0" frameborder="1" scrolling="Yes"></iframe>
		</td>
		<td  colspan="0" rowspan="0" align="left" valign="top" width="100%">
<iframe src="edit_img_3.html" name="img_workspace" id="img_workspace" width="100%" height="100%" marginwidth="0" marginheight="0" frameborder="0" scrolling="No"></iframe>
		</td>
		</tr>
		</table>
]

@edit_img_workspace[]
<form action="edit_img.html" method="post" method="post">
<br>

<input type="text" name="name_img" value="" size="40" maxlength="50" readonly class="21"><br><br>
<input type="hidden" name="id_img" value="">

<input type="button" name="rename" value="переименовать" onclick="location.href('$href.html')"><br><br>
<input type="button" name="edit_long" value="изменить описание" onclick="location.href('$href.html')"><br><br>
<input type="button" name="edit_cat" value="изменить категорию" onclick="location.href('$href.html')"><br><br>
<input type="button" name="delete" value="удалить" onclick="location.href('$href.html')"><br>

</form>

@edit_img_list[]
^context[tmp50;
	^macro[server;
		^sql[SELECT smal,big FROM PIC  WHERE smal LIKE '^form[folder]%']
			^sort[^item[smal];+A]
		^var[count;^item[count]]
		
<table width="100%" height="20" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr><br>

<td align="left" valign="top" width="1%">
# текущая папка
^var[fld;^form[folder]]
^macro[dd_menu;_self;^form[type];edit_img_2.html?folder=^item[path]&img_size=small&type=img_list;img_list]
</td>
<td align="left" valign="top">
&nbsp^;<font size="-1">Папка:&nbsp^;<strong>^form[folder]</strong></font><br>
&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;

^rem[------------размер изображения------------]
^switch[^form[img_size];
^case[big;^var[big;checked]]
^case[small;^var[small;checked]]
^case[middle;^var[middle;checked]]
^case[;^var[small;checked]]
]
<font size="-2">
small<input type="radio" ^var[small] name="img_size" value="small" onclick="location.href('edit_img_2.html?folder=^form[folder]&img_size=small&type=img_list')^;parent.document.forms[0].img_size.value=('small')^;return false^;" class="1">

middle<input type="radio" ^var[middle] name="img_size" value="middle" onclick="location.href('edit_img_2.html?folder=^form[folder]&img_size=middle&type=img_list')^;parent.document.forms[0].img_size.value=('middle')^;return false^;" class="1">

big<input type="radio" ^var[big] name="img_size" value="big" onclick="location.href('edit_img_2.html?folder=^form[folder]&img_size=big&type=img_list')^;parent.document.forms[0].img_size.value=('big')^;return false^;" class="1">
</font>
</td>
</tr>
</table>

<table width="100%" height="80%" border="1" cellspacing="0" cellpadding="0" align="center" valign="top">
^sort[^item[smal];+A]
					^menu[
					
					^var[current_images_smal;^item[smal]]
					^var[current_images_big;^item[big]]
							^context[tmp35;
^sql[SELECT PIC_DESC.short, PIC.smal, PIC.id, PIC_CAT.name FROM PIC_DESC, PIC, PIC_CAT_REL, PIC_CAT WHERE PIC.smal LIKE '^var[current_images_smal]' AND PIC_DESC.pic = PIC.id AND PIC_CAT_REL.pic = PIC.id AND PIC_CAT_REL.cat = PIC_CAT.id]
								^var[short;^item[short]]
								^var[id;^item[id]]
								^var[cat;^item[name]]
							]
						<tr align="center" valign="top">
                        <td  colspan="0" rowspan="0" align="center" valign="bottom" id="x^var[id]" bgcolor="" name="x^var[id]">


						<div valign="top"><font size="-2" color="#000099">^var[cat]</font></div>
						<hr width="100%" size="1" color="#cccccc">
						<font size="-2" >^var[short]</font><br>
						
					
			<a href="#x^var[id]" onCLick="parent.img_workspace.document.forms[0].name_img.value=('^var[short]')^;parent.img_workspace.document.forms[0].id_img.value=('^var[id]')^;x^var[id].style.background=('#cccccc')">
			
						^switch[^form[img_size];
						^case[big;<img src="^var[current_images_big]" alt="^var[current_images_big]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						^case[small;<img src="^var[current_images_smal]" alt="^var[current_images_smal]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						^case[middle;
							^context[get_image_size;
							^imgsize[^var[current_images_big]]
							^var[width;^eval[^item[0]/2]] 
							^var[height;^eval[^item[1]/2]]
							<img src="^var[current_images_big]" width="^var[width]" height="^var[height]" alt="^var[current_images_big]" border="1" name="^var[id]" id="^var[id]"></a><br>
							]
						]
				        ^case[;<img src="^var[current_images_smal]" alt="^var[current_images_smal]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						]
						</td></tr>
					]
# если папка пуста

^eq[^var[count];0;


<div align="center">
<br>
<font size="-2" color="#ff3300">
&nbsp^;&nbsp^;В данной папке изображения либо отсутствуют, либо не индексированы.
</font>
<br><br>
<input type='button' value='индексация изображений' onclick="window.open('add_indexer_images.html','_parent','')">
<br><br>
</div>
]			
<input type="hidden" name="img_size"  value="^form[img_size]">					
</form>
</table>

	]
]
	
@edit_intercoupling[] - редактирование взаимосвязей изображений
^eq[^query[];;
         <br>
		^macro[table_pers;80;1;;
			<form action="edit_intercoupling.html" method="post">
	^context[tmp9;
		^macro[server;
			^sql[SELECT id,path FROM FOLDERS]
			^var[count;^item[count]]
			^eq[^var[count];0;
			<font size="-1">Папки не индексированы.</font>
			<br>
			<br>
			^macro[refresh;2;add_indexer_folder]
			;
			^sort[^item[path];+A]
<strong><font size="-1">Выберите папку:</font></strong>
<table width="1%" height="1%" border="0" cellspacing="0" cellpadding="0" align="left" valign="top">
<tr align="center" valign="center">
<td  colspan="0" rowspan="0" align="center" valign="top"><strong>SRC</strong></td>
<td  colspan="0" rowspan="0" align="center" valign="top"><font size="-2">папка</font></td>
<td  colspan="0" rowspan="0" align="center" valign="top"><strong>DST</strong></td>
</tr>
			<br>
				^menu[ 
				<tr align="center" valign="center">
				<td  colspan="0" rowspan="0" align="center" valign="top">
					 <input type="radio" value="^item[path]" name="folder_src" class="1">
				</td>
				<td  colspan="0" rowspan="0" align="center" valign="top">
					 <font size="-1">^item[path]</font>
				</td>
				<td  colspan="0" rowspan="0" align="center" valign="top">
					  <input type="radio" value="^item[path]" name="folder_dst" class="1">
				</td>
				</tr>
				]
			]
		]
	]
<tr align="center" valign="center">
<td  colspan="0" rowspan="0" align="left" valign="top">
<hr width="100%" size="1" color="#cccccc">
</td>
<td  colspan="2" rowspan="0" align="right" valign="top">

		<input type="hidden" value="1" name="state">
		<hr width="100%" size="1" color="#cccccc">
		&nbsp^;&nbsp^;<input type="submit" value="дальше">
</td>
</tr>	
</table>
		] ^rem[завершаем макрос таблицы]
]
^eq[^form[state];1;
	^macro[table_pers;80;100;;
	^context[tmp32;
		^macro[server;
			^sql[SELECT smal FROM PIC  WHERE smal LIKE '^form[folder_src]%']
			^var[count32;^item[count]]
			^eq[^var[count32];0;
					 <font size="-1">Изображения из папки <strong>^form[folder]</strong> не добавлены в БД</font>
					 <br>
					 <br>
					 ^macro[location_button;назад;edit_intercoupling]&nbsp^;
					 ^macro[location_button;индексировать;add_indexer_images]
					 ^macro[refresh;5;add_indexer_images]
					;

# высота фрейма
					^ifdef[^form[fr_size];^var[fr;^form[fr_size]];^var[fr;25]]
<table width="100%" height="1%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr align="right" valign="top"><td>
</td></tr></table>					
# фрейм
					<input type="hidden" name="img_size"  value="" size="4">		
					<iframe src='src_intercoupling.html?folder=^form[folder_src]&type=src&img_size=^form[img_size]' name='src_intercoupling' id='src' width='100%' height='^form[fr_size]%' marginwidth='0' marginheight='0' frameborder='0'></iframe>
					<br><br>
					<iframe src="submit_intercoupling.html" name="submit_intercoupling" id="submit_intercoupling" width="100%" height="5%" marginwidth="0" marginheight="0" frameborder="0" scrolling="No" style="border:0 solid #999999"></iframe>
					<br>				
					<iframe src='src_intercoupling.html?folder=^form[folder_dst]&type=dst&img_size=^form[img_size]' name='dst_intercoupling' id='src' width='100%' height='^form[fr_size]%' marginwidth='0' marginheight='0' frameborder='0' ></iframe>
					<br>
					<br>
					]
		]
		
	]
	] ^rem[завершаем макрос таблицы]
]

@src_intercoupling[]
^var[fld;^form[folder]]
^context[tmp33;
	^macro[server;
		^sql[SELECT smal,big FROM PIC  WHERE smal LIKE '^form[folder]%']
		
<table width="100%" height="20" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr>
<td align="left" valign="top" width="1%">
^macro[dd_menu;_self;^form[type];src_intercoupling.html?folder=^item[path]&type=^form[type];
^form[type]_intercoupling]</td>
<td align="left" valign="top">
&nbsp^;<font size="-1">^eq[^form[type];src;Src:;Dst:] <strong>^form[folder]</strong></font>
&nbsp^;&nbsp^;&nbsp^;&nbsp^;&nbsp^;

^rem[------------размер изображения------------]
^switch[^form[img_size];
^case[big;^var[big;checked]]
^case[small;^var[small;checked]]
^case[middle;^var[middle;checked]]
^case[;^var[small;checked]]
]
<font size="-2">
small<input type="radio" ^var[small] name="img_size" value="small" onclick="location.href('src_intercoupling.html?folder=^form[folder]&type=^form[type]&img_size=small')^;parent.document.forms[0].img_size.value=('small')^;return false^;" class="1">

middle<input type="radio" ^var[middle] name="img_size" value="middle" onclick="location.href('src_intercoupling.html?folder=^form[folder]&type=^form[type]&img_size=middle')^;parent.document.forms[0].img_size.value=('middle')^;return false^;" class="1">

big<input type="radio" ^var[big] name="img_size" value="big" onclick="location.href('src_intercoupling.html?folder=^form[folder]&type=^form[type]&img_size=big')^;parent.document.forms[0].img_size.value=('big')^;return false^;" class="1">
</font>
</td>
</tr>
</table>
<table width="100%" height="80%" border="1" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr align="center" valign="top">
^sort[^item[smal];+A]
					^menu[
					
					^var[current_images_smal;^item[smal]]
					^var[current_images_big;^item[big]]
							^context[tmp35;
^sql[SELECT PIC_DESC.short, PIC.smal, PIC.id, PIC_CAT.name FROM PIC_DESC, PIC, PIC_CAT_REL, PIC_CAT WHERE PIC.smal LIKE '^var[current_images_smal]' AND PIC_DESC.pic = PIC.id AND PIC_CAT_REL.pic = PIC.id AND PIC_CAT_REL.cat = PIC_CAT.id]
								^var[short;^item[short]]
								^var[id;^item[id]]
								^var[cat;^item[name]]
							]
                        <td  colspan="0" rowspan="0" align="center" valign="bottom" bgcolor=""  >
						<div valign="top"><font size="-2" color="#000099">^var[cat]</font></div>
						<hr width="100%" size="1" color="#cccccc">
						<font size="-2" >^var[short]</font><br>
					^eq[^form[type];src;	
			<a href="#^var[id]" onCLick="parent.submit_intercoupling.document.forms[0].panel_src.value=('^var[short]')^;parent.submit_intercoupling.document.forms[0].src.value=('^var[id]')^;">
			;
			<a href="#^var[id]" onCLick="parent.submit_intercoupling.document.forms[0].panel_dst.value=('^var[short]')^;parent.submit_intercoupling.document.forms[0].dst.value=('^var[id]')^;">
			]
						^switch[^form[img_size];
						^case[big;<img src="^var[current_images_big]" alt="^var[current_images_big]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						^case[small;<img src="^var[current_images_smal]" alt="^var[current_images_smal]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						^case[middle;
							^context[get_image_size;
							^imgsize[^var[current_images_big]]
							^var[width;^eval[^item[0]/2]] 
							^var[height;^eval[^item[1]/2]]
							<img src="^var[current_images_big]" width="^var[width]" height="^var[height]" alt="^var[current_images_big]" border="1" name="^var[id]" id="^var[id]"></a><br>
							]
						]
				        ^case[;<img src="^var[current_images_smal]" alt="^var[current_images_smal]" border="1" name="^var[id]" id="^var[id]"></a><br>]
						]
						</td>
					]
<input type="hidden" name="img_size"  value="^form[img_size]">					
</form></tr>
</table>		
	]
]

@submit_intercoupling[]
<table width="100%" height="1%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
<tr align="right" valign="top">
<td  colspan="0" rowspan="0" align="right"  valign="top">
^rem[----запись взаимосвязи----------]
^ifdef[^form[submite];
	^eq[^form[dst];;
	<font size="-2" color="red">не выбран dst&nbsp^;&nbsp^;&nbsp^;</font>
	;
		^eq[^form[state];2;
			^context[tmp41;
				^macro[server;
					^sql[SELECT p.id FROM PIC p, PIC_DESC d WHERE d.short LIKE '^form[panel_src]' AND d.pic = p.id]
					^eq[^item[id];;
					<font size="-2" color="red">нет изображения с именем src&nbsp^;&nbsp^;&nbsp^;</font>
					;
					^eq[^form[src];^form[dst];
					<font size="-2" color="red">нельзя связывать файл с самим собой!!&nbsp^;&nbsp^;&nbsp^;</font>
					;
							^context[tmp42;
								^sql[select id FROM PIC_LINK WHERE src = '^form[src]' AND dst = '^form[dst]']
								^eq[^item[id];;
									^sql[insert into PIC_LINK (src, dst) values ('^form[src]','^form[dst]')]
									<font size="-2" color="red">ok !&nbsp^;</font>
									<font size="-2"> ^form[panel_src]<img src="to.gif" width="10" height="9" alt="" border="0">^form[panel_dst]&nbsp^;&nbsp^;&nbsp^;</font>
									;
									<font size="-2" color="red">такая взаимосвязь уже есть !!&nbsp^;&nbsp^;&nbsp^;</font>
								]
							]
					]
					]
				]
			]
		]
	]
	
]
</td>
<form action="submit_intercoupling.html" method="post">
<td  colspan="0" rowspan="0" width="70%" align="right"  valign="top">
<font size="-2">
^eq[^form[save_value];1;
^macro[get_id_to_input_readonly;1]
search id<input type="submit" name="search" value=">>" width="5" height="5">
save src<input type="checkbox" name="save_value" value="1" checked class="1">
;
^macro[get_id_to_input_readonly;0]
search id<input type="submit" name="search" value=">>" width="5" height="5">
save src<input type="checkbox" name="save_value" value="1" class="1">
]
dst</font><INPUT TYPE="text" NAME="panel_dst" VALUE="" SIZE="7" class="21" readonly>
<input type="hidden" name="dst" value="">
&nbsp^;&nbsp^;<input type="submit" name="submite" value="записать" width="10" height="10">
<input type="hidden" name="state" value="2">
</td>
</tr>
</table>
</form>

@add_and_edit_prof[] -добавление и редактирование специальностей


@get_id_to_input_readonly[state] -получение ID SRC
^ifdef[^form[search];
		^context[tmp42;
		^macro[server;
			^sql[SELECT p.id FROM PIC p, PIC_DESC d WHERE d.short LIKE '^form[panel_src]' AND d.pic = p.id] 
			^eq[^item[id];;
			<font size="-2" color="red">нет изображения с таким именем&nbsp^;&nbsp^;&nbsp^;</font>
			src<INPUT TYPE="text" NAME="panel_src" VALUE="^form[panel_src]" SIZE="7" class="2">
			id<INPUT TYPE="text" NAME="src" VALUE="" SIZE="4" class="21" readonly>
			;
			<font size="-2" color="red">ok !&nbsp^;&nbsp^;&nbsp^;</font>
			src<INPUT TYPE="text" NAME="panel_src" VALUE="^form[panel_src]" SIZE="7" class="2">
			id<INPUT TYPE="text" NAME="src" VALUE="^item[id]" SIZE="4" class="21" readonly>
			]
		]
	]
;
		^eq[$state;1;
		src<INPUT TYPE="text" NAME="panel_src" VALUE="^form[panel_src]" SIZE="7" class="2">
		id<INPUT TYPE="text" NAME="src" VALUE="^form[src]" SIZE="4" class="21" readonly>
		;
		src<INPUT TYPE="text" NAME="panel_src" VALUE="" SIZE="7" class="2">
		id<INPUT TYPE="text" NAME="src" VALUE="" SIZE="4" class="21" readonly >
		]
]

@dd_menu[target;type;value;iframe] - меню с папками
<script language="JavaScript" type="text/javascript">
<!--
function ^form[type](){
if (document.selecter1.select1.options[document.selecter1.select1.selectedIndex].value != "none") {
parent.$iframe.location = document.selecter1.select1.options[document.selecter1.select1.selectedIndex].value
		}
	}
-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
document.write('<form name="selecter1" target="$target"><select name="select1" size=1 onchange="^form[type]()">')^;
document.write('<option value=none>папка:')^;
^context[tmp40;
		^sql[SELECT id,path FROM FOLDERS]
		^menu[
			^eq[^item[path];^var[fld];;
			document.write('<option value="$value">^item[path]')^;
			]
		]
]
document.write('</select>')^;
document.write('')^;
 -->
</script>

@table_pers[width;height;bgcolor;content] - таблица %
<table width="$width%" height="$height%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top" bgcolor="$bgcolor">
<tr align="center" valign="center">
	<td  colspan="0" rowspan="0" align="left" valign="top" width="100%" height="100%" bgcolor="$bgcolor">
	$content
	</td>
</tr>
</table>

@clear_sql_table[href;table] - очистка заданной таблицы
^eq[^form[state2];2;
 ^context[tmp3;
 ^macro[server;
				^sql[delete from $table]	
		]
<font color="#800000" size="-1"><strong>&nbsp^;Ok !&nbsp^;</strong></font>
]
		;<input type="hidden" value="2" name="state2"><input type="submit" value="очистить таблицу">
		
]

@delete_ record[href;table] - удаление выбранных записей
^var[id;0]
^eq[^form[state];9;
		 ^context[tmp12; 
			 ^macro[server;
			 		^sql[SELECT id FROM $table]
					^menu[
					^var[id;^item[id]]
							^eq[^var[id];^form[^var[id]];
								 ^context[tmp13;
				^sql[delete from $table where id = '^form[^var[id]]']
				^var[form_summ;1]
									]
							;
							]
					]
			]
		]
				^eq[^var[form_summ];;
				<br>
			   <font color="#FF0000" size="-1">ВНИМАНИЕ !! Небыли указаны редактируемые категории!!</font><br>
			   ^header[refresh;1^;url=edit_cat.html] ;
			   <br>
			  <font size="-1">Выбранные записи удалены.</font>
 				^header[refresh;1^;url=edit_cat.html]
				 <br>
			]
;
<input type="radio" name="state" value="9" class="1">&nbsp^;<font size="-1" color="#800000">удалить</font>
]

@refresh[paused;href] - REFRESH
^header[refresh;$paused^;url=$href.html] 

@location_button[value;href] - кнопка перехода
<input type="button" value="$value" onclick="location.href('$href.html')">

@self_close[] - закрытие текущего окна
<input type="button" value="закрыть" onclick="self.close()">

@clear_PIC_CAT_REL[href] -очистка PIC_CAT_REL
^eq[^form[state_clear_PIC_CAT_REL];2;
 ^context[tmp30;
 ^macro[server;
				^sql[delete from PIC_CAT_REL]		
		]
<font color="#800000" size="-1"><strong>&nbsp^;Ok !&nbsp^;</strong></font>
]
		;
	<a href="$href.html?state_clear_PIC_CAT_REL=2" class="aButton">&nbsp^;очистить PIC_CAT_REL&nbsp^;</a>	
]

@clear_PIC_DESC[href] -очистка PIC_DESC
^eq[^form[state_clear_PIC_DESC];2;
 ^context[tmp30;
 ^macro[server;
				^sql[delete from PIC_DESC]		
		]
<font color="#800000" size="-1"><strong>&nbsp^;Ok !&nbsp^;</strong></font>
]
		;
<a href="$href.html?state_clear_PIC_DESC=2" class="aButton">&nbsp^;очистить PIC_DESC&nbsp^;</a>
]

@select_folder[command] -выбор папок
	^context[tmp_select_folder;
		 	^macro[server;
				^sql[SELECT path FROM folders]
				^ifdef[^item[path];
				$command
					^menu[
					<input class="1" type='radio' name='1' value='^item[path]' checked><font size="-1">^item[path]</font><br>
					]
					
				;
	<font color="#FF0000" size="-1">ВНИМАНИЕ !! В БД отсутствуют записи о папках !!</font><br>
	^header[refresh;2^;url=add_indexer_folder.html] 
				]
				
			]
		]