jz_display.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%
  Set conn=Server.CreateObject("ADODB.Connection")
  conn.open ConnStr
  IF Request.Form("IsSub")="YES" THEN
    SS=Request.Form("SS")  '家族序号
    Set rs=conn.execute("Select Limit From Gq_Jzdata Where ID="&SS) 
	Limit=Cint(rs(0))
    rs.close
    No_Ok=False
    IF Limit=2 THEN
      IF Request.Cookies("cycoo_No_"&SS)="DONE" THEN
	       No_Ok=True

      ELSE
			Response.Cookies("cycoo_No_"&SS) = "DONE" 
			Response.Cookies("cycoo_No_"&SS).Expires = date()+1 '设置cookie的过期日
      END IF
    END IF

    IF No_Ok=True THEN
       Response.write "<script>alert('谢谢你对该家族的支持\n\n请一天内不要重复投票！');javascript:window.close()</script>" '这里自己可以设置下面基本上都不用改了
    ELSE
      FOR each id IN Request.Form("rc")
        conn.execute "Update Gq_Jzdata Set hits=hits+1 where ulock<>0 and id="&id
      NEXT
rs.close
set rs=nothing
Response.write "<script>alert('谢谢你对该家族的支持');javascript:window.close()</script>" 
    END IF
    Response.write "<Script language=JavaScript>window.open('Cycoo_VoteView.asp?ID="&SS&"','','width=420,height=350,scrollbars=yes');window.close();</Script>"
  END IF
call CloseConn()
%>