kemu_gl.asp

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

ASP
96 行
字号 
<!--#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="vbScript" >
sub del(id)
if confirm("你真的要删除这个科目吗?") then
window.location.href"kemu_del.asp?id="&id
end if
end sub
sub gb(id)
if confirm("你真的要关闭这个考试科目吗?") then
window.location.href"kemu_zt.asp?id="&id&"&action=lock.asp"
end if
end sub
</script>
</head>

<body>
<table width="314" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
  <tr bgcolor="#EFF8FE">
    <td colspan="6"><div align="center">科目管理</div></td>
  </tr>
  <tr bgcolor="#EFF8FE">
    <td><div align="center">科目名称</div></td>
    <td><div align="center">科目状态</div></td>
	<td><div align="center">关闭</div></td>
	<td><div align="center">开启</div></td>
	<td><div align="center">修改</div></td>
    <td><div align="center">删除</div></td>
  </tr>
  <%
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
namer=rs("name")
id=rs("id")
if rs("zt")="unlock" then
zt="开启"
else
zt="锁定"
end if%>
  <tr bgcolor="#EFF8FE">
    <td width="95"><div align="center"><%=namer%></div></td>
    <td width="70"> <div align="center"><%=zt%></div></td>
	<td width="38"><div align="center"><a href="#" onclick="call gb(<%=id%>)">关闭</a></div></td>
	<td width="38"><div align="center"><a href="kemu_zt.asp?id=<%=id%>&action=unlock.asp">开启</a></a></div></td>
	<td width="38"><div align="center"><a href="kemu_xg.asp?id=<%=id%>">修改</a></div></td>
    <td width="38"><div align="center"><a href="#"onclick="call del(<%=id%>)">删除</a></div></td>
  </tr>
  <%
				rs.MoveNext
                Loop
			else
			response.Write"暂时没有数据"
			end if 
			rs.close
			set rs=nothing
			set conn=nothing
			%>
</table>
</body>
</html>

kemu_gl.asp - 源码说明

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

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

⌨️ 快捷键说明

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