📄 shiti.asp

📁 吻宇考试管理系统源码吻宇考试管理系统源码
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>吻宇网络管理系统</title>
<style type="text/css">
<!--
body {
	background-color: #EFF8FE;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
	color: #000000;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
function formCheck() 

{


if (document.cnwy.tm.value == "") 

{

alert("试题的题目不能为空~！");

return false;

}

if (document.cnwy.a.value == "") 

{

alert("试题的A选项内容不能为空~!");

return false;
}
if(document.cnwy.b.value=="")
{
alert("试题的B选项内容不能为空~!")
return false;
}
if(document.cnwy.c.value=="")
{
alert("试题的C选项内容不能为空~!")
return false;
}
if(document.cnwy.d.value=="")
{
alert("试题的D选项内容不能为空~!")
return false;
}
if(document.cnwy.anw.value=="")
{
alert("试题的答案不能为空~!")
return false;

}
}
</script>
</head>

<body>
<form method="post" action="shiti_add.asp"name="cnwy" onSubmit="return formCheck()">
  <table width="0" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
    <tr bgcolor="#EFF8FE">
      <td colspan="2"><div align="center">试题增加</div></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td width="74">考试题目：</td>
      <td width="239"><input name="tm" type="text" id="tm"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>增加到：</td>
      <td><select name="mdb" id="mdb">
<%dim wyrs,wysql
set wyrs=server.CreateObject("adodb.recordset")
wysql="select * from index where id=1"
wyrs.open wysql,conn,1,1
for i=1 to wyrs("sjzs")
%>	    
	  <option value="shiti<%=i-1%>">题库<%=i%></option>
<%next%>
      </select></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>属于科目：</td>
      <td><select name="km" id="km">
        <%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from kemu order by id DESC"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
%>
        <option><%=rs("name")%></option>
        <%
				rs.MoveNext
                Loop
			else
			response.Write"<option>暂时没有数据</option>"
			end if 
			rs.close
			set rs=nothing
			set conn=nothing
			%>
      </select></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>考题类型：</td>
      <td>        <select name="lx" id="lx">
        <option value="1">单选</option>
        <option value="2">多选</option>
      </select></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项A内容：</td>
      <td><input name="a" type="text" id="a"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项B内容：</td>
      <td><input name="b" type="text" id="b"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项C内容：</td>
      <td><input name="c" type="text" id="c"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项D内容：</td>
      <td><input name="d" type="text" id="d"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td height="16">答案选项：</td>
      <td><input name="anw" type="text" id="anw"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>&nbsp;</td>
      <td><table width="202" border="0">
        <tr>
          <td width="89"><input type="submit" name="Submit" value="增加"></td>
          <td width="103">
            <div align="right">
              <input type="reset" name="Submit2" value="清除">
            </div></td>
        </tr>
      </table></td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -