Recommandé: ASP restreint IP Votant complet Exemple de code En raison des relations de travail, l'une des fonctions consiste à voter sur les utilisateurs, exigeant que la même IP ne vote que sur le même utilisateur une seule fois, post ASP Code:% 'Auteur: Wurong Source: DB_Conn (DBS) VoteserName = Trim (request.Querystring (nom d'utilisateur)) RS_CREATE (Sélectionner le nom d'utilisateur de [User] Where Username ='
En raison de relations de travail, l'une des fonctions est d'augmenter l'autre partie en tant qu'ami. Comme indiqué dans l'image:
La méthode utilisée est Ajax, qui nécessite un code moins approprié:
<a href = javascript: void (0); onclick = add_username ('<% = rs (nom d'utilisateur)%> ');> ajouter en tant qu'ami </a>, la vérification JS utilisée:
<Script Language = JavaScript src = ajax.js> </cript>
<cript>
// ajouter l'utilisateur
fonction add_username (usr) {
//
var sta;
var username = usr;
if (nom d'utilisateur! =) {
if (nom d'utilisateur! =) {
nom d'utilisateur = nom d'utilisateur = + nom d'utilisateur;
STA = PostTHTTP (nom d'utilisateur, add_friend.asp);
if (sta == false) {
alerte (ajout d'échec, erreur du serveur);
}autre{
if (parseInt (sta) == 1)
alerte (félicitations, des amis ont été ajoutés avec succès!);
autre
alerte (STA);
}
}autre{
alerte (veuillez saisir le nom de votre ami);
}
}
}
</cript>
Code ajax.js:
http_request = false;
if (window.xmlhttprequest) {
// Pour des navigateurs tels que Mozilla, Netscape, Safari, etc., créez XMLHTTPREQUEST
http_request = new xmlHttpRequest ();
if (http_request.overridemimeType) {
// Si l'en-tête répond par le serveur n'est pas du texte / XML, vous pouvez appeler d'autres méthodes pour modifier l'en-tête
http_request.OverridemiMetype ('text / xml');
}
} else if (window.activexobject) {
// pour le navigateur Internet Explorer, créez XMLHttpRequest
essayer {
http_request = new activeXObject (msxml2.xmlhttp);
} catch (e) {
essayer {
http_request = new activeXObject (microsoft.xmlhttp);
} catch (e) {}
}
}
return http_request;
}
// Obtenez la réponse de l'URL
fonction getResponseText (URL)
{
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (null);
if (http_request.readystate == 4)
{
// a reçu une réponse complète du serveur
if (http_request.status == 200) {
// La valeur de réponse du serveur HTTP est ok
requestDoc = http_request.ResponSeText;
// Écrivez la chaîne renvoyée par le serveur dans la zone de la page avec le message ID
}
autre {
requestDoc = http_request.status;
}
}
remanier de demandedoc;
}
// publier des données de soumettre
fonction postthttp (str, url) {
http_request = getRequest ();
http_request.open ('post', url, false);
http_request.setRequestHeader (Content-Length, str.length);
http_request.setRequestHeader (contenu-type, application / x-www-form-urlencoded);
http_request.send (str);
if (http_request.readystate == 4)
{
// a reçu une réponse complète du serveur
if (http_request.status == 200) {
// La valeur de réponse du serveur HTTP est ok
requestDoc = http_request.ResponSeText;
// Écrivez la chaîne renvoyée par le serveur dans la zone de la page avec le message ID
remanier de demandedoc;
}autre{
// requestDoc = http_request.status;
retourne false;
}
}
}
// Obtenez la réponsexml de l'URL
fonction getxmlResponseText (URL)
{
http_request = getRequest ();
http_request.open ('get', url, false);
http_request.send (null);
if (http_request.readystate == 4)
{
// a reçu une réponse complète du serveur
if (http_request.status == 200) {
// La valeur de réponse du serveur HTTP est ok
requestDoc = http_request.Responsexml;
// Écrivez la chaîne renvoyée par le serveur dans la zone de la page avec le message ID
}
autre {
requestDoc = http_request.status;
}
}
remanier de demandedoc;
}
Traitez-le ensuite dans add_friend.asp.
<%
Response.ContentType = Text / HTML; Charset = GB2312
«Le programme de processus ne sera pas affiché. Tout d'abord, déterminez si l'utilisateur est connecté, si le nom d'utilisateur de l'ami a été passé, si le nom d'utilisateur de l'ami est légal, si le nom d'utilisateur de l'ami est ajouté pour la première fois, etc. Si l'augmentation est correcte, retournez 1
Si add_friend = 1 alors 'Si vous pouvez ajouter des amis correctement, add_friend = 1
Response.Write 1 'Cette valeur est automatiquement renvoyée à JS
Autre
Il y a eu une erreur dans la réponse.
Terminer si
%>
Invite de retour comme indiqué sur la figure:
Partager: les nombres longs ASP sont séparés par des virgules pour afficher le code d'instance % Fonction Comma (str) Si pas (isNumeric (str)) ou str = 0 alors résultat = 0 elseif len (fix (str)) 4 alors résultat = str else pos = instr (1, str ,..) if pos 0 alors dec = mid (str, pos) end if res = strReverse (fix (str)) lOopCount = 1 while while lOopCount =