Algumas dicas de ASP e soluções práticas
Número aleatório:
<%randomize%>
<%= (int (rnd ()*n) +1)%>
As palavras -chave registradas obtidas ao consultar dados são exibidas em vermelho:
<%= substituir (rs ("campo x"), searchname, "<fontcolor =#ff0000>" & searchName & "</font>")%>
Por meio da ASP, verifique se o cliente usou o agente.
<%ifrequest.Servervariables ("http_x_forwarded_for") <> "" então
Response.write "<fontcolor =#ff0000> Você passou pelo servidor proxy" & _
"O IP real é" & request.Servervariables ("http_x_forwarded_for")
endif
%>
Determine a fonte da página anterior
request.Servervariables ("http_referer")
JavaScript: Document.Referrer
Cache limpo, Recarregar a página
<%Response.Expires = 0
Response.expiresabsolute = agora ()-1
Response.addheader "Pragma", "No-Cache"
Response.addheader "Controle de cache", "privado"
Response.CacheControl = "No-Cache"
%>
Mostrar ano e mês no menu suspenso
<selectName = "Select">
<%
Dimm_Year
DIMM_MONTH
DIMM_MONTHJ
DIMM_THEMONH
DIMM_YM
Form_year = 2000Toyear (data)
M_month = 12
Ifm_year = ano (data) então
M_month = mês (data)
Endif
Form_monthj = 1tom_month
Ifm_monthj <10then
M_themonth = "0" & m_monthj
Outro
M_themonth = m_monthj
Endif
M_ym = m_year & "-" & m_themonth%>
<pptionValue = "<%= m_ym%>"> <%= m_ym%> </pption>
<%
Próximo
Próximo%>
</leclect>
Recuperar e excluir registros duplicados no banco de dados
Conn.Execute ("DeletefromTablewhereidNotin (selectDistinctFromTable)")