📄 admin_vote.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_ContentEx.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Vote"   '其他权限

Dim ItemName, ID, VoteType

VoteType = PE_CLng(Trim(Request("VoteType")))
strFileName = "Admin_Vote.asp?Action=" & Action & "&VoteType=" & VoteType
ItemName = "调查"
ID = Trim(Request("ID"))
ChannelID = PE_CLng(Trim(Request("ChannelID")))
If IsValidID(ID) = False Then
    ID = ""
End If

Response.Write "<html><head><title>调查管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Call ShowPageTitle("网 站 调 查 管 理", 10024)
Response.Write "  <tr class='tdbg'>" & vbCrLf
Response.Write "    <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write "    <td><a href='Admin_Vote.asp'>调查管理首页</a>&nbsp;|&nbsp;<a href='Admin_Vote.asp?Action=Add'>添加新调查</a>"
Response.Write "    </td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
    Call Add
Case "Modify"
    Call Modify
Case "SaveAdd", "SaveModify"
    Call SaveVote
Case "SetNew", "CancelNew", "Move", "Del"
    Call SetProperty
Case Else
    Call main
End Select
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn

Sub main()
    Dim rs, sql
    Call ShowJS_Main(ItemName)
    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22'>" & GetChannelList(ChannelID) & "</td>"
    Response.Write "  </tr>"
    Response.Write "</table><br>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
    Response.Write "    <td height='22'>"
    Call ShowManagePath(ChannelID)
    Response.Write "  </td></tr>"
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
    Response.Write "  <form name='myform' method='Post' action='Admin_Vote.asp' onsubmit='return ConfirmDel();'>"
    Response.Write "  <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td width='30' height='22' align='center'><strong>选中</strong></td>"
    Response.Write "    <td width='30' height='22' align='center'><strong>ID</strong></td>"
    Response.Write "    <td height='22' align='center'><strong>主题</strong></td>"
    Response.Write "    <td width='60' height='22' align='center'><strong>调查状态</strong></td>"
    Response.Write "    <td width='60' height='22' align='center'><strong>调查类型</strong></td>"
    Response.Write "    <td width='120' height='22' align='center'><strong>发布时间</strong></td>"
    Response.Write "    <td width='120' height='22' align='center'><strong>终止时间</strong></td>"
    Response.Write "    <td width='80' height='22' align='center'><strong>操作</strong></td>"
    Response.Write "  </tr>"

    sql = "select * from PE_Vote"
    If VoteType = 0 Then
        sql = sql & " where IsItem=" & PE_False
    Else
        sql = sql & " where IsItem=" & PE_True
    End If
    If ChannelID >= -1 Then
        sql = sql & " and ChannelID=" & ChannelID
    End If
    sql = sql & " order by IsSelected,ID desc"
    Set rs = Conn.Execute(sql)
    If rs.BOF And rs.EOF Then
        Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>没有任何调查！<br><br></td></tr>"
    Else
        Do While Not rs.EOF
            Response.Write "    <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            Response.Write "      <td width='30' align='center'><input name='ID' type='checkbox' onclick='unselectall()' value='" & rs("ID") & "'></td>"
            Response.Write "      <td width='30' align='center'>" & rs("ID") & "</td>"
            If VoteType = 0 Then
                Response.Write "      <td><a href='Admin_Vote.asp?Action=Modify&ID=" & rs("ID") & "'>" & rs("Title") & "</a></td>"
            Else
                Response.Write "      <td><a href='" & InstallDir & "Vote.asp?ID=" & rs("ID") & "&Action=Show'>" & rs("Title") & "</a></td>"
            End If
            Response.Write "      <td width='60' align='center'>"
            If rs("IsSelected") = True And Now() <= rs("EndTime") Then
                Response.Write "<font color=green>启用</font>"
            Else
                If Now() > rs("EndTime") Then
                    Response.Write "<font color=red>过期</font>"
                Else
                    Response.Write "<font color=red>停止</font>"
                End If
            End If
            Response.Write "      </td>"
            Response.Write "      <td width='60' align='center'>"
            If rs("VoteType") = "Single" Then
                Response.Write "单选"
            ElseIf rs("VoteType") = "Multi" Then
                Response.Write "多选"
            End If
            Response.Write "      <td align='center'>" & rs("VoteTime") & "</td>"
            Response.Write "      <td align='center'>" & rs("EndTime") & "</td>"
            Response.Write "      <td width='80' align='center'>"
            If VoteType = 0 Then
                Response.Write "      <a href='Admin_Vote.asp?Action=Modify&ID=" & rs("ID") & "'>修改</a>&nbsp;"
            End If
            Response.Write "      <a href='Admin_Vote.asp?Action=Del&ID=" & rs("ID") & "' onClick=""return confirm('确定要删除此调查吗？');"">删除</a>&nbsp;"
            Response.Write "      </td>"
            Response.Write "    </tr>"
            rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs = Nothing
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "    <td width='130' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>选中所有的调查</td><td>"
    Response.Write "<input type='submit' value='删除选定的调查' name='submit' onClick=""document.myform.Action.value='Del'"">&nbsp;&nbsp;"
    If VoteType = 0 Then
        Response.Write "<input type='submit' value='启用调查' name='submit1' onClick=""document.myform.Action.value='SetNew'"">&nbsp;&nbsp;"
        Response.Write "<input type='submit' value='停止调查' name='submit2' onClick=""document.myform.Action.value='CancelNew'"">&nbsp;&nbsp;"
        Response.Write "<input type='submit' value='将选定的调查移动到 ->' name='submit3' onClick=""document.myform.Action.value='Move'"">"
    End If
    Response.Write "<select name='ChannelID' id='ChannelID'>" & GetChannel_Option(0) & "</select>"
    Response.Write "<input name='Action' type='hidden' id='Action' value='ExportExcel'>"
    Response.Write "<input name='VoteType' type='hidden' id='VoteType' value='" & VoteType & "'>"
    Response.Write "  </td></tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "</form></tr></table>"
    If VoteType = 0 Then
        Response.Write "<br><b>说明：</b><br>&nbsp;&nbsp;&nbsp;&nbsp;只有将调查设为最新调查后才会在前台显示"
    End If
    Response.Write "<br><br>"
End Sub

Sub ShowJS_AddModify()
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "function CheckForm(){" & vbCrLf
    Response.Write "  if (document.myform.Title.value==''){" & vbCrLf
    Response.Write "     alert('调查主题不能为空！');" & vbCrLf
    Response.Write "     document.myform.Title.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  return true;  " & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

Sub Add()
    Dim i
    Call ShowJS_AddModify
    Response.Write "<form method='POST' name='myform' onSubmit='return CheckForm();' action='Admin_Vote.asp' target='_self'>"
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' class='title' colspan=4 align=center><b>添 加 调 查</b></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>所属频道：</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <select name='ChannelID' id='ChannelID'>" & GetChannel_Option(0) & "</select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>调查主题：</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <textarea name='Title' cols='60' rows='4'></textarea>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    For i = 1 To 8
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='20%' align='right'>选项" & i & "：</td>"
    Response.Write "      <td width='35%'>"
    Response.Write "        <input type='text' name='select" & i & "' size='36'>"
    Response.Write "      </td>"
    Response.Write "      <td width='10%' align='right'>票数：</td>"
    Response.Write "      <td width='35%' width='80'>"
    Response.Write "        <input type='text' name='answer" & i & "' size='10'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Next
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>调查类型：</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <select name='VoteType' id='VoteType'>"
    Response.Write "          <option value='Single' selected>单选</option>"
    Response.Write "          <option value='Multi'>多选</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>发布时间：</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <input name='VoteTime' type='text' id='VoteTime' value='" & Now() & "' size='20' maxlength='20'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>终止时间：</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <input name='EndTime' type='text' id='EndTime' value='" & Now() + 30 & "' size='20' maxlength='20'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td align='right'>&nbsp;</td>"
    Response.Write "      <td colspan='3'>"
    Response.Write "        <input name='IsSelected' type='checkbox' id='IsSelected' value='yes' checked>"
    Response.Write "        启用本调查</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td colspan=4 align=center>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 添 加 '>"
    Response.Write "        &nbsp;"
    Response.Write "        <input  name='Reset' type='reset' id='Reset' value=' 清 除 '>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub Modify()
    Dim rs, sql
    Dim i
    If ID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的调查ID！</li>"
        Exit Sub
    Else
        ID = PE_CLng(ID)
    End If
    sql = "select * from PE_Vote where ID=" & ID
    Set rs = Conn.Execute(sql)
    If rs.BOF And rs.EOF Then
        FoundErr = True
12 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -