解析Asp實現Dig程序中的投票(3)_ASP教程

推薦：解析如何過濾不文明字符
% 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

js代碼:

var http_request = false;
function send_request(url,votei) {//初始化、指定處理函數、發送請求的函數
http_request = false;
//開始初始化XMLHttpRequest對象
if(window.XMLHttpRequest) { //Mozilla 瀏覽器
http_request = new XMLHttpRequest();
if (http_request.overrideMimeType) {//設置MiME類別
http_request.overrideMimeType('text/xml');
}
}
else if (window.ActiveXObject) { // IE瀏覽器
try {
http_request = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
http_request = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}
if (!http_request) { // 異常，創建對象實例失敗
window.alert("不能創建XMLHttpRequest對象實例.");
return false;
}

http_request.onreadystatechange = function(){processRequest(votei)};

// 確定發送請求的方式和URL以及是否同步執行下段代碼
http_request.open("post", url, true);
http_request.send(null);

}
// 處理返回信息的函數
function processRequest(votei) {
if (http_request.readyState == 4) { // 判斷對象狀態
if (http_request.status == 200) { // 信息已經成功返回，開始處理信息
//alert(http_request.responseText);

document.getElementById('result_'+votei).innerHTML=http_request.responseText;;
document.getElementById('result_link_'+votei).innerHTML = "投票成功";

} else { //頁面不正常
alert("您所請求的頁面有異常。");
}
}
}
function dovote(votei)
{
var votei=votei;
send_request('/voteResult.asp?id='+escape(votei),votei);
}

function getObj(objName){return(document.getElementById(objName));}

分享：ASP調用純真IP庫實例
% ' ============================================ ' 返回IP信息 Disp_IPAddressData(IP,0) ' ============================================ Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' 設置類對象 Set Wry = New TQQWry ' 開始搜