Recomendado: dois projetos interessantes de contador de visitantes Como parte indispensável do site, o contador de visitantes pode não apenas registrar o número de vezes que o site é visitado, mas também aprimorar a diversão e a visibilidade da página da web por meio de design vívido e interessante, tornando o visitante contra uma paisagem na web página. A seguir, há duas diversão de design fácil
Quando eu estava fazendo um programa para o cliente, de repente encontrei um problema, que era como reproduzir corretamente o formato de vídeo no URL enviado quando o usuário enviou o arquivo de reprodução de vídeo na página do produto ... Fiquei deprimido por um tempo E pensei sobre isso.
A idéia é obter o tipo de arquivo primeiro e selecionar diferentes códigos de web player de acordo com o tipo ... de três a cinco a dois ... ao mesmo tempo, para a reutilização do código no futuro, uma função de chamada geral foi Escrito para facilitar o futuro.
O código -fonte agora está publicado da seguinte forma:
| A seguir, o conteúdo citado: Sub Selplay (Strurl, Strwidth, Streight) Dim EXTS, ISEXT Se formar <> então isext = lcase (MID (Strurl, Instrrev (Strurl,.) 1)) Outro isext = Final se EXT = AVI, WMV, ASF, MOV, RM, RAM Se Instr (Exts, Isext) = 0 então Response.Write Arquivo de vídeo ilegal Outro Selecione Caso isext Case Avi, WMV, ASF, MOV Response.Write <INDED ID = MediaPlayer src = & strurl & width = & strwidth & Height = & streight & loop = false AutoStart = true> </bed> Case Mov, RM, Ram Response.Write <Objeto Hight = & Streight & Width = & Strwidth & ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA> Response.write <param name = _extentx value = 12700> Response.write <param name = _exty value = 9525> Response.write <param name = AutoStart Value = -1> Response.write <param name = shuffle value = 0> Response.write <nome do param = valor de pré -busca = 0> Response.write <nome do param = nolabels value = 0> Response.write <param name = src value = & strurl &> Response.write <param name = controles value = imagewindow> Response.write <nome do param = valor do console = clipe> Response.write <nome do param = valor do loop = 0> Response.write <param name = numloop value = 0> Response.write <nome do param = valor central = 0> Response.Write <Nome do param = MantenAspect Value = 0> Response.write <param name = BackgroundColor Value =#000000> Response.write </ject> Response.write <br> Response.write <altura do objeto = 32 largura = & strwidth & ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCFA> Response.write <param name = _extentx value = 12700> Response.write <param name = _exty value = 847> Response.write <nome do param = valor do AutoStart = 0> Response.write <param name = shuffle value = 0> Response.write <nome do param = valor de pré -busca = 0> Response.write <nome do param = nolabels value = 0> Response.write <param name = controles value = ControlPanel, statusbar> Response.Write <Nome do param = Valor do console = clipe> Response.write <nome do param = valor do loop = 0> Response.write <param name = numloop value = 0> Response.write <nome do param = valor central = 0> Response.Write <Nome do param = MantenAspect Value = 0> Response.write <param name = BackgroundColor Value =#000000> Response.write </ject> Final Selecione Final se Final sub |
Método de chamada:
| A seguir, o conteúdo citado: Ligue para Selplay (DVURL, 280.220) |
Compartilhar: Recomendado: Resumo do código -fonte comumente usado para iniciantes do ASP 1. Obtenha o tempo do sistema: <%= agora ()%> 2. Obtenha o IP usado para visitar: <%= request.Servervariables (Remote_Host)%> 3. Obtenha o sistema, versão do navegador: <Script>