admin_comment.asp

个人网站比较简短

                Response.Write "√"
            Else
                Response.Write "<font color='red'>×</font>"
            End If
            Response.Write "</td>"
            Response.Write "                <td width='150' align='center'>"
            If rs("ReplyContent") <> "" Then
                Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
            Else
                Response.Write "<a href='" & strFileName & "&Action=Reply&CommentID=" & rs("CommentID") & "'>回复</a>&nbsp;"
            End If
            Response.Write "<a href='" & strFileName & "&Action=Modify&CommentID=" & rs("CommentID") & "'>修改</a>&nbsp;"
            Response.Write "<a href='" & strFileName & "&Action=Del&CommentID=" & rs("CommentID") & "' onclick=""return confirm('确定要删除此评论吗？');"">删除</a>&nbsp;"
            If rs("Passed") = True Then
                Response.Write "<a href='" & strFileName & "&Action=CancelPassed&CommentID=" & rs("CommentID") & "'>取消通过</a>"
            Else
                Response.Write "<a href='" & strFileName & "&Action=SetPassed&CommentID=" & rs("CommentID") & "'>通过审核</a>"
            End If
            Response.Write "                </td>"
            Response.Write "              </tr>"
            If rs("ReplyContent") <> "" Then
                Response.Write "            <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
                Response.Write "              <td align='center'>&nbsp;</td>"
                Response.Write "              <td align='center'>&nbsp;</td>"
                Response.Write "              <td colspan='2' align='left'>[管理员] " & rs("ReplyName") & " 于 " & rs("ReplyTime") & " 回复：<br>"
                Response.Write rs("ReplyContent")
                Response.Write "</td><td align='center'>"
                Response.Write "<a href='" & strFileName & "&Action=Reply&CommentID=" & rs("CommentID") & "'>修改</a>&nbsp;"
                Response.Write "<a href='" & strFileName & "&Action=DelReply&CommentID=" & rs("CommentID") & "' onclick=""return confirm('确定要删除此评论的管理员回复吗？');"">删除</a>&nbsp;&nbsp;&nbsp;&nbsp;"
                Response.Write "</td>"
                Response.Write "              </tr>"
            End If
            CommentNum = CommentNum + 1
            If CommentNum >= MaxPerPage Then Exit Do
            PrevID = rs("ObjectID")
            iTemp = iTemp + 1
            rs.MoveNext
        Loop
        Response.Write "            </table>"
        Response.Write "          </td>"
        Response.Write "        </tr>"
        Response.Write "      </table>"
        Response.Write "      <table width='100%' border='0' cellpadding='0' cellspacing='0'>"
        Response.Write "        <tr>"
        Response.Write "          <td width='200' height='30'>"
        Response.Write "            <input name='chkAll' type='checkbox' id='chkAll' onclick=CheckAll(this.form) value='checkbox'>"
        Response.Write "            选中本页显示的所有评论"
        Response.Write "          </td>"
        Response.Write "          <td>"
        Response.Write "<input name='submit' type='submit' value='删除选定的评论'>&nbsp;&nbsp;"
        If Keyword <> "" And strField = "CommentName" Then
            Response.Write "<input name='submitUser' type='submit' value='删除" & Keyword & "全部评论'>&nbsp;&nbsp;"
            Response.Write "<input name='CommentUser' type='hidden' id='CommentUser' value='" & Keyword & "'>"
            Response.Write "<input name='Action' type='hidden' id='Action' value='DelUser'>"
        Else
            Response.Write "<input name='Action' type='hidden' id='Action' value='Del'>"
        End If
        Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='SetPassed'"" value='审核通过选定的评论'>&nbsp;&nbsp;"
        Response.Write "<input name='submit2' type='submit' id='submit2' onClick=""document.myform.Action.value='CancelPassed'"" value='取消审核选定的评论'>"
        Response.Write "          </td>"
        Response.Write "        </tr>"
        Response.Write "      </table>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  </form>"
    Response.Write "</table>"
    If totalPut > 0 Then
        Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个评论", True)
    End If
    rs.Close
    Set rs = Nothing
    Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0' class='border'>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "   <td width='80' align='right'><strong>评论搜索：</strong></td>"
    Response.Write "   <td>" & GetCommentSearch() & "</td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
End Sub

Sub Modify()
    Dim rs, sql
    Dim CommentID
    CommentID = PE_CLng(Trim(Request("CommentID")))
    If CommentID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定评论ID</li>"
        Exit Sub
    End If
    sql = "Select * from PE_Comment where CommentID=" & CommentID
    Set rs = Server.CreateObject("Adodb.RecordSet")
    rs.Open sql, Conn, 1, 1
    If rs.BOF Or rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的评论！</li>"
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If

    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' style='word-break:break-all;Width:fixed'>"
    Response.Write "  <form name='myform' method='post' action='" & strFileName & "'>"
    Response.Write "  <tr align='center' class='title'>"
    Response.Write "    <td height='22' colspan='4'> <strong>修 改 评 论 </strong>&nbsp;&nbsp;"
    If rs("UserType") = 1 Then
        Response.Write "（会员模式）"
    Else
        Response.Write "（游客模式）"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    If rs("UserType") = 0 Then
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论人姓名：</td>"
        Response.Write "    <td class='tdbg' width='200'>"
        Response.Write "      <input name='UserName' type='text' id='UserName' maxlength='16' value='" & rs("UserName") & "'>"
        Response.Write "    </td>"
        Response.Write "    <td class='tdbg' align='right' width='101'>评论人Oicq：</td>"
        Response.Write "    <td class='tdbg' width='475'>"
        Response.Write "      <input name='Oicq' type='text' id='UserName' maxlength='15' value='" & rs("Oicq") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论人性别：</td>"
        Response.Write "    <td class='tdbg' width='200'>"
        Response.Write "      <input type='radio' name='Sex' value='1' checked style='BORDER:0px;'>"
        Response.Write "      男&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
        Response.Write "      <input type='radio' name='Sex' value='0' style='BORDER:0px;'>"
        Response.Write "      女 </td>"
        Response.Write "    <td class='tdbg' align='right' width='101'>评论人 Icq：</td>"
        Response.Write "    <td class='tdbg' width='475'>"
        Response.Write "      <input name='Icq' type='text' id='UserName'  maxlength='15' value='" & rs("Icq") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论人Email：</td>"
        Response.Write "    <td class='tdbg' width='200'>"
        Response.Write "      <input name='Email' type='text' id='UserName' maxlength='40' value='" & rs("Email") & "'>"
        Response.Write "    </td>"
        Response.Write "    <td class='tdbg' align='right' width='101'>评论人 Msn：</td>"
        Response.Write "    <td class='tdbg' width='475'>"
        Response.Write "      <input name='Msn' type='text' id='UserName' maxlength='40' value='" & rs("Msn") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论时间：</td>"
        Response.Write "    <td class='tdbg' width='200'>"
        Response.Write "      <input name='WriteTime' type='text' id='WriteTime' value='" & rs("WriteTime") & "'>"
        Response.Write "    </td>"
        Response.Write "    <td class='tdbg' align='right' width='101'>评论人IP：</td>"
        Response.Write "    <td class='tdbg' width='475'>"
        Response.Write "      <input name='IP' type='text' id='IP'  maxlength='15' value='" & rs("IP") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论人主页：</td>"
        Response.Write "    <td class='tdbg' colspan='3'>"
        Response.Write "      <input name='Homepage' type='text' id='UserName' maxlength='60' value='"
        If rs("Homepage") = "" Then
            Response.Write "http://"
        Else
            Response.Write rs("Homepage")
        End If
        Response.Write "' size='66'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
    Else
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论人姓名：</td>"
        Response.Write "    <td class='tdbg' colspan='3'>"
        Response.Write "      <input name='ShowUserName' type='text' id='UserName' value='" & rs("UserName") & "' disabled>"
        Response.Write "      <input name='UserName' type='hidden' id='UserName' value='" & rs("UserName") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
        Response.Write "  <tr>"
        Response.Write "    <td width='200' align='right' class='tdbg'>评论时间：</td>"
        Response.Write "    <td class='tdbg' width='200'>"
        Response.Write "      <input name='WriteTime' type='text' id='WriteTime' value='" & rs("WriteTime") & "'>"
        Response.Write "    </td>"
        Response.Write "    <td class='tdbg' align='right' width='101'>评论人IP：</td>"
        Response.Write "    <td class='tdbg' width='475'>"
        Response.Write "      <input name='IP' type='text' id='IP' maxlength='15' value='" & rs("IP") & "'>"
        Response.Write "    </td>"
        Response.Write "  </tr>"
    End If
    Response.Write "  <tr>"
    Response.Write "    <td width='200' align='right' class='tdbg'>评 分：</td>"
    Response.Write "    <td class='tdbg' colspan='3'>"
    Response.Write "      <input type='radio' name='Score' value='1' "
    If rs("Score") = 1 Then Response.Write " checked"
    Response.Write "      >1分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "      <input type='radio' name='Score' value='2' "
    If rs("Score") = 2 Then Response.Write " checked"
    Response.Write "      >2分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "      <input type='radio' name='Score' value='3' "
    If rs("Score") = 3 Then Response.Write " checked"
    Response.Write "      >3分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "      <input type='radio' name='Score' value='4' "
    If rs("Score") = 4 Then Response.Write " checked"
    Response.Write "      >4分&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "      <input type='radio' name='Score' value='5' "
    If rs("Score") = 5 Then Response.Write " checked"
    Response.Write "      >5分 </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr>"
    Response.Write "    <td width='200' align='right' class='tdbg'>评论内容：</td>"
    Response.Write "    <td class='tdbg' colspan='3'>"
    Response.Write "      <textarea name='Content' cols='56' rows='8' id='Content'>" & PE_ConvertBR(rs("Content")) & "</textarea>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr align='center'>"
    Response.Write "    <td height='30' colspan='4' class='tdbg'>"
    Response.Write "      <input name='ComeUrl' type='hidden' id='ComeUrl' value='" & ComeUrl & "'>"
    Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveModify'>"
    Response.Write "      <input name='CommentID' type='hidden' id='CommentID' value='" & rs("CommentID") & "'>"
    Response.Write "      <input name='UserType' type='hidden' id='UserType' value='" & rs("UserType") & "'>"
    Response.Write "      <input  type='submit' name='Submit' value=' 保存修改结果 '>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  </form>"
    Response.Write "</table>"
    rs.Close
    Set rs = Nothing
End Sub

Sub Reply()
    Dim rs, sql
    Dim CommentID
    CommentID = PE_CLng(Trim(Request("CommentID")))
    If CommentID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定评论ID</li>"
        Exit Sub
    End If
    
    Select Case ModuleType
    Case 1
        sql = "select I.Title as Title"
    Case 2
        sql = "select I.SoftName as Title"
    Case 3
        sql = "select I.PhotoName as Title"
    Case 5
        sql = "select I.ProductName as Title"
    Case 6
        sql = "Select I.SupplyTitle as Title"
    End Select
    sql = sql & ",C.CommentID,C.UserName,C.IP, C.Content,C.WriteTime,C.ReplyContent"
    sql = sql & " from PE_Comment C Left Join " & SheetName & " I On C.InfoID=I." & ModuleName & "ID where C.CommentID=" & CommentID
    
    Set rs = Server.CreateObject("Adodb.RecordSet")
    rs.Open sql, Conn, 1, 1
    If rs.BOF Or rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的评论！</li>"
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If
    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border' style='word-break:break-all;Width:fixed'>"
    Response.Write "  <form method='post' action='" & strFileName & "' name='myform'>"