📄 selectsubject.asp
字号:
<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Functions.asp"-->
<%
TestID=Trim(Request("TestID"))
If TestID<>"" Then
Conn.Execute( "Delete from TestName where TestID="&TestID )
Response.Redirect"SelectSubject.asp?"
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Application("TestVersion")%></title>
<link rel="stylesheet" type="text/css" href="css.css">
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style></head>
<body topmargin="2">
<table width="100%" height="18" cellspacing="1" bordercolor="#C0C0C0" bgcolor="#D9ECFF" id="AutoNumber2" style="border-collapse: collapse">
<tr>
<td width="100%" background="../images/Down_bg.gif"> ★ <strong>当前位置： <font color="#FF0000">自测管理</font></strong></td>
</tr>
</table>
<br>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#C0C0C0" id="AutoNumber2" style="border-collapse: collapse">
<tr bgcolor="#D9ECFF" background="../images/Down_bg.gif">
<td width="30" height="18" align="center"><font color="#666666"><strong>序号</strong></font></td>
<td><font color="#666666"> <b>自测标题</b></font></td>
<td width="80"> <p align="center"><font color="#666666"><b>自测总分</b></font></td>
<td width="80"> <p align="center"><font color="#666666"><b>自测次数</b></font></td>
<td width="156"> <p align="center"><font color="#666666"><b>功能操作</b></font></td>
</tr>
<%
sql="select * from TestName order by TestID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
if iCount<=0 then
if search="" then
word="目前还没有记录!"
else
word="没有查到符合条件的记录!"
end if
else
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
For i=1 To x
%>
<tr>
<td width="30" height="20" align="center" bgcolor="#D9ECFF"><%=i%></td>
<td bgcolor="#FFFFFF"> <p align="left"> <%=rs("TestName")%></td>
<td bgcolor="#FFFFFF"> <p align="center"> <%=rs("TotalResult")%> 分</td>
<td bgcolor="#FFFFFF"> <p align="center"> <%=rs("TestCount")%></td>
<td bgcolor="#FFFFFF"> <p align="center"> <a href=ShowMeTest.asp?TestID=<%=rs("TestID")%>>自测</a> <a href=EditTest.asp?TestID=<%=rs("TestID")%>>修改</a>
<a href="SelectSubject.asp?TestID=<%=rs("TestID")%>" onClick="return confirm('您确认要删除这条自测卷吗？')">删除</a> <a href=AboutResult.asp?TestID=<%=rs("TestID")%>&Show=1>分数说明</a></td>
</tr>
<%
rs.movenext
Next
rs.close()
set rs=nothing
%>
</table>
<% call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=center class=font2>") %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -