ballot_a.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 27 行

<!--#include file="conn.asp" -->
<%

id=request.form("cdid")
If(id<>"") Then
id=Split(id,",")
	If(request.Cookies("a125_tp_news")="yes") Then
		avert="yes"
		Response.Write "&avert="& avert
	else
		For Each myid In id
			If(myid<>"") Then		
			sql="update a125_tp_news set hit=hit+1 where id="& intSql(myid)
				set rs=conn.execute(sql)
			End if
		next
			Response.Cookies("a125_tp_news").Expires=Date+myday
			Response.Cookies("a125_tp_news")="yes"
			avert="no"
	End if
	Response.Write "&avert="& avert
End if
rs.close
set rs=nothing
CONN.close
set conn=nothing	
%>