📄 poll_pl.asp
字号:
<!--#include file=conn/adodb.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
.fontt {
font-size: 10pt;
text-decoration: none;
}
-->
</style>
</head>
<body>
<%
dim tp,bb,rs,bs
tp=request.form("tp")
dim sql,sl
set rs=createobject("adodb.recordset")
sql="select * from poll order by timm desc"
rs.open sql,db,1,1
set bs=createobject("adodb.recordset")
if tp=rs("content1") then
sl="update poll set pj1=pj1+1 where content1='"&tp&"'"
elseif tp=rs("content2") then
sl="update poll set pj2=pj2+1 where content2='"&tp&"'"
elseif tp=rs("content3") then
sl="update poll set pj3=pj3+1 where content3='"&tp&"'"
elseif tp=rs("content4") then
sl="update poll set pj4=pj4+1 where content4='"&tp&"'"
elseif tp=rs("content5") then
sl="update poll set pj5=pj5+1 where content5='"&tp&"'"
end if
db.execute(sl)
response.write"<SCRIPT language=JavaScript>alert('投票成功,按确定返回！');"
response.write"this.location.href='index.asp';</SCRIPT>"
response.end
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -