shiti_gl.asp
来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 136 行
ASP
136 行
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<%
dim mdb,tk,kemu
mdb=trim(request.QueryString("mdb"))
tk=trim(request.querystring("tk"))
kemu=trim(request.querystring("kemu"))
Page=clng(Request.QueryString ("Page"))
dim wysql,wyrs
wysql="select * from index where id=1"
set wyrs=conn.execute(wysql)
if kemu="" then
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb&" order by id DESC"
rs.open sql,conn,1,1
url="tk="&tk&"&mdb="&mdb
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&mdb&" where kemu='"&kemu&"' order by id DESC"
rs.open sql,conn,1,1
url="tk="&tk&"&mdb="&mdb&"&kemu="&kemu
end if
pagesize=15 '每一页的信息条数
if page<1 then page=1
if page>rs.PageCount then page=rs.PageCount
%>
<!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>
</head>
<body>
<table width="627" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
<tr bgcolor="#EFF8FE">
<td height="7" colspan="5"><div align="center">试题管理</div></td>
</tr>
<tr bgcolor="#EFF8FE">
<td height="15" colspan="5"><table width="624" cellpadding="1" cellspacing="1">
<tr>
<td width="178" height="20">考试管理系统题库总数：<%=wyrs("sjzs")%></td>
<td width="175">当前是题库<%=tk%>的试题数据</td>
<td width="155">题库数据库表名：<%=mdb%></td>
<td width="101"><a href="shiti_indexgl.asp">返回试题管理首页</a></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EFF8FE">
<td width="48"><div align="center"></div> <div align="center"></div>
<div align="center">类型</div></td>
<td width="396"><div align="center">试题题目</div></td>
<td width="104"><div align="center">所属科目</div></td>
<td width="29">修改</td>
<td width="28"><div align="center"></div>
<div align="left">删除</div></td>
<%
if not rs.eof then
rs.movefirst
rs.AbsolutePage = Page
for i=1 to pagesize
id=rs("id")
question=rs("question")
kemu=rs("kemu")
type1=rs("type")
if type1=1 then
lx="单选"
elseif type1=2 then
lx="多选"
else
end if
%>
</tr>
<tr bgcolor="#EFF8FE">
<td height="20"><div align="center"><%=LX%></div></td>
<td height="20"><%=question%></td>
<td height="20"><div align="center"><a href="shiti_gl.asp?tk=<%=tk%>&mdb=<%=mdb%>&kemu=<%=kemu%>"><%=kemu%></a></div></td>
<td height="20"><a href="shiti_xg.asp?tk=<%=tk%>&mdb=<%=mdb%>&id=<%=id%>">修改</a></td>
<td height="20"><a href="shiti_del.asp?mdb=<%=mdb%>&id=<%=id%>">删除</a></td>
</tr>
<%
rs.MoveNext
if rs.eof then exit for
next
else
response.Write"暂时没有数据"
end if
%>
<tr bgcolor="#EFF8FE"><td height="29" colspan="5"><div align="center">
<table border=0 width='100%'>
<tr>
<td width="314" align=left>
<div align="center">试题总数量：<font color=#ff3333><%=rs.recordcount%></font>道 总页数：<font color=#ff3333><%=rs.PageCount%></font>页 当前第<font color=#ff3333><%=Page%></font><span class="style1">/</span><font color=#ff3333><%=rs.pagecount%></font>页</div></td>
<td width="297" align="right">
<div align="center"></div>
<div align="center"><a href="shiti_gl.asp?<%=url%>&Page=1">|第一页</a>|<a href="shiti_gl.asp?<%=url%>&Page=<%=Page-1%>">上一页</a>|<a href="shiti_gl.asp?<%=url%>&Page=<%=Page+1%>">下一页</a>|<a href="shiti_gl.asp?<%=url%>&Page=<%=rs.pagecount%>">最后一页</a>|<a href="shiti_gl.asp?tk=<%=tk%>&mdb=<%=mdb%>&Page=1">返回题库总目录</a>|</div></td>
</tr>
</table>
</div></td>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?