ASP -Funktionssatz
'========== Get the URL with port, it is recommended to use ======================
FunctionGet_scriptNameurl ()
IFREQUEST.SERVERVARIABLES ("Server_port") = "80" dann
Get_scriptnameurl = "http: //" & request.servervariables ("server_name") & lcase (Request.Servervariables ("script_name"))
Anders
Get_scriptnameurl = "http: //" & request.servervariables ("server_name") & ":" & request.servervariables ("server_port") & lcase (Request.Servervariable ("script_name"))
Endif
Endfunktion
'===================== Function to highlight the words found in the string with regular expressions=================================
FunctionBoldWord (StrContent, Word)
Ifword = "" dann
BOLDWORD = STRCONTENT
Ausgangsfunktion
Endif
dimobjregexp
SetObjregexp = newregexp
objregexp.ignorecase = true
objregexp.global = true
objregexp.pattern = "(" & word & ")"
StrContent = Objregexp.Replace (StrContent, "<Fontcolor =" "#ff0000" "> <b> $ 1 </b> </font>"))
SetObjregexp = nichts
BOLDWORD = STRCONTENT
Endfunktion
'======================= Die aktuelle IP -Adresse des Benutzers erhalten
FunctionGetip ()
uip = request.servervariables ("http_x_forwarded_for")
Ifuip = "" thenuip = request.servervariables ("remote_addr")
GetIp = uip
Endfunktion
'==================== Die aktuelle Programmskriptpfad ==========================================================ieben
FunctionGetScriptname ()
ScriptAddress = cstr (request.servervariables ("script_name") 'die aktuelle Adresse abrufen
If (request.queryString <> "") dann
ScriptAddress = scriptAddress & "?" & Server.htmlencode (request.queryString) 'Die Adresse mit Parameter erhalten
Endif
Iflen (scriptAddress)> 250TheScriptAddress = links (Sciptaddress, 250) & "..." 'für Pfadabschluss, mit maximal 250 Zeichen
GetScriptName = scriptAddress
Endfunktion
'================ RETURE URL mit Parametern, die beim Sortieren mehrerer Schlüsselwörter verwendet werden.
'Removelist -Parameter: Die Parameter, die aus der URL entfernt werden müssen, können mehrfach sein. Bitte trennen Sie sie mit Kommas in der Mitte.
Funktionkeepurlstr (Removelist)
ScriptAddress = cstr (request.servervariables ("script_name") & "?" 'Holen Sie sich die aktuelle Adresse und fügen Sie das "?" Symbol
M_itemurl = ""
Foreachm_iteminRequest.queryString
IfInstr (Removelist, M_Item) = 0Then
M_itemurl = m_itemurl & m_item & "=" & server.urlencode (request.queryString ("" & m_item & "") & "&"