📄 xiaofu.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim luxiaofu__MMColParam
luxiaofu__MMColParam = "1"
If (Session("MM_username") <> "") Then
luxiaofu__MMColParam = Session("MM_username")
End If
%>
<%
Dim luxiaofu
Dim luxiaofu_numRows
Set luxiaofu = Server.CreateObject("ADODB.Recordset")
luxiaofu.ActiveConnection = MM_conn_STRING
luxiaofu.Source = "SELECT * FROM user_name WHERE class = '" + Replace(luxiaofu__MMColParam, "'", "''") + "' and 在校情况=1 ORDER BY pianhao ASC"
luxiaofu.CursorType = 0
luxiaofu.CursorLocation = 2
luxiaofu.LockType = 1
luxiaofu.Open()
luxiaofu_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
luxiaofu_numRows = luxiaofu_numRows + Repeat1__numRows
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>校服号码登记</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #006600;
}
a:link {
color: #0000CC;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #0000FF;
}
a:hover {
text-decoration: none;
color: #0000FF;
}
a:active {
text-decoration: none;
color: #0000FF;
}
-->
</style></head>
<body>
<div align="left">
<table width="395" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse">
<tr>
<td width="48" height="30">
<div align="center">编号</div></td>
<td width="84">
<div align="center">姓名</div></td>
<td width="96">
<div align="center">学生奶征订情况</div></td>
<td width="75">
<div align="center">校服公分数1</div></td>
<td width="86">
<div align="center">校服公分数2</div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT luxiaofu.EOF))
%>
<tr>
<td height="25"><div align="center"><%=(luxiaofu.Fields.Item("pianhao").Value)%></div></td>
<td><div align="center"><%=(luxiaofu.Fields.Item("name").Value)%></div></td>
<td align="left">
<% if luxiaofu.Fields.Item("学生奶").Value="99" then
response.write "需订学生奶"
else
response.write "不要"
end if
%></td>
<td align="center"><%=(luxiaofu.Fields.Item("校服号码").Value)%></td>
<td align="center"><div align="center">
<div align="center"><%=(luxiaofu.Fields.Item("增订校服号码").Value)%></div>
</div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
luxiaofu.MoveNext()
Wend
%>
</table></div>
<p align="center">
<label>
<div align="left">
<font size="2">
</font></label>
</body>
</html>
<%
luxiaofu.Close()
Set luxiaofu = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -