?? voteset.asp
字號:
<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call opendatabase
%>
<%
dim Checked,sql,rs
Checked=request.form("Checked")
if Checked="" then
response.write "<script>alert('對不起,請您選擇投票項!');history.go(-1);</Script>"
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="Select isChecked from vote1 where IsChecked=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("IsChecked")=0
rs.movenext
loop
end if
rs.close
sql="Select IsChecked from vote1 where ID="&Checked
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("isChecked")=1
rs.MoveNext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "voteManage.asp"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -