Juliano 的个人资料Juliano Nunes | Buscando...照片日志列表更多 工具 帮助

日志


2006/10/20

Controle ASP.Net 2.0 para filmes do Flash (SWF)

Quem costuma incluir filmes/animações Flash em suas aplicações Web, sabe a chatice que virou a utilização de tal recurso quando o bloqueio de conteúdo "ativo", ou seja, ActiveX, está ativado.

Por isso e por questões de suporte à customizações em modo design, desenvolvedores criaram um controle para páginas ASP.Net 2.0 que permite a inserção de filmes do Adobe Flash, com suporte ao modo design, compatível com múltiplos browsers, suporte para filmes em tela cheia, suporte para todas as propriedades do Flash, entre outros.

O endereço é: http://www.flash-control.net/

E o melhor de tudo, é FREE.

2006/10/18

Geração de código CSS dos controles ASP.Net

Quem trabalha com web semântica/web standards/tableless deve ficar meio preocupado com o HTML que é gerado pelo ASP.Net.

Por isso estão sendo preparados "CSS Friendly ASP.NET 2.0 Control Adapters", de forma que o código gerado seja semanticamente correto e utilize CSS para sua formatação.

Mais detalhes em: http://www.asp.net/cssadapters/

2006/8/23

Descubra quais versões do ASP.Net estão instaladas em um servidor remoto

Não sei se alguém já passou pelo mesmo problema que eu, mas esta semana eu tinha que hospedar um site. Anteriormente eu havia entrado em contato com a empresa de hospedagem, a UAI. Perguntei a eles quais tecnologias eles suportavam, eles me responderam ASP, ASP.Net, entre outras, daí respondi o e-mail com uma nova pergunta, se o ASP.Net que eles suportam é o 1.x ou 2.0, daí eles me responderam que tem suporte ao ASP independente da versão.

Daí ao vendo ele dizer ASP, já imaginei que eles não sabiam direito o que estavam falando. Criei uma página simples em ASP.Net 2.0 e fiz upload....é, não funcionou! Daí resolvi procurar algo na internet que fizesse um teste de um servidor remoto em busca das versões do ASP.Net que estão instaladas. Até que achei este script que acho que poderá ser útil à outras pessoas também.

Portanto, fica aí a dica.

O código do script é:

<%

Dim WshShell, sRegValue, sRegKey
Set WshShell = CreateObject("WScript.Shell")

'Check asp.net
sRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET"
sRegValue = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET\(default)"

If RegKeyExists(sRegKey) And Not RegValueExists(sRegValue) Then
 Response.Write "<font color = green>ASP.Net is installed on this machine.</font>"
Else
 Response.Write "<font color = red>ASP.Net is Not installed on this machine.</font>"
End If
Response.Write "<br>"

'Check asp.net 1.1
sRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET_1.1.4322"
sRegValue = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET_1.1.4322\(default)"

If RegKeyExists(sRegKey) And Not RegValueExists(sRegValue) Then
 Response.Write "<font color = green>ASP.Net 1.1 is installed on this machine.</font>"
Else
 Response.Write "<font color = red>ASP.Net 1.1 is Not installed on this machine.</font>"
End If
Response.Write "<br>"

'Check asp.net 2.0
sRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET_2.0.50727"
sRegValue = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ASP.NET_2.0.50727\(default)"

If RegKeyExists(sRegKey) And Not RegValueExists(sRegValue) Then
 Response.Write "<font color = green>ASP.Net 2.0 is installed on this machine.</font>"
Else
 Response.Write "<font color = red>ASP.Net 2.0 is Not installed on this machine.</font>"
End If
Response.Write "<br>"

'Check asp.net server state
sRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\aspnet_state"
sRegValue = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\aspnet_state\(default)"

If RegKeyExists(sRegKey) And Not RegValueExists(sRegValue) Then
 Response.Write "<font color = green>ASP.Net State is installed on this machine.</font>"
Else
 Response.Write "<font color = red>ASP.Net State is Not installed on this machine.</font>"
End If
Response.Write "<br>"

Function RegValueExists(sRegValue)
     ' Returns True or False based of the existence of a registry value.
     Dim oShell, RegReadReturn
     Set oShell = CreateObject("WScript.Shell")
     RegValueExists = True  ' init value
     On Error Resume Next
     RegReadReturn = oShell.RegRead(sRegValue)
     If Err.Number <> 0 Then
       RegValueExists = False
     End if
     On Error Goto 0
End Function


Function RegKeyExists(ByVal sRegKey)
    ' Returns True or False based on the existence of a registry key.

    Dim sDescription, oShell
    Set oShell = CreateObject("WScript.Shell")

    RegKeyExists = True
    sRegKey = Trim (sRegKey)
    If Not Right(sRegKey, 1) = "\" Then
      sRegKey = sRegKey & "\"
    End If

    On Error Resume Next
    oShell.RegRead "HKEYNotAKey\"
    sDescription = Replace(Err.Description, "HKEYNotAKey\", "")

    Err.Clear
    oShell.RegRead sRegKey
    RegKeyExists = sDescription <> Replace(Err.Description, sRegKey, "")
    On Error Goto 0
End Function

'Many thanks to torgeir for posting to google groups
'torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
'Administration scripting examples and an ONLINE version of
'the 1328 page Scripting Guide:
'http://www.microsoft.com/technet/community/scriptcenter/default.mspx
%>

Salve o arquivo com extensão .ASP, faça upload e chame a página.

E pronto.

[]'s
Juliano Nunes

Estudante Embaixador Microsoft
Microsoft Certified Professional
Brainbench Certified Professional
http://thespoke.net/blogs/juliano_netfox/