listreport.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

                ImgSerial = ImgSerial + 1
                If ImgSerial > 9 Then ImgSerial = 1
            Loop
            Response.Write "                        <td width='20'></td>" & vbCrLf
            Response.Write "                        <td>" & vbCrLf
            
            Response.Write "                          <table  cellpadding='1' cellspacing='1' class='border'>" & vbCrLf
            rs1.MoveFirst
            ImgSerial = 1
            Dim RowsCount
            RowsCount = 1
            Do While Not rs1.EOF
                Response.Write "                         <tr>" & vbCrLf
                Response.Write "                            <td>" & vbCrLf
                Response.Write "                              <img  src='Images/Survey" & ImgSerial & ".gif' height='8' width='10'> " & rs1("AnswerContent")
                Response.Write "                         </tr>" & vbCrLf
                If RowsCount Mod 6 = 0 Then
                    Response.Write "</table>" & vbCrLf
                    Response.Write "<td width='10'></td>" & vbCrLf
                    Response.Write "<td>" & vbCrLf
                    Response.Write "  <table  cellpadding='1' cellspacing='1' class='border'>" & vbCrLf
                End If
                rs1.MoveNext
                ImgSerial = ImgSerial + 1
                If ImgSerial > 9 Then ImgSerial = 1
                RowsCount = RowsCount + 1
            Loop
            Response.Write "                           </table>" & vbCrLf

            Response.Write "                         </td>" & vbCrLf
            Response.Write "                        <td width='10'></td>" & vbCrLf
            Response.Write "                      </tr></table>" & vbCrLf
            Response.Write "                    </td>" & vbCrLf
            Response.Write "                  </tr>" & vbCrLf
            Response.Write "                </table></td>" & vbCrLf
            Response.Write "               </tr>" & vbCrLf
            Response.Write "            </table>" & vbCrLf
            Response.Write "          </td>" & vbCrLf
            Response.Write "        </tr>" & vbCrLf
            End If
            rs1.Close
            Set rs1 = Nothing

            Select Case rs("InputType")
            Case 0
            Case 1, 2
                Set Rs2 = Server.CreateObject("adodb.recordset")
                Rs2.open "Select InputContent From PE_SurveyInput Where QuestionID=" & rs("QuestionID") & " And SurveyID=" & SurveyID, conn, 1, 3
                If Rs2.EOF Or Rs2.BOF Then
                Else
                    Response.Write "  <tr>"
                    Response.Write "    <td class='tdbg' colspan='4'>"
                    If rs("InputType") = 1 Then
                        Response.Write "<a href='ListReport.asp?Action=ShowContent&QuestionID=" & rs("QuestionID") & "&SurveyID=" & SurveyID & "' target='_blank'>"
                        Response.Write " （单行输入）内容</a></td>"
                    Else
                        Response.Write "<a href='ListReport.asp?Action=ShowContent&QuestionID=" & rs("QuestionID") & "&SurveyID=" & SurveyID & "' target='_blank'>"
                        Response.Write " （多行输入）内容</a></td>"
                    End If
                    Response.Write "    </td>"
                    Response.Write "  </tr>"
                End If
                Rs2.Close
                Set Rs2 = Nothing
            End Select
            Response.Write "</table><br>"
        End Select
        j = j + 1
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Sub ShowContent()
    Dim rs, arrContent, i, j, sql, Other, Answer, Querysql, QuestionContent
    Dim QuestionID, SurveyID
    Dim SearchType, KeyWord
    Dim totalPut, CurrentPage, MaxPerPage, strNavigation, strFileName
    QuestionID = PE_CLng(Request("QuestionID"))
    SurveyID = PE_CLng(Request("SurveyID"))
    SearchType = Trim(Request("SearchType"))
    KeyWord = ReplaceBadChar(Request("KeyWord"))
    CurrentPage = PE_CLng(Trim(Request("page")))
    If CurrentPage = 0 Then CurrentPage = 1
    MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
    If MaxPerPage <= 0 Then MaxPerPage = 20
    strFileName = "ListReport.asp?Action=ShowContent&QuestionID=" & QuestionID & "&SurveyID=" & SurveyID & "&KeyWord=" & KeyWord & "&SearchType=" & SearchType
    sql = "select * from PE_SurveyRecord" & SurveyID
    Querysql = " where 1=1"
    If SearchType <> "" And KeyWord <> "" Then
        If SearchType = "QuestionContent" Then
            Querysql = Querysql & " and Q" & QuestionID & " like '%" & KeyWord & "%'"
            strNavigation = "&nbsp;&gt;&gt;&nbsp;内容中含有 <font color='red'>" & KeyWord & "</font> 的数据"
        End If
    End If
    sql = sql & Querysql
    Set rs = Server.CreateObject("adodb.recordset")
    rs.open sql, conn, 1, 1
    If rs.BOF And rs.EOF Then
        totalPut = 0
        Response.Write "<li>没有任何内容</li>"
    Else
        totalPut = rs.RecordCount
        If CurrentPage < 1 Then
            CurrentPage = 1
        End If
        If (CurrentPage - 1) * MaxPerPage > totalPut Then
            If (totalPut Mod MaxPerPage) = 0 Then
                CurrentPage = totalPut \ MaxPerPage
            Else
                CurrentPage = totalPut \ MaxPerPage + 1
            End If
        End If
        If CurrentPage > 1 Then
            If (CurrentPage - 1) * MaxPerPage < totalPut Then
                rs.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If
        QuestionContent = conn.execute("select QuestionContent from PE_SurveyQuestion where QuestionID=" & QuestionID)(0)
        Response.Write "<br><table width='100%'><tr><td align='left'><B>[</B><font color=red>" & QuestionContent & "</font><B>]</B>&nbsp;调查结果" & strNavigation
        Response.Write "</td></tr></table>"
        Response.Write "<table width='100%' class='border' align='center' border='0' cellspacing='1' cellpadding='1'>"
        Response.Write "      <tr class='title'>" & vbCrLf
        Response.Write "        <td width='100%'><div align='left'>调查结果 </div></td>" & vbCrLf
        Do While Not rs.EOF
            If InStr(rs("Q" & QuestionID), "$$") > 0 Then
                Answer = Split(rs("Q" & QuestionID), "$$")
                Other = Answer(1)
            Else
                Other = rs("Q" & QuestionID)
            End If
            If Other = "" Then Other = "未填写"
            Response.Write "<tr class='tdbg'><td align='left'>" & Other & "</td></tr>"
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            rs.MoveNext
        Loop
        Response.Write "</table><br>"
    End If
    Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个", True)
    rs.Close
    Set rs = Nothing

    Response.Write "<br>"
    Response.Write "<form method='Post' name='SearchForm' action='ListReport.asp'>"
    Response.Write "<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>"
    Response.Write "        <select name='SearchType' size='1'>"
    Response.Write "        <option value='QuestionContent' selected>调查结果</option>"
    Response.Write "        </select>"
    Response.Write "        <input type='text' name='keyword'  size='20' value='关键字' maxlength='50' onFocus='this.select();'>"
    Response.Write "        <input type='submit' name='Submit'  value='搜索'>"
    Response.Write "        <input type='hidden' name='Action'  value='ShowContent'>"
    Response.Write "        <input type='hidden' name='SurveyID'  value='" & SurveyID & "'>"
    Response.Write "        <input type='hidden' name='QuestionID'  value='" & QuestionID & "'>"
    Response.Write "     </td>"
    Response.Write "   </td>"
    Response.Write "   </tr>"
    Response.Write "</table>"
    Response.Write "</form>"
    Response.Write "<br>"
End Sub
%>