推薦：解析Asp實現Dig程序中的投票ASP做一個dig程序中的投票（有的叫頂一下，踩一下），由於代碼較長，只貼出核心部分：投票中的代碼網頁顯示投票的部分： div class=Vote1script src='/voteResult.asp?id=1action=view'/script/div 效果如圖： 520)this.width=500 border=0>，然後點投一
<%
dwwwStr= <div>dwww.cn</div><div>www.dwww.cn</div>設計家園
dwwwStr= InStrRev(dwwwStr,</div>)
response.write dwwwStr
%>
InstrRev
描述
返回某字符串在另一個字符串中出現的從結尾計起的位置。
文法
InstrRev(string1, string2[, start[, compare]])
InstrRev 函數的語法有以下參數：
參數描述
string1 必選。接受搜索的字符串表達式。
string2 必選。被搜索的字符串表達式。
start 可選。數值表達式，用於設置每次搜索的開始位置。如果省略，則默認值為-1，表示從最後一個字符的位置開始搜索。如果start 包含Null，則出現錯誤。
compare 可選。在計算子字符串時，指示要使用的比較類型的數值。如果省略，將執行二進制比較。有關數值，請參閱設置部分。
設定
compare 參數可以有以下值：
常數Value 描述
vbBinaryCompare 0 執行二進制比較。
vbTextCompare 1 執行文本比較。
vbDatabaseCompare 2 執行基於包含在數據庫（在此數據庫中執行比較）中的信息的比較。
返回值
InStrRev 返回以下值：
如果InStrRev 返回
string1 為零長度0
string1 為Null Null
string2 為零長度start
string2 為Null Null
string2 沒有找到0
在string1 中找到string2 找到匹配字符串的位置
start > Len(string2) 0
說明
請注意InstrRev 函數的語法不同於Instr 函數的語法。
分享：解析如何過濾不文明字符% Function badchar(str) badstr=不文明字符列表，用|分開（因發表時不能含有那些字符，所以不能貼出。） badword=split(badstr,|) For i=0 to Ubound(badword) If instr(str,badword(i)) 0 then badchar=True Exit For Else badchar=False End If Next