poll_pl.asp

来自「十分好的音乐网站源码 十分好的音乐网站源码十分好的音乐网站源码十分好的音乐网站」· ASP 代码 · 共 50 行

ASP
50
字号
<!--#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 + =
减小字号Ctrl + -
显示快捷键?