Если использовать так: H1, H3, т.е убрать полностью H2.
# User-Agent большинства роботов содержит токен, заканчивающийся на "bot"
RewriteCond %{HTTP_USER_AGENT} !bot\b [NC]
# Дополнительно перечисляем характерные участки User-Agent, не удовлетворяющих предыдущему условию
# (список можно продолжить...)
RewriteCond %{HTTP_USER_AGENT} !\b(yahoo\.com|baidu\.com)/
## или так
#RewriteCond %{HTTP_USER_AGENT} !\b(Slurp|Baiduspider)\b
RewriteRule ^robots\.txt$ - [R=404]while sum <> 0while sum > 0sum может стать отрицательной из-за того, что сразу после ввода она является строкой и, вероятно, в условииif item <= sum thensum = CInt( InputBox("Введите желаемую сумму (до ...):") )sum = CInt(InputBox("Введите желаемую сумму (до ...):"))
conv = 1
str = ""
while conv <= sum
if sum and conv then str = conv & " " & str
conv = conv * 2
wend
MsgBox Trim(str)RewriteCond %{HTTP_HOST} ^((?:[^.]+\.)*)domain1\.ru$ [NC]
RewriteRule "" https://%1domain2.ru%{REQUEST_URI} [R=301]for /l %%d in (0 2 8) do move *%%d.txt a\
for /l %%d in (1 2 9) do move *%%d.txt b\WM_INPUTLANGCHANGEREQUEST := 0x50).
<textarea id=output></textarea>
<script language=JScript>
var WshShell = new ActiveXObject('WScript.Shell');
var WshExec = WshShell.Exec("cmd /c 2>&1 cacls D:\Folder /E /G Domain\User1:C Domain\User2:R");
document.getElementById('output').value = WshExec.StdOut.ReadAll();
</script>[HKEY_CURRENT_USER\TEST.TMP]
"text"=hex(1):48,00,65,00,6c,00,6c,00,6f,00,2c,00,0d,00,0a,00,77,00,6f,00,72,\
00,6c,00,64,00,21,00,00,00var WshShell = new ActiveXObject("WScript.Shell");
WshShell.RegWrite("HKEY_CURRENT_USER\\TEST.TMP\\text", "Hello,\r\nworld!");"Data"=hex:48,65,6c,6c,6f,2c,0d,0a,77,6f,72,6c,64,21