⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 chaxunh.asp

📁 这是用asp做的一个网上考试题库系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<html>

<head>
<style>
  .bodyStyle {font-family: "Verdana", "Arial";
              font-size: 10pt;
              color:  #00309c}

  .bodyStyle2 {font: 10pt "Verdana", "Arial";
               margin-left:12pt;
              background-image:  url(../djst/share/blue_gradient.jpg);
              background-attachment: fixed;
              color:  #00309c;
              width:532px}

  A:HOVER {
           text-decoration: none }

  A:LINK { text-decoration: none }

  A:ACTIVE { 
             text-decoration: none }

  A:VISITED { text-decoration: none }

  TABLE   {margin-right: 20pt;
           font-size: 10pt;
           font-family: "Verdana", "Arial"}

  .active  {font-weight: bold;
            color: #00309c}
  .active2 {font-weight: bold;
            color: #405040}
  .visited {font-weight: normal;
            color: #405040 }

  .1      {margin-left: 0pt}
  .2      {margin-left: 16pt;
           width: 100pt}
  .3      {margin-left: 32pt;
           width: 90pt}
  .4      {margin-left: 45pt;
           width: 50pt}

</style>

</head>

<body class=bodyStyle2 bgcolor="#CCCCCC">
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

  var checkOK = "0123456789-";
  var checkStr = theForm.displayS.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("在 displayS 域中,只能输入 数字 个字符。");
    theForm.displayS.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseInt(allNum);
  if (chkVal != "" && !(prsVal >= "1"))
  {
    alert("请在 displayS 域中输入值 大于或等于 1。");
    theForm.displayS.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="post" action="cxresult.asp" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" > 
<div align="center">
  <center>
      <table border=1 align="center" bordercolor=#ffffff bordercolorlight=#0066CC cellspacing=0 

width="650" bordercolordark="#FFFFFF" bgcolor="#E7E3E7">
        <tr> 
          <td height="35" width="12%">&nbsp; </td>
          <td height="35" width="18%"><b><font color="#FF0000">查询字段</font></b></td>
          <td height="35" width="22%"><font color="#FF0000"><b>查询条件</b></font></td>
          <td height="35" width="48%"><b><font color="#FF0000">字段</font></b><font color="#FF0000"><b>值</b></font></td>
        </tr>
        <tr> 
          <td height="34" width="12%"> 
            <div align="center"> 
              <input type="checkbox" name="xx" value="1">
            </div>
          </td>
          <td height="34" width="18%">难度级别 </td>
          <td height="34" width="22%"> 
            <select name="ndjb" size="1" style="HEIGHT: 21px; WIDTH: 78px">
              <option>=</option>
              <option selected>&gt;</option>
              <option>&lt;</option>
              <option>&gt;=</option>
              <option>&lt;=</option>
              <option>&lt;&gt;</option>
            </select>
          </td>
          <td height="36" width="48%"> 
            <select name="ndvalue" size="1" style="HEIGHT: 21px; WIDTH: 78px">
              <option value="0.9">难</option>
              <option value="0.7">较难</option>
              <option value="0.5" selected>中</option>
              <option value="0.3">较易</option>
              <option value="0.1">易</option>
            </select>
          </td>
        </tr>
        <tr> 
          <td height="35" width="12%"> 
            <div align="center"> 
              <input type="checkbox" name="xx" value="2">
            </div>
          </td>
          <td height="35" width="18%">区分度级别</td>
          <td height="35" width="22%"> 
            <select name="qfdjb" size="1" style="HEIGHT: 21px; WIDTH: 78px">
              <option>=</option>
              <option selected>&gt;</option>
              <option>&lt;</option>
              <option>&gt;=</option>
              <option>&lt;=</option>
              <option>&lt;&gt;</option>
            </select>
          </td>
          <td height="35" width="48%"> 
            <select name="qfdvalue" size="1" style="HEIGHT: 21px; WIDTH: 78px">
              <option value="0.9">很好</option>
              <option value="0.7">较好</option>
              <option value="0.5" selected>中</option>
              <option value="0.3">较差</option>
              <option value="0.1">很差</option>
            </select>
          </td>
        </tr>
        <tr> 
          <td height="34" width="12%"> 
            <div align="center"> 
              <input type="checkbox" name="xx" value="3">
            </div>
          </td>
          <td height="34" width="18%">题型</td>
          <td height="34" width="22%">=</td>
          <td height="34" width="48%"> 
            <select name="tx" size="1" style="HEIGHT: 21px; WIDTH: 90px">
              <option value="1" selected>单项选择题</option>
              <option value="2">多项选择题</option>
              <option value="3">填空题</option>
              <option value="4">判断题</option>
              <option value="5">分析题</option>
            </select>
          </td>
        </tr>
        <tr> 
          <td height="34" width="12%"> 
            <div align="center"> 
              <input type="checkbox" name="xx" value="4">
            </div>
          </td>
          <td height="34" width="18%">知识点</td>
          <td height="34" width="22%"><a href="../Selknowledge.asp?tx=6">请选择知识点</a></td>
          <td height="34" width="48%"> <%Set objConn = Server.CreateObject ("ADODB.Connection")
       strConnection = "Data Source = ks;"
       strConnection = strConnection & "User ID =lili;Password=;" 
       objConn.Open strConnection
       Set Know = Server.CreateObject ("ADODB.Recordset")
       Set Know.ActiveConnection = objConn

	  sql="SELECT distinct KnowledgeID,KnowledgeObject FROM knowledge where not KnowledgeObject is null"
	  Know.Open sql 
	  if not Know.BOF then 
		Know.MoveFirst  
	  end if 
	  KID=""
	  KIDname=""
     Response.Write "<select name='menu1' size='1' style='width: 180; height: 23; position: relative'>"  
	  do while not Know.EOF  
		if Request(Know("KnowledgeID"))<>"" then 
			KID=KID &trim( Know("KnowledgeID"))&";"
			KIDname=KIDname & trim(Know("KnowledgeObject")) &";"
			Response.Write "<option value=''>" & Know("KnowledgeObject") & "</option>" 
		end if 
	  Know.MoveNext  
	  loop 
	
     Response.Write "</select>"%> 
            <input type="hidden" name="KID" value=<%=KIDname%>>
          </td>
        </tr>
        <tr> 
          <td height="34" width="12%"> 
            <div align="center"> 
              <input type="checkbox" name="xx" value="5">
            </div>
          </td>
          <td width="18%">认知分类</td>
          <td width="22%">=</td>
          <td width="48%"> 
            <select name="rzhvalue" size="1" style="HEIGHT: 21px; WIDTH: 78px">
              <option value="1" selected>知道</option>
              <option value="2">领会</option>
              <option value="3">评价</option>

⌨️ 快捷键说明

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