Arquivos asp - Adeilson :)

Deixar endereço dinâmico ASP

Adeilson — Tue, 05 Jan 2010 00:48:10 +0000

http://<%=Request.ServerVariables(“HTTP_HOST”)%>

Página ASP interpretando imagem jpg

Adeilson — Tue, 05 Jan 2010 00:43:18 +0000

<% ‘IF Request.ServerVariables(“HTTP_REFERER”) <> Request.ServerVariables(“SERVER_NAME”) and Request.ServerVariables(“HTTP_REFERER”) = “” THEN
‘response.write “Página inválida!”
‘response.End()
‘end if
Set Objstr = Server.CreateObject(“ADODB.Stream”)
ObjStr.Type = 1 ‘adtext
ObjStr.Open
Objstr.LoadFromFile Server.MapPath(“imagens\calendar.jpg”)
mytextFile = ObjStr.Read
Set ObjStr = Nothing
Response.ContentType = “image/jpg”
Response.BinaryWrite mytextFile
Response.End
%>

Testar post no ASP

Adeilson — Tue, 05 Jan 2010 00:33:39 +0000

If Request.ServerVariables(“REQUEST_METHOD”) = “POST” Then

Cabeçalho ASP

Adeilson — Tue, 05 Jan 2010 00:32:57 +0000

<%response.Charset = “ISO-8859-1″%>
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>