📄 detailsuject.asp

📁 网络教学管理系统

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strTName ,strSSql
	strTName = trim(Request.QueryString("Name"))
	strID = trim(Request.QueryString("ID"))
	If strID & "" = "" And strTName = "" Then
		Response.Write("参数错误！")
		Response.End
	ElseIf strID = "" And strTName <> "" Then
		strSSql = "Name = '"& strTName &"'"
	ElseIf strID <> "" And strTName = "" Then
		strSSql = "ID = " &strID
	End If
	Dim rs ,strSql
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT * FROM Suject WHERE "&strSSql
	rs.open strSql,conn,1,1
	If rs.EOF Then
		Response.Write("无此课程！")
		Response.End
	End If
	Dim strSName ,strSynopsis 
	strSName = rs("Name").Value
	strSynopsis = rs("Synopsis").Value
	rs.close

	
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
.STYLE1 {font-size: 14px}
-->
</style></head>

<body bgcolor="#B1DB99" leftmargin="5" topmargin="5">
<table width="503">
  <tr bgcolor="#66C06D">
    <td colspan="2" background="images/Down_bg.gif" align="center"><span class="STYLE1">课程详细信息</span></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td width="67">课程名：</td>
    <td width="424" bgcolor="#66C06D"><%=strSName%></td>
  </tr>
  <tr bgcolor="#66C06D">
	<td colspan="2" bgcolor="#66C06D"><div align="left">课程简介：<br />
    &nbsp;&nbsp;<%=strSynopsis%></div></td>
  </tr>
    <tr bgcolor="#66C06D">
    <td colspan="2" background="images/Top_bg.gif">&nbsp;</td>
  </tr>
</table>
<%
	conn.close
	Set conn = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -