vote.asp

媒体中国-设计联盟

<% 
'=========================================================
' File: vote.asp
' Version:2.0test
' Date: 2002-12-21
' Script Written by Icyn
'=========================================================
' Copyright (C) 2002,2003 Icyn.Net All rights reserved.
' Web: http://pwc.icyn.net,http://bbs.icyn.net,http://icyn.net
' Email: [e-mail],[e-mail]
' QQ:15477885
'=========================================================
 %><!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<%
siteid=CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select votecount,pickvote,pickid from zkpick where pickid="&siteid,conn,1,3
if not (rs.bof and rs.eof) then
rs("votecount")=rs("votecount")+1
rs("pickvote")=rs("pickvote")+CLng(request.form("ps"))
  rs.update
end if
  response.redirect "index.asp"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>