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

📄 tkdanxuanmodify.asp

📁 在线考试系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="main.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
function checkform(){
	if(document.form1.question.value==""){
		alert("请添写问题!");
		document.form1.question.focus();
		return false;
	}
	if(document.form1.a.value==""){
	alert("请添写选项 A !");
	document.form1.a.focus();
	return false;
	}
	if(document.form1.b.value==""){
	alert("请添写选项 B !");
	document.form1.b.focus();
	return false;
	}
	return true;
}
</SCRIPT>
<!---#include file="conn.asp"--->
<%
categoryid=request.QueryString("categoryid")
categoryname=request.querystring("categoryname")
id=request.QueryString("id")
sql="select * from TKDanXuan where id="&id
set rst=conn.execute(sql)
%>
</head>

<body>
<h3 align="center"><%=categoryname%> 修改单选题</h3>
<form name=form1 action="TKDanXuanUpdate.asp?oper=modify&id=<%=id%>&categoryid=<%=categoryid%>" method="post" onSubmit="javascript:return confirm('确认提交吗?');">
  <table width="650" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999" >
    <tr align="center"> 
      <td colspan="5" align="center"><FONT color="#FF0000">注: * 为必添项</FONT></td>
    </tr>
    <tr align="center"> 
      <td width="45" align="center" bgcolor="#F3F3F3"> *问题:</td>
      <td colspan="4" align="left"> &nbsp; <TEXTAREA name="question" cols="80" rows="5" class="line" ><%=rst("question")%></TEXTAREA></td>
    </tr>
    <tr align="center"> 
      <td rowspan="2" align="center" bgcolor="#F3F3F3"> *答案: <br> &nbsp;&nbsp; <select name="answer" id="answer">
          <option value="A" <%	if(ucase(rst("answer"))="A") then response.Write("selected")%>>A</option>
          <option value="B" <%	if(ucase(rst("answer"))="B") then response.Write("selected")%>>B</option>
          <option value="C" <%	if(ucase(rst("answer"))="C") then response.Write("selected")%>>C</option>
          <option value="D" <%	if(ucase(rst("answer"))="D") then response.Write("selected")%>>D</option>
        </select> &nbsp;&nbsp;</td>
      <td width="28" height="38" align="right" bgcolor="#F3F3F3">*A. </td>
      <td width="267" align="left"><INPUT name="a" type="text" class="line" value="<%=rst("a")%>" size="40" maxlength="40"></td>
      <td width="28" align="right" bgcolor="#F3F3F3">*B. </td>
      <td width="313" align="left"><INPUT name="b" type="text" class="line" value="<%=rst("b")%>" size="40" maxlength="40"></td>
    </tr>
    <tr align="center"> 
      <td align="right" bgcolor="#F3F3F3">C. </td>
      <td align="left"><INPUT name="c" type="text" class="line" value="<%=rst("c")%>" size="40" maxlength="40"></td>
      <td align="right" bgcolor="#F3F3F3">D. </td>
      <td align="left"><INPUT name="d" type="text" class="line" id="d" value="<%=rst("d")%>" size="40" maxlength="40"></td>
    </tr>
    <tr align="center"> 
      <td colspan="5"> <input type="submit" value="提交" name="B12" onClick="return checkform();"> &nbsp; <input type="reset" value="重置" name="B22"> 
      </td>
    </tr>
  </table>
<%
  rst.close()
  conn.close()
  set rst=nothing
  set conn=nothing
%>
  </form>
</body>
</html>

⌨️ 快捷键说明

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