📄 gowldc.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="ex.css" rel="stylesheet" type="text/css">
<title>网络调查</title>
</head>
<body>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr bgcolor="f1f1f1">
<td align="center">调查结果</td>
</tr>
<tr bgcolor="f1f1f1">
<td>
<%
on error resume next
dim rst,rsm
set rs=server.CreateObject("adodb.recordset")
sql="select * from wldc where dcbegin=true order by id desc"
rs.open sql,conn,1,3
rst=split(trim(rs("dcrst")),",,,")
if request("ditem")="add" then
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
if trim(rs("dcip"))<>"" then
exip=split(rs("dcip"),",,,")
if ubound(exip)<>-1 then
for ipi=lbound(exip) to ubound(exip)
if exip(ipi)=userip then
response.write "您已经投过票了<br><a href=gowldc.asp>查看结果</a></td></tr></table></body></html>"
set conn=nothing
response.end
exit for
end if
next
end if
end if
newIp=""
newIp=rs("dcip")&userip&",,,"
for each item in request.form("mkdci")
rst(item)=cint(rst(item))+1
next
if request.form("mkdci")<>"" then
rs("dcip")=newIp '更新投票地址
rs("dcrst")= Join(rst,",,,") '更新投票
else
response.write "您没有投票</td></tr><tr bgcolor='f1f1f1'><td>"
end if
rs.update
end if
'response.write Join(rst,",,,")&"<br>--------<br>"
showrst rs("id")
rs.close()
set rs=nothing
'========================================================================================================
function showrst(mnum)
on error resume next
set ss=conn.execute("select * from wldc where id="&cint(mnum))
rst1=split(trim(ss("dcrst")&"0"),",,,")
rsm1=split(trim(ss("dcitem")),",,,")
aStr=Lbound(rsm1)
aEnd=Ubound(rsm1)-1
rsnum=0
for j=aStr to aEnd
rsnum=rsnum + cint(rst1(j))
next
kmgs=""
kmg="<img border='0' src='images/dcline.gif'>"
for i=aStr to aEnd
kmgs=""
lstmg=cint(rst1(i))/rsnum*100
for k=1 to lstmg
kmgs=kmgs&kmg
next
response.write "<a title='"&rsm1(i)&"'>"&i+1&"．</a> <a title='票数"&rst1(i)&"/"&rsnum&"'>"&kmgs&"</a><br>"
next
set ss=nothing
if err.number<>0 then
err.clear
end if
end function
%>
</td>
</tr>
</table>
</body>
</html>
<% set conn=nothing %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -