?? vote.asp
字號:
<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
response.buffer=ture
dim selected,bselect
bselect=request("selected")
if bselect<>"" then
if not isnumeric(bselect) or len(bselect)>10 then
errmsg=errmsg+"<br>"+"<li>非法提交!。"
call error()
response.end
end if
else
errmsg=errmsg+"<br>"+"<li>您還沒有選擇!。"
call error()
response.end
end if
if DateDiff("s",request.cookies("soonvote")("regtime"),Now())<cint(RegTime) then
ErrMsg=ErrMsg+"<Br>"+"<li>請不要重復(fù)投票!"
call error()
response.end
else
call conned()
sql="update vote set bselectnumber = bselectnumber+1 WHERE id="&bselect
conn.execute(sql)
Conn.Close
Set Conn=Nothing
response.cookies("soonvote").expires="3/1/2003"
response.cookies("soonvote")("regtime")=now()
successmess="您的投票已經(jīng)成功提交"
call successback()
end if
'==========================================
'程序制做:迅捷網(wǎng)絡(luò). http://www.soonhost.com
'迅捷主機(jī)網(wǎng) -- 域名注冊、主機(jī)租用、網(wǎng)站建設(shè)、腳本開發(fā)
'網(wǎng)址:http://www.soonhost.com
'msn:soonhost@hotmail.com
'請保留以上版權(quán)信息,謝謝合作!
'==========================================
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -