Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] itos

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

script ,com cookies ,que cria um tipo de FAVORITES, onde um usuário escolhe "Favoritos" a partir de um menu suspenso e é publicado na página. Ele registra a informação de um cookie, em seguida, recebe e envia a informação tornando-se um link.

 

<head>
<script LANGUAGE="JavaScript">
function NewWindow(page, nome, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(page, nome, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
</script>
<title>Links</title>
</head>

<body>

TABLE BORDER="0">
	<THEAD>
		<TH>
		  <p align="center"><font size="4" color="#000000">Preview</font></p>
		</TH>
	</THEAD>
<%
Dim Item
	%>
	<TR>
	<!--Isso é onde o script solicita o cookie por pessoa e os postos das informações aqui -> 
<! - Você também pode ter que mostrar o nome de cookies usando a tag <% =% ChILinks -> 
<! - Se você realmente quiser personalizar seus links, usar a tag DELETE cookie: 

<A HREF="chilinks_process.asp?name=<%= Server.URLEncode(ChILinks) %>">Delete</a> -->
		<TD><% = Request.Cookies("ChILinks") %></TD>
	</TR>
</TABLE>
<FORM ACTION="chilinks_process.asp" METHOD="get">
<!-- ChIlinks em Value = "ChIlinks" é apenas o nome do cookie ser armazenado -->
<input type="hidden" name="name" value="ChILinks">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
	<tr>
		<TD>
		  <p align="center">Escolher Link</p>
	  </TD>
	</tr>
	<TR>
		<TD>
		  <p align="center">
		  <!-- Você pode adicionar várias opções e / ou formulários, desde que mantenha o name="value" ,eles serão colocados no cookie -> 
		
		<select name="value" size="1" class="textbox">
			<option value="<a href='http://www.msdn.com'>msdn.com</a><br>" selected>msdn</option>
			<option value="<a href='http://javascript.internet.com/'>Javascript.Internet.com</a><br>">Javascript</option>
			<option value="<a href='http://www.dynamicdrive.com'>Dynamicdrive.com</a><br>">Dynamicdrive</option>
		  </select>
		</TD>
	</TR>
	<TR>
		<TD>
		  <p align="center">Ou digite abaixo<br>
		  <p align="center">  <INPUT TYPE="submit" VALUE="Show Links" class="button"></p>
		</TD>
	</TR>
</TABLE>
<br>
<br>
<CENTER>Esta é uma idéia legal para colocar as links em alguma outra página <a href="chilinks_show.asp" onclick="NewWindow(this.href,'name','400','400','yes');return false;">Click</a>
</FORM>

<%
Response.Buffer = True

'Esta lida tanto com a adição e exclusão de cookies
Dim strCookieName  ' O nome da transformação cookie
Dim strCookieValue ' O valor a ser atribuído a ele

' Obter os valores passados pelo chilinks.asp
strCookieName  = CStr(Request.QueryString("name"))
strCookieValue = CStr(Request.QueryString("value"))

'Se nenhum nome for aprovada em seguida, nada é feito
If strCookieName <> "" Then


	If strCookieValue <> "" Then
		Response.Cookies(strCookieName) = strCookieValue
		Response.Cookies(strCookieName).Expires = Date() + 1
	Else
		Response.Cookies(strCookieName) = "deve ser algo!"
		Response.Cookies(strCookieName).Expires = Date() - 1
	End If
End If

'envia de volta para a página principal links
Response.Redirect("chilinks.asp") 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito