Recomendado: ASP Restrito Votação IP Complete Código de Exemplo Devido às relações de trabalho, uma das funções é votar nos usuários, exigindo que o mesmo IP vote no mesmo usuário apenas uma vez, poste o código asp: % 'Autor: Wurong Fonte: DB_Conn (DBS) VoteName = Trim (request.QueryString (UserName)) rs_create (selecione USERNAME FROM [Usuário].
Devido a relações de trabalho, uma das funções é aumentar a outra parte como amigo. Como mostrado na imagem:
O método usado é o Ajax, que requer um código menos apropriado:
<a href = javascript: void (0); OnClick = add_username ('< %= rs (nome de usuário) %> ');> Adicionar como amigo </a>, a verificação JS usada:
<idioma do script = javascript src = ajax.js> </script>
<Cript>
// Adicionar usuário
função add_username (usr) {
//
var sta;
Var nome de usuário = usr;
if (nome de usuário! =) {
if (nome de usuário! =) {
nome de usuário = nome de usuário =+nome de usuário;
sta = postThttp (nome de usuário, add_friend.asp);
if (sta == false) {
alerta (adição falhou, erro do servidor);
}outro{
if (parseint (sta) == 1)
alerta (parabéns, amigos foram adicionados com sucesso!);
outro
alerta (STA);
}
}outro{
alerta (insira o nome do seu amigo);
}
}
}
</script>
Código Ajax.js:
http_request = false;
if (window.xmlhttprequest) {
// Para navegadores como Mozilla, Netscape, Safari, etc., crie xmlHttPrequest
http_request = novo xmlHttPrequest ();
if (http_request.overridemimetype) {
// Se o cabeçalho que responde pelo servidor não for texto/xml, você pode chamar outros métodos para modificar o cabeçalho
http_request.overridemimetype ('text/xml');
}
} else if (window.activexObject) {
// Para navegador do Internet Explorer, crie xmlhttprequest
tentar {
http_request = new ActivexObject (msxml2.xmlHttp);
} catch (e) {
tentar {
http_request = new ActiveXObject (Microsoft.xmlHttp);
} catch (e) {}
}
}
retornar http_request;
}
// Obtenha a responsabilidade do URL
função getResponsetext (url)
{
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (nulo);
if (http_request.readyState == 4)
{
// recebeu uma resposta completa do servidor
if (http_request.status == 200) {
// O valor de resposta do servidor HTTP está ok
requestDoc = http_request.ResponseText;
// Escreva a string retornada pelo servidor para a área na página com a mensagem de identificação
}
outro {
requestDoc = http_request.status;
}
}
Retornar RequestDoc;
}
// Post enviar dados
função postthttp (str, url) {
http_request = getRequest ();
http_request.open ('post', url, false);
http_request.setRequestHeader (comprimento de conteúdo, str.length);
http_request.setRequestHeader (tipo de conteúdo, aplicativo/x-www-forma-urlncoded);
http_request.send (str);
if (http_request.readyState == 4)
{
// recebeu uma resposta completa do servidor
if (http_request.status == 200) {
// O valor de resposta do servidor HTTP está ok
requestDoc = http_request.ResponseText;
// Escreva a string retornada pelo servidor para a área na página com a mensagem de identificação
Retornar RequestDoc;
}outro{
// requestdoc = http_request.status;
retornar falso;
}
}
}
// Obtenha a respostaxml de URL
função getXmlResponsEtext (URL)
{
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (nulo);
if (http_request.readyState == 4)
{
// recebeu uma resposta completa do servidor
if (http_request.status == 200) {
// O valor de resposta do servidor HTTP está ok
requestDoc = http_request.Responsexml;
// Escreva a string retornada pelo servidor para a área na página com a mensagem de identificação
}
outro {
requestDoc = http_request.status;
}
}
Retornar RequestDoc;
}
Em seguida, processe -o em add_friend.asp.
<%
Response.ContentType = Text/html; charset = gb2312
'O programa de processo não será publicado. Primeiro, determine se o usuário está conectado, se o nome de usuário do amigo foi aprovado, se o nome de usuário do amigo é legal, se o nome de usuário do amigo é adicionado pela primeira vez etc. Se o aumento estiver correto, retorne 1
Se add_friend = 1, então 'se você pode adicionar amigos corretamente, add_friend = 1
Response.Write 1 'Este valor é retornado automaticamente ao JS
Outro
Houve um erro em resposta.Write 'Por favor, verifique o código
Final se
%>
Retorne prompt como mostrado na figura:
Compartilhar: Os números longos asp são separados por vírgulas para exibir o código da instância % Função vírgula (str) se não (isnumeric (str)) ou str = 0 então resultado = 0 elseif len (fix (str)) 4 Então resultado = str else pos = instrum (1, str ,.) se pos 0 então dez = mid (str, pos) end se res = strverver (fix (str)) loopcount = 1 while loopcount =