<%Set Cn = CreateCn()
Select Case Request("Action")
Case "LoginCheck"
Call LoginCheck()
Case "LoginOut"
Call LoginOut()
Case "EditPsw"
if Session("Gxqid")<>"" then
Call EditPsw()
else
Response.Write ""
end if
Case "SaveEdit"
if Session("Gxqid")<>"" then
Call SaveEdit()
else
Response.Write ""
end if
Case "exit"
Session("UserName") = ""
Session("Gxqid") = ""
Session("Gxqname") = ""
Response.Write ""
response.End()
Case "JsCount"
if Session("Gxqid")=107 then
Call JsCount()
else
Response.Write ""
response.End()
end if
Case Else
if Session("Gxqid")<>"" then
Call resultlist(Session("Gxqid"))
else
Call IsLogin()
end if
End Select
'计算得分
Sub JsCount()
Dim i,j,k
GzNum=0
Gz_sql="select * from assess_gxqtp order by tpnum desc"
set Rs=CreateRs(Cn,Gz_sql)
IF not Rs.eof Then
For i = 1 to Rs.recordcount
if i = 1 then
GzNum = 2
else
GzNum = (Rs("tpnum")-1)/(61570-1)*2
end if
Pyzong=0
Py_sql="select * from assess_result where gxqid ="&Rs("gxqid")
set PyRs=CreateRs(Cn,Py_sql)
if not PyRs.eof then
For j = 1 to PyRs.RECORDCOUNT
Pyzong = Pyzong+PyRs("total")
PyRs.movenext
next
Pyd =pyzong/PyRs.RECORDCOUNT*0.08
end if
DistoryRs(PyRs)
defen = GzNum + Pyd
Cn.Execute "update assess_gxq set result="&defen&" where gxqid = "&Rs("gxqid")
Rs.MOVENEXT
NEXT
end if
DistoryRs(Rs)
Response.Write("")
End Sub
function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then getIP = Request.ServerVariables("REMOTE_ADDR")
end function
Sub SaveEdit()
gxq_sql="select * from assess_gxq where username='"&Session("UserName")&"'"
set Rs=CreateRs(Cn,gxq_sql)
IF not Rs.eof Then
if Rs.recordcount>1 then
Response.Write("")
else
Rs("password")=request("pwd")
end if
Rs.update
end if
DistoryRs(Rs)
Response.Write("")
End Sub
function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" Then getIP = Request.ServerVariables("REMOTE_ADDR")
end function
Sub LoginCheck()
Set CRs = CreateRs(Cn,"select count(id) from assess_userlog where loginip='"&getIP()&"' and DATEDIFF(day, logintime, '"&now()&"')=0 and isnot=0")
if CRs(0)>10 then
Response.Write("")
response.End()
end if
DistoryRs(CRs)
Dim A_PWD,PassWord,UserName,artYzm,SqlStr,RS,act,CheckMode
UserName =trim(chkhtm(Request.Form("user")))
PassWord =trim(chkhtm(Request.Form("pwd")))
gxq_sql="select * from assess_gxq where username='"&UserName&"'"
set RS=CreateRs(Cn,gxq_sql)
IF Rs.eof And Rs.bof Then
Cn.Execute "insert into assess_userlog (logintime,loginip,Isnot) values('"&now()&"','"&getIP()&"',0)"
DistoryRs(Rs)
DistoryCn(Cn)
Response.Write("")
Response.End
end if
set Rs=CreateRs(Cn,"select * from assess_gxq where username='"&UserName&"' and password='"&PassWord&"'")
IF Rs.eof And Rs.bof Then
Cn.Execute "insert into assess_userlog (logintime,loginip,Isnot) values('"&now()&"','"&getIP()&"',0)"
DistoryRs(Rs)
DistoryCn(Cn)
Response.Write("")
Response.End
else
Cn.Execute "insert into assess_userlog (logintime,loginip,Isnot) values('"&now()&"','"&getIP()&"',1)"
Session("UserName") = UserName
Session("Gxqid") = Rs("Gxqid")
Session("Gxqname") = Rs("gxqname")
GxqId = Rs("gxqid")
Response.Redirect "surver.asp"
end if
End Sub
%>
<%Sub IsLogin()%>
<%End Sub%>
<%Sub EditPsw()%>
"
%>
<%End Sub%>
高新区帐户 > 重设帐户密码
<%End Sub%>
<%
Sub resultlist(GxqId)
response.Write "- 高新区名称 评议人员 " result_sql="select * from assess_result where gxqid="&GxqId set ReRS=CreateRs(Cn,result_sql) if ReRS.eof then '判断是否有公众评议 if Session("Gxqid")=107 then response.Write("") else response.Write("
- "&ReRs("gxqname")&" "&ReRs("pyuser")&"" ReRS.movenext next'逐一查询结束 end if DistoryRs(ReRS) response.Write "
暂无人员添加公众评议!添加公众评议
")
end if
else '有公众评议
For i = 1 to ReRS.recordcount
response.Write "