📄 admindatabaseedit.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
tmid=request("tmid")
sql="select tbtk.*,tbkc.kcm from tbtk,tbkc where tmid="&tmid&" and tbkc.kcid=tbtk.kcid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
kcid=rs("kcid")
subjectview=rs("kcm")
typeedit=rs("category")
question=rs("title")
text1=rs("a")
text2=rs("b")
text3=rs("c")
text4=rs("d")
text5=rs("e")
text6=rs("f")
answer=trim(rs("ans"))
chapter=rs("chapter")
level=rs("level")
kao=rs("kao")
filename=rs("photo")
sql1="select * from tbkc "
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上考试系统 | 系统管理 | 查看编辑题目</title>
<script language="javascript">
function submitit()
{
if (document.all.question.value=="")
{
alert("标题不能为空！");
return false;
}
else
{
return true;
}
}
function delphoto(myform)
{
myform.action="deletephoto.asp";
}
function savephoto1(myform)
{
myform.action="editupfile.asp";
}
function editxiaoti(myform)
{
myform.action="admindatabaseeditread.asp?tmid=<%=tmid%>&readno=1";
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p>当前位置：系统管理 > 题库管理 > 查看/编辑题目</td>
</tr>
</table> <form name="addform" method="POST" action="admindatabasesaveedit.asp" enctype="multipart/form-data">
<input type="hidden" value="<%=tmid%>" name="tmid">
<%
if typeedit="1" then
%><center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber3" height="60">
<tr>
<td width="105" align="center" bgcolor="#799AE1" height="16" bordercolor="#799AE1">
<b><font color="#FFFFFF">当前题库</font></b></td>
<td width="316" height="16" bgcolor="#FFFDE8" bordercolor="#799AE1">
<select size="1" name="subjectview">
<%
power=session("power")
dim arr,id1
if instr(power,",")>0 then
Arr=split(power)
for i = 0 to ubound(arr)
id1=clng(arr(i))
sql3="select * from tbkc where kcid="&id1
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
%>
<option value="<%=rs3("kcid")%>" <%if rs3("kcm")=cstr(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<% next
else
if power<=0 then
sql3="select * from tbkc"
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
do while not rs3.eof %>
<option value="<%=rs3("kcid")%>" <%if rs3("kcm")=cstr(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<% rs3.movenext
loop
else
sql3="select * from tbkc where kcid="&power
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
%>
<option value="<%=rs3("kcid")%>" <%if rs3("kcm")=cstr(subjectview) then %>selected <%end if %>><%=rs3("kcm")%></option>
<% end if
end if
rs3.movefirst
%>
</select> <span lang="en-us">
</span>
</td>
<td width="124" colspan="2" height="16" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="20%" height="2"><input type="radio" name="kao" <%if kao="1" then %> checked <%end if %> value="1"></td>
<td width="34%" height="2">考 试</td>
<td width="13%" height="2">
<input type="radio" name="kao" <%if kao="0" then %> checked <%end if %> value="0" ></td>
<td width="33%" height="2">练 习</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" width="105" height="28" bordercolor="#799AE1">
<b><font color="#FFFFFF">类<span lang="en-us">
</span>型</font></b></td>
<td width="444" colspan="3" height="28" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4" width="148">
<tr>
<td width="1">
</td>
<td width="86">名词解释</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" width="105" height="1" bordercolor="#799AE1">
<b><font color="#FFFFFF">图
片</font></b></td>
<td width="444" colspan="3" height="1" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="425" height="26">
<tr>
<td align="center" id="upid" height="15" width="418">
<input type="file" name="file1" size="30" class="inputnormalleft" ><span lang="en-us">
</span><input type="submit" name="Submit" value="提 交" class="s02" onclick="savephoto1(addform)" ><span lang="en-us">
</span>
<input type="submit" name="Submit7" value="删 除" class="s02" onclick="delphoto(addform)" ></td>
</tr>
<%if filename<>"" then %>
<tr>
<td align="center" id="upid" height="11" width="418">
<img border="0" src="examimage/<%=filename%>"><br><%=filename%></td>
</tr><%end if %>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" width="105" height="54" bordercolor="#799AE1">
<b><font color="#FFFFFF">标 题</font></b></td>
<td width="444" colspan="3" height="54" bgcolor="#FFFDE8" bordercolor="#799AE1">
<textarea rows="4" name="question" cols="57" onblur="this.className='inputnormalleft'" onfocus="this.className='inputedit';this.select()" class="inputnormalleft"><%=question%></textarea></td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" height="54" width="105" bordercolor="#799AE1">
<b><font color="#FFFFFF">答 案</font></b></td>
<td height="54" width="444" colspan="3" bgcolor="#FFFDE8" bordercolor="#799AE1">
<textarea rows="4" name="answer" cols="57" onblur="this.className='inputnormalleft'" onfocus="this.className='inputedit';this.select()" class="inputnormalleft"><%=answer%></textarea></td>
</tr>
<tr>
<td align="center" height="24" bgcolor="#799AE1" width="105" bordercolor="#799AE1">
<b><font color="#FFFFFF">章 <span lang="en-us"> </span> 节</font></b></td>
<td height="24" width="316" bgcolor="#FFFDE8" bordercolor="#799AE1">
<span lang="en-us"> </span><select size="1" name="chapter"><%
sqlch="select * from tbchapter where kcid="&kcid&" order by chapter"
set rsch=server.createobject("adodb.recordset")
rsch.open sqlch,conn,3,2
do while not rsch.eof %>
<option value="<%=rsch("chapter")%>" <%if rsch("chapter")=chapter then %>selected <%end if %>>第<%=rsch("chapter")%>章</option>
<% rsch.movenext
loop
%></select></td>
<td height="24" width="61" bgcolor="#799AE1" bordercolor="#799AE1">
<p align="center"><b><font color="#FFFFFF">难 度</font></b></td>
<td height="24" width="59" bgcolor="#FFFDE8" bordercolor="#799AE1">
<select size="1" name="level">
<option <% if rs("level")="1" then %> selected <%end if %> value="1">容易</option>
<option <% if rs("level")="2" then %> selected <%end if %> value="2">中等</option>
<option <% if rs("level")="3" then %> selected <%end if %> value="3">较难</option>
<option <% if rs("level")="4" then %> selected <%end if %> value="4">最难</option>
</select></td>
</tr>
<tr>
<td align="center" height="21" colspan="4" width="553">
<div align="right">
<input type="submit" value="保存" name="B1" class="s02">
<span lang="en-us"> </span>
<input type="button" value="关闭窗口" name="B2" onclick="self.close()" class="s02">
</div>
</td>
</tr>
</table>
</center>
<%
end if
if typeedit="2" then
%><center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber3" height="280">
<tr>
<td width="121" align="center" bgcolor="#799AE1" height="20" bordercolor="#799AE1">
<b><font color="#FFFFFF">当前题库</font></b></td>
<td width="323" height="20" bgcolor="#FFFDE8" bordercolor="#799AE1">
<select size="1" name="subjectview">
<%
do while not rs1.eof
%><option value="<%=rs1("kcid")%>" <%if rs1("kcm")= subjectview then %> selected <%end if%>><%=rs1("kcm")%></option>
<%
rs1.movenext
loop %>
</select>
</td>
<td width="188" colspan="2" height="20" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="20%" height="2">
<input type="radio" name="kao" <%if kao="1" then %> checked <%end if %> value="1"></td>
<td width="34%" height="2">考 试</td>
<td width="13%" height="2">
<input type="radio" name="kao" <%if kao="0" then %> checked <%end if %> value="0" ></td>
<td width="33%" height="2">练 习</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" width="121" height="28" bordercolor="#799AE1">
<b><font color="#FFFFFF">类<span lang="en-us">
</span>型</font></b></td>
<td width="515" colspan="3" height="28" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4" width="126">
<tr>
<td width="1"></td>
<td width="42">填空题</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#799AE1" width="121" height="43" bordercolor="#799AE1">
<b><font color="#FFFFFF">图
片</font></b></td>
<td width="515" colspan="3" height="43" bgcolor="#FFFDE8" bordercolor="#799AE1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="425" height="24">
<tr>
<td align="center" id="upid" height="10" width="418">
<input type="file" name="file1" size="30" class="inputnormalleft" ><span lang="en-us">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -