order1.asp

来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 86 行

ASP
86 行
字号 
<%@ Language=VBScript %>
<%
'if Session("log_name")="" then
'	Session("after_log_to")="../payment/orderque1.asp"
'	Response.Redirect ("../userlog/login.htm")
'else
'	Session("after_log_to")=""
'end if

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>

<%
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con

res.source="select order_id,order_time,name,total_exes,书店名称 from order_main order by order_id desc" ' where log_name='"&Session("log_name")&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic

if res.recordcount<1 then
	Response.Write "现在没有订单！"
	
	Res.close 
	con.Close 
else
%>

	<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center style="font-size: 9pt">
		<TR>
			
    <TD bgcolor="PapayaWhip">
      <div align="center">订单号</div>
    </TD>
			
    <TD bgcolor="PapayaWhip">
      <div align="center">订购日期/书店</div>
    </TD>
			
    <TD bgcolor="PapayaWhip">
      <div align="center">收货人</div>
    </TD>
			
    <TD bgcolor="PapayaWhip">
      <div align="center">应付款</div>
    </TD>
			
    <TD bgcolor="PapayaWhip">
      <div align="center">详细情况</div>
    </TD>
		</TR>
<%	While Not res.Eof %>
		<TR>
			<TD><%=res("order_id")%></TD>
			<TD><%=res("order_time")%><br><%=res("书店名称")%></TD>
			<TD><%=res("name")%></TD>
			<TD><%=res("total_exes")%></TD>
			<TD>
				<form method="POST" action="order2.asp">
					<input type="hidden" name="order_id" value="<%=res("order_id")%>">
					<p><input type="submit" value="详细情况" name="B1" style="font-size: 9pt"></p>
				</form>
			</TD>
		</TR>
		
<%		res.MoveNext
	Wend %>
	</TABLE>

<%
	Res.close 
	con.Close 
end if
%>


</BODY>
</HTML>

order1.asp - 源码说明

本页面展示了「书店的管理系统。不错的一个源程序。提供给大家。」中的 order1.asp 源码文件，采用 ASP 编程语言编写，共 86 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?