📄 researchmanage.asp
字号:
<!--#include file="CheckAdminLogined.asp"-->
<!--#include file="../include/connstr.asp"-->
<!--#include file="../include/DefFunction.asp"-->
<%
if request("cur_action")="addsave" then'
'写入题目表
sql_addsave="insert into tResearchQue(Title,AnsNumber,Choice,AddTime) values('"&request("T_Title")&"',"&request("H_AnsNumber")&","&request("R_Choice")&",'"&now()&"')"
conn.execute sql_addsave
'写入被选题目表
set rs_Max=conn.execute("select Max(ID) as MaxID from tResearchQue")
MaxID=rs_Max("MaxID")
for i=1 to request("H_AnsNumber")
conn.execute("insert into tResearchAns(Title,QuestionID,Result) values('"&request("T_Answer"&i)&"','"&MaxID&"',0)")
next
response.write "<script>alert('已经添加成功');location.replace('ResearchManage.asp');</script>"
response.end
end if
if request("cur_action")="editsave" then
'修改调查问题表
conn.execute("update tResearchQue set Title='"&request("T_Title")&"',Choice="&request("R_Choice")&",AddTime='"&request("T_AddTime")&"' where ID="&request("EditID"))
'写入调查答案表
for i=1 to request("H_AnsNumber")
conn.execute("update tResearchAns set Title='"&request("T_Answer"&i)&"' where ID="&request("H_AnsID"&i))
next
response.write "<script>alert('已经修改成功');location.replace('ResearchManage.asp?PageNo="&request("PageNo")&"');</script>"
response.end
end if
if request("cur_action")="delete" then
sql_delete="delete from tResearchQue where ID="&request("EditID")
conn.execute sql_delete
sql_delete="delete from tResearchAns where QuestionID="&request("EditID")
conn.execute sql_delete
response.write "<script>alert('已经成功删除');location.replace('ResearchManage.asp?PageNo="&request("PageNo")&"');</script>"
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="/include/jchar.js"></script>
<script language="JavaScript">
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function check_data(){
if(Jtrim(document.form1.T_Title.value)==""){
alert("调查题目不能为空，请填写！")
document.form1.T_Title.focus()
return(false)
}
}
</script>
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="67" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td width="926" height="10"></td></td>
</tr>
<tr>
<td>我的位置：服务管理平台._综合功能管理._网上调查管理</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle">
<strong>网上调查管理</strong></td>
<td align="right" background="images/title2.gif"> <a href="?cur_action=add" class="top"><strong><font color="#CC0000">添加调查题目 </font></strong></a></td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br> <%if request("cur_action")="result" then
set rs_result=conn.execute("select * from tResearchQue where ID="&request("EditID"))
%> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td height="22" align="center" bgcolor="#FFFFFF" class="fontTitle"><strong>调查结果报表</strong></td>
</tr>
<tr>
<td bgcolor="#E7E7DE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" height="20" align="center">调查问题：</td>
<td width="38%"><%=rs_result("Title")%></td>
<td width="11%" align="center">题目类型：</td>
<td width="8%"><%if rs_result("Choice")=0 then response.write "单选" else response.write "多选"%></td>
<td width="9%" align="center">发布时间：</td>
<td width="22%"><%=rs_result("AddTime")%></td>
</tr>
<%set rs_result2=conn.execute("select * from tResearchAns where QuestionID="&rs_result("ID"))
TotalResult=0
do while not rs_result2.eof
%>
<tr>
<td height="20" align="center">答案</td>
<td colspan="5"><%=rs_result2("Title")&" 投票结果："&rs_result2("Result")%></td>
</tr>
<% TotalResult=TotalResult+rs_result2("Result")
rs_result2.movenext
loop%>
<tr>
<td height="5" colspan="6"><font color="#999999">-----------------------------------------------------------------------</font></td>
</tr>
<tr>
<td height="20" align="center">总共参加人数：</td>
<td colspan="5"><%=TotalResult%>人</td>
</tr>
<tr>
<td height="20" align="center"> </td>
<td height="28" colspan="5"><input type="button" name="Submit32" value="我知道结果了..." onClick="javascript:history.back();"></td>
</tr>
</table></td>
</tr>
</table>
<%end if
if request("cur_action")="add" then
if request("T_AnsNumber")="" then AnsNumber=4 else AnsNumber=request("T_AnsNumber")
%> <br> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td height="22" colspan="2" align="center" bgcolor="#FFFFFF" class="fonttitle"><strong>添加调查题目</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" colspan="2" align="right"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form3" method="post" action="">
<tr>
<td> <strong> 被选答案个数：</strong> <input name="T_AnsNumber" type="text" id="T_AnsNumber" size="4" maxlength="2" value="<%=AnsNumber%>">
<input type="hidden" name="cur_action" value="add">
<input type="submit" name="Submit" value="修改个数">
</td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td colspan="2" align="right" bgcolor="#E7E7DE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="?cur_action=addsave" onSubmit="return check_data()">
<tr>
<td width="18%" height="28" align="center">调查题目：</td>
<td width="38%"><input name="T_Title" type="text" id="T_Title" size="50"></td>
<td width="44%"><input name="R_Choice" type="radio" value="0" checked>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -