?? admin_vote.asp

?? 這些都是我以前學習是用到的源碼
?? ASP
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 軟件名稱：新云網站管理系統
' 當前版本：NewCloud Site Management System Version 2.1
' 文件名稱：admin_vote.asp
' 更新日期：2004-11-20
' 官方網站：新云網絡(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim CurrentPage,maxperpage,totalnumber,Pcount,totalPut
Dim isEdit,selVoteid,VoteTitle,i,Action
Action = LCase(Request("action"))
If Not ChkAdmin("Vote") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Select Case Trim(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
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
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>" & vbNewLine
	Response.Write "<TR>" & vbNewLine
	Response.Write " <TH colspan=6>投票管理</TH>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""28"">" & vbNewLine
	Response.Write " <TD colspan=6 class=TableRow1>投票調用方法:<BR>①&lt;script src=""vote/showvote.js""&gt;&lt;/script&gt;<BR>" & vbNewLine
	Response.Write " ②&lt;IFRAME name=vote src=""vote/vote.htm"" frameBorder=no scrolling=no width=180 height=220&gt;&lt;/IFRAME&gt;<BR>" & vbNewLine
	Response.Write " </TD>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR>" & vbNewLine
	Response.Write " <TH noWrap>選 擇</TH>" & vbNewLine
	Response.Write " <TH noWrap>投票主題　[<a href=admin_vote.asp?action=add Class=showtitle>添加投票</a>]</TH>" & vbNewLine
	Response.Write " <TH noWrap>投 票 數</TH>" & vbNewLine
	Response.Write " <TH noWrap>編輯投票</TH>" & vbNewLine
	Response.Write " <TH noWrap>投票類型</TH>" & vbNewLine
	Response.Write " <TH noWrap>狀 態</TH>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	If Not IsEmpty(Request("page")) Then
		CurrentPage = CLng(Request("page"))
	Else
		CurrentPage = 1
	End If
	maxperpage = 20 '###每頁顯示數
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Vote order by id desc"
	Rs.Open SQL, Conn, 1, 1
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td colspan=10 class=TableRow1>沒有投票主題！</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"">" & vbNewLine
		Response.Write " <TD colspan=6 class=TableRow2 align=center>"
		Call showpage
		Response.Write "</TD>" & vbNewLine
		Response.Write "</TR>" & vbNewLine
		Response.Write "<form name=""selform"" method=""post"" action="""">" & vbNewLine
		Do While Not Rs.EOF And i < CLng(maxperpage)
			Response.Write "<TR>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 align=center><input type=checkbox name=selVoteid value="""
			Response.Write Rs("id")
			Response.Write """></TD>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 width=""70%""><a href=../vote/vote.htm title=""查看投票"" target=_blank>"
			Response.Write Rs("topic")
			Response.Write "</a></TD>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 align=center><FONT COLOR=RED><B>"
			Response.Write Rs("VoteNum")
			Response.Write "</B></FONT></TD>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 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>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 align=center>"
			If CInt(Rs("VoteType")) = 0 Then
				Response.Write "單選"
			Else
				Response.Write "多選"
			End If
			Response.Write "</TD>" & vbNewLine
			Response.Write " <TD noWrap class=TableRow1 align=center>"
			If CInt(Rs("isLock")) = 0 Then
				Response.Write "正常"
			Else
				Response.Write "<FONT COLOR=RED>鎖定</FONT>"
			End If
			Response.Write "</TD>" & vbNewLine
			Response.Write "</TR>" & vbNewLine
			Rs.movenext
			i = i + 1
			If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "<TR height=""30"">" & vbNewLine
	Response.Write " <TD class=TableRow1>管理</TD>" & vbNewLine
	Response.Write " <TD colspan=5 class=TableRow1><input class=Button type=button name=chkall value='全選' onClick=""CheckAll(this.form)""><input class=Button type=button name=chksel value='反選' onClick=""ContraSel(this.form)""> " & vbNewLine
	Response.Write " <input type=""radio"" name=""type"" value=""del"" title=""管理選項：批量刪除選中的新聞"">批量刪除 " & vbNewLine
	Response.Write " <input type=""radio"" name=""type"" value=""isLock"" title=""管理選項：批量鎖定投票主題"">鎖定 " & vbNewLine
	Response.Write " <input type=""radio"" name=""type"" value=""noLock"" title=""管理選項：批量解除鎖定"">解鎖 " & vbNewLine
	Response.Write " <input type=""radio"" name=""type"" value=""radio"" title=""管理選項：批量設置單選投票"">單選 " & vbNewLine
	Response.Write " <input type=""radio"" name=""type"" value=""checkbox"" title=""管理選項：批量設置多選投票"">多選 " & vbNewLine
	Response.Write " <input type=submit name=Submit value=""執行操作"" class=button onclick=""{if(confirm('您確定執行此操作嗎?')){this.document.selform.submit();return true;}return false;}""></TD>" & vbNewLine
	Response.Write "</TR></form>" & vbNewLine
	Response.Write "<TR height=""28"">" & vbNewLine
	Response.Write " <TD colspan=6 class=TableRow2 align=center>"
	Call showpage
	Response.Write "</TD>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "</TABLE>" & vbNewLine
End Sub


Private Sub EditVote()
	If isEdit Then
		Set Rs = Server.CreateObject("ADODB.Recordset")
		SQL = "select * from NC_Vote where id=" & Request("id")
		Rs.Open SQL, Conn, 1, 1
		Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
		VoteTitle = "編輯投票"
	Else
		VoteTitle = "添加新的投票"
	End If
	Response.Write " <TABLE width=""99%"" border=0 cellpadding=3 cellspacing=1 align=center class=tableBorder>" & vbNewLine
	Response.Write "<TR><form name=""myform"" method=""post"" action=""admin_vote.asp"">" & vbNewLine
	Response.Write " <input type=""Hidden"" name=""action"" value='"
	If isEdit Then
		Response.Write "modify"
	Else
		Response.Write "save"
	End If
	Response.Write "'>" & vbNewLine
	Response.Write " "
	If isEdit Then
		Response.Write " <input type=""Hidden"" name=""id"" value='"
		Response.Write CStr(Request("id"))
		Response.Write "'>" & vbNewLine
		Response.Write " "
	End If
	Response.Write " <TH colspan=2>"
	Response.Write VoteTitle
	Response.Write "</TH>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""22"">" & vbNewLine
	Response.Write " <TD noWrap align=""right"" class=TableRow2>投票類型：</TD>" & vbNewLine
	Response.Write " <TD width=""85%"" class=TableRow1>" & vbNewLine
	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 ">單選 " & vbNewLine
	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>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""22"">" & vbNewLine
	Response.Write " <TD noWrap align=""right"" class=TableRow2>投票主題：</TD>" & vbNewLine
	Response.Write " <TD class=TableRow1><input type=text name=topic size=50 value="""
	If isEdit Then
		Response.Write Rs("topic")
	End If
	Response.Write """></TD>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""22"">" & vbNewLine
	Response.Write " <TD noWrap align=""right"" class=TableRow2>投票選項1：</TD>" & vbNewLine
	Response.Write " <TD class=TableRow1><input type=text name=Choose_1 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_1")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & vbNewLine
	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>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""22"">" & vbNewLine
	Response.Write " <TD noWrap align=""right"" class=TableRow2>投票選項2：</TD>" & vbNewLine
	Response.Write " <TD class=TableRow1><input type=text name=Choose_2 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_2")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & vbNewLine
	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>" & vbNewLine
	Response.Write "</TR>" & vbNewLine
	Response.Write "<TR height=""22"">" & vbNewLine
	Response.Write " <TD noWrap align=""right"" class=TableRow2>投票選項3：</TD>" & vbNewLine
	Response.Write " <TD class=TableRow1><input type=text name=Choose_3 size=20 value="""
	If isEdit Then
		Response.Write Rs("Choose_3")
	End If
	Response.Write """>&nbsp;&nbsp;&nbsp;" & vbNewLine
	Response.Write " "
12 下一頁
?? 文件大小 40404 K
?? 上傳用戶 pangyi
?? 所屬分類書籍源碼
??? 相關標簽

#源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? admin_vote.asp

?? 快捷鍵說明
