解析Asp實現Dig程序中的投票(2)_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

vote=rs("vote")+1
conn.execute ("update dwww_news set vote=vote+1 where news_id="&request("id")&"")

response.write ""&vote&""
end If

end if

rs.close()
Set rs=Nothing

'關閉數據庫代碼省略
%>

其中程序中用到的css代碼:

voteBg.gif 圖片

.Vote1{float:left;width:54px;height:71px;background:url(/images/voteBg.gif);margin:0 5 0 0;text-align:center; }
.DivAllShow2 .Vote1{float:left;width:54px;height:71px;background:url(/images/voteBg.gif);margin:6 5 0 0;text-align:center; }
.vote1 div{height:44px;line-height:44px;font-size:18px; font-weight:bold;font-family:Georgia;color:#333333;}
.result a:link{font-size:18px; font-weight:bold;text-decoration:none;}
.result a:visited {font-size:18px; font-weight:bold;text-decoration:none;}
.result a:hover {font-size:18px; font-weight:bold;text-decoration:none;}
.Vote1 span{height:20px;line-height:20px;color:#CE4A02;margin:5 0 0 0;}
.result_link a:link{color:#CE4A02;text-decoration:none;}
.result_link a:visited {color:#CE4A02;text-decoration:none;}
.result_link a:hover {color:#CE4A02;text-decoration:none;}

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

ASP視頻教程

ASP系列課程從入門到精通教程打包下載  黑鷹ASP視頻教程下載  黑鷹基地ASP特訓班教程  FIF ASP互動視頻VIP教程下載  輕輕松松學編程！FIF小組ASP互動視頻教程  ASP操作ACCESS數據庫視頻教程