?? voting.asp
字號(hào):
<%@ Language=VBScript %>
<%
'判斷用戶是否登錄
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'連接系統(tǒng)數(shù)據(jù)庫(kù)
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
'開始發(fā)布投票
if not IsEmpty(Request.Form("Send")) then
'投票發(fā)布的范圍
if Request.Form("SendTo") = "All" then
set RSEmails = conn.Execute("select ID, Name, EmailAddress from PSLogins")
set RSVoterNumber = conn.Execute("SELECT COUNT(ID) AS VoterNumber FROM PSLogins ")
elseif Request.Form("SendTo") = "Department" then
set RSEmails = conn.Execute("select ID, Name, EmailAddress from PSLogins where Department = '" _
& Request.Form("DepartmentName") & "'")
set RSVoterNumber = conn.Execute("SELECT COUNT(ID) AS VoterNumber FROM PSLogins " _
& "where Department = '" & Request.Form("DepartmentName") & "'")
else
set RSEmails = conn.Execute("select ID, Name, EmailAddress from PSLogins where Position = '" _
& Request.Form("PositionName") & "'")
set RSVoterNumber = conn.Execute("SELECT COUNT(ID) AS VoterNumber FROM PSLogins " _
& "where Position = '" & Request.Form("PositionName") & "'")
end if
CurrentDateTime = Now()
conn.Execute "Insert Into VotingQuestions (SenderName, Subject, Question, WhenSent, VoterNumber) " _
& "values (" _
& "'" & Session("Name") & "', " _
& "'" & Request.Form("Subject") & "', " _
& "'" & Request.Form("SuggestionText") & "', " _
& "'" & CurrentDateTime & "', " _
& "'" & RSVoterNumber("VoterNumber") & "')"
set RSQuestionID = conn.Execute("select QuestionID from VotingQuestions " _
& "where WhenSent = #" & CurrentDateTime & "#")
do Until RSEmails.eof
'構(gòu)造電子郵件內(nèi)容
EmailMessage = Session("Name") & "發(fā)起了一輪投票:" & chr(13)
EmailMessage = EmailMessage & "投票的問題題目是:" & Request.Form("Subject") & chr(13)
EmailMessage = EmailMessage & "投票的問題內(nèi)容是:" & Request.Form("SuggestionText") & chr(13)
EmailMessage = EmailMessage & "要想投票，請(qǐng)點(diǎn)擊下面的鏈接(請(qǐng)注意，如果您已經(jīng)投過票，" _
& "您將無法看到鏈接): "
EmailMessage = EmailMessage & "http://166.111.56.212/Messageboard/ToVote.asp?"
EmailMessage = EmailMessage & "QuestionID=" & RSQuestionID("QuestionID")
EmailMessage = EmailMessage & "&VoterID=" & RSEmails("ID") & chr(13)
'發(fā)送投票通知的電子郵件
set objMail = CreateObject("CDONTS.NewMail")
objMail.Send Session("EmailAddress"),RSEmails("EmailAddress"), _
cstr(Request.Form("Subject")),cstr(EmailMessage)
set objmail = nothing
conn.Execute "insert into VotingVotes (QuestionID, VoterID, VoterName) " _
& "values (" & RSQuestionID("QuestionID") & ", '" & RSEmails("ID") & "', '" & RSEmails("Name") &"')"
RSEmails.MoveNext
loop
TheMessage = "投票信息已發(fā)出!"
else
TheMessage = "請(qǐng)?jiān)谙旅嫣顚懲镀眱?nèi)容"
end if
set RSDepartments = conn.Execute("select * from Departments where DepartmentName <>'All' " _
& "order by DepartmentName")
set PSPositions = conn.Execute("select PositionName from Positions order by PositionID")
%>
<HTML>
<HEAD>
<TITLE>公司內(nèi)部意見箱-提交意見建議</TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<body>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white><P ALIGN="CENTER">公司內(nèi)部辦公信息管理系統(tǒng)->內(nèi)部信息交流系統(tǒng)->投票站 [當(dāng)前用戶-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#104DAD">返回內(nèi)網(wǎng)主頁(yè)</font></a></td>
<td align=center> <font color="#104DAD" ><% response.write TheMessage %></FONT></td>
<td align=right><a href="Communication.asp"><font color="#104DAD">返回上一級(jí)網(wǎng)頁(yè)</font></a></td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="10" colspan="4" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr></table>
</td></tr> </table>
<br>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#164DA8" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5C7EF>
<img src="../image/MessageBoard1.jpg"></td>
<td>
<FORM ACTION="Voting.asp" METHOD=POST>
<table width=100% border=1>
<tr height=30>
<td>請(qǐng)選擇您發(fā)布投票的范圍</td><td>
<table width=100% border=1>
<tr>
<td><INPUT TYPE="radio" CHECKED NAME="SendTo" VALUE="All" >全體投票</td>
<td><INPUT TYPE="radio" NAME="SendTo" VALUE="Department" >部門投票</td>
<td><INPUT TYPE="radio" NAME="SendTo" VALUE="Position" >職位投票</td></tr>
<tr><td> </td>
<td align=center>
<SELECT NAME="DepartmentName" >
<%
Do Until RSDepartments.EOF
%>
<OPTION VALUE="<% Response.Write RSDepartments("DepartmentName") %>"><% Response.Write RSDepartments("DepartmentName") %></OPTION>
<%
RSDepartments.Movenext
loop
%>
</SELECT>
</td>
<td align=center>
<SELECT NAME="PositionName" >
<%
Do Until PSPositions.EOF
%>
<OPTION VALUE="<% Response.Write PSPositions("PositionName") %>"><% Response.Write PSPositions("PositionName") %></OPTION>
<%
PSPositions.MoveNext
Loop
%>
</SELECT>
</td></tr></table>
</td></tr>
<td>請(qǐng)選擇您要進(jìn)行投票的標(biāo)題</td><td><INPUT TYPE="text" NAME="Subject" VALUE="" SIZE=30 MAXLENGTH=30 ></td></tr>
<td>請(qǐng)選擇您要進(jìn)行投票的內(nèi)容</td><td>
<TEXTAREA NAME="SuggestionText" ROWS=6 COLS=40 ></TEXTAREA
</td></tr>
<tr><td colspan=2 align=center>
<input type=submit name=send value="開始投票" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
</td></tr>
</table>
</form>
</td></tr></table>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -