<% Select Case Request("Action") Case "SubCount" Call SubCount() Case Else Call Surver() End Select function getIP() getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If getIP = "" Then getIP = Request.ServerVariables("REMOTE_ADDR") end function Sub SubCount() 'if Request.Cookies("mycookie")("votetimes")<>"" then ' if Request.Cookies("mycookie")("votetimes")>10 then '' Response.Write "" response.End() end if DistoryRs(Rs) if session("code")<>int(request.Form("code")) then Response.Write "" response.End() end if 'sql="select * from assess_result where gxqid="&Session("Gxqid")'每个高新区最多提交10个评议 'set Rs=CreateRs(Cn,sql) 'if Rs.recordcount>9 then ' Response.Write "" response.End() End Sub Sub Surver() %>

<% surver_sql="select * from assess_surver where parentid=42 order by sid asc" set RsSur=CreateRs(Cn,surver_sql) if not RsSur.eof then ' For i = 1 to RsSur.recordcount %> <% sub_sql="select * from assess_surver where parentid="&RsSur("sid")&" order by sid desc" set RsSub=CreateRs(Cn,sub_sql) if not RsSub.eof then ' For j = 1 to RsSub.recordcount %> <% RsSub.movenext next'逐一查询结束 end if DistoryRs(RsSub) RsSur.movenext next'逐一查询结束 end if DistoryRs(RsSur) %>

国家高新区门户网站综合影响力用户评议表
高新区全称： 　*注：在输入提示区选择高新区。
评价项目	评价内容	评价水平
		满意	较满意	基本满意	不满意
		评价价值
		4	3	2	1
<%=RsSur("survertitle")%>	<%=RsSur("survercontent")%>	" type="radio" value="4" />	" type="radio" value="3" />	" type="radio" value="2" />	" type="radio" value="1" />
<%=RsSub("survertitle")%>	<%=RsSub("survercontent")%>	" type="radio" value="4" />	" type="radio" value="3" />	" type="radio" value="2" />	" type="radio" value="1" />

*姓名： 　注：每个评议员只能评选一次。

*性别： 男 　　 女

*所在单位：

*职务：

*请输入手机号：

请输入获取到的验证码：

<%End Sub%>