down.asp
来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 236 行
ASP
236 行
<!--#include file="inc.asp"-->
<%call top()%>
<table width="781" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<tr background="IMG/topbg.gif">
<td colspan="3"><%call head()%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="204"><table width="100%" border=0 cellpadding=1 cellspacing=1 bgcolor="#EFEFEF">
<tbody>
<tr bordercolor=#999999>
<td valign=center bordercolor=#999999 align=middle bgcolor=#efefef
height=17><div align="center"><img src="img/user.gif" width="200" height="22"></div></td>
</tr>
<tr>
<td valign=top bgcolor=#efefef>
<table id=AutoNumber2 style="BORDER-COLLAPSE: collapse"
cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td align=middle>
<%if request.cookies("cnwy")="" then%>
<form name=form1 action=CHECK.ASP
method=post>
<table width=0 border=0>
<tbody>
<tr>
<td width=83>
<div align=center> 准考证号：</div></td>
<td width=106><input id=zkz size=13
name=zkz></td>
</tr>
<tr>
<td width=83>
<div align=center>密码：</div></td>
<td width=106><input id=password type=password size=13
name=password></td>
</tr>
<tr>
<td width=83 height=21>
<div align=center>
<input type=submit value=登陆 name=Submit>
</div></td>
<td width=106>
<div align=center>
<input type=reset value=取消 name=Submit>
</div></td>
</tr>
</tbody>
</table>
</form>
<%else%>
<table width="0" border="0">
<%
dim rs3,sql3
set rs3=server.createobject("adodb.recordset")
sql3="select * from user where name='"&request.cookies("name")&"'"
rs3.open sql3,conn,1,1
%>
<tr>
<td colspan="2">欢迎<span class="style1"><%=rs3("name")%><span class="style2">同学来到吻宇考试系统 </span></span></td>
</tr>
<tr>
<td colspan="2">我的准考证号：<%=rs3("zkz")%></td>
</tr>
<tr>
<td colspan="2">我所在的班级<%=rs3("class")%></td>
</tr>
<tr>
<td width="87" bgcolor="#efefef"><div align="center"><span class="style3"><a href="user_ks.asp?id=<%=RS3("id")%>" class="style3">我的考试信息</a></span></div></td>
<td width="99"><div align="right" class="style3">
<div align="center"><a href="user_xg.asp?id=<%=rs3("id")%>">我的资料修改</a></div>
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><a href="exit.asp">退出考试管理系统</a></div></td>
</tr>
</table>
<%end if%></td>
</tr>
</tbody>
</table></td>
</tr>
<tr bordercolor=#999999>
<td bordercolor=#999999 align=left bgcolor=#efefef>
</tr>
<tr bordercolor=#999999>
<td align=middLe background=IMG/lljs.gif bgcolor=#efefef
height=18><div align="center"><img src="img/tj.gif" width="200" height="22"></div></td>
</tr>
<tr bordercolor=#999999>
<td bgcolor=#efefef><font color=#000000>
<script src=js.asp></script>
</font></td>
</tr>
<tr bordercolor=#999999>
<td valign=ceNter
bgcolor=#efefef height=18>
<div align=center><img src="img/hezuo.gif" width="200" height="22"></div></td>
</tr>
<tr bordercolor=#999999>
<td valign=cEnter bgcolor=#efefef height=10>
<table width=0 align=center border=0>
<tbody>
<tr>
<td width=87> </td>
</tr>
<tr>
<td><a href="http://www.e0b.com/"><img height=31
src="IMG/tclogo.gif" width=88
border=0></a></td>
</tr>
</tbody>
</table>
<p align=center><font color=#000000><br>
</font></p></td>
</tr>
<tr bordercolor=#999999>
<td valign=cenTer bgcolor=#efefef
height=15> </td>
</tr>
</tbody>
</table></td>
<td width="7" background="IMG/sd.gif"> </td>
<td width="600"><table width="572" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="572" height="25" background="img/lmtop.gif">||<a href="down.asp">下载首页</a>
<%
dim rs2,sql2
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from kemu order by id ASC"
rs2.open sql2,conn,1,1
if not rs2.eof then
rs2.movefirst
do while not rs2.eof
id=trim(rs2("id"))%>
<span class="top">||</span><a href="down.asp?kemu=<%=rs2("name")%>"><%=rs2("name")%></a>
<%rs2.movenext
loop
else
response.write"暂时没有任何数据"
end if
rs2.close
set rs2=nothing
%>
<span class="top">||</span></td>
</tr>
<tr>
<td><%
dim wyrs,wysql
kemu=trim(request.querystring("kemu"))
if kemu="" then
set wyrs=server.createobject("adodb.recordset")
wysql="select * from down order by id desc"
wyrs.open wysql,conn,1,1
url=""
else
set wyrs=server.createobject("adodb.recordset")
wysql="select * from down where kemu='"&kemu&"'order by id desc"
wyrs.open wysql,conn,1,1
url="kemu="&kemu&"&"
end if
pagesize=4
page=request.querystring("page")
if page<1 then
page=1
elseif page>wyrs.pagecount then
page=wyrs.pagecount
end if
if not wyrs.eof then
wyrs.movefirst
wyrs.absolutepage=page
for i=1 to pagesize%>
<table width="464" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
<tr>
<td colspan="5" bgcolor="#FFFFFF"><a href="downurl.asp?id=<%=wyrs("id")%>" target="_blank"><%=wyrs("name")%></a></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="downurl.asp?id=<%=wyrs("id")%>" target="_blank">点击下载</a></div></td>
</tr>
<tr>
<td width="64" bgcolor="#FFFFFF">所属科目：</td>
<td width="84" bgcolor="#FFFFFF"><%=wyrs("kemu")%></td>
<td width="75" bgcolor="#FFFFFF">文件大小：</td>
<td width="51" bgcolor="#FFFFFF"><%=wyrs("dx")%></td>
<td width="72" bgcolor="#FFFFFF">推荐程度：</td>
<td width="97" bgcolor="#FFFFFF"><div align="center"><%=wyrs("tjcd")%></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">运行平台：</td>
<td bgcolor="#FFFFFF"><%=wyrs("pt")%></td>
<td bgcolor="#FFFFFF">下载次数： </td>
<td bgcolor="#FFFFFF"><%=wyrs("hit")%></td>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td colspan="7" bgcolor="#FFFFFF">相关介绍：</td>
</tr>
<tr>
<td colspan="7" bgcolor="#FFFFFF"><%=wyrs("xgjs")%></td>
</tr>
</table>
<%wyrs.movenext
if wyrs.eof then exit for end if
next
else
response.write"暂时没有任何数据"
end if
%></td>
</tr>
<tr>
<td><img src="img/td.gif" width="572" height="4"></td>
</tr>
<tr>
<td><table width="572" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="309"><div align="center">总下载数:<%=wyrs.recordcount%> 条 总页数:<%=wyrs.PageCount%>页 当前页数:<%=Page%>/<%=wyrs.pagecount%> 页 </div></td>
<td width="250"> <%if page=1 then%><div align=center> |第一页|上一页|<a href=down.asp?<%=url%>Page=<%=Page+1%>>下一页</a>|<a href=down.asp?<%=url%>Page=<%=wyrs.PageCount%>>最后一页</a>|</div></td>
<%elseif page=wyrs.pagecount then%>
<div align=center> |<a href=down.asp?<%=url%>Page=1>第一页</a>|<a href=down.asp?<%=url%>Page=<%=Page-1%>>上一页</a>|下一页|最后一页|</div>
<%else%>
<div align=center> |<a href=down.asp?<%=url%>Page=1>第一页</a>|<a href=down.asp?<%=url%>Page=<%=Page-1%>></a>上一页|<a href=down.asp?<%=url%>Page=<%=Page+1%>>下一页</a>|<a href=down.asp?<%=url%>Page=<%=wyrs.PageCount%>>最后一页</a>|</div>
<%end if%>
</tr>
</table></td>
</tr>
<tr>
<td height="4"><img src="img/td.gif" width="572" height="4"></td>
</tr>
</table></td>
</tr>
<tr background="IMG/topbg.gif">
<td colspan="3"><%call footer()%></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?