query_sell.asp

来自「手机wap网站的进销存系统」· ASP 代码 · 共 48 行

<%Response.ContentType="text/vnd.wap.wml"%><?xml version="1.0" encoding="gb2312" ?>
<!--#include file="conn.asp"-->
<%
beginTime=Request.Form("BeginTime")
endTime=Request.Form("EndTime")

'strSql = "select * from sell where createtime>='"&beginTime&"' and createtime<='"&endTime&"'"
strSql = "select * from sell"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open strSql,conn,1,1
%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<card id="result" title="进货数据-手机分销系统">
    <p align="left"> 
        销售数据-手机分销系统 &nbsp;&nbsp;<a href="query.asp">继续查询</a>&nbsp;|&nbsp;<a href="menu.asp">返回菜单</a><br />
        <%'=strSql%>
        <br />
        <table title="销售数据" align="left" columns="5">
				<tr>
				<td>时间</td>
				<td>货号</td>
				<td>规格</td>
				<td>单价</td>
				<td>数量</td>
				</tr>
				<%Do While Not rs.Eof%>
				<tr>
				<td><%=rs("createtime")%></td>
				<td><%=rs("productcode")%></td>
				<td><%=rs("spec")%></td>
				<td><%=rs("price")%></td>
				<td><%=rs("quantity")%></td>
				</tr>
			  <%
			  rs.MoveNext
			  Loop%>
				</table>

    </p>
</card>
</wml>
<%
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>