📄 researchmanage.asp
字号:
单选
<input type="radio" name="R_Choice" value="1">
多选</td>
</tr>
<%for i=1 to AnsNumber%>
<tr>
<td height="28" align="center">答案<%=i%>：</td>
<td colspan="2"><input name="T_Answer<%=i%>" type="text" size="40"></td>
</tr>
<%next%>
<tr>
<td height="28" align="center">添加时间：</td>
<td colspan="2"><input name="T_AddTime" type="text" id="T_AddTime" value="<%=now()%>"></td>
</tr>
<tr>
<td height="28" align="center"> <input name="H_AnsNumber" type="hidden" id="H_AnsNumber" value="<%if request("T_AnsNumber")="" then response.write "4" else response.write request("T_AnsNumber")%>">
<input name="cur_action" type="hidden" id="cur_action" value="addsave"></td>
<td colspan="2"><input type="submit" name="Submit" value="正确提交">
<input type="reset" name="Submit2" value="重新填写">
<input type="button" name="Submit3" value="返回" onClick="javascript:history.back();"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%end if
if request("cur_action")="edit" then
set rs_edit=conn.execute("select * from tResearchQue where ID="&request("EditID"))
if rs_edit.bof and rs_edit.eof then
response.write "<script>alert('读取数据时出错，请与管理员联系！');history.back();</script>"
response.end
end if
%> <br> <table width="98%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<form name="form1" method="post" action="?cur_action=editsave" onSubmit="return check_data()">
<tr>
<td height="22" colspan="2" align="center" bgcolor="#FFFFFF" class="fonttitle"><strong><font color="#000000">修改调查题目资料</font></strong></td>
</tr>
<tr>
<td height="26" colspan="2" align="right" bgcolor="#E7E7DE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="18%" height="28" align="center">调查题目：</td>
<td width="38%"><input name="T_Title" type="text" id="T_Title" size="50" value="<%=rs_edit("Title")%>"></td>
<td width="44%"><input name="R_Choice" type="radio" value="0" checked>
单选
<input type="radio" name="R_Choice" value="1">
多选</td>
</tr>
<%conn.cursorlocation=3
set rs_edit2=conn.execute("select * from tResearchAns where QuestionID="&rs_edit("ID"))
for i=1 to rs_edit2.recordcount%>
<tr>
<td height="28" align="center">答案<%=i%>：</td>
<td colspan="2"><input name="T_Answer<%=i%>" type="text" size="40" value="<%=rs_edit2("Title")%>">
<input name="H_AnsID<%=i%>" type="hidden" id="H_AnsID" value="<%=rs_edit2("ID")%>"></td>
</tr>
<% rs_edit2.movenext
next%>
<tr>
<td height="28" align="center">添加时间：</td>
<td colspan="2"><input name="T_AddTime" type="text" id="T_AddTime" value="<%=now()%>"></td>
</tr>
<tr>
<td height="28" align="center"> <input name="cur_action" type="hidden" id="cur_action" value="editsave">
<input name="PageNo" type="hidden" id="PageNo" value="<%=request("PageNo")%>">
<input name="EditID" type="hidden" id="EditID" value="<%=request("EditID")%>">
<input name="H_AnsNumber" type="hidden" id="H_AnsNumber" value="<%=rs_edit("AnsNumber")%>"></td>
<td colspan="2"><input type="submit" name="Submit6" value="正确提交">
<input type="reset" name="Submit23" value="重新填写">
<input type="button" name="Submit33" value="返回" onClick="javascript:history.back();"></td>
</tr>
</table></td>
</tr>
</form>
</table>
<%end if
'----------------------------
PERPAGE =10
PageNo=request("PageNo")
set rs=server.createobject("ADODB.recordset")
sql="select * from tResearchQue order by AddTime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂时没有数据!"
else
if request("PageNo")="" then
CurPage = 1
else
CurPage = cint(request("PageNo"))
end if
rs.pagesize = PERPAGE
rs.absolutepage = CurPage
%> <br> <table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#FFFFFF">
<td width="51%" height="22"><strong>题目内容</strong></td>
<td width="7%"><strong>答案个数</strong></td>
<td width="11%" height="22" bgcolor="#FFFFFF"><strong>类型</strong></td>
<td width="12%" bgcolor="#FFFFFF"><strong>发布时间</strong></td>
<td width="19%" height="22"><strong>功能操作</strong></td>
</tr>
<% for i = 1 to rs.pagesize %>
<tr align="center" onMouseOver="this.style.backgroundColor='#e7e7e7';" onMouseOut="this.style.backgroundColor='#ffffff'">
<td height="22" bgcolor="#FFFFFF"><%=rs("Title")%></td>
<td height="22" bgcolor="#FFFFFF"><%=rs("AnsNumber")%></td>
<td height="22" bgcolor="#FFFFFF"><% if rs("Choice") then response.write "多选" else response.write "单选" %></td>
<td height="22" bgcolor="#FFFFFF"><%=rs("AddTime")%></td>
<td height="22" bgcolor="#FFFFFF"> <a href="?cur_action=result&EditID=<%=rs("ID")%>">调查结果</a>|<a href='?cur_action=edit&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>'>修改</a>|<a href="?cur_action=delete&EditID=<%=rs("ID")%>&PageNo=<%=PageNo%>" onclick="{if(confirm('确定删除选定的纪录吗?')){return true;}return false;}">删除</a></td>
</tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table></td>
</tr>
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="33%"> 页次：<b><%=CurPage%></b>/<b><%=rs.pagecount %></b>页 共<b><%=rs.recordcount %></b>条记录</td>
<td width="67%" align="right"> <%
if CurPage = 1 then
response.write " 首页 | 上一页 | "
else
response.write "<a href='?PageNo=1&T_key="&request("T_key")&"'><b> 首页 </b></a> | <a href='?PageNo="&CurPage-1&"&T_key="&request("T_key")&"'><b>上一页</b></a>| "
end if
if CurPage = rs.pagecount then
response.write "后一页 | 尾页 "
else
response.write "<a href='?PageNo="&CurPage+1&"&T_key="&request("T_key")&"'><b>后一页</b> </a>| <a href='?PageNo="&rs.pagecount&"&T_key="&request("T_key")&"'><b>尾页</b> </a>"
end if
%> 跳转到： <select name="menu1" onChange="MM_jumpMenu('parent.frames[\'right\']',this,0)">
<% for i=1 to rs.pagecount
if CurPage=i then
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"' selected>第"&i&"页"
else
response.write "<option value='?PageNo="&i&"&T_key="&request("T_key")&"'>第"&i&"页"
end if
next
%>
</select> </td>
</tr>
</table>
<%end if%> <br> <br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -