Empfohlen: Verwenden Sie den Filter, um das sekundäre Abrufen von Informationen zu erreichen Denken Sie über eine Frage nach: Wie kann man eine sekundäre Suche basierend auf der ersten Suche erreichen? Normalerweise besteht unser Ansatz darin, die Suchbedingungen während der ersten Suche zu speichern und zwei Suchbedingungen während der zweiten Zeilesuche zu kombinieren, um eine neue Abfrage in der Datenbank auszuführen, wie z. B.: Die erste Suche:
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Funktionsfunktion: HTML -Code blockieren
'Parameter: STRINPUPPUT -Benutzereingabeinformationen
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion FuninInput (Strinput)
wenn nicht ist nicht (str) dann
Strinput = ersetzen (Strinput, <, <)
Strinput = Ersetzen (Strinput,>,>)
Strinput = Ersetzen (Strinput, CHR (32),)
Strinput = Ersetzen (Strinput, CHR (34),)
Strinput = Ersetzen (Strinput, CHR (39), ')
Strinput = ersetzen (Strinput, CHR (13),)
FunInput = Strinput
Ende wenn
Endfunktion
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Funktionsfunktion: Verhindern Sie die SQL -Injektion
'Parameter: StrValue-vom Benutzer abgemeldete Daten
'Blotype -Datentyp
'Parameterwert: TRUE Numerische Daten
'falsche Zeichendaten
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion FunSQL (StrValue, Blotyp)
Wenn Blotype dann
Wenn isnumerisch (StrValue) dann
FunSQL = clng (StrValue)
anders
StrValue = 0
Ende wenn
anders
Wenn nicht isnull (StrValue) dann
StrValue = Lase (StrValue)
StrValue = Ersetzen (StrValue, ',' ')
StrValue = Ersetzen (StrValue, Select,)
StrValue = Ersetzen (StrValue, Update,)
StrValue = Ersetzen (StrValue, Insert,)
StrValue = Ersetzen (StrValue, Löschen,)
StrValue = ersetzen (StrValue,;,)
StrValue = Ersetzen (StrValue,,)
StrValue = Ersetzen (StrValue, CHR (255),)
StrValue = ersetzen (StrValue,*,)
StrValue = Ersetzen (StrValue,%,)
Ende wenn
Ende wenn
FunSQL = StrValue
Endfunktion
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Funktionsfunktion: gemeinsame Konvertierung vom Typ Typ
'Parameter: _type Datentyp
'_Value -Daten
'Parameterwert: _type 1: Konvertieren in numerische Daten
'_Type 2: konvertieren in Zeichendaten
'_Type 3: konvertieren in boolesche Daten
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion funswitch (value_, type_)
Bei der nächsten Fehleraufnahme als nächstes
Wählen Sie Case type_
Fall 1
Wenn isnumerisch (value_) dann
Wenn nicht isnull (value_), dann dann
Funswitch = clng (value_)
anders
Funswitch = 0
Ende wenn
anders
Funswitch = 0
Ende wenn
Fall 2
Wenn nicht isnull (value_), dann dann
Funswitch = cstr (value_)
anders
Funswitch =
Ende wenn
Fall 3
Wenn nicht isnull (value_) und isnumeric (value_) dann
Funswitch = cBool (value_)
anders
Funswitch = false
Ende wenn
Fall sonst
Antwort.Redirect (error.asp? err = Bitte geben Sie den Datentyp an, an das in FunSwitch übertragen werden soll!)
Ende auswählen
Wenn err.number <> 0 dann
Antwort.Redirect (error.asp? ERR = Unbekannter Fehler ist während der Datenkonvertierung aufgetreten!)
err.clear
Ende wenn
Endfunktion
'' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktionsfunktion: Überprüfen Sie, ob die Daten von außen stammen
'Parameter: Keine
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktionsprüfungfrom ()
server_v1 = cstr (request.servervariables (http_referer)))
server_v2 = cstr (request.servervariables (server_name))
Wenn Mid (Server_v1,8, Len (Server_v2)) <> Server_v2 dann
checkFrom = true
anders
checkFrom = false
Ende wenn
Endfunktion
'' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Funktionsfunktion: JS -Eingabeaufforderung Box
'Parameter: STRURL: Die Seitenadresse wurde nach dem Klicken auf OK zurückgegeben
'Strmsg: Dialogaufforderungsinformationen
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktionsfunktion (StRURL, STRMSG)
Response.write <script Language = 'JavaScript'> & _
Vbcrlf & alert (& strmsg &); & _
Vbcrlf & window.location = & stRURL &; & _
Vbcrlf & </script>
Endfunktion
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Funktionsfunktion: Allgemeines Paging
'Parameter: IntpageCount Total Seitszahl
'IntMypage Current Seitszahl
'IntrecordCount Total Records
'Intpageize Anzahl der pro Seite angezeigten Datensätze
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion FunPage (intpageCount, IntMypage, IntRecordCount, intpageSize)
'Bei der nächsten Fehlerbehebung als nächstes
Dim intfor, intList, intList_b
Dunkle Abfrage, a, x, tempor
action = http: // & request.servervariables (http_host) & request.servervariables (script_name)
query = split (request.servervariables (query_string), &)
Für jede x in Abfrage
a = split (x, =)
Wenn StrComp (a (0), Seite, vbTextCompare) <> 0, dann dann
temp = temp & a (0) & = & a (1) & & & & & & & & & eine
Ende wenn
Nächste
Wenn intmypage> 1 dann
FunPage = FunPage & <a href = '& action &? & temp & page = 1' title = 'letztes Seite' class = 'no'> <font face = 'webdings'> 9 </font> </a>
FunPage = FunPage & <a href = '& action &?
anders
FunPage = FunPage & <font face = 'webdings'> 9 </font>
FunPage = FunPage & <font face = 'webdings'> 7 </font>
Ende wenn
Wenn intell <> 0 dann
Wenn cintmypage = intlist dann dann
Intlist = intlist 5
Ende wenn
anders
IntList = intmypage 5
Ende wenn
Wenn intList-9 <1 dann
intlist_b = 1
anders
intlist_b = intlist-9
Ende wenn
für intfor = intList_b zu intlist
Wenn intfor <= intpageCount dann
Wenn intfor = intmypage dann dann den Text der aktuellen Seite rot machen und nicht klicken können
FunPage = FunPage & Strmode & <font color = '#ff0000'> <b> & intfor & </b> </font>
anders
funpage = funpage & strmode & <a href = '& action &? & temp & page = & intfor &' class = 'no'> & intfor & </a>
Ende wenn
Ende wenn
strmode = <font color = '#BBBBBB'> | </font>
nächste
Wenn intmypage <intpageCount dann
FunPage = FunPage & <a href = '& action &?
funpage = funpage & <a href = '& action &?
anders
Funpage = FunPage & <font face = 'webdings'> 8 </font>
FunPage = FunPage & <font face = 'webdings'>: </font> </a>
Ende wenn
FunPage = <Tabellenbreite = '100%' Border = '0' cellpacing = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> aktuell & intmypage & page & intpageSize & list/page Total & intPageCount & Page/& IntreCordCount & List Records </td> & _
vbcrlf & <td width = '60%'align =' right '> & _
vbcrlf & <Tabellenbreite = '360' Border = '0' cellpacing = '0' cellpadding = '0' cellpadding = '0'> <tr> & _
vbcrlf & <td align = 'right' style = font: 14px> & funpage & </td> & _
vbcrlf & </tr> </table> </td> </tr> & _
vbcrlf & </table>
Wenn err.number <> 0 dann
err.clear
reaktion.Redirect (error.asp? err = Die Paginierungsfunktion hat einen Fehler. Bitte wenden Sie sich an den Administrator! |).
Ende wenn
Endfunktion
'**********************************************
'Funktionsname: Highlight
'Funktion: Die Suchschlüsselwörter werden in hervorgehobenen Farben angezeigt
'Der Parameter Strtext ist die Zeichenfolge oder Variable, in der die Zeichenfolge oder die Variable hervorgehoben werden soll
'Strfind ist eine Zeichenfolge oder eine Variable, die hervorgehoben werden muss,
'Strveford markierte HTML -Code -Präfix ist wie: <font color = rot>
'Strafter hervorgehobene HTML -Code -Suffix: </font>
'*********************************************
Funktionshighlight (Strtext, strfind, strebee, strafter)
Dunkle npos
Dim Nlen
Dim Nlenall
nlen = len (strfind)
nlenall = nlen len (strebee) len (strafter) 1
Highlight = Strtext
Wenn Nlen> 0 und Len (Highlight)> 0 dann
NPOS = Instrument (1, Highlight, Strfind, 1)
Tun, während npos> 0
Highlight = links (Highlight, NPOS - 1) & _
Strvefore & Mid (Highlight, NPOS, Nlen) & Strafter & _
Mitte (Highlight, NPOS nlen)
npos = instr (npos nlenall, highlight, strfind, 1)
Schleife
Ende wenn
Endfunktion
Aktien: ASP 3.0 Advanced Programing (31) 7.1.2 Die Entdeckung und Handhabung von semantischen oder Laufzeitfehlern ist ärgerlich, aber Sie werden auf einige wirklich aufregende andere Art von Fehlern in der Programmierung stoßen - semantischer Fehler (semantischer Fehler) oder & ld