主题:  看看这段

天幻加
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2003/5/25 13:44:51
#12003/10/12 12:01:22
<%@LANGUAGE="VBSCRIPT"%>

<%
dim year1,year2,radiobutton
year1=request("year1")
year2=request("year2")
radiobutton=request("radiobutton")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM cangku WHERE shiqi between'" & year1 & "' AND '"&year2& "' ORDER BY shiqi ASC"
rs.open sql,conn,1,1
%>

Untitled Document








<%=year1%> <%=qianzhang%>




<%
rs.Close()
%>



天幻加
职务：普通成员
等级：1
金币：0.0
发贴：7
注册：2003/5/25 13:44:51
#22003/10/14 13:10:13
<%@LANGUAGE="VBSCRIPT"%>

<%
dim radiobutton,search_name
radiobutton=request("radiobutton3")
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
select case radiobutton
case 1
Recordset1.Source ="SELECT * FROM cangku"
search_name="仓库数据"
case 2
Recordset1.Source ="SELECT * FROM shebei "
search_name="设备数据"
case 3
Recordset1.Source ="SELECT * FROM jiagong "
search_name="加工数据"
case 4
Recordset1.Source ="SELECT * FROM [脏话，已被过滤]ang "
search_name="食堂数据"
end select
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
dim qianzhang2,shouru2,zhichu2
While (Not Recordset1.EOF)
qianzhang2=qianzhang2+(Recordset1.Fields.Item("qianzhang").value)
shouru2=shouru2+(Recordset1.Fields.Item("shouru").value)
zhichu2=zhichu2+(Recordset1.Fields.Item("zhuchu").value)
Recordset1.MoveNext
Wend

Recordset1.MoveNext
Wend
%>

Untitled Document



<%=search_name%>各项之和















欠账 收入 支出 余额 产量
   

 


 




<%
Recordset1.Close()
%>