Freunde, die ASP zum Entwickeln von Websites verwenden, können von seinen ASP-Funktionen lernen, um das Lernen zu erleichtern und die Entwicklungseffizienz zu verbessern . Kopieren Sie den Code wie folgt:
<%
'---
'Tianfeng ASP-Klasse v1.0, die gängige ASP-Funktionen in einem integriert
'Tianfeng Alle Rechte vorbehalten
„QQ:76994859 E-MAIL:[email protected]
'Alle Funktionsnamen lauten wie folgt:
' StrLength(str) ermittelt die Stringlänge
' CutStr(str,strlen) Schneiden der Stringlänge
' CheckIsEmpty(tstr) prüft, ob es leer ist
' isInteger(para) Ganzzahltest
' CheckName(str) Namenszeichenprüfung
' CheckPassword(str) Passwortprüfung
' CheckEmail(email) E-Mail-Formatprüfung
„Alert(msg,goUrl) öffnet eine Dialogaufforderung
' GoBack(Str1,Str2,isback)-Fehlermeldung
' Suc(str1,str2,url) Eingabeaufforderung für die Erfolgsmeldung des Vorgangs
' ChkPost() erkennt, ob das Formular außerhalb der Site übermittelt wird
' PSql() verhindert SQL-Injection
' FiltrateHtmlCode(Str) verhindert die Generierung von HTML
' HtmlCode(str) filtert HTML
'Replacehtml(tstr) HTML bereinigen
'GetIP() Holen Sie sich die Client-IP
'GetBrowser Ruft die Client-Browserinformationen ab
' GetSystem ruft das Client-Betriebssystem ab
'GetUrl() Ruft die aktuelle Seiten-URL einschließlich Parametern ab
'CUrl() Ruft die aktuelle Seiten-URL ab
' GetExtend ruft die Dateierweiterung ab
' CheckExist(table,fieldname,fieldcontent,isblur) prüft, ob der Inhalt eines Feldes in einer Tabelle vorhanden ist
' GetNum(table,fieldname,resulttype,args) erkennt, wie viele Felder es in einer Tabelle gibt, Maximalwert, Minimalwert usw.
' GetFolderSize(Folderpath) berechnet die Größe eines Ordners
' GetFileSize(Filename) berechnet die Größe einer Datei
' IsObjInstalled(strClassString) erkennt, ob die Komponente installiert ist
'SendMail JMAILMail senden
'ResponseCookies schreiben Cookies
' CleanCookies Cookies löschen
' GetTimeover ruft die Ausführungszeit der Programmseite ab
'FormatSize Größenformatierung
'FormatTime Zeitformatierung
' Zodiac bekommt das Sternzeichen
' Konstellation bekommt die Konstellation
'---
Klasse Cls_fun
'－－－－－－－－Zeichenverarbeitung－－－－－－－－－－－－－－－－－－－－－－－－－
'************************************************** * **
'Funktionsname: StrLength
'Funktion: Ermitteln Sie die Länge der Zeichenfolge (chinesische Zeichen sind 2)
'Parameter: str ---- String-Inhalt
'Rückgabewert: Stringlänge
'************************************************** * **
Öffentliche Funktion StrLength(str)
Dim Rep,Linse,i
Setze rep=neuen regulären Ausdruck
rep.Global=true
rep.IgnoreCase=true
rep.Pattern=[/u4E00-/u9FA5/uF900-/uFA2D]
Für jedes i in rep.Execute(str)
Linse=Linse+1
Nächste
Stellen Sie Rep=Nothing ein
lens=lens + len(str)
strLength=Objektiv
Funktion beenden
'************************************************** * **
'Funktionsname: CutStr
'Funktion: Schneiden Sie die Zeichenfolgenlänge ab und zeigen Sie Ellipsen an, wenn sie die Länge überschreitet
'Parameter: str ---- String-Inhalt
' strlen ------Die anzuzeigende Länge
'Rückgabewert: String-Inhalt nach dem Schneiden
'************************************************** * **
Öffentliche Funktion CutStr(str,strlen)
Dim l,t,i,c
Wenn str= Dann
cutstr=
Exit-Funktion
Ende wenn
str=Replace(Replace(Replace(Replace(Replace(str, , ),,Chr(34)),>,>),<,<),|,|)
l=Len(str)
t=0
Für i=1 bis l
c=Abs(Asc(Mid(str,i,1)))
Wenn c>255, dann
t=t+2
Anders
t=t+1
Ende wenn
Wenn t>=strlen Dann
cutstr=Left(str,i) & ...
Ausgang für
Anders
cutstr=str
Ende wenn
Nächste
cutstr=Replace(Replace(Replace(Replace(replace(cutstr, , ),Chr(34),),>,>),<,<),|,|)
Funktion beenden
'－－－－－－－－－－－－－－Serienüberprüfung －－
'************************************************** * **
'Funktionsname: CheckIsEmpty
'Funktion: Prüfen, ob es leer ist
'Parameter: tstr ---- string
'Rückgabewert: true ist nicht leer, false ist leer
'************************************************** * **
Öffentliche Funktion CheckIsEmpty(tstr)
CheckIsEmpty=false
Wenn IsNull(tstr) oder Tstr=, dann Funktion beenden
Dim Str,re
Str=Tstr
Setzen Sie re=new RegExp
re.IgnoreCase =True
re.Global=True
str= Ersetzen(str, vbNewLine, )
str = Ersetzen(str, Chr(9), )
str = Ersetzen(str, , )
str = Ersetzen(str, , )
re.Pattern=<img(.[^>]*)>
str =re.Replace(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Setze Re=Nothing
Wenn Str<>, dann CheckIsEmpty=true
Funktion beenden
'************************************************** * **
'Funktionsname: isInteger
'Funktion: Ganzzahltest
'Parameter: tstr ---- Zeichen
'Rückgabewert: true ist eine Ganzzahl, false ist keine Ganzzahl
'************************************************** * **
Öffentliche Funktion isInteger(para)
Bei Fehler fortsetzen Weiter
Dim str
Dim l,i
Wenn isNUll(para), dann
isInteger=false
Exit-Funktion
Beenden Sie, wenn
str=cstr(para)
Wenn trim(str)= dann
isInteger=false
Exit-Funktion
Beenden Sie, wenn
l=len(str)
Für i=1 bis l
Wenn mid(str,i,1)>9 oder mid(str,i,1)<0 dann
isInteger=false
Exit-Funktion
Beenden Sie, wenn
Nächste
isInteger=true
Wenn err.number<>0 dann err.clear
Funktion beenden
'************************************************** * **
'Funktionsname: CheckName
'Funktion: Namenszeichenprüfung
'Parameter: str ---- string
'Rückgabewert: true ist richtig, false ist falsch
'************************************************** * **
Öffentliche Funktion CheckName(Str)
Prüfname=true
Dim Rep, pass
Setze Rep=New RegExp
Rep.Global=True
Rep.IgnoreCase=True
„Entspricht Buchstaben, Zahlen, Unterstrichen und chinesischen Schriftzeichen und muss mit Buchstaben, Unterstrichen oder chinesischen Schriftzeichen beginnen.“
Rep.Pattern=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
Set pass=Rep.Execute(Str)
Wenn pass.count=0, dann ist CheckName=false
Stellen Sie Rep=Nothing ein
Funktion beenden
'************************************************** * **
'Funktionsname: CheckPassword
'Funktion: Passwortüberprüfung
'Parameter: str ---- string
'Rückgabewert: true ist richtig, false ist falsch
'************************************************** * **
Öffentliche Funktion CheckPassword(Str)
Dunkler Pass
CheckPassword=true
Wenn Str <> Dann
Dim Rep
Setze Rep = New RegExp
Rep.Global = True
Rep.IgnoreCase = True
„Passen Sie Buchstaben, Zahlen, Unterstriche und Punkte an.“
Rep.Pattern=[a-zA-Z0-9_/.]+$
Pass=rep.Test(Str)
Setze Rep=nichts
Wenn nicht, dann ist CheckPassword=false
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: CheckEmail
'Funktion: E-Mail-Formaterkennung
'Parameter: str ----E-Mail-Adresse
'Rückgabewert: true ist richtig, false ist falsch
'************************************************** * **
Öffentliche Funktion CheckEmail(email)
CheckEmail=true
Dim Rep
Setze Rep = neues RegExp
rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
pass=rep.Test(email)
Stellen Sie Rep=Nothing ein
Wenn nicht, dann ist CheckEmail=false
Funktion beenden
'－－－－－－－－－－－－－－Informationsaufforderung－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************** * **
'Funktionsname: Alarm
'Funktion: Popup einer Dialogaufforderung
'Parameter: msg ---- Dialogfeldinformationen
' gourl ---- wohin man sich nach Aufforderung wenden soll
'Rückgabewert: Keiner
'************************************************** * **
Öffentliche Funktionswarnung (msg, goUrl)
msg = ersetzen(msg,',/')
Wenn goUrl= Dann
goUrl=history.go(-1);
Anders
goUrl=window.location.href='&goUrl&'
Beenden Sie IF
Response.Write (<script language=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
Antwort.Ende
Funktion beenden
'************************************************** * **
'Funktionsname: GoBack
'Funktion: Fehlermeldungsaufforderung
'Parameter: str1 ---- Titel der Informationsaufforderung
' str2 ---- Inhalt der Informationsaufforderung
'isback----Ob die Rückgabe angezeigt werden soll
'Rückgabewert: Keiner
'************************************************** * **
Öffentliche Funktion GoBack(Str1,Str2,isback)
Wenn Str1= Dann Str1=Fehlermeldung
Wenn Str2= Dann Str2=Bitte füllen Sie alle erforderlichen Felder aus
Wenn isback= Dann
Str2=Str2& <a href=javascript:history.go(-1)>Zurück zum Nachfüllen</a></li>
anders
Str2=Str2
Ende wenn
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: weiß;font-size:14px;background:#799AE1;background:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px oder;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Antwort.Ende
Funktion beenden
'************************************************** * **
'Funktionsname: Suc
'Funktion: Erfolgsmeldung
'Parameter: str1 ---- Titel der Informationsaufforderung
' str2 ---- Inhalt der Informationsaufforderung
' URL ---- Absenderadresse
'Rückgabewert: Keiner
'************************************************** * **
Öffentliche Funktion Suc(str1,str2,url)
Wenn str1= Dann Str1=Vorgang erfolgreich
Wenn str2= Dann Str2=Dieser Vorgang wurde erfolgreich abgeschlossen!
Wenn url= Dann url=javascript:history.go(-1)
str2=str2& <a href=&url& >Zurück, um mit der Verwaltung fortzufahren</a>
Response.Write<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: weiß;font-size:14px;background:#799AE1;background:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px oder;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Funktion beenden
'－－－－－－－－－－－－－－Sichere Handhabung－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'************************************************** * **
'Funktionsname: ChkPost
'Funktion: Formularübermittlung außerhalb der Website verbieten
'Rückgabewert: true für die Übermittlung vor Ort, false für die Übermittlung außerhalb der Website
'************************************************** * **
Öffentliche Funktion ChkPost()
URL1, URL2 dimmen
chkpost=true
url1=Cstr(Request.ServerVariables(HTTP_REFERER))
url2=Cstr(Request.ServerVariables(SERVER_NAME))
Wenn Mid(url1,8,Len(url2))<>url2 Dann
chkpost=false
Exit-Funktion
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: PSql
'Funktion: SQL-Injection verhindern
'Rückgabewert: Wenn es leer ist, erfolgt keine Injektion. Wenn es nicht leer ist, wird es injiziert und das injizierte Zeichen wird zurückgegeben.
'************************************************** * **
öffentliche Funktion PSql()
Psql=
badwords= 'anti' anti; anti und anti exec anti insert anti select anti update anti delete anti count anti * anti % anti chr anti mid anti master anti truncate anti char anti declare anti |
badword=split(badwords,defense)
Wenn Request.Form<> Dann
Für jeden TF_Post in Request.Form
Für i=0 bis Ubound(badword)
Wenn Instr(LCase(Request.Form(TF_Post)),badword(i))>0 Dann
Psql=badword(i)
Exit-Funktion
Ende wenn
Nächste
Nächste
Ende wenn
Wenn Request.QueryString<> Dann
Für jedes TF_Get in Request.QueryString
Für i=0 bis Ubound(badword)
Wenn Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 Dann
Psql=badword(i)
Exit-Funktion
Ende wenn
Nächste
Nächste
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: FiltrateHtmlCode
'Funktion: Verhindern Sie die Generierung von HTML-Code
'Parameter: str ---- string
'************************************************** * **
Öffentliche Funktion FiltrateHtmlCode(Str)
Wenn nicht, istnull(str) und str<> dann
Str=Replace(Str,Chr(9),)
Str=replace(Str,|,|)
Str=replace(Str,chr(39),')
Str=replace(Str,<,<)
Str=replace(Str,>,>)
Str = Ersetzen(str, CHR(13),)
Str = Ersetzen(str, CHR(10),)
FiltrateHtmlCode=Str
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: HtmlCode
'Funktion: HTML-Tags filtern
'Parameter: str ---- string
'************************************************** * **
Öffentliche Funktion HtmlCode(str)
Wenn nicht, istnull(str) und str<> dann
str = ersetzen(str, >, >)
str = ersetzen(str, <, <)
str = Ersetzen(str, CHR(32), )
str = Ersetzen(str, CHR(9), )
str = Ersetzen(str, CHR(34), )
str = Ersetzen(str, CHR(39), ')
str = Ersetzen(str, CHR(13), )
str = Ersetzen(str, CHR(10), )
str = Ersetzen(str, script, script)
HtmlCode = str
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: Replacementhtml
'Funktion: HTML bereinigen
'Parameter: tstr ---- string
'************************************************** * **
Öffentliche Funktion „Replacehtml(tstr)“
Dim Str,re
Str=Tstr
Setzen Sie re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
Setze Re=Nothing
Ersetzenhtml=Str
Funktion beenden
'-----------Holen Sie sich einige Informationen über den Client und den Server------------------
'************************************************** * **
'Funktionsname: GetIP
'Funktion: Client-IP-Adresse abrufen
'Rückgabewert: Client-IP-Adresse
'************************************************** * **
Öffentliche Funktion GetIP()
Dimmtemp
Temp = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Wenn Temp = oder isnull(Temp) oder isEmpty(Temp), dann Temp = Request.ServerVariables(REMOTE_ADDR)
Wenn Instr(Temp,')>0, dann Temp=0.0.0.0
GetIP=Temp
Funktion beenden
'************************************************** * **
'Funktionsname: GetBrowser
'Funktion: Client-Browserinformationen abrufen
'Rückgabewert: Client-Browserinformationen
'************************************************** * **
Öffentliche Funktion GetBrowser()
info=Request.ServerVariables(HTTP_USER_AGENT)
wenn Instr(info,NetCaptor 6.5.0)>0 dann
browser=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 dann
browser=MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 dann
browser=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 dann
browser=NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 dann
Browser=Internet Explorer 5.5
elseif Instr(info,MSIE 6.0)>0 dann
browser=Internet Explorer 6.0
elseif Instr(info,MSIE 6.0b)>0 dann
browser=Internet Explorer 6.0b
elseif Instr(info,MSIE 5.01)>0 dann
Browser=Internet Explorer 5.01
elseif Instr(info,MSIE 5.0)>0 dann
Browser=Internet Explorer 5.00
elseif Instr(info,MSIE 4.0)>0 dann
Browser=Internet Explorer 4.01
anders
browser=andere
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: GetSystem
'Funktion: Holen Sie sich das Client-Betriebssystem
'Rückgabewert: Client-Betriebssystem
'************************************************** * **
Funktion GetSystem()
info=Request.ServerVariables(HTTP_USER_AGENT)
wenn Instr(info,NT 5.1)>0 dann
system=Windows XP
elseif Instr(info,Tel)>0 dann
system=Telport
elseif Instr(info,webzip)>0 dann
system=webzip
elseif Instr(info,flashget)>0 dann
system=flashget
elseif Instr(info,offline)>0 dann
system=offline
elseif Instr(info,NT 5)>0 dann
system=Windows 2000
elseif Instr(info,NT 4)>0 dann
system=Windows NT4
elseif Instr(info,98)>0 dann
system=Windows 98
elseif Instr(info,95)>0 dann
system=Windows 95
elseif instr(info,unix) oder instr(info,linux) oder instr(info,SunOS) oder instr(info,BSD) dann
system=Unix-ähnlich
elseif instr(thesoft,Mac) then
system=Mac
anders
system=andere
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: GetUrl
'Funktion: URL inklusive Parameter abrufen
'Rückgabewert: URL inklusive Parameter abrufen
'************************************************** * **
Öffentliche Funktion GetUrl()
Dimmen Sie strTemp
strTemp=Request.ServerVariables(Script_Name)
If Trim(Request.QueryString)<> Then
strTemp=strTemp&?
Für jedes M_item in Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
nächste
Ende wenn
GetUrl=strTemp
Funktion beenden
'************************************************** * **
'Funktionsname: CUrl
'Funktion: Funktion zum Abrufen der URL der aktuellen Seite
'Rückgabewert: Funktion der aktuellen Seiten-URL
'************************************************** * **
FunctionCUrl()
Domain_Name = LCase(Request.ServerVariables(Server_Name))
Page_Name = LCase(Request.ServerVariables(Script_Name))
Quary_Name = LCase(Request.ServerVariables(Quary_String))
Wenn Quary_Name = Dann
CUrl = http://&Domain_Name&Page_Name
Anders
CUrl = http://&Domain_Name&Page_Name&?&Quary_Name
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: GetExtend
'Funktion: Dateierweiterung abrufen
'Parameter: Dateiname ---- Dateiname
'************************************************** * **
Öffentliche Funktion GetExtend(filename)
dimmen tmp
wenn Dateiname<> dann
tmp=mid(filename,instrrev(filename,.)+1,len(filename)-instrrev(filename,.))
tmp=LCase(tmp)
wenn instr(1,tmp,asp)>0 oder instr(1,tmp,php)>0 oder instr(1,tmp,php3)>0 oder instr(1,tmp,aspx)>0 dann
gettextend=txt
anders
gettextend=tmp
Ende wenn
anders
gettextend=
Ende wenn
Funktion beenden
'－－－－－－－－－－－－－－－－－－Datenbankbetrieb－－－－－－－－－－－－－－－－－－－－－ －
'************************************************** * **
'Funktionsname: CheckExist
'Funktion: Erkennen, ob ein bestimmter Inhalt in einem bestimmten Feld in einer bestimmten Tabelle vorhanden ist
'Parameter: Tabelle ---- Tabellenname
'Feldname ----Feldname
'fieldcontent ----Feldinhalt
' isblur ---- ob eine Fuzzy-Übereinstimmung erfolgen soll
'Rückgabewert: false existiert nicht, true existiert
'************************************************** * **
Funktion CheckExist(table,fieldname,fieldcontent,isblur)
CheckExist=false
Wenn isblur=1 Dann
set rsCheckExist=conn.execute(select * from &table& where &fieldname& like '%&fieldcontent&%')
anders
set rsCheckExist=conn.execute(select * from &table& where &fieldname&= '&fieldcontent&')
Beenden Sie, wenn
Wenn nicht (rsCheckExist.eof und rsCheckExist.bof), dann ist CheckExist=true
rsCheckExist.close
setze rsCheckExist=nichts
Funktion beenden
'************************************************** * **
'Funktionsname: GetNum
'Funktion: Ermitteln Sie die Anzahl, den maximalen oder minimalen Wert eines Felds in einer Tabelle
'Parameter: Tabelle ---- Tabellenname
'Feldname ----Feldname
'resulttype ----Ergebnisse zurückgeben (Anzahl/Max/Min)
' args ---- zusätzliche Teilnahme (Reihenfolge nach ...)
'Rückgabewert: numerischer Wert
'************************************************** * **
Funktion GetNum(table,fieldname,resulttype,args)
GetFieldContentNum=0
Wenn Feldname=, dann Feldname=*
sqlGetFieldContentNum=wählen Sie &resulttype&(&fieldname&) aus &table& args aus
set rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum)
Wenn nicht (rsGetFieldContentNum.eof und rsGetFieldContentNum.bof), dann GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
setze rsGetFieldContentNum=nichts
Funktion beenden
'************************************************** * **
'Funktionsname: UpdateValue
'Funktion: Aktualisieren Sie den Wert eines bestimmten Felds in der Tabelle
'Parameter: Tabelle ---- Tabellenname
'Feldname ----Feldname
'fieldvalue----aktualisierter Wert
'id ----id
' url -------umgeleitete Adresse nach Aktualisierung
'Rückgabewert: Keiner
'************************************************** * **
Öffentliche Funktion UpdateValue(table,fieldname,fieldvalue,id,url)
conn.Execute(update &table& set &fieldname&=&fieldvalue& where id=&CLng(trim(id)))
Wenn URL<>, dann Antwort.Redirect-URL
Funktion beenden
'－－－－－－－－－－－－－Serverinformationen und -vorgänge－－－－－－－－－－－－－－－－－－－－－
'************************************************** * **
'Funktionsname: GetFolderSize
'Funktion: Berechnen Sie die Größe eines Ordners
'Parameter: Dateiname ----Ordnerpfad und Ordnername
'Rückgabewert: numerischer Wert
'************************************************** * **
Öffentliche Funktion GetFolderSize(Folderpath)
dim fso,d,size,showsize
set fso=server.createobject(scripting.filesystemobject)
drvpath=server.mappath(Ordnerpfad)
if fso.FolderExists(drvpath) Dann
set d=fso.getfolder(drvpath)
size=d.size
GetFolderSize=FormatSize(Größe)
Anders
GetFolderSize=Folderpath&Folder existiert nicht
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: GetFileSize
'Funktion: Berechnen Sie die Größe einer Datei
'Parameter: FileName ----Dateipfad und Dateiname
'Rückgabewert: numerischer Wert
'************************************************** * **
Öffentliche Funktion GetFileSize(FileName)
Dimmen Sie fso,drvpath,d,size,showsize
set fso=server.createobject(scripting.filesystemobject)
filepath=server.mappath(Dateiname)
wenn fso.FileExists(filepath) dann
set d=fso.getfile(filepath)
size=d.size
GetFileSize=FormatSize(Größe)
Anders
GetFileSize=FileName&File existiert nicht
Ende wenn
setze fso=nichts
Funktion beenden
'************************************************** * **
'Funktionsname: IsObjInstalled
'Funktion: Prüfen, ob die Komponente installiert ist
'Parameter: strClassString ---- Komponentenname
'Rückgabewert: false existiert nicht, true existiert
'************************************************** * **
Öffentliche Funktion IsObjInstalled(strClassString)
Bei Fehler Weiter fortsetzen
IsObjInstalled=False
Fehler=0
DimxTestObj
Setze xTestObj=Server.CreateObject(strClassString)
Wenn 0=Err, dann ist IsObjInstalled=True
Setze xTestObj=Nothing
Fehler=0
Funktion beenden
'************************************************** * **
'Funktionsname: SendMail
'Funktion: Jmail-Komponente zum Versenden von E-Mails verwenden
'Parameter: ServerAddress ---- Serveradresse
'AddRecipient----Empfängeradresse
' Betreff ---- Betreff
„Körper----Buchstabeninhalt.“
'Absender ---- Absenderadresse
'************************************************** * **
Öffentliche Funktion SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
Bei Fehler als nächstes fortfahren
Dimmen Sie JMail
Setze JMail=Server.CreateObject(JMail.SMTPMail)
Wenn ich mich irre, dann
SendMail= JMail-Komponente ist nicht installiert
irr.klar
Exit-Funktion
Ende wenn
JMail.Logging=True
JMail.Charset=gb2312
JMail.ContentType = text/html
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=Recipient hinzufügen
JMail.Subject=Betreff
JMail.Body=MailBody
JMail.Sender=Absender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Setzen Sie JMail=nothing
Wenn ich mich irre, dann
SendMail=err.description
irr.klar
anders
SendMail=OK
Ende wenn
Endfunktion
'************************************************** * **
'Funktionsname: ResponseCookies
'Funktion: COOKIES schreiben
'Parameter: Schlüssel ---- Cookie-Name
' Wert ----Cookie-Wert
' läuft ab ---- Cookie-Ablaufzeit
'************************************************** * **
Antwortcookies für öffentliche Funktionen (Schlüssel, Wert, Ablaufdatum)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Response.Cookies(Key)=&Value&
Wenn Expires<>0, dann Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=DomainPath
Funktion beenden
'************************************************** * **
'Funktionsname: CleanCookies
Funktion: COOKIES löschen
'************************************************** * **
Öffentliche Funktion CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Für jedes objCookie in Request.Cookies
Response.Cookies(objCookie)=
Response.Cookies(objCookie).Path=DomainPath
Nächste
Funktion beenden
'************************************************** * **
'Funktionsname: GetTimeOver
Funktion: COOKIES löschen
'Parameter: Flag ---Anzeigezeiteinheit 1=Sekunden, sonst Millisekunden
'************************************************** * **
Öffentliche Funktion GetTimeOver(flag)
DimEndTime
Wenn Flag = 1, dann
EndTime=FormatNumber(Timer() - StartTime, 6, true)
getTimeOver = Ausführungszeit dieser Seite: & EndTime & Sekunden
Anders
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, true)
getTimeOver = Ausführungszeit dieser Seite: & EndTime & Millisekunden
Ende wenn
Funktion beenden
'－－－－－－－－－－－－－－－－－Serienformatierung－－－－－－－－－－－－－－－－－－－－－－ －
'************************************************** * **
'Funktionsname: FormatSize
'Funktion: Größenformatierung
'Parameter: Größe ----Die zu formatierende Größe
'************************************************** * **
Öffentliche Funktion FormatSize(dsize)
wenn dsize>=1073741824 dann
FormatSize=Formatnummer(dsize/1073741824,2) & GB
elseif dsize>=1048576 dann
FormatSize=Formatnummer(dsize/1048576,2) & MB
elseif dsize>=1024 dann
FormatSize=Formatnummer(dsize/1024,2) & KB
anders
FormatSize=dsize & Byte
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: FormatTime
'Funktion: Zeitformatierung
'Parameter: DateTime ---- zu formatierende Zeit
'Format ----Formular formatieren
'************************************************** * **
Öffentliche Funktion FormatTime(DateTime,Format)
Wählen Sie das Fallformat aus
Fall 1
FormatTime=&Jahr(DateTime)&Jahr&Monat(DateTime)&Monat&Tag(DateTime)&Tag
Fall 2
FormatTime=&month(DateTime)&month&day(DateTime)&日
Fall 3
FormatTime=&Jahr(DateTime)&/&Monat(DateTime)&/&Tag(DateTime)&
Fall 4
FormatTime=&Monat(DateTime)&/&Tag(DateTime)&
Fall 5
FormatTime=&month(DateTime)&month&day(DateTime)&oder&FormatDateTime(DateTime,4)&
Fall 6
temp=Sonntag, Montag, Dienstag, Mittwoch, Donnerstag, Freitag, Samstag
temp=split(temp,,)
FormatTime=temp(Wochentag(DatumUhrzeit)-1)
Fall Sonst
FormatTime=DateTime
Ende auswählen
Funktion beenden
'--------------------Verschiedenes--------------------
'************************************************** * **
'Funktionsname: Sternzeichen
„Funktion: Leben und Tod erhalten.“
'Parameter: Geburtstag ---- Geburtstag
'************************************************** * **
öffentliche Funktion Sternzeichen (Geburtstag)
if IsDate(Geburtstag) dann
Geburtsjahr=Jahr(Geburtstag)
ZodiacList=array(Affe, Huhn, Hund, Schwein, Ratte, Ochse, Tiger, Kaninchen, Drache, Schlange, Pferd, Schaf)
Zodiac=ZodiacList(Geburtsjahr Mod 12)
Ende wenn
Funktion beenden
'************************************************** * **
'Funktionsname: Konstellation
'Funktion: Konstellation abrufen
'Parameter: Geburtstag ---- Geburtstag
'************************************************** * **
öffentliche Funktionsaufstellung (Geburtstag)
if IsDate(Geburtstag) dann
ConstellationMon=Monat(Geburtstag)
ConstellationDay=Tag(Geburtstag)
wenn Len(ConstellationMon)<2 dann ConstellationMon=0&ConstellationMon
Wenn Len(ConstellationDay)<2, dann ConstellationDay=0&ConstellationDay
MyConstellation=ConstellationMon&ConstellationDay
wenn MyConstellation < 0120 dann
constellation=<img src=images/Constellation/g.gif />elseif MyConstellation < 0219 dann
constellation=<img src=images/Constellation/h.gif />elseif MyConstellation < 0321 dann
constellation=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420 dann
constellation=<img src=images/Constellation/^.gif />elseif MyConstellation < 0521 dann
constellation=<img src=images/Constellation/_.gif />elseif MyConstellation < 0622 dann
constellation=<img src=images/Constellation/`.gif />elseif MyConstellation < 0723 dann
constellation=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 dann
constellation=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 dann
constellation=<img src=images/Constellation/c.gif />elseif MyConstellation < 1024 dann
constellation=<img src=images/Constellation/d.gif />elseif MyConstellation < 1122 dann
constellation=<img src=images/Constellation/e.gif />elseif MyConstellation < 1222 dann
constellation=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 dann
constellation=<img src=images/Constellation/g.gif />end if
Ende wenn
Funktion beenden
'============================================== =
'Funktionsname: Autopage
'Funktion: Automatische Paginierung langer Artikel
'Parameter: ID, Inhalt, URL
'============================================== =
Funktion AutoPage(content,paramater,pagevar)
contentStr=split(content,pagevar)
seitengröße=ubound(contentStr)
Wenn Seitengröße > 0, dann
Wenn Int(Request(page))= oder Int(Request(page))=0 Dann
Seitennummer=1
Anders
pageNum=Anfrage(Seite)
Beenden Sie, wenn
wenn pageNum-1<=pagesize dann
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>Seitennummer:</font><font color=red>
Für i=0 bis Seitengröße
wenn i=pageNum-1 dann
AutoPage=AutoPage&[<font color=red>&i+1&</font>]
anders
wenn instr(paramater,?)>0 dann
AutoPage=AutoPage&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
anders
AutoPage=AutoPage&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
Ende wenn
Ende wenn
Nächste
AutoPage=AutoPage&</font></div>
anders
AutoPage=AutoPage&Illegaler Vorgang! Seitenzahl überschritten! <a href=javascript:history.back(-1)><u>Zurück</u></a>
Ende wenn
Anders
AutoPage=Inhalt
Ende wenn
Funktion beenden
Unterricht beenden
%>