📄 notedetail.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("noteID") <> "") Then
rs__MMColParam = Request.QueryString("noteID")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM note WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs("counter")=cint(rs("counter"))+1
rs.update
rs_numRows = 0
%>
<%
Dim rs_classn__MMColParam
rs_classn__MMColParam = "1"
If (Request.QueryString("classID") <> "") Then
rs_classn__MMColParam = Request.QueryString("classID")
End If
%>
<%
Dim rs_classn
Dim rs_classn_numRows
Set rs_classn = Server.CreateObject("ADODB.Recordset")
rs_classn.ActiveConnection = MM_tar_STRING
rs_classn.Source = "SELECT * FROM dbo.CLASS WHERE ID = " + Replace(rs_classn__MMColParam, "'", "''") + ""
rs_classn.CursorType = 0
rs_classn.CursorLocation = 2
rs_classn.LockType = 1
rs_classn.Open()
rs_classn_numRows = 0
%>
<html>
<head>
<title><%=(rs_classn.Fields.Item("CLASS_NAME").Value)%>--<%=(rs.Fields.Item("subject").Value)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0">
<table width="99%" height="99%" border="0">
<tr>
<td width="18%" height="73">晨砻内部技术支持网</td>
<td width="82%">banner处</td>
</tr>
<tr>
<td align="center" valign="top">
<!--#include file="inc/menu.asp"-->
</td>
<td valign="top"> <p><br>
<center>
<%=(rs.Fields.Item("subject").Value)%>
</center>
</p>
<p><center>
<%=(rs.Fields.Item("pbtime").Value)%></center></p>
<p><%=replace(replace((rs.Fields.Item("content").Value)," "," "),vbcrlf,"<BR>")%></p></td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<%
rs_classn.Close()
Set rs_classn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -