📄 admin_vote.asp
字号:
</tr>
<%
For OptionIndex = 1 To 10
%>
<tr>
<td class="td_ItemName"><strong>选项<%=OptionIndex%></strong></td>
<td width="39%" class="td_25"><input name="Options<%=OptionIndex%>" type="text" id="Options<%=OptionIndex%>" size="50" value="<%=EL_Common.ServerHTMLEncode(rsVote("Options"& OptionIndex))%>"></td>
<td width="8%" align="center" nowrap class="td_ItemName"><strong>票数</strong></td>
<td width="37%" class="td_25"><input name="Ballot<%=OptionIndex%>" type="text" id="Ballot<%=OptionIndex%>" size="15" value="<%=rsVote("Ballot"& OptionIndex)%>"></td>
</tr>
<%
Next
%>
<tr>
<td class="td_ItemName"><strong>发布日期</strong></td>
<td colspan="3" class="td_25"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=rsVote("UpdateTime")%>"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>状态</strong></td>
<td colspan="3" class="td_25"><input name="Actived" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsVote("Actived"))%>>
启用
<input name="Actived" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsVote("Actived"))%>>
停止</td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td colspan="3" class="td_50"><input type="submit" name="Submit" value="保存调查">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="VoteID" type="hidden" id="VoteID" value="<%=VoteID%>"></td>
</tr>
</table>
</form>
<%
rsVote.Close()
Set rsVote = Nothing
Set VoteCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageVote()
On Error Resume Next
Dim VoteCmd, rsVote, RowCount
Call EL_Common.InitCommonCmd(VoteCmd, rsVote, "EL_Vote", "VoteID,Title,VoteType,UpdateTime,Actived", "TopicID=0 Order By UpdateTime DESC")
rsVote.Close()
RowCount = VoteCmd(0)
CurrentPath = CurrentPath &">> 所有调查"
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = false;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
var frm = getObject("myform");
for (var i=0;i<frm.elements.length;i++){
var e = frm.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
return true
}
}
return false;
}
function Check(frm){
SubmitOnce(frm);
return true;
}
var JURL = "<%=EL_CurrentScriptName%>?ChannelID=<%=EL_Channel.ChannelID%>";
function doDelete(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个调查");
return false;
}
frm.action = JURL + "&Action=Delete";
if(confirm("本次操作将彻底删除选定的调查，不可以恢复\n确认要执行选定删除吗？")){
frm.submit();
return;
}
return false;
}
function doSetVoteType(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个调查");
return false;
}
frm.action = JURL + "&Action=SetVoteType";
if(confirm("是否要将选定调查设置为 "+ getObject("VoteType").options[getObject("VoteType").selectedIndex].text +" 吗？")){
frm.submit();
return;
}
return false;
}
function doActived(type){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1个调查");
return false;
}
var arrAction = new Array("<%=EL_False%>", "<%=EL_True%>");
var arrText = new Array("停止", "启用");
frm.action = JURL + "&Action=SetActived&SetValue="+ arrAction[type];
if(confirm("是否要"+ arrText[type] +"选定调查设置吗？")){
frm.submit();
return;
}
return false;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
<td width="5%" align="center" nowrap class="top_item"><strong>ID</strong></td>
<td width="42%" align="center" nowrap class="top_item"><strong>调查主题</strong></td>
<td width="7%" align="center" nowrap class="top_item"><strong>状态</strong></td>
<td width="8%" align="center" nowrap class="top_item"><strong>类型</strong></td>
<td width="17%" align="center" nowrap class="top_item"><strong>发布日期</strong></td>
<td width="18%" align="center" nowrap class="top_item"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class=td_50 colspan=7 align=center></td></tr>"
Else
Dim i
rsVote.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsVote("VoteID")%>"></td>
<td align="center"><%=rsVote("VoteID")%></td>
<td style="padding-left:3px;"><a href="<%=EL_CurrentScriptName%>?Action=Show&VoteID=<%=rsVote("VoteID")%>"><%=rsVote("Title")%></a></td>
<td align="center"><%=EL_Common.ShowBoolean(rsVote("Actived").value, "<span class=greedtext>启用</span>", "<span class=redtext>停止</span>")%></td>
<td align="center"><%=ArrVoteType(rsVote("VoteType"))%></td>
<td align="center"><%=rsVote("UpdateTime")%></td>
<td align="center">
<a href="<%=EL_CurrentScriptName%>?Action=Modify&VoteID=<%=rsVote("VoteID")%>">修改</a> |
<a href="<%=EL_CurrentScriptName%>?Action=Delete&VoteID=<%=rsVote("VoteID")%>" onClick="return confirm('本次删除将彻底删除该调查主题，不可以恢复，确认要执行删除吗？')">删除</a> |
<% If rsVote("Actived") Then %>
<a href="<%=EL_CurrentScriptName%>?Action=SetActived&VoteID=<%=rsVote("VoteID")%>&SetValue=<%=EL_False%>">停止</a>
<% Else %>
<a href="<%=EL_CurrentScriptName%>?Action=SetActived&VoteID=<%=rsVote("VoteID")%>&SetValue=<%=EL_True%>">启用</a>
<% End If %>
</td>
</tr>
<%
If i<RowCount Then rsVote.MoveNext
Next
rsVote.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center"><input type="button" name="Submit3" value="删除选定调查" onClick="doDelete()">
<input type="button" name="Submit33" value="启用选定调查" onClick="doActived(1)">
<input type="button" name="Submit34" value="停止选定调查" onClick="doActived(0)">
<input type="button" name="Submit32" value="设置选定调查 >>" onClick="doSetVoteType()">
<select name="VoteType" id="VoteType">
<option value="0">单选</option>
<option value="1">多选</option>
</select>
</td>
</tr>
</table>
</form>
<%
Set rsVote = Nothing
Set VoteCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub AddVote()
On Error Resume Next
Dim OptionIndex
CurrentPath = CurrentPath &">> 添加调查"
%>
<script language="javascript">
function Check(frm){
if(frm.Title.value.trim()==""){
alert("请输入调查主题");
frm.Title.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_Vote.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="4" class="top_25"><strong>添加调查</strong></td>
</tr>
<tr>
<td width="16%" class="td_ItemName"><strong>调查主题</strong></td>
<td colspan="3" class="td_25"><input name="Title" type="text" id="Title" size="70"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>调查类型</strong></td>
<td colspan="3" class="td_25"><input name="VoteType" type="radio" class="nomargin" value="0" checked>
单选
<input name="VoteType" type="radio" class="nomargin" value="1">
多选</td>
</tr>
<%
For OptionIndex = 1 To 10
%>
<tr>
<td class="td_ItemName"><strong>选项<%=OptionIndex%></strong></td>
<td width="39%" class="td_25"><input name="Options<%=OptionIndex%>" type="text" id="Options<%=OptionIndex%>" size="50"></td>
<td width="8%" align="center" nowrap class="td_ItemName"><strong>票数</strong></td>
<td width="37%" class="td_25"><input name="Ballot<%=OptionIndex%>" type="text" id="Ballot<%=OptionIndex%>" size="15"></td>
</tr>
<%
Next
%>
<tr>
<td class="td_ItemName"><strong>发布日期</strong></td>
<td colspan="3" class="td_25"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=Now()%>"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>状态</strong></td>
<td colspan="3" class="td_25"><input name="Actived" type="radio" class="nomargin" value="<%=EL_True%>" checked>
启用
<input name="Actived" type="radio" class="nomargin" value="<%=EL_False%>">
停止</td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td colspan="3" class="td_50"><input type="submit" name="Submit" value="添加调查">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="Save"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -