/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/inj_fmb/fmb.aspx.vb
65 строк
2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Imports sharedClasses.dbFunctions Partial Class fmb Inherits System.Web.UI.Page #Region "Etc" Private Sub NumberToLabels(number As Integer, ByRef labels As Collection) For Each l As Label In labels l.Text = number Mod 10 number = number \ 10 Next End Sub Private Sub ShowNumber(labelType As String, number As String) Dim num As Integer = 0 If IsNumeric(number) Then num = Convert.ToInt32(number) End If Dim labels As New Collection For i = 1 To 4 labels.Add(form1.FindControl(labelType & i)) Next NumberToLabels(num, labels) End Sub #End Region #Region "Page life cycle" Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Dim query_param As String = Request.QueryString("param") Dim IP = Request.UserHostAddress 'Label1.Text = IP Dim param As String fmb_img.AlternateText = "Your IP address is: " & IP & " Assign line to this IP or use ?param=LINE" If IsNothing(query_param) Then Dim sqlf As New SqlFunctions param = sqlf.GetScalar("SELECT param FROM [UserModules].[user].[content_mapping] WHERE ip='" & IP & "'") Else param = query_param End If If Not IsNothing(param) And param <> "" Then fmb_img.ImageUrl = "./img/" & param & ".png?" & DateTime.Now.ToString End If 'Try ' If Not IsNothing(line) Then ' ' Else ' ' End If 'Catch ex As Exception 'End Try End Sub #End Region End Class