📄 admin_vote.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="setup.asp"-->
<%
Dim CurrentPage
Dim maxperpage
Dim totalnumber
Dim Pcount
Dim totalPut
Dim isEdit
Dim selVoteid
Dim VoteTitle
Dim i
Set Rs = Server.CreateObject("ADODB.Recordset")
NC_Admin.AdminChk = "54"
NC_Admin.Check
DownsysClass.admin_header
Select Case Trim(Request("action"))
	Case "save"
		Call SaveVote
	Case "modify"
		Call ModifyVote
	Case "add"
		isEdit = False
		EditVote
	Case "edit"
		isEdit = True
		EditVote
	Case Else
		Call VoteMain
End Select
If Founderr = True Then
	NC_Admin.Error_Msg (ErrMsg)
End If
DownsysClass.admin_footer
NothingObject

Private Sub VoteMain()
	Dim bookmark
	If Not IsEmpty(Request("selVoteid")) Then
		selVoteid = Request("selVoteid")
		Select Case Request("type")
			Case "del"
				Call DelVote
			Case "isLock"
				Call isLock
			Case "noLock"
				Call noLock
			Case "radio"
				Call setRadio
			Case "checkbox"
				Call setCheckbox
			Case Else
				Response.Write "无效参数！"
				Response.End
		End Select
	End If
	Response.Write "<TABLE width=""99%"" border=0 cellpadding=3 cellspacing=1 align=center class=tableBorder>" & Chr(13) & Chr(10)
	Response.Write "<TR>" & Chr(13) & Chr(10)
	Response.Write " <TH colspan=6>投票管理</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""28"">" & Chr(13) & Chr(10)
	Response.Write " <TD colspan=6 class=forumRow>投票调用方法:<BR>①&lt;script src=""js/showvote.js""&gt;&lt;/script&gt;<BR>" & Chr(13) & Chr(10)
	Response.Write " ②&lt;IFRAME name=vote src=""vote.htm"" frameBorder=no scrolling=no width=180 height=220&gt;&lt;/IFRAME&gt;<BR>" & Chr(13) & Chr(10)
	Response.Write " </TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>选 择</TH>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>投票主题　[<a href=admin_vote.asp?action=add class=TableTitleLink>添加投票</a>]</TH>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>投 票 数</TH>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>编辑投票</TH>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>投票类型</TH>" & Chr(13) & Chr(10)
	Response.Write " <TH noWrap>状 态</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	If Not IsEmpty(Request("page")) Then
		CurrentPage = CLng(Request("page"))
	Else
		CurrentPage = 1
	End If
	maxperpage = 20 '###每页显示数
	SQL = "select * from NC_Vote order by id desc"
	Rs.Open SQL, Conn, 1, 1
	DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td colspan=10 class=forumrow>没有投票主题！</td></tr>"
	Else
		totalnumber = Rs.recordcount
		If (totalnumber Mod maxperpage) = 0 Then
			Pcount = totalnumber \ maxperpage
		Else
			Pcount = totalnumber \ maxperpage + 1
		End If
		Rs.MoveFiRst
		If CurrentPage > Pcount Then CurrentPage = Pcount
		If CurrentPage < 1 Then CurrentPage = 1
		Rs.Move (CurrentPage - 1) * maxperpage
		bookmark = Rs.bookmark
		i = 0
		Response.Write "<TR height=""28"">" & Chr(13) & Chr(10)
		Response.Write " <TD colspan=6 class=forumRowHighlight align=center>"
		Call showpage
		Response.Write "</TD>" & Chr(13) & Chr(10)
		Response.Write "</TR>" & Chr(13) & Chr(10)
		Response.Write "<form name=""selform"" method=""post"" action="""">" & Chr(13) & Chr(10)
		Do While Not Rs.EOF And i < CLng(maxperpage)
			Response.Write "<TR>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow align=center><input type=checkbox name=selVoteid value="""
			Response.Write Rs("id")
			Response.Write """></TD>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow width=""70%""><a href=../vote.htm title=""查看投票"" target=_blank>"
			Response.Write Rs("topic")
			Response.Write "</a></TD>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow align=center><FONT COLOR=RED><B>"
			Response.Write Rs("VoteNum")
			Response.Write "</B></FONT></TD>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow align=center><a href=admin_vote.asp?action=edit&id="
			Response.Write Rs("id")
			Response.Write " title=""查看编辑:"
			Response.Write Rs("topic")
			Response.Write """>编辑投票</a></TD>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow align=center>"
			If CInt(Rs("VoteType")) = 0 Then
				Response.Write "单选"
			Else
				Response.Write "多选"
			End If
			Response.Write "</TD>" & Chr(13) & Chr(10)
			Response.Write " <TD noWrap class=forumRow align=center>"
			If CInt(Rs("isLock")) = 0 Then
				Response.Write "正常"
			Else
				Response.Write "<FONT COLOR=RED>锁定</FONT>"
			End If
			Response.Write "</TD>" & Chr(13) & Chr(10)
			Response.Write "</TR>" & Chr(13) & Chr(10)
			Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "<TR height=""30"">" & Chr(13) & Chr(10)
	Response.Write " <TD class=forumRow>管理</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD colspan=5 class=forumRow>全选/反选 <input type=""checkbox"" name=""checkbox"" value=""checkbox"" onclick=CheckAll(this.form)> " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""type"" value=""del"" title=""管理选项：批量删除选中的新闻"">批量删除 " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""type"" value=""isLock"" title=""管理选项：批量锁定投票主题"">锁定 " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""type"" value=""noLock"" title=""管理选项：批量解除锁定"">解锁 " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""type"" value=""radio"" title=""管理选项：批量设置单选投票"">单选 " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""type"" value=""checkbox"" title=""管理选项：批量设置多选投票"">多选 " & Chr(13) & Chr(10)
	Response.Write " <input type=submit name=Submit value=""执行操作"" class=button onclick=""{if(confirm('您确定执行此操作吗?')){this.document.selform.submit();return true;}return false;}""></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR></form>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""28"">" & Chr(13) & Chr(10)
	Response.Write " <TD colspan=6 class=forumRowHighlight align=center>"
	Call showpage
	Response.Write "</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "</TABLE>" & Chr(13) & Chr(10)
End Sub


Private Sub EditVote()
	If isEdit Then
		SQL = "select * from NC_Vote where id=" & Request("id")
		Rs.Open SQL, Conn, 1, 1
		DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
		VoteTitle = "编辑投票"
	Else
		VoteTitle = "添加新的投票"
	End If
	Response.Write " <TABLE width=""99%"" border=0 cellpadding=3 cellspacing=1 align=center class=tableBorder>" & Chr(13) & Chr(10)
	Response.Write "<TR><form name=""myform"" method=""post"" action=""admin_vote.asp"">" & Chr(13) & Chr(10)
	Response.Write " <input type=""Hidden"" name=""action"" value='"
	If isEdit Then
		Response.Write "modify"
	Else
		Response.Write "save"
	End If
	Response.Write "'>" & Chr(13) & Chr(10)
	Response.Write " "
	If isEdit Then
		Response.Write " <input type=""Hidden"" name=""id"" value='"
		Response.Write CStr(Request("id"))
		Response.Write "'>" & Chr(13) & Chr(10)
		Response.Write " "
	End If
	Response.Write " <TH colspan=2>"
	Response.Write VoteTitle
	Response.Write "</TH>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write " <TD noWrap align=""right"" class=forumRowHighlight>投票类型：</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD width=""85%"" class=forumRow>" & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""VoteType"" value=""0"" title=""设置单选投票"" "
	If isEdit Then
		If CInt(Rs("VoteType")) = 0 Then
			Response.Write "checked"
		End If
	Else
		Response.Write "checked"
	End If
	Response.Write ">单选 " & Chr(13) & Chr(10)
	Response.Write " <input type=""radio"" name=""VoteType"" value=""1"" title=""设置多选投票"" "
	If isEdit Then
		If CInt(Rs("VoteType")) = 1 Then
			Response.Write "checked"
		End If
	End If
	Response.Write ">多选</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write " <TD noWrap align=""right"" class=forumRowHighlight>投票主题：</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD class=forumRow><input type=text name=topic size=50 value="""
	If isEdit Then
		Response.Write Rs("topic")
	End If
	Response.Write """></TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write " <TD noWrap align=""right"" class=forumRowHighlight>投票选项1：</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD class=forumRow><input type=text name=Choose_1 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_1")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & Chr(13) & Chr(10)
	Response.Write " "
	If isEdit Then
		Response.Write "投票数：<input type=text name=ChooseNum_1 size=10 value="""
		Response.Write Rs("ChooseNum_1")
		Response.Write """>"
	End If
	Response.Write "</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write " <TD noWrap align=""right"" class=forumRowHighlight>投票选项2：</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD class=forumRow><input type=text name=Choose_2 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_2")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & Chr(13) & Chr(10)
	Response.Write " "
	If isEdit Then
		Response.Write "投票数：<input type=text name=ChooseNum_2 size=10 value="""
		Response.Write Rs("ChooseNum_2")
		Response.Write """>"
	End If
	Response.Write "</TD>" & Chr(13) & Chr(10)
	Response.Write "</TR>" & Chr(13) & Chr(10)
	Response.Write "<TR height=""22"">" & Chr(13) & Chr(10)
	Response.Write " <TD noWrap align=""right"" class=forumRowHighlight>投票选项3：</TD>" & Chr(13) & Chr(10)
	Response.Write " <TD class=forumRow><input type=text name=Choose_3 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_3")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & Chr(13) & Chr(10)
	Response.Write " "
	If isEdit Then
		Response.Write "投票数：<input type=text name=ChooseNum_3 size=10 value="""
		Response.Write Rs("ChooseNum_3")
12 下一页
⌨️ 快捷键说明

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