狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

[p]<%[br]'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－[br]'天楓asp class v1.0，集常用asp函數于一體[br]'天楓版權所有http://52515.net[br]'qq:76994859 email:chenshaobo@gmail.com[/p] [p]'所有功能函數名如下：[br]' strlength(str) 取得字符串長度[br]' cutstr(str,strlen) 字符串長度切割[br]' checkisempty(tstr) 檢測是否為空[br]' isinteger(para) 整數檢驗[br]' checkname(str) 名字字符校驗[br]' checkpassword(str) 密碼檢驗[br]' checkemail(email) 郵箱格式檢驗[br]' alert(msg,gourl) 彈出對話框提示[br]' goback(str1,str2,isback) 出錯信息提示[br]' suc(str1,str2,url) 操作成功信息提示[br]' chkpost() 檢測是否站外提交表單[br]' psql() 防止sql注入[br]' filtratehtmlcode(str) 防止生成html[br]' htmlcode(str) 過濾html[br]' replacehtml(tstr) 清濾html[br]' getip() 獲取客戶端ip[br]' getbrowser 獲取客戶端瀏覽器信[br]' getsystem 獲取客戶端操作系統[br]' geturl() 獲取當前頁面url包含參數[br]' curl() 獲取當前頁面url[br]' getextend 取得文件擴展名[br]' checkexist(table,fieldname,fieldcontent,isblur) 檢測某個表中某個字段的內容是否存在[br]' getnum(table,fieldname,resulttype,args) 檢測某個表某個字段有多少條，最大值 ，最小值等[br]' getfoldersize(folderpath) 計算某個文件夾的大小[br]' getfilesize(filename) 計算某個文件的大小[br]' isobjinstalled(strclassstring) 檢測組件是否安裝[br]' sendmail jmail發送郵件[br]' responsecookies 寫入cookies[br]' cleancookies 清除cookies[br]' gettimeover 取得程序頁面執行時間[br]' formatsize 大小格式化[br]' formattime 時間格式化[br]' zodiac 取得生肖[br]' constellation 取得星座[br]'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－[/p] [p]class cls_fun[/p] [p]'－－－－－－－－字符處理－－－－－－－－－－－－－－－－－－－－－－－－－－[br] [br]'****************************************************[br]'函數名：strlength[br]'作 用：取得字符串長度（漢字為2)[br]'參 數：str ----字符串內容[br]'返回值：字符串長度[br]'****************************************************[br]public function strlength(str)[br] dim rep,lens,i[br] set rep=new regexp[br] rep.global=true[br] rep.ignorecase=true[br] rep.pattern="[\u4e00-\u9fa5\uf900-\ufa2d]"[br] for each i in rep.execute(str)[br] lens=lens+1[br] next[br] set rep=nothing[br] lens=lens + len(str)[br] strlength=lens[br] end function[br] [br]'****************************************************[br]'函數名：cutstr[br]'作 用：字符串長度切割，超過顯示省略號[br]'參 數：str ----字符串內容[br]' strlen ------要顯示的長度[br]'返回值：切割后字符串內容[br]'****************************************************[br]public function cutstr(str,strlen)[br] dim l,t,i,c[br] if str="" then[br] cutstr=""[br] exit function[br] end if[br] str=replace(replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<"),"|","|")[br] l=len(str)[br] t=0[br] for i=1 to l[br] c=abs(asc(mid(str,i,1)))[br] if c>255 then[br] t=t+2[br] else[br] t=t+1[br] end if[br] if t>=strlen then[br] cutstr=left(str,i) & "..."[br] exit for[br] else[br] cutstr=str[br] end if[br] next[br] cutstr=replace(replace(replace(replace(replace(cutstr," "," "),chr(34),"""),">",">"),"<","<"),"|","|")[br] end function[/p] [p]'－－－－－－－－－－－－－－系列驗證－－－－－－－－－－－－－－－－－－－－－－－－－－－－[/p] [p] '****************************************************[br]'函數名：checkisempty[br]'作 用：檢查是否為空[br]'參 數：tstr ----字符串[br]'返回值：true不為空，false為空[br]'****************************************************[br]public function checkisempty(tstr)[br] checkisempty=false[br] if isnull(tstr) or tstr="" then exit function [br] dim str,re[br] str=tstr[br] set re=new regexp[br] re.ignorecase =true[br] re.global=true[br] str= replace(str, vbnewline, "")[br] str = replace(str, chr(9), "")[br] str = replace(str, " ", "")[br] str = replace(str, " ", "")[br] re.pattern="]*)>"[br] str =re.replace(str,"94kk")[br] re.pattern="<(.[^>]*)>"[br] str=re.replace(str,"")[br] set re=nothing[br] if str<>"" then checkisempty=true[br]end function[/p] [p] '****************************************************[br]'函數名：isinteger[br]'作 用：整數檢驗[br]'參 數：tstr ----字符[br]'返回值：true是整數，false不是整數[br]'****************************************************[br]public function isinteger(para)[br] on error resume next[br] dim str[br] dim l,i[br] if isnull(para) then [br] isinteger=false[br] exit function[br] end if[br] str=cstr(para)[br] if trim(str)="" then[br] isinteger=false[br] exit function[br] end if[br] l=len(str)[br] for i=1 to l[br] if mid(str,i,1)>"9" or mid(str,i,1)<"0" then[br] isinteger=false [br] exit function[br] end if[br] next[br] isinteger=true[br] if err.number<>0 then err.clear[br]end function[br][br] '****************************************************[br]'函數名：checkname[br]'作 用：名字字符檢驗 [br]'參 數：str ----字符串[br]'返回值：true無誤，false有誤[br]'****************************************************[br]public function checkname(str)[br] checkname=true[br] dim rep,pass[br] set rep=new regexp[br] rep.global=true[br] rep.ignorecase=true[br] '匹配字母、數字、下劃線、漢字且必須以字母或下劃線或漢字開始[br] rep.pattern="^[a-za-z_u4e00-\u9fa5][\w\u4e00-\u9fa5]+$"[br] set pass=rep.execute(str)[br] if pass.count=0 then checkname=false[br] set rep=nothing[br]end function[br][br]'****************************************************[br]'函數名：checkpassword[br]'作 用：密碼檢驗[br]'參 數：str ----字符串[br]'返回值：true無誤，false有誤[br]'****************************************************[br]public function checkpassword(str)[br] dim pass[br] checkpassword=true[br] if str <> "" then[br] dim rep[br] set rep = new regexp[br] rep.global = true[br] rep.ignorecase = true[br] '匹配字母、數字、下劃線、點號[br] rep.pattern="[a-za-z0-9_\.]+$"[br] pass=rep.test(str)[br] set rep=nothing[br] if not pass then checkpassword=false[br] end if[br]end function [br][br]'****************************************************[br]'函數名：checkemail[br]'作 用：郵箱格式檢測[br]'參 數：str ----email地址[br]'返回值：true無誤，false有誤[br]'****************************************************[br]public function checkemail(email)[br] checkemail=true[br] dim rep[br] set rep = new regexp[br] rep.pattern="([\.a-za-z0-9_-]){2,10}@([a-za-z0-9_-]){2,10}(\.([a-za-z0-9]){2,}){1,4}$"[br] pass=rep.test(email)[br] set rep=nothing[br] if not pass then checkemail=false[br]end function[/p] [p]'－－－－－－－－－－－－－－信息提示－－－－－－－－－－－－－－－－－－－－－－－－－－－－ [br]'****************************************************[br]'函數名：alert[br]'作 用：彈出對話框提示[br]'參 數：msg ----對話框信息[br]' gourl ----提示后轉向哪里[br]'返回值：無[br]'****************************************************[br] public function alert(msg,gourl)[br] msg = replace(msg,"'","\'")[br] if gourl="" then[br] gourl="history.go(-1);"[br] else[br] gourl="window.location.href='"&gourl&"'"[br] end if[br] response.write ("")[br] response.end[br]end function[/p] [p] '****************************************************[br]'函數名：goback[br]'作 用：錯誤信息提示[br]'參 數：str1 ----信息提示標題[br]' str2 ----信息提示內容[br]' isback ----是否顯示返回[br]'返回值：無[br]'****************************************************[br]public function goback(str1,str2,isback)[br] if str1="" then str1="錯誤信息"[br] if str2="" then str2="請填寫完整必填項目"[br] if isback="" then [br] str2=str2&" 返回重填"[br] else[br] str2=str2[br] end if[br] response.write"

"&str1&"

×

"&str2&"

"[br] response.end[br]end function[/p] [p] '****************************************************[br]'函數名：suc[br]'作 用：成功提示信息[br]'參 數：str1 ----信息提示標題[br]' str2 ----信息提示內容[br]' url ----返回地址[br]'返回值：無[br]'****************************************************[br]public function suc(str1,str2,url)[br] if str1="" then str1="操作成功"[br] if str2="" then str2="成功的完成這次操作！"[br] if url="" then url="javascript:history.go(-1)"[br] str2=str2&"  返回繼續管理"[br] response.write"

"&str1&"

√

"&str2&"

"[br]end function[br][br]'－－－－－－－－－－－－－－安全處理－－－－－－－－－－－－－－－－－－－－－－－－－－－－ [/p] [p]'****************************************************[br]'函數名：chkpost[br]'作 用：禁止站外提交表單[br]'返回值：true站內提交，flase站外提交[br]'****************************************************[br]public function chkpost()[br] dim url1,url2[br] chkpost=true[br] url1=cstr(request.servervariables("http_referer"))[br] url2=cstr(request.servervariables("server_name"))[br] if mid(url1,8,len(url2))<>url2 then[br] chkpost=false[br] exit function[br] end if[br]end function[/p] [p]'****************************************************[br]'函數名：psql[br]'作 用：防止sql注入[br]'返回值：為空則無注入，不為空則注入并返回注入的字符[br]'****************************************************[br]public function psql()[br] psql=""[br] badwords= "'防''防;防and防exec防insert防select防update防delete防count防*防%防chr防mid防master防truncate防char防declare防|"[br] badword=split(badwords,"防")[br] if request.form<>"" then[br] for each tf_post in request.form[br] for i=0 to ubound(badword)[br] if instr(lcase(request.form(tf_post)),badword(i))>0 then[br] psql=badword(i)[br] exit function[br] end if[br] next[br] next[br] end if[br] if request.querystring<>"" then[br] for each tf_get in request.querystring[br] for i=0 to ubound(badword)[br] if instr(lcase(request.querystring(tf_get)),badword(i))>0 then[br] psql=badword(i)[br] exit function[br] end if[br] next[br] next[br] end if[br]end function[/p] [p] '****************************************************[br]'函數名：filtratehtmlcode[br]'作 用：防止生成html代碼 [br]'參 數：str ----字符串[br]'****************************************************[br]public function filtratehtmlcode(str)[br] if not isnull(str) and str<>"" then[br] str=replace(str,chr(9),"")[br] str=replace(str,"|","|")[br] str=replace(str,chr(39),"'")[br] str=replace(str,"<","<")[br] str=replace(str,">",">")[br] str = replace(str, chr(13),"")[br] str = replace(str, chr(10),"")[br] filtratehtmlcode=str[br] end if[br]end function[/p] [p] [/p] [p]'函數名：htmlcode[br]'作 用：過濾html標簽[br]'參 數：str ----字符串[br]'****************************************************[br]public function htmlcode(str)[br] if not isnull(str) and str<>"" then[br] str = replace(str, ">", ">")[br] str = replace(str, "<", "<")[br] str = replace(str, chr(32), " ")[br] str = replace(str, chr(9), " ")[br] str = replace(str, chr(34), """)[br] str = replace(str, chr(39), "'")[br] str = replace(str, chr(13), "")[br] str = replace(str, chr(10), "")[br] str = replace(str, "script", "script")[br] htmlcode = str[br] end if[br]end function[/p] [p] '****************************************************[br]'函數名：replacehtml[br]'作 用：清理html[br]'參 數：tstr ----字符串[br]'****************************************************[br]public function replacehtml(tstr)[br] dim str,re[br] str=tstr[br] set re=new regexp[br] re.ignorecase =true[br] re.global=true[br] re.pattern="<(p|\/p|br)>"[br] str=re.replace(str,vbnewline)[br] re.pattern="]*src(=| )(.[^>]*)>"[br] str=re.replace(str,"[img]$2[/img]")[br] re.pattern="<(.[^>]*)>"[br] str=re.replace(str,"")[br] set re=nothing[br] replacehtml=str[br]end function[/p] [p][br]'－－－－－－－－－－－－－－－獲取客戶端和服務端的一些信息－－－－－－－－－－－－－－－－－－－[/p] [p] '****************************************************[br]'函數名：getip[br]'作 用：獲取客戶端ip地址[br]'返回值：客戶端ip地址[br]'****************************************************[br] public function getip()[br] dim temp[br] temp = request.servervariables("http_x_forwarded_for")[br] if temp = "" or isnull(temp) or isempty(temp) then temp = request.servervariables("remote_addr")[br] if instr(temp,"'")>0 then temp="0.0.0.0"[br] getip = temp[br]end function[/p] [p] '****************************************************[br]'函數名：getbrowser[br]'作 用：獲取客戶端瀏覽器信息[br]'返回值：客戶端瀏覽器信息[br]'****************************************************[br] public function getbrowser()[br] info=request.servervariables(http_user_agent) [br] if instr(info,"netcaptor 6.5.0")>0 then[br] browser="netcaptor 6.5.0"[br] elseif instr(info,"myie 3.1")>0 then[br] browser="myie 3.1"[br] elseif instr(info,"netcaptor 6.5.0rc1")>0 then[br] browser="netcaptor 6.5.0rc1"[br] elseif instr(info,"netcaptor 6.5.pb1")>0 then[br] browser="netcaptor 6.5.pb1"[br] elseif instr(info,"msie 5.5")>0 then[br] browser="internet explorer 5.5"[br] elseif instr(info,"msie 6.0")>0 then[br] browser="internet explorer 6.0"[br] elseif instr(info,"msie 6.0b")>0 then[br] browser="internet explorer 6.0b"[br] elseif instr(info,"msie 5.01")>0 then[br] browser="internet explorer 5.01"[br] elseif instr(info,"msie 5.0")>0 then[br] browser="internet explorer 5.00"[br] elseif instr(info,"msie 4.0")>0 then[br] browser="internet explorer 4.01"[br] else[br] browser="其它"[br] end if[br]end function[/p] [p] '****************************************************[br]'函數名：getsystem[br]'作 用：獲取客戶端操作系統[br]'返回值：客戶端操作系統[br]'****************************************************[br] function getsystem()[br] info=request.servervariables(http_user_agent) [br] if instr(info,"nt 5.1")>0 then[br] system="windows xp"[br] elseif instr(info,"tel")>0 then[br] system="telport"[br] elseif instr(info,"webzip")>0 then[br] system="webzip"[br] elseif instr(info,"flashget")>0 then[br] system="flashget"[br] elseif instr(info,"offline")>0 then[br] system="offline"[br] elseif instr(info,"nt 5")>0 then[br] system="windows 2000"[br] elseif instr(info,"nt 4")>0 then[br] system="windows nt4"[br] elseif instr(info,"98")>0 then[br] system="windows 98"[br] elseif instr(info,"95")>0 then[br] system="windows 95"[br] elseif instr(info,"unix") or instr(info,"linux") or instr(info,"sunos") or instr(info,"bsd") then[br] system="類unix"[br] elseif instr(thesoft,"mac") then[br] system="mac"[br] else[br] system="其它"[br] end if[br]end function[br][br]'****************************************************[br]'函數名：geturl[br]'作 用：獲取url包括參數[br]'返回值：獲取url包括參

該文章在 2010/7/3 14:15:14 編輯過