shiti_xg.asp

来自「吻宇考试管理系统源码吻宇考试管理系统源码」· ASP 代码 · 共 178 行

ASP

178 行

<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<%
dim rs,rs1,sql,sql1
dim id,mdb,tk,tm,km,lx,a,b,c,d,anw,lx1
id=clng(request.QueryString("id"))
mdb=trim(request.querystring("mdb"))
tk=clng(request.querystring("tk"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb&" where id="&id&""
rs.open sql,conn,1,1
km=rs("kemu")
tm=rs("question")
lx=rs("type")
a=rs("a")
b=rs("b")
c=rs("c")
d=rs("d")
anw=rs("answer")
if lx=1 then
lx1="单选"
elseif lx=2 then
lx1="多选"
else
end if
%>
<!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;
}
-->
</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_save.asp?tk=<%=tk%>&mdb=<%=mdb%>&id=<%=id%>"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" value="<%=tm%>"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td height="20">所在位置：</td>
      <td>题库<%=tk%></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>属于科目：</td>
      <td><select name="km" id="km">
        <option><%=km%></option>
        <%
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from kemu order by id DESC"
rs1.open sql1,conn,1,1
if not rs1.eof then
rs1.movefirst
do while not rs1.eof
%>
        <option><%=rs1("name")%></option>
        <%
				rs1.MoveNext
                Loop
			else
			response.Write"<option>暂时没有数据</option>"
			end if 
			rs1.close
set rs1=nothing
			%>
      </select></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>考题类型：</td>
      <td>        <select name="lx" id="lx">
        <option value="<%=lx%>"><%=lx1%></option>
        <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" value="<%=a%>"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项B内容：</td>
      <td><input name="b" type="text" id="b" value="<%=b%>"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项C内容：</td>
      <td><input name="c" type="text" id="c" value="<%=c%>"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td>选项D内容：</td>
      <td><input name="d" type="text" id="d" value="<%=d%>"></td>
    </tr>
    <tr bgcolor="#EFF8FE">
      <td height="16">答案选项：</td>
      <td><input name="anw" type="text" id="anw" value="<%=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>
<%
rs.close
set rs=nothing
set conn=nothing
%>

shiti_xg.asp - 源码说明

本页面展示了「吻宇考试管理系统源码吻宇考试管理系统源码」中的 shiti_xg.asp 源码文件，采用 ASP 编程语言编写，共 178 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?