📄 fanli.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conn_STRING
Recordset1_cmd.CommandText = "SELECT * FROM tijiao WHERE id = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<HTML>
<head>
<style type="text/css">
<!--
p{font-size:9pt};
td{font-size:9pt};
li{font-size:9pt};
select{font-size:9pt};
.forms {
BORDER-RIGHT: #254b03 1px solid; BORDER-TOP: #254b03 1px solid; MARGIN-TOP: auto; MARGIN-BOTTOM: auto; BORDER-LEFT: #254b03 1px solid; WIDTH: 80px; BORDER-BOTTOM: #254b03 1px solid; HEIGHT: 14px; BACKGROUND-COLOR: #ffffff
}
a {color:#0000ff;font-size: 9pt ;text-decoration:none; line-height:13.5pt}
a:hover {text-decoration:none; color:#000000;text-decoration: underline}
-->
.a10 { font-size: 10.5pt}
.bg {
background-repeat: no-repeat;
}
.ziti { font-family: "宋体";
font-size: 16px;
font-weight: bold;
color: #000000;
}
</style>
<title>作业系统</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body leftmargin="0" topmargin="0">
<table width="760" cellpadding="0" cellspacing="0" border="0" align="center">
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td><img src="images/top.gif" width="760" height="100"></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" bordercolor="003366" align="center">
<tr>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="003366" bgcolor="#EAF2ED">
<tr>
<td valign="top">
<table width="100%" height="438" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="438" align="center" valign="top" ><div align="left" class="bg">
<table width="90%" cellspacing="1" cellpadding="5" align="center">
<tr >
<td colspan="2" align=right class="ziti"><div align="center">优秀作业范例欣赏</div></td>
</tr>
<tr >
<td align=right><strong>次数：</strong></td>
<td>第 <%=(Recordset1.Fields.Item("zy_cs").Value)%>次</td>
</tr>
<tr>
<td align=right><strong>科目：</strong></td>
<td><%=(Recordset1.Fields.Item("zy_km").Value)%></td>
</tr>
<tr >
<td align=right><strong>教师：</strong></td>
<td><%=(Recordset1.Fields.Item("zy_teacher").Value)%></tr>
<tr >
<td ><div align="right"><strong>题目：</strong></div></td>
<td><%=(Recordset1.Fields.Item("zy_title").Value)%></tr>
<tr>
<td align=right><strong>内容：</strong></td>
<td width="610" colspan="3" valign="top"><%=(Recordset1.Fields.Item("content").Value)%></td>
</tr>
<tr>
<td><div align="right"><strong>评语:</strong></div></td>
<td ><%=(Recordset1.Fields.Item("zy_comment").Value)%></td>
</tr>
<tr>
<td> </td>
<td ><div align="center"><a href="javascript:history.go(-1)">返回</a></div></td>
</tr>
</table>
<br>
<br>
</div></td>
</tr>
</table> </td>
</tr>
<tr>
<td valign="top"><table width="760" border="0" cellpadding="0" cellspacing="0" height="24" bordercolor="003366" align="center">
<tr>
<td><div align="center">CopyRight @ 2008</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -