Empfohlen: ASP+Ajax erreicht keine Aktualisierung, um Freunde hinzuzufügen Aufgrund von Arbeitsbeziehungen besteht eine der Funktionen darin, die andere Partei als Freund zu erhöhen. Wie in der Abbildung gezeigt: Die verwendete Methode ist Ajax, und der entsprechende Code ist günstiger: a href = javaScript: void (0); onclick = add_username (' %= rs (Benutzername) %'); Fügen Sie als Freund/A hinzu, die verwendete JS -Überprüfung: script langual = javaScript src = ajax.
Eine ASP -Klasse, die zur Implementierung der Tag -Funktion verwendet wird, können Sie die spezifischen Funktionen verstehen, wenn Sie sie verstehen können.
Ändern Sie den Datensatz:
1. Hinzufügen der Erweiterungsfunktion, 2006-12-3
<%
'*********************************
'Klassenname: TagEngine
'Name: Tag Engine
'Datum: 2006-11-29
'Autor: Leng Yue, Xilou
'Website: www.xilou.net | www.chinacms.org
'Beschreibung: Nur die Funktion des Extrahierens von Tags, keine Funktion von Parsing -Tags
'Copyright: Bitte beachten Sie die Quelle zum Nachdruck, Autor
'*********************************
'Last Modified: 2006-12-3
'Anzahl der Modifikationen: 3
'Änderungsanweisungen: Ändern Sie die Regeln, um die Übereinstimmung genauer zu gestalten
'Aktuelle Version: v1.1.3
'*********************************
Klasse tägine
Privates Regex -reguläres Objekt
'Definieren Sie Tag -Regeln
Privates TagBin
Privates Tagend
Privat BlockBegin_Begin
Private blockBegin_end
Private blockend_begin
Private blockend_end
'//Initialisierung
Private sub class_initialize ()
'Initialisieren Sie die Tag -Regeln
TagBegin = {
Tagend =}
BlockBegin_Begin = <Block:
BlockBegin_end =>
Blockend_Begin = </block:
Blockend_end =>
'Initialisieren Sie das reguläre Objekt
Setzen Sie Regex = New Regexp
regex.ignorecase = true 'ist von Fall unempfindlich
regex.global = true'global Match
Ende sub
Private sub class_terate ()
'Lust das Objekt
Wenn isObject (regex) dann regex = nichts festlegen
Ende sub
'Methode: Resetpattern ()
'Parameter:
'Rückgabe: Kein Rückgabewert
'Funktion: Setzen Sie die Tag -Regeln zurück
Public Sub Resetpattern (TagBin, Tagend, _
BlockBegin_Begin, _
BlockBegin_end, _
Blockend_Begin, _
Blockend_end _
)
TagBegin = TagBin
Tagend = Tagend
BlockBegin_Begin = BlockBegin_Begin
BlockBegin_end = blockBegin_end
Blockend_Begin = Blockend_Begin
blockend_end = blockend_end
Ende sub
'Methode: getBlocks (temp, blockname)
'Parameter: Temp, der zu übereinstimmende Inhalt; Blockname, Block -Flaggename
'Return: Return to the Collection Object (Übereinstimmungen)
'Funktion: Holen Sie sich die Block -Tag -Sammlung
Öffentliche Funktion getblocks (temp, blockname)
Dunkeles Muster
muster = (& blockBegin_Begin & []*& blockname &/b [/w/w]*? & BlockBegin_end
muster = muster &) ([/w/w]*?) & blockend_begin & [/n/r]*& blockname & []*& blockend_end
'Response.write Muster
regex.pattern = muster
Setzen Sie GetBlocks = regex.execute (TEMP) 'RETURESS DER APPATIVE SET
Endfunktion
'Methode: getBlockbyatt (Temp, Attributename, AttributeValue)
'Argument: Temp, der zu übereinstimmende Inhalt; Attributename, Attributname; AttributeValue, Attributwert
'Return: Return to the Collection Object (Übereinstimmungen)
'Funktion: Erhalten Sie einen passenden Satz von Blöcken basierend auf dem Wert eines bestimmten Attributs in der Blockbezeichnung
Öffentliche Funktion getBlockbyatt (Temp, Attributename, AttributeValue)
Dunkeles Muster
muster = (& blockBegin_Begin & [/w/w]*? [/n/r]+& Attributename
muster = muster & []*= []*/& chr (34) & AttributeValue &/& chr (34) & [/n/r]*[/w/w]*?
muster = muster & blockBegin_end
muster = muster &) ([/w/w]*?) & Blockend_Begin & [/w/w]*? & blockend_end
'Response.write Muster
regex.pattern = muster
Setzen Sie GetBlockbyatt = regex.execute (temp) 'zurück, die die passende Menge zurückgibt
Endfunktion
'Methode: GetattValue (Temp, Attributename)
'Artikel: Temp, der zu übereinstimmende Inhalt; Attributename, Attributname
'Return: Return to the Collection Object (Übereinstimmungen)
'Effekt: Holen Sie sich den Attributwert im Block -Tag
Öffentliche Funktion getattValue (Temp, Attributename)
Dunkeles Muster
muster = [/n/r]+& attributename & []*= []*/& chr (34) & ([^/f/n/r/t/v/& chr (34) &]*?)/& chr (34)
'Response.write Muster
regex.pattern = muster
Setzen Sie GetattValue = regex.execute (temp)
Endfunktion
'Methode: Paretag (Temp, TagName, TagValue)
'Argument: Temp, der zu übereinstimmende Inhalt; Attributename, Attributname; AttributeValue, Attributwert
'Return: Geben Sie die ersetzte Zeichenfolge zurück
'Effekt: Ersetzen Sie einfache Tags
Öffentliche Funktion paretag (temp, tagname, TagValue)
Dunkeles Muster
'muster = tagebin & []*& tagname & []*& Tagend
muster = tagebin & tagname & Tagend
regex.pattern = muster
paretag = regex.replace (temp, TagValue)
Endfunktion
'Methode: ClearBlocks (Temp)
'Argument: Temp, was zu übereinstimmen
'Return: Gibt die gelöschte Zeichenfolge zurück
'Effekt: Alle Block -Tags löschen
Öffentliche Funktion ClearBlocks (Temp)
Dunkeles Muster
muster = blockBegin_Begin & [/w/w]*? & blockBegin_end & [/w/w]*?
muster = muster & blockend_btin & [/w/w]*? & blockend_end
regex.pattern = muster
ClearBlocks = regex.replace (temp,)
Endfunktion
'Methode: Cleartags (Temp)
'Argument: Temp, was zu übereinstimmen
'Return: Gibt die gelöschte Zeichenfolge zurück
'Effekt: Alle einzelnen Tags löschen
Öffentliche Funktion Cleartags (Temp)
Dunkeles Muster
muster = tagebegin & [^/f/n/r/t/v]*? & Tagend
regex.pattern = muster
ClearTags = regex.replace (temp,)
Endfunktion
'Methode: Duschror (Errdes)
'Parameter: Errdes, Fehlerbeschreibung
'Return: Keine
Effekt: Fehler anzeigen
Öffentlicher Unterduschenror (Errdes)
Dim errinfo, csSstyle
csSstyle = style = & chr (34)
csSstyle = csSstyle & Schriftart: BOLD 12PX 150%, 'Arial'; Grenze: 1px fest #cc3366;
csSstyle = csSstyle & Breite: 50%; Farbe:#990066; Polsterung: 2px; & chr (34)
errinfo = vbcrlf & <ul & csSstyle &> <li> & Errdes & </li> </ul> & vbcrlf
Antwort.Write errinfo
Ende sub
'*********************************************
'Im Folgenden finden Sie benutzerdefinierte Erweiterungen
'Methode: ext_getSimpleblocks (temp, blockname)
'Parameter: Temp, der zu übereinstimmende Inhalt; Blockname, Block -Flaggename
'Return: Return to the Collection Object (Übereinstimmungen)
'Funktion: Holen Sie sich eine Sammlung einfacher Block -Tags
'Beispiel: <Block: New ID = Loop =/>
Öffentliche Funktion ext_getSimpleblocks (Temp, Blockname)
Dunkeles Muster
Dim BlockBegin, Blockend
'Definieren Sie die Tag -Regeln neu
BlockBegin = <Block:
Blockend =/>
muster = blockBegin & []*& blockname &/b [/w/w]*? & blockend
regex.pattern = muster
Setzen Sie ext_getSimpleblocks = regex.execute (temp)
Endfunktion
'*********************************************
'Im Folgenden finden Sie benutzerdefinierte Erweiterungen
'Methode: ext_getSimpleblocks (temp, blockname)
'Parameter: Temp, der zu übereinstimmende Inhalt; Blockname, Block -Flaggename
'Return: Return to the Collection Object (Übereinstimmungen)
'Funktion: Holen Sie sich eine Sammlung einfacher Block -Tags
'Beispiel: <Block: New ID = Loop =/>
Öffentliche Funktion ext_getSimpleblocks (Temp, Blockname)
Dunkeles Muster
Dim BlockBegin, Blockend
'Definieren Sie die Tag -Regeln neu
BlockBegin = <Block:
Blockend =/>
muster = blockBegin & []*& blockname &/b [/w/w]*? & blockend
regex.pattern = muster
Setzen Sie ext_getSimpleblocks = regex.execute (temp)
Endfunktion
'Methode: ext_getText (Pfad)
'Argument: Pfad, relativer oder absoluter Pfad zum zu gelesenen Text
'Rückgabe: Textinhalt zurückgeben
'Funktion: Lesen Sie die Datei
Beispiel: c = ext_getText (tpl.htm)
Öffentliche Funktion ext_getText (Pfad)
Dim fso, f, Text
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie fso = createObject (scripting.filesystemObject)
Setzen Sie f = fso.opentextfile (Pfad)
text = f.readall
Wenn irren
Err.clear
Duschror Es ist ein Fehler beim Lesen der Datei aufgetreten ...
Wenn IsObject (FSO) dann fso = nichts setzen
Ausgangsfunktion
Ende wenn
Wenn IsObject (FSO) dann fso = nichts setzen
Ext_getText = text
Endfunktion
'Methode: ext_getIncludeFile (temp)
'Argument: Temp, was zu übereinstimmen
'Return: Return to the Collection Object (Übereinstimmungen)
'Funktion: analysieren
Beispiel: ext_getIncludeFile (temp) (0) .Submatches (0), geben Sie den ersten Matching -Dateinamen zurück
Öffentliche Funktion ext_getIncludeFile (Temperatur)
Dunkeles Muster
Dim BlockBegin, Blockend
'Definieren Sie die Tag -Regeln neu
BlockBegin = <!-#inklusive
Blockend =->
muster = blockBegin & []*Datei []*= []*/([/w/w]*?)/[]*& blockend
regex.pattern = muster
Setzen Sie ext_getIncludeFile = regex.execute (temp)
Endfunktion
Endklasse
%>
Aktien: ASP eingeschränkte IP -Stimmabgabe vollständiger Beispielcode Aufgrund von Arbeitsbeziehungen besteht eine der Funktionen darin, über Benutzer abzustimmen und dieselbe IP zu fordern, nur einmal über denselben Benutzer abzustimmen.