📄 serch.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connect.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam =1 '"jiangzuoid"
If (Request("class") <> "") Then
Recordset1__MMColParam = Request("class")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM baoming where jiangzuoid='"& Replace(Recordset1__MMColParam, "'", "''")&"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open sql,MM_connect_STRING,1,1
Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "jiangzuoid"
If (Request("class") <> "") Then
Recordset2__MMColParam = Request("class")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_connect_STRING
Recordset2.Source = "SELECT * FROM jiangzuo WHERE jiangzuoid = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = (Recordset2.Fields.Item("jiangzuolxid").Value)
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_connect_STRING
Recordset3.Source = "SELECT * FROM jiangzuolx WHERE jiangzuolxid = " + Replace(Recordset3__MMColParam, "'", "''") + ""
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
Recordset3_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
money=cint((Recordset2.Fields.Item("money").Value))
resou=cint(Recordset1.recordcount)
all=money * resou
ss=cstr(all)
%>
<body bgcolor="#6699CC" text="#FFCC00" link="#FFCC00" alink="#FFCC00">
<table width="574" height="59" border="0" cellspacing="1" bgcolor="#000000">
<tr align="center" bgcolor="#000000">
<td width="19%" height="18" bgcolor="#666699"><font size="2">班别</font></td>
<td width="27%" bgcolor="#666699"><font size="2">学习课程</font></td>
<td width="14%" bgcolor="#666699"><font size="2">学费(元)</font></td>
<td width="19%" bgcolor="#666699"><font size="2">已报名人数</font></td>
<td width="21%" bgcolor="#666699"><font size="2">学费总计</font></td>
</tr>
<tr align="center" valign="middle" bgcolor="#000000">
<td height="38" bgcolor="#6699CC"><font size="2"><%=(Recordset3.Fields.Item("jiangzuolx").Value)%></font></td>
<td bgcolor="#6699CC"><font size="2"><%=(Recordset2.Fields.Item("name").Value)%></font></td>
<td bgcolor="#6699CC"><font size="2"><%=(Recordset2.Fields.Item("money").Value)%></font></td>
<td bgcolor="#6699CC"><%= Recordset1.recordcount%> </td>
<td bgcolor="#6699CC"><%=ss %></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -