


下載本文檔
版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、 CheckString=Replace(CheckString,"'","'")select case CheckTypecase 0 CheckString=trim(CheckString) SafeCheck=Left(CheckString,CheckLength)case 1 if not isnumberic(CheckString) then SafeCheck=ErrorRoot&"00002"
2、 exit function else SafeCheck=Left(CheckString,CheckLength) end ifcase 2 tempVar=IsDate(CheckString) if Not TempVar then SafeCheck=ErrorRoot&"00003" exit function else select case CheckLength case 0 SafeCheck=FormatDate
3、Time(CheckString,vbShortDate) case 1 SafeCheck=FormatDateTime(CheckString,vbLongDate) case 2 SafeCheck=CheckString end select end ifcase 3 tempVar=FormatCurrency(CheckString,0) if Err then SafeCheck=ErrorRoot&"00004"
4、exit function else SafeCheck=FormatCurrency(CheckString,CheckLength) end ifcase 4 sTemp = CheckString If IsNull(sTemp) = True Then SafeCheck=ErrorRoot&"00005" Exit Function End If sTemp = Replace(sTemp, "&", "&"
5、;) sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, Chr(34), """) sTemp = Replace(sTemp, Chr(10), "<br>") SafeCheck = Left(sTemp,CheckLength)case 5
6、;sTemp = CheckString If IsNull(sTemp) = True Then SafeCheck=ErrorRoot&"00006" Exit Function End If sTemp = Replace(sTemp, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, "&
7、gt;", ">") sTemp = Replace(sTemp, """, Chr(34) sTemp = Replace(sTemp, "<br>",Chr(10) SafeCheck = Left(sTemp,CheckLength)case 6 s_BadStr = "' &<>?%,;:()'!#$*|+-=" & Chr(34) & Chr(9) & Chr(32)&
8、#160;n = Len(s_BadStr) IsSafeStr = True For i = 1 To n If Instr(CheckString, Mid(s_BadStr, i, 1) > 0 Then IsSafeStr = False End If Next if IsSafeStr then SafeCheck=left(CheckString,CheckLength) else SafeCheck=ErrorRoot&"00007&q
9、uot; Exit Function end ifcase 7 s_Filter="net user|xp_cmdshell|/add|select|count|asc|char|mid|'|""|" S_Filter=S_Filter&"insert|delete|drop|truncate|from|%|declare|-" S_Filters=split(S_Filter,"|") isFound=false for i=0 to ubound(S_Filters)-1 if Instr(lcase(CheckString),lcase(S_Filters(i)<>0 then isFound=true exit for end if next if isFound then
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 【正版授權】 IEC 61987-41:2025 EN-FR Industrial-process measurement and control - Data structures and elements in process equipment catalogues - Part 41: Lists of properties (LOPs) of pr
- 2025年食品安全與風險控制專業(yè)知識測試試卷及答案
- 2025年物業(yè)管理師職業(yè)考試試卷及答案
- 2025年傳媒與傳播學考試題目及答案
- 2025年計算機基礎知識測試試題及答案
- 三人合伙買車協(xié)議書
- 萬科物業(yè)安全題庫及答案
- 七步洗手法試題及答案
- 七個模塊面試題及答案
- 租臨場地合同協(xié)議書
- 線上陪玩店合同協(xié)議
- 蓉城小史官考試試題及答案
- 中美關稅貿(mào)易戰(zhàn)
- 中華人民共和國農(nóng)村集體經(jīng)濟組織法
- 中華傳統(tǒng)文化之文學瑰寶學習通超星期末考試答案章節(jié)答案2024年
- MOOC 中國電影經(jīng)典影片鑒賞-北京師范大學 中國大學慕課答案
- 醫(yī)院小型壓力蒸汽滅菌器的使用及管理
- 公司管理制度:格林美管理手冊
- 國儲銅事件的分析.
- 高績效班組打造(課堂PPT)
- 汽車維修管理制度管理辦法匯編
評論
0/150
提交評論