function_vote.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
dim StrAction,StrSql
StrAction = Request.Form("Action")
'提取Action变量以此来判断采取哪个函数
'注意一点一定要区分好Action提取的大小写的取值
Select Case strAction 
	Case "Vote_add" '投票添加
		Sm_Vote_add
	Case "Vote_edit" '投票编辑
		Sm_Vote_edit
	Case "Vote_EditDel" '投票修改删除
		Sm_Vote_EditDel
End Select

'________________________________________________
'删除投票主题
Sub deleteSm_Vote(id)    
    sql="delete from [Sm_Vote] where VoteId="&cstr(id)
    oConn.execute sql
End sub
'修改投票主题基本信息
Sub modifySm_Vote(id)
	Dim U_name,U_pass,Available,Managetype
	ValidFlag=request.Form("ValidFlag"&id)
	Title=request.Form("Title"&id)
	sql="Update [Sm_Vote] set Title='"&title&"',ValidFlag="&ValidFlag&" Where VoteId="&id
	'response.write sql
	oConn.execute sql
End Sub
'循环操作数据函数
Sub Sm_Vote_EditDel
oConn_Start
	if not isempty(request("selAnnounce")) then
		idlist=request("selAnnounce")
		act=Request.Form("act")
		'response.Write(idlist&act)
		'response.End()
		dim idarr '定义储存数组
		dim id
		if act="删 除" then
			   if instr(idlist,",")>0 then
					 idArr=split(idlist)
					 for i = 0 to ubound(idarr)
					   id=clng(idarr(i))
						 call deleteSm_Vote(id)
					   next
			   else
				  	call deleteSm_Vote(clng(idlist))
			   end if
		 elseif act="修 改" then
			if instr(idlist,",")>0 then
				 idArr=split(idlist)		 
				 for i = 0 to ubound(idarr)
				     id=clng(idarr(i))
					 call modifySm_Vote(id)
				 next
			else
				  call modifySm_Vote(clng(idlist))
		    end if
		end if
	else
		call InfoErrorWrite("至少应该选择一项信息才能操作")
	end if
	oConn_Close
	Call InfoErrorDisplay("修改/删除成功，请继续管理其他信息","Vote_List.asp")
End Sub

'投票信息添加
Sub Sm_Vote_add
oConn_Start
	ValidFlag=Request.Form("ValidFlag")
	VoteType=Request.Form("VoteType")
	Title=Request.Form("Title")
	'判断是否输入
	If Not IsNot(Title,"s") Then
		Call InfoErrorWrite("您还没有输入投票主题")
	End if
	'判断是否存在同样的主题	
	StrSql = "Select VoteId From Sm_Vote Where Title='"&title&"'"
	Set Rs = oConn.execute(StrSql)
	If Not Rs.eof Then
		Set Rs=nothing
		Call InfoErrorWrite("数据库中已经存在相同的投票主题")
	End if
	Set Rs=Nothing
	'插入一条投票主题
	StrSql = "Insert Into Sm_Vote(Title,VoteType,ValidFlag) Values('"&Title&"',"&VoteType&","&ValidFlag&")"					
	oConn.execute StrSql
	'插入一个投票主题的选项
	Set Rs=oConn.execute("Select top 1 VoteId From Sm_Vote Where title='"&Title&"' Order by VoteId Desc")
	VoteId = Rs(0)
	Set Rs=nothing
	dim i
	For i=1 To 6
		DetailTitle = Request.Form("DetailTitle"&i)
		if DetailTitle<>"" Then
			Call InsertDetailTitle(VoteId,DetailTitle)
		end if
	next
	
	oConn_Close
	call InfoErrorDisplay("投票主题添加成功，继续管理其他投票","Vote_List.asp")	
End Sub


'投票主题的更改
Sub Sm_Vote_edit
oConn_Start
	VoteId = Request.QueryString("VoteId")
	ValidFlag=Request.Form("ValidFlag")
	VoteType=Request.Form("VoteType")
	Title=Request.Form("Title")
	rec = Request.Form("i")
	'判断是否输入
	If Not IsNot(Title,"s") Then
		Call InfoErrorWrite("您还没有输入投票主题")
	End if
	Strsql = "Update Sm_Vote Set Title='"&Title&_
			"',ValidFlag="&ValidFlag&",VoteType='"&VoteType&"' Where VoteId="&VoteId

	oConn.execute StrSql
	
	'更新投票主题选项
	For i=1 To rec-1
		DetailTitle = Request.Form("DetailTitle"&i)
		TotalCount = Request.Form("TotalCount"&i)
		id = Request.Form("DetailId"&i)
		if DetailTitle<>"" Then
			Call UpdateDetailTitle(id,DetailTitle,TotalCount)
		end if
	next
	oConn_Close
	call InfoErrorDisplay("投票主题添加成功，继续管理其他投票","Vote_List.asp")
End Sub

'更新投票主题的选项
Sub UpdateDetailTitle(id,DetailTitle,TotalCount)
	'做的过程中出现一个错误就是起了个字段名count
	'经验所得：不能起和关键字同名的，否则Sql语句将会有出错提示
	sql = "Update Sm_VoteDetail Set DetailTitle='"&DetailTitle&"',TotalCount="&TotalCount&" Where DetailId="&id	
	oConn.execute sql
End Sub

'插入投票主题的选项
Sub InsertDetailTitle(VoteId,DetailTitle)
	sql = "Insert into Sm_VoteDetail(DetailTitle,VoteId) Values('"&DetailTitle&"',"&VoteId&")"
	oConn.execute sql
End Sub
%>