По колено в коде — Говнокод.ру

VisualBasic / Говнокод #3090

−105

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

''' <summary>
	''' Функция взятия запроса как инструкции t/sql; рекордсет возвращается в виде oZap(,).
	''' </summary>
	''' <param name="eConnectString">Строка подключения к БД из списка.</param>
	''' <param name="sText">Инструкция t/sql.</param>
	''' <param name="oErr">Необязательная ошибка.</param>
	''' <param name="oZap">Необязательный двумерный массив, содержащий рекордсет ― 1-ю таблицу датасета.</param>
	''' <param name="iTimeout">Необязательное число секунд таймаута запроса.</param>
	''' <returns>Число затронутых строк в таблице БД; если ноль, то нормально ещё, а если -1, то запрос не прошёл, если -2, то соединение не установилось.</returns>
	''' <remarks>
	''' </remarks>
	''' <history>
	''' 	[Max Pro]	11.04.2007	Created
	''' 	[Max Pro]	08.08.2008	Реабилитировал OleDb.
	''' 	[Max Pro]	08.04.2009	Оптимизировал как надо ReDim Preserve и переполнение Integer.
	''' 	[Max Pro]	27.08.2009	Исправил ошибку ReDim Preserve ― было больше на 1 элемент.
	''' </history>
	''' -----------------------------------------------------------------------------
	Public Function iZap(ByVal eConnectString As ConnectString, ByVal sText As String, Optional ByRef oErr As Exception = Nothing, Optional ByRef oZap(,) As Object = Nothing, Optional ByVal iTimeout As Integer = -1) As Integer
		'#region "var"
		Dim iX As Integer
		Dim lY As Long
		Dim lYTemp As Long
		Dim i As Integer
		Dim iZapTemp As Integer
		'var zap
		Dim sConnectString As String = sConStrFromEnum(eConnectString)
		Dim oConnection
		Dim oCommand
		Dim oReader
		'#end region 'var
		'#region ini
		If sConnectString Like "*sqloledb*" Then
			oConnection = New OleDbConnection
			oCommand = New OleDbCommand
		Else
			oConnection = New SqlConnection
			oCommand = New SqlCommand
		End If
		'#end region 'ini
		iZap = -2
		oErr = New Exception
		oConnection.ConnectionString = sConnectString
		Try
			'попытка открытия соединения
			oConnection.Open()
			If oConnection.State Then iZap = -1 'if <>0
			'присвоение параметров команды
			If iTimeout >= 0 Then oCommand.CommandTimeout = iTimeout
			oCommand.CommandType = CommandType.Text
			oCommand.Connection = oConnection
			oCommand.CommandText = sText
			'попытка выполнения команды
			oReader = oCommand.ExecuteReader()
			iZap = 0
			iX = oReader.FieldCount - 1
			lY = -1
			lYTemp = 255
			ReDim oZap(iX, lYTemp)
			While oReader.Read()
				lY += 1
				If lY < Integer.MaxValue Then				 '2 147 483 647-1(заменил <= на < чтобы число элементов iZap не зашкалило).
					iZapTemp = lY + 1
					If lY > lYTemp Then
						lYTemp += 256
						ReDim Preserve oZap(iX, lYTemp)
					End If
					For i = 0 To iX
						If IsDBNull(oReader(i)) Then oZap(i, lY) = Nothing Else oZap(i, lY) = oReader(i)
					Next i
				End If
			End While
			oReader.Close()
			oReader = Nothing
			oCommand = Nothing
			iZap = iZapTemp
			ReDim Preserve oZap(iX, iZapTemp - 1)
			If lY >= Integer.MaxValue Then
				oErr = New Exception(lY.ToString("# ##0") & " строк >=" & Integer.MaxValue & " (Integer.MaxValue), но массив заполнен до предела Int32 и iZap=Integer.MaxValue.")
			End If
		Catch oError As Exception
			oErr = oError
		Finally
			If IsNothing(oConnection) = False Then
				oConnection.Close()
				oConnection = Nothing
			End If
		End Try
	End Function	  'iZap

А так Максим Прохоров выполняет запросы. слабо?

ursus, 23 Апреля 2010

Комментарии (10)

VisualBasic / Говнокод #3089

−110

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

''' <summary>
	''' Возвращает Boolean по правилам Бэйсика: если объект является ненулевым 
числом или истиной, тогда true, иначе false; переваривает все типы.
	''' </summary>
	''' <param name="o"></param>
	''' <returns></returns>
	''' <remarks>
	''' </remarks>
	''' <history>
	''' 	[Max Pro]	13.04.2007	Created
	''' </history>
	''' -----------------------------------------------------------------------------
	Public Function bBoolean(ByVal o) As Boolean
		If bIsBoolean(o) Then bBoolean = o
	End Function
	'''

Расскажу немного о Максиме Прохорове. Он окончил универ им. Баумана с красным дипломом, потом работал над программой okno.mos.ru потом его взяли в частную контору на бешеные бабки.
Это функция проверки ^

ursus, 23 Апреля 2010

Комментарии (13)

VisualBasic / Говнокод #3088

−90

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

''' Список строк подключения.
	''' 	[Max Pro]	11.04.2007	Created
	Public Enum ConnectString
		Grata
		Grata6
		KuBi
		OneWindow
		OneWindowStat
		OWSite
		Wwwsde
		NoName
		OleGrata
		OleGrata6
		OleKuBi
		OleOneWindow
		OleOneWindowStat
		OleOWSite
		OleWwwsde
		OleNoName
	End Enum
	''' <summary>
	''' Выдаёт ограниченную дату и время для t/sql; tDateTime  ∈ [1900,2078], 
ограничивается только год, остальное остаётся вплоть до миллисекунд; переваривает все типы.
	''' </summary>
	''' <param name="o"></param>
	''' <returns></returns>
	''' <remarks>
	''' </remarks>
	''' <history>
	''' 	[Max Pro]	11.04.2007	Created
	''' 	[Max Pro]	13.04.2007	Улучшил.
	''' 	[Max Pro]	16.04.2007	Изменил наименование tDateTime2Tsql на tDateTsql.
	''' </history>
	''' -----------------------------------------------------------------------------
	Public Function tDateTsql(ByVal o) As Date
		Dim tDate As Date
		If bIsDateNet(o) Then tDate = o
		If Year(tDate) < 1900 Then tDate = New Date(1900, tDate.Month, tDate.Day, tDate.Hour, tDate.Minute, tDate.Second, tDate.Millisecond)
		If Year(tDate) > 2078 Then tDate = New Date(2078, tDate.Month, tDate.Day, tDate.Hour, tDate.Minute, tDate.Second, tDate.Millisecond)
		tDateTsql = tDate
	End Function
	'''

Енум имени максима прохорова.
И функция конферта даты. пыгает слово улучшил

ursus, 23 Апреля 2010

Комментарии (6)

VisualBasic / Говнокод #3087

−91

1

Public Const sEnter As String = Chr(13) & Chr(10)

Нам разум не друг и ум не товарищ!
Постоянная имени Максима Прохорова

ursus, 23 Апреля 2010

Комментарии (8)

JavaScript / Говнокод #3086

+156

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

GrataPressMain.TextAddDivRedColor7h1 = function(o, s)
{
	//#region var
	var divAny;
	//#endregion var
	divAny = oCell.appendChild(document.createElement("div"));
	divAny.style.color = sColor7;
	divAny.style.fontFamily = "sans-serif";
	divAny.style.fontSize = "14pt";
	divAny.appendChild(document.createTextNode(s));
}
GrataPressMain.TextAddDivRedColor7 = function(o, s)
{
	//#region var
	var divAny;
	//#endregion var
	divAny = oCell.appendChild(document.createElement("div"));
	divAny.style.color = sColor7;
	divAny.style.fontFamily = "sans-serif";
	divAny.style.fontSize = "10.5pt";
	divAny.appendChild(document.createTextNode(s));
}
GrataPressMain.TextAddDivGrayColor8h1 = function(o, s)
{
	//#region var
	var divAny;
	//#endregion var
	divAny = oCell.appendChild(document.createElement("div"));
	divAny.style.color = sColor8;
	divAny.style.fontFamily = "sans-serif";
	divAny.style.fontSize = "14pt";
	divAny.appendChild(document.createTextNode(s));
}
GrataPressMain.TextAddDivGrayColor8 = function(o, s)
{
	//#region var
	var divAny;
	//#endregion var
	divAny = oCell.appendChild(document.createElement("div"));
	divAny.style.color = sColor8;
	divAny.style.fontFamily = "sans-serif";
	divAny.style.fontSize = "10.5pt";
	divAny.appendChild(document.createTextNode(s));
}

ну тут без коментариев. Максим Прохоров пишет сайты.

ursus, 23 Апреля 2010

Комментарии (6)

JavaScript / Говнокод #3085

+156

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Добавление таблицы; sArray → массив rows[]cells[].
GrataPressMain.TableAdd = function(o, sColor, sArray)
{
	//#region var
	var iRow = 0;
	var iMaxRow = 0;
	var iCell = 0;
	var iMaxCell = 0;
	var tableAny;
	var trAny;
	var tdAny;
	//#endregion var
	tableAny = o.appendChild(document.createElement("table"));
	tableAny.borderCollapse = "collapse";
	tableAny.rules = "all";
	tableAny.style.border = "solid 1px";
	tableAny.style.width = "100%";
	iMaxRow = sArray.length - 1;
	for (iRow = 0; iRow <= iMaxRow; iRow++)
	{
		trAny = tableAny.insertRow(iRow);
		if (iRow == 0) trAny.style.backgroundColor = sColor;
		iMaxCell = sArray[iRow].length - 1;
		for (iCell = 0; iCell <= iMaxCell; iCell++)
		{
			tdAny = trAny.insertCell(iCell);
			tdAny.appendChild(document.createTextNode(sArray[iRow][iCell]));
		}
	}
}

слабо, спрашиваю, сукины дети так добавлять табличку в документ???? и никакой HTML разметки! всё делает чистый яваскрипт. Максим Прохоров знает как писать сайты!

ursus, 23 Апреля 2010

Комментарии (2)

JavaScript / Говнокод #3084

+159

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

switch (document.getElementById("selectLang").selectedIndex)
		{
			case 0:
				oInputSearchValue.value = "Поиск по сайту"; //поиск по сайту
			case 2:
				oInputSearchValue.value = "搜索"; //поиск по сайту
				oTextWhiteData0.data = "始終可用！"; //будьте всегда доступны
				oTextWhiteData1.data = "預算您的公司不允許廣告在電視上？"; //бюджет вашей компании
				oTextWhiteData2.data = "或不滿意音速，這將會“消失”電台？"; //бюджет вашей компании
				oTextWhiteData3.data = "然後將廣告在我們的門戶！"; //бюджет вашей компании
				oTextWhiteData4.data = "可在網絡世界！"; //бюджет вашей компании
				oTextX1Y1Data0.data = "主要的"; //главная
				oTextX1Y1Data1.data = "出版社“不受歡迎新聞生產印刷特刊，並出版了若干背景商業目錄專門業務網絡視頻。";
				oTextX1Y1Data2.data = "參考目錄“不受歡迎新聞”讓數以百萬計的人們找到信息，在各個領域的業務，並作為一個平台，發揮宣傳視頻內容業務。";
				oTextX1Y2Data0.data = "服務"; //услуги
				oTextX1Y2Data1.data = "•生產和安置的廣告在我們的專業網站和印刷。";
				oTextX1Y2Data2.data = "•生產中的視頻廣告。";
				oTextX1Y2Data3.data = "•促進品牌和客戶的廣告系列。";
				oTextX2Y1Data0.data = "發現"; //откройте для себя
				oTextX2Y1Data1.data = "用戶和合作夥伴";
				oTextX2Y1Data2.data = "在我們的印刷出版物和在線出版物，我們為您提供：";
				oTextX2Y1Data3.data = "•尋找一個新的想法，以開啟他們自己的業務。";
				oTextX2Y1Data4.data = "•熟悉的原始技術，成功的企業家在外地的管理，財務，營銷，人力資源政策。";
				oTextX2Y1Data5.data = "•獲取在線諮詢服務領域的法律和稅收。";
				oTextX2Y1Data6.data = "•開展了廣告公司，同時考慮到廣告客戶的營銷目標和優化預算。";
				oTextX2Y2Data0.data = "我們為什麼要"; //почему у нас
				oTextX2Y2Data1.data = "我們可以幫助您的業務為代價的高品質，最佳組合的價格和優質的服務，創意，創新的工作方法。";
				oTextX3Y1Data0.data = "我們的項目"; //наши проекты
				oTextX3Y1Data1.data = "出版物-一份周刊廣告“買企業” 。";
				oTextX3Y1Data2.data = "互聯網資源-報紙的在線廣告購買商業“ www.buy-business-online.com 。";
				oTextX3Y1Data3.data = "互聯網門戶網站-企業名錄在線視頻“業務的基礎上” www.business - basis.com 。";
				oTextX3Y1Data4.data = "電視項目。";
				break;
			default:
				oInputSearchValue.value = "Поиск по сайту"; //поиск по сайту
				oTextWhiteData0.data = "Будьте всегда доступны!"; //будьте всегда доступны

а так Максим Прохоров делал локализацию. Хотите ещё????

ursus, 23 Апреля 2010

Комментарии (1)

JavaScript / Говнокод #3083

+158

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93

function GrataPressMain()
{
	//#region pre
	var i = 0; //+
	var iArray = new Array();
	var iCellSelected = 0; //номер активной ячейки в верхнем меню.+
	var s = "";
	var sSite = ""; //+
	var sSiteTrue = ""; //+
	var sStatistics = "";
	var sTitle = ""; //заголовок окна.+
	var sTitleCell0 = ""; //заголовок в нулевой закладке.+
	var sTitleCell1 = ""; //заголовок в первой закладке.+
	var sTitleCell2 = ""; //заголовок в второй закладке.+
	var sTitleCell3 = ""; //заголовок в третьей закладке.+
	var sTitleCell4 = ""; //заголовок в четвёртой закладке.+
	var sTitleCell5 = ""; //заголовок в пятой закладке.+
	var sTitleCell6 = ""; //заголовок в шестой закладке.+
страшно? нееет. страшно дальше
sSiteTrue = "3bz3az36z2yz33z2rz2tz36z33";
	if (!bSite()) return;
	sTitle = "Грата Пресс"; //заголовок окна.
а так?
sImgUrl5 = "gifCF61B397.gif"; //открытая папка.
	sImgUrl6 = "gif00BB7312.gif"; //конечный файл.
	sImgUrl7 = "gif4F60E1FC.gif"; //выделенный уровень.
	sImgUrl8 = "gifC1ED3F33.gif"; //пустое место под значок.
	iArray = [104, 116, 116, 112, 58, 47, 47, 111, 107, 110, 111, 46, 109, 111, 115, 46, 114, 117, 47];
	for (i = 0; i <= 18; i++) sUrlOkno += String.fromCharCode(iArray[i]);
	iArray = [83, 116, 97, 116, 105, 115, 116, 105, 99, 115, 46, 97, 115, 104, 120, 63, 115, 83, 105, 116, 101, 61];
	for (i = 0; i <= 21; i++) sStatistics += String.fromCharCode(iArray[i]);
а так?

divAny=divAny.parentNode.appendChild(document.createElement("div"));
	divAny.appendChild(document.createTextNode(sTitleRow0));
	divAny.style.display="inline";
	divAny=divAny.parentNode.parentNode.appendChild(document.createElement("div"));
	divAny.style.width="400px";
	divAny.style.position="absolute";
	divAny.style.top="1px";
	divAny.style.left="1px";
	divAny.style.color="white";
	imgAny=new Image();
	if(bIsAttachEvent)imgAny.style.verticalAlign="middle";else imgAny.style.verticalAlign="sub";
	imgAny.src=sUrlGranit5;
	divAny=divAny.appendChild(document.createElement("div"));
	divAny.appendChild(imgAny);
	divAny.style.display="inline";
	divAny=divAny.parentNode.appendChild(document.createElement("div"));
	divAny.appendChild(document.createTextNode(sTitleRow0));
	divAny.style.display="inline";
а цсс изгавнякать слабо?
divAny.style.top="1px";
	divAny.style.left="1px";
	divAny.style.color="white";

слабо????? сынки!!!!
function HomePageLang()
	{
		//#region var
		var oInputSearchValue;
		var oTextWhiteData0;//белый блок
		var oTextWhiteData1;
		var oTextWhiteData2;
		var oTextWhiteData3;
		var oTextWhiteData4;
		var oTextX1Y1Data0;//главная
		var oTextX1Y1Data1;
		var oTextX1Y1Data2;
		var oTextX1Y2Data0;//услуги
		var oTextX1Y2Data1;
		var oTextX1Y2Data2;
		var oTextX1Y2Data3;
		var oTextX2Y1Data0;//откройте для себя
		var oTextX2Y1Data1;
		var oTextX2Y1Data2;
		var oTextX2Y1Data3;
		var oTextX2Y1Data4;
		var oTextX2Y1Data5;
		var oTextX2Y1Data6;
		var oTextX2Y2Data0;//почему у нас
		var oTextX2Y2Data1;
		var oTextX3Y1Data0;//наши проекты
		var oTextX3Y1Data1;
		var oTextX3Y1Data2;
		var oTextX3Y1Data3;
		var oTextX3Y1Data4;
		var divHome;
		var divAny;
		var tableWhite;
		var tableAny;
		var trAny;
		var tdAny;

Сайт имени максима прохорова. чистый яваскрипт.

ursus, 23 Апреля 2010

Комментарии (2)

JavaScript / Говнокод #3082

+156

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

Избранные куски кода:

Генерация разметки html страницы: (и так страниц 5-6 кода примерно)
document.body.style.margin = "0px";
document.title = sTitle;
document.body.style.backgroundColor = sColor0;
document.body.style.backgroundImage = "url(" + sImgUrl0 + ")";
document.body.style.backgroundRepeat = "repeat-x";
tableMain = document.body.appendChild(document.createElement("table"));
tableMain.style.fontFamily = "serif";
tableMain.style.fontSize = "10.5pt";
tableMain.style.fontWeight = "bold";
tableMain.id = "tableMain";
tableMain.style.width = "100%";
tableMain.style.borderCollapse = "collapse";
tableMain.cellPadding = "0px";


Данные в базе:
⌠var var oCell; //рабочая ячейка. var divAny; ⌡var ⌠ini oCell = document.getElementById("cellInfo"); ⌡ini ⌠one ₢₢₢InfoClear(); ⌡one // 0 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 1 ₢₢₢A2Add(oCell,"∃∃∃"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 2 ₢₢₢A2Add(oCell,"∃∃∃","1_2_76_22"); oCell.appendChild(document.createTextNode("\u00A0\u00A0\u00A0")); // 3 ₢₢₢A2Add(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); ₢₢₢BrAdd(oCell); // 4 ₢₢₢TextAddDivBlack(oCell,"∃∃∃",1); ₢₢₢BrAdd(oCell); divAny=₢₢₢div6Add(oCell); // 5 ₢₢₢TextAdd(divAny,"∃∃∃"); ₢₢₢TextAdd(divAny,"www.bolshoybiznes.ru"); // 6 ₢₢₢TextAdd(divAny,"∃∃∃"); // 7 ₢₢₢TextAddBrDivGray(oCell,"∃∃∃"); // 8 ₢₢₢TextAddDivGray(oCell,"∃∃∃"); // 9 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 10 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 11 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 12 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); // 13 ₢₢₢TextAddBrDivBlack(oCell,"∃∃∃"); ₢₢₢BrAdd(oCell); // 13+4=17 divAny=₢₢₢divList6Add(oCell,["∃∃∃","∃∃∃","∃∃∃","∃∃∃"]);

Это яваскрипт имени Максима Прохорова.

ursus, 23 Апреля 2010

Комментарии (7)

VisualBasic / Говнокод #3081

−101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

REM Юникод UTF-8 с сигнатурой.
Option Compare Text
Imports System
Imports System.Web
Imports ClassLibraryAll
Namespace HandlerAll
REM Вэб-запрос курсов валют и на какую дату.
Public Class Course
Implements IHttpHandler
REM Переопределяем метод ProcessRequest.
Public Sub ProcessRequest(ByVal oContext As System.Web.HttpContext) Implements System.Web.IHttpHandler.ProcessRequest
'#region var
Dim b As Boolean
Dim iLang As Integer
Dim tDate1 As Date
Dim tDate2 As Date
Dim dD1 As Double
Dim dD2 As Double
Dim dE1 As Double
Dim dE2 As Double
Dim sAnswer As String 'текст ответа
Dim sResponse As String 'текст респонса
Dim oWebClient As New System.Net.WebClient
Dim oRegExDate1 As New System.Text.RegularExpressions.Regex("target\=_blank\s*>с \d+\.\d+\.\d+\s*<\/A>\s*<\/td>\s*<td>")
Dim oRegExInDate1 As New System.Text.RegularExpressions.Regex("\d+\.\d+\.\d+")
Dim oRegExDate2 As New System.Text.RegularExpressions.Regex("target\=_blank\s*>с \d+\.\d+\.\d+\s*<\/A>\s*<\/td>\s*<\/tr>")
Dim oRegExInDate2 As New System.Text.RegularExpressions.Regex("\d+\.\d+\.\d+")
Dim oRegExD1 As New System.Text.RegularExpressions.Regex("США<\/td>\s*<td><\/td>\s*<td\sclass\=""digit""\salign\=""right"">\d+,\d+ <\/td>")
Dim oRegExInD1 As New System.Text.RegularExpressions.Regex("\d+,\d+")
'Dim oRegExD2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <IMG\salt\='.+'\sborder\=0\sheight\=8\shspace\=2\ssrc\=\/images\/.+\.gif\swidth\=7><\/td>\s*<\/tr>\s*<tr>\s*<td>")
Dim oRegExD2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <img\salt\='.+'\sborder\=""0""\sheight\=""8""\shspace\=""2""\ssrc\=""\/images\/.+\.gif""\swidth\=""7""><\/td>\s*<\/tr>\s*<tr>\s*<td>")
Dim oRegExInD2 As New System.Text.RegularExpressions.Regex("\d+,\d+")
Dim oRegExE1 As New System.Text.RegularExpressions.Regex("Евро<\/td>\s*<td><\/td>\s*<td\sclass\=""digit""\salign\=""right"">\d+,\d+ <\/td>")
Dim oRegExInE1 As New System.Text.RegularExpressions.Regex("\d+,\d+")
'Dim oRegExE2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <IMG\salt\='.+'\sborder\=0\sheight\=8\shspace\=2\ssrc\=\/images\/.+\.gif\swidth\=7><\/td>\s*<\/tr>\s*<tr>\s*<td\s")
Dim oRegExE2 As New System.Text.RegularExpressions.Regex(">\d+,\d+ <img\salt\='.+'\sborder\=""0""\sheight\=""8""\shspace\=""2""\ssrc\=""\/images\/.+\.gif""\swidth\=""7""><\/td>\s*<\/tr>\s*<tr>\s*<td\s")
Dim oRegExInE2 As New System.Text.RegularExpressions.Regex("\d+,\d+")
'#endregion var
'#region ini
iLang = iInteger(oContext.Request.QueryString("iLang"))
Try
sAnswer = System.Text.Encoding.UTF8.GetString(oWebClient.DownloadData("http://cbr.ru/"))
tDate1 = oRegExInDate1.Match(oRegExDate1.Match(sAnswer).Value).Value
tDate2 = oRegExInDate2.Match(oRegExDate2.Match(sAnswer).Value).Value
dD1 = oRegExInD1.Match(oRegExD1.Match(sAnswer).Value).Value
dD2 = oRegExInD2.Match(oRegExD2.Match(sAnswer).Value).Value
dE1 = oRegExInE1.Match(oRegExE1.Match(sAnswer).Value).Value
dE2 = oRegExInE2.Match(oRegExE2.Match(sAnswer).Value).Value
Catch ex As Exception
'sResponse = "/*" & ex.Message & "dD1=" & oRegExInD1.Match(oRegExD1.Match(sAnswer).Value).Value & "dD2=" & oRegExInD2.Match(oRegExD2.Match(sAnswer).Value).Value & "dE1=" & oRegExInE1.Match(oRegExE1.Match(sAnswer).Value).Value & "dE2=" & oRegExInE2.Match(oRegExE2.Match(sAnswer).Value).Value & "*/"
sResponse = "/*0*/"
b = True
End Try
'#endregion ini
If b = False Then
....
...
...
куча говна
...
...
oContext.Response.Write(sResponse)
End Sub
REM Переопределяем свойство IsReusable.
Public ReadOnly Property IsReusable() As Boolean Implements System.Web.IHttpHandler.IsReusable
Get
Return False 'запрещем кеширование этого обработчика в оперативной памяти вэб-сервера.
End Get
End Property
End Class
End Namespace

А так мы получаем курс валют с локализацией.
Рассчитывалось использовать на высоконагруженном портале. типо еллоупэйджеса.
Через хэндлер.
Максим Прохоров вас будет ещё долго радовать.

ursus, 23 Апреля 2010

Комментарии (4)

Говнокод: по колено в коде.

VisualBasic / Говнокод #3090

VisualBasic / Говнокод #3089

VisualBasic / Говнокод #3088

VisualBasic / Говнокод #3087

JavaScript / Говнокод #3086

JavaScript / Говнокод #3085

JavaScript / Говнокод #3084

JavaScript / Говнокод #3083

JavaScript / Говнокод #3082

VisualBasic / Говнокод #3081