📄 aa_vote.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Link.asp?Action=Add>添加新的调查</A> | <A HREF=Aa_Link.asp?Action=Manage>调查列表</A>"
Dim VoteContent,Vote_Content1,Vote_Count1,Vote_Content2
Select Case Action
Case "Add"
Call Page_AdminFlag(14)
Page_BootmName="添加调查"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Vote.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>调查主题：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Vote_Title TYPE=text id=Vote_Title size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=380 CLASS=Table8>调查项目：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Vote_Content cols=44 rows=15 id=Vote_Content></TEXTAREA> <FONT COLOR=ff0000>*</FONT><br>调查内容 = 投票次数，添加时请用回车分开，请勿输入“||”<br>如果格式不对将自动过滤<br>示例：<br>调查主题：您觉得本站设计的如何？<br>比较好，有创意 = 125<br>一般般吧，还不错 = 170<br>一点都不好，需要重新设计 = 20</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>调查属性：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Vote_Index TYPE=checkbox CLASS=radio_all id=Vote_Index VALUE=1> 首页显示 首页只显示一个调查项目，此处选择将取消已有的显示</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>调查审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Vote_Flag VALUE='1' checked> 通过审核 <INPUT TYPE=radio CLASS=radio_all CLASS=radio_all NAME=Vote_Flag VALUE='0'>取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS=submit_all id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reset CLASS=submit_all id=cl VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(15)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Vote Where Vote_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="调查修改 > " & Rs_edit("Vote_Title")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Vote_Index")=1 THEN checked="checked"
IF Rs_edit("Vote_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
Vote_Content1=split(Rs_edit("Vote_Content"),"||")
Vote_Count1=split(Rs_edit("Vote_Count"),"||")
For intTemp=0 To ubound(Vote_Content1)
Vote_Content=Vote_Content1(intTemp) & "=" & Vote_Count1(intTemp)
Vote_Content2=Vote_Content2 & "||" & Vote_Content
Next
Vote_Content=Replace(Vote_Content2,"||",CHR(10))
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_Vote.asp?Action=sEdit&Id=" & Id & ">"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>调查主题：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Vote_Title TYPE=text VALUE='" & Rs_edit("Vote_Title") & "' id=Vote_Title size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=380 CLASS=Table8>调查项目：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Vote_Content cols=44 rows=15 id=Vote_Content>" & Vote_Content & "</TEXTAREA> <FONT COLOR=ff0000>*</FONT><br>调查内容 = 投票次数，添加时请用回车分开，请勿输入“||”<br>如果格式不对将自动过滤<br>示例：<br>调查主题：您觉得本站设计的如何？<br>比较好，有创意 = 125<br>一般般吧，还不错 = 170<br>一点都不好，需要重新设计 = 20</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>调查属性：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Vote_Index TYPE=checkbox CLASS=radio_all id=Vote_Index VALUE=1 " & checked & "> 首页显示 首页只显示一个调查项目，此处选择将取消已有的显示</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>调查审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Vote_Flag VALUE='1' " & checked1 & "> 通过审核 <INPUT TYPE=radio CLASS=radio_all NAME=Vote_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok TYPE=submit CLASS=submit_all id=ok VALUE=提交资料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Manage"
Call Page_AdminFlag(15)
Page_BootmName="调查列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Vote order by Vote_Date desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD CLASS=Table6>调查主题</TD><TD WIDTH=12% CLASS=Table6>首页显示</TD><TD WIDTH=13% CLASS=Table6>添加人</TD><TD WIDTH=17% CLASS=Table6>添加时间</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
while not Rs_Manage.eof
IF Rs_Manage("Vote_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
IF Rs_Manage("Vote_Index")=1 THEN
TitleIndex="<FONT COLOR=006600><B>√</B></FONT>"
Else
TitleIndex="<FONT COLOR=ff0000><B>×</B></FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Vote.asp?Action=Delall'>"&_
"<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
"<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("Vote_Id") & "</TD>"&_
"<TD><A HREF=Aa_Vote.asp?Action=Edit&Id=" & Rs_Manage("Vote_Id") & ">" & Rs_Manage("Vote_Title") & "</A></TD>"&_
"<TD ALIGN=center><A HREF=Aa_Vote.asp?Action=Vote_Index&Id=" & Rs_Manage("Vote_Id") & ">" & TitleIndex & "</A></TD>"&_
"<TD>" & Rs_Manage("Vote_Add") & "</TD>"&_
"<TD>" & Rs_Manage("Vote_Date") & "</TD>"&_
"<TD ALIGN=center>"&_
"<A HREF=Aa_Vote.asp?Action=Edit&Id=" & Rs_Manage("Vote_Id") & ">修改</A> | "&_
"<A HREF=Aa_Vote.asp?Action=Flag&Id=" & Rs_Manage("Vote_Id") & ">" & TitleFlag & "</A> | "&_
"<A HREF=Aa_Vote.asp?Action=Del&Id=" & Rs_Manage("Vote_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
"<INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE=" & Rs_Manage("Vote_Id") & ">"&_
"</TD>"&_
"</TR>"
Rs_Manage.movenext
wend
Rs_Manage.Close
set Rs_Manage=nothing
strIfa = strIfa & "<TR>"&_
"<TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)>"&_
" 选择全部 "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='Aa_Vote.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
"<INPUT TYPE=submit CLASS=submit_all NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='Aa_Vote.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
"</TD></TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Vote_Content")<>"" THEN
Vote_Content=Replace(Request.form("Vote_Content"),CHR(10),"||")
Vote_Content=Replace(Vote_Content,CHR(13),"")
Vote_Content=split(Vote_Content,"||")
For intTemp=0 to ubound(Vote_Content)
VoteContent=split(Vote_Content(intTemp),"=")
IF VoteContent(0)="" or not isnumeric(VoteContent(1)) or ubound(VoteContent)>2 THEN
Else
Vote_Content1=Vote_Content1 & "||" & VoteContent(0)
Vote_Count1=Vote_Count1 & "||" & VoteContent(1)
End IF
VoteContent=""
Next
End IF
IF Request.form("Vote_Title")="" THEN
Errorst="请输入调查主题！"
founderr=True
ElseIF Vote_Content1="" THEN
Errorst="请输入调查项目！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Vote"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("Vote_Title")=Request.form("Vote_Title")
Rs("Vote_Content")=mid(Vote_Content1,3,len(Vote_Content1))
Rs("Vote_Count")=mid(Vote_Count1,3,len(Vote_Count1))
Rs("Vote_Flag")=Request.form("Vote_Flag")
IF Request.form("Vote_Index")=1 THEN
Set Rs_edit=server.createobject("adodb.recordset")
Sql="Select * from Tx_Vote"
Rs_edit.open Sql,Conn,1,3
while not Rs_edit.eof
Rs_edit("Vote_Index")=0
Rs_edit.movenext
wend
Rs_edit.Close
set Rs_edit=nothing
Rs("Vote_Index")=1
Else
Rs("Vote_Index")=0
End IF
Rs("Vote_Add")=session("Loginadmin")
Rs("Vote_Date")=Now()
Rs.UpDate
Rs.Close
set Rs=nothing
ToHistory="Aa_Vote.asp?Action=Manage"
saveok="调查：[ " & Request.form("Vote_Title") & " ] 添加成功！"
Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Vote_Content")<>"" THEN
Vote_Content=Replace(Request.form("Vote_Content"),CHR(10),"||")
Vote_Content=Replace(Vote_Content,CHR(13),"")
Vote_Content=split(Vote_Content,"||")
For intTemp=0 to ubound(Vote_Content)
VoteContent=split(Vote_Content(intTemp),"=")
IF VoteContent(0)="" or not isnumeric(VoteContent(1)) or ubound(VoteContent)>2 THEN
Else
Vote_Content1=Vote_Content1 & "||" & VoteContent(0)
Vote_Count1=Vote_Count1 & "||" & VoteContent(1)
End IF
VoteContent=""
Next
End IF
IF Request.form("Vote_Title")="" THEN
Errorst="请输入调查主题！"
founderr=True
ElseIF Vote_Content1="" THEN
Errorst="请输入调查项目！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Vote where Vote_Id=" & Id
Rs.open Sql,Conn,1,3
Rs("Vote_Title")=Request.form("Vote_Title")
Rs("Vote_Content")=mid(Vote_Content1,3,len(Vote_Content1))
Rs("Vote_Count")=mid(Vote_Count1,3,len(Vote_Count1))
Rs("Vote_Flag")=Request.form("Vote_Flag")
IF Request.form("Vote_Index")=1 THEN
Set Rs_edit=server.createobject("adodb.recordset")
Sql="Select * from Tx_Vote"
Rs_edit.open Sql,Conn,1,3
while not Rs_edit.eof
Rs_edit("Vote_Index")=0
Rs_edit.movenext
wend
Rs_edit.Close
set Rs_edit=nothing
Rs("Vote_Index")=1
Else
Rs("Vote_Index")=0
End IF
Rs.UpDate
Rs.Close
set Rs=nothing
ToHistory=VisitorsForm
saveok="调查：[ " & Request.form("Vote_Title") & " ] 修改成功！"
Call Form_Saveok()
End IF
Case "Del"
Conn.Execute "Delete From Tx_Vote Where Vote_Id=" & Id
ToHistory="Aa_Vote.asp?Action=Manage"
saveok="删除成功！"
Call Form_Saveok()
Case "Vote_Index"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Vote where Vote_Id=" & Id
Rs.open Sql,Conn,1,3
Set Rs_edit=server.createobject("adodb.recordset")
Sql="Select * from Tx_Vote"
Rs_edit.open Sql,Conn,1,3
while not Rs_edit.eof
Rs_edit("Vote_Index")=0
Rs_edit.movenext
wend
Rs_edit.Close
set Rs_edit=nothing
Rs("Vote_Index")=1
saveok="调查：[ " & Rs("Vote_Title") & " ] 已在首页显示！"
Rs.UpDate
Rs.Close
set Rs=nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Vote where Vote_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Vote_Flag")=1 THEN
Rs("Vote_Flag")=0
saveok="调查：[ " & Rs("Vote_Title") & " ] 已取消审核！"
Else
Rs("Vote_Flag")=1
saveok="调查：[ " & Rs("Vote_Title") & " ] 已通过审核！"
End IF
Rs.UpDate
Rs.Close
set Rs=nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Vote Where Vote_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Vote set Vote_Flag=1 Where Vote_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通过审核！"
Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Vote set Vote_Flag=0 Where Vote_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已取消审核！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -