


下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
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)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 公司物資大比拼活動(dòng)方案
- 公司新年猜謎語活動(dòng)方案
- 公司氣氛活動(dòng)方案
- 公司茶點(diǎn)活動(dòng)方案
- 公司旅游北京策劃方案
- 公司線上抽獎(jiǎng)活動(dòng)方案
- 公司節(jié)日策劃方案
- 公司自助聚餐活動(dòng)方案
- 公司甜點(diǎn)活動(dòng)方案
- 公司百人以上團(tuán)建活動(dòng)方案
- 2025年陜西、山西、青海、寧夏高考政治試卷真題(含答案解析)
- 2025年 中國南水北調(diào)集團(tuán)新能源投資公司第一批中層及考試筆試試卷附答案
- 期末試卷(五)(含答案含聽力原文無聽力音頻)-2024-2025學(xué)年人教PEP版英語(新教材)三年級下冊
- 3.21 明清時(shí)期的科技與文化 課件 2024-2025學(xué)年統(tǒng)編版七年級歷史下冊
- 養(yǎng)老護(hù)理員四級考試題庫及答案
- 2024年中國中小企業(yè)融資發(fā)展報(bào)告
- 辦公室內(nèi)控管理制度
- 2025年高二語文下學(xué)期期末考試語言文字運(yùn)用專項(xiàng)練習(xí)含答案解析
- 2024-2025 學(xué)年八年級英語下學(xué)期期末模擬卷 (蘇州專用)原卷
- 安徽省宿州市碭山縣2023-2024學(xué)年八年級下學(xué)期期末數(shù)學(xué)試題
- 2024-2025 學(xué)年七年級英語下學(xué)期期末模擬卷 (深圳專用)原卷
評論
0/150
提交評論