跟我學做線上調查(四)

來源:互聯網
上載者:User
線上 續上篇
上一篇中,我們完成了顯示統計結果和調查列表的程式,最後我們來完成後台
管理頁面,也是最重要的一個程式。

一、後台管理
在後台管理頁面survey_manage.asp中,前面我們已經列出來它所要實現的
管理功能。管理的流程是先顯示出所有調查,對於還沒有開始的調查,可以進行修
改、刪除;對於已經結束的調查,可以刪除,不能修改;對於進行中的調查,只
能修改它的結束時間。用一個參數action來表示動作,含義如下:
1、無參數。表示第一次進入,顯示登入表單
2、login 表示執行登入
3、logout 表示執行退出登入
4、showaddquestion 表示顯示增加一個調查
5、showsurvey 表示顯示一個調查
6、doaddsurvey 表示執行增加一個調查
7、doaddanswer 表示執行增加一個答案
8、dodelsurvey 表示刪除一個調查
9、dodelanswer 表示刪除一個答案
10、domodify 表示修改一個調查及答案

<!--#include file="inc.asp" -->
<%
opendb my '開啟資料庫
'擷取參數。action表示動作,分別對應上面的功能。
action=request.querystring("action")
id=request.querystring("id")
'擷取當前檔案名稱
scr=Request.ServerVariables("SCRIPT_NAME")
'根據動作來轉向相應的子程式
select case action
case "login"
login() '執行登入
case "logout"
logout() '執行退出登入
case "doaddsurvey"
doaddsurvey() '執行增加一個調查
case "dodelsurvey"
dodelsurvey() '執行刪除一個調查
case "dodelanswer"
dodelanswer() '執行刪除一個答案
case "domodify"
domodify() '執行修改一個調查及答案
end select
'----登入子程式----
sub login()
username=request.form("username") '擷取使用者名稱
password=request.form("password") '擷取密碼
if username<>"" and password<>"" then
sql="select * from manage where manage_username='"& username &"'" '查詢使用者
searchtable my,sql,rs
if not rs.eof then '如果有
if rs("manage_password")=password then '密碼也正確
session("survey_login")=true '登入
end if
end if
closetable rs '關閉表
end if
response.redirect scr '不管有沒登入,最後都回到管理頁
end sub
'----退出登入子程式----
sub logout()
'刪除session變數
session.contents.remove "survey_login"
response.redirect scr '回到管理頁面
end sub
'----執行增加調查子程式----
sub doaddsurvey()
question=request.form("question")
stime=request.form("stime")
etime=request.form("etime")
stype=request.form("stype")
if question<>"" and stime<>"" and etime<>"" and isdate(stime)_
and isdate(etime) and session("survey_login") then
sql="select * from survey where survey_id is null"
changetable my,sql,rs
rs.addnew
rs("survey_question")=question
rs("survey_stime")=cdate(stime)
rs("survey_etime")=cdate(etime)
rs("survey_type")=cbool(stype)
rs.update
id=rs("survey_id")
closetable rs
response.redirect scr&"?action=showsurvey&id="&id '回到顯示頁面
end if
response.redirect scr '回到顯示頁面
end sub

'----執行增加調查答案子程式----
sub doaddanswer()
answer=request.form("newanswer")
if session("survey_login") then
sql="select * from survey_vote where vote_no is null"
changetable my,sql,rs
rs.addnew
rs("vote_answer")=answer
rs("vote_id")=id
rs.update
closetable rs
end if
'response.redirect scr&"?action=showsurvey&id="&id '回到顯示頁面
end sub

'----執行修改調查子程式----
sub domodify()
question=request.form("question")
stime=request.form("stime")
etime=request.form("etime")
stype=request.form("stype")
answer=request.form("newanswer")
if session("survey_login") then
sql="select * from survey where survey_id="&id
changetable my,sql,rs
if not rs.eof then
if question<>"" then rs("survey_question")=question
if stime<>"" and isdate(stime) then rs("survey_stime")=cdate(stime)
if etime<>"" and isdate(etime) then
if cdate(etime)>rs("survey_stime") then rs("survey_etime")=cdate(etime)
end if
if stype<>"" then rs("survey_type")=cbool(stype)
rs.update
end if
closetable rs
if answer<>"" then doaddanswer()
sql="select vote_answer from survey_vote where vote_id="&id
changetable my,sql,rs
for i=1 to rs.recordcount
if request.form("no"&i) <>""



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。