解析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数据库视频教程