⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 show.asp

📁 一个较完备的交互式网络教学系统 开发语言为 asp
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<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>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style></head>

<body topmargin="0">
<%'Writed by lengcool@hotmail.com at 2003-5-2
Subject=Trim(Request("Subject"))
If Subject="" Then
	sql="select * from TestName order by TestID desc"
Else
	sql="select * from TestName where Subject='"&Subject&"' order by TestID desc"
End If
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
C=rs.recordcount

For i=1 To C
	TestID=Trim(rs("TestID"))
	TestName=Trim(rs("TestName"))
	Response.Write "<a href=ShowMeTest1.asp?TestID="&TestID&" target=news1>"&TestName&"</a><br>"
	rs.MoveNext
Next
rs.close()
Set rs=NOthing
%>
</body>
</html>

⌨️ 快捷键说明

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