Häufig verwendete ASP -Funktionen auf Webseiten

Autor：Eve Cole Aktualisierungszeit：2025-03-29 11:32:01

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

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

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

strmode = <font color = '#BBBBBB'> | </font>

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