<body bgcolor="#669999">
<% if isempty(request.querystring("year")) then
session("year")=year(date())
else
session("year")=request.querystring("year")
end if
if isempty(Request.QueryString ("lx")) then
session("lx")="xssl"
else
session("lx")=request.querystring("lx")
end if
%>
<%
if request.form("year")<>0 then
session("year")=request.form("year")
end if
if session("lx")="xssl" then
session("lxmc")="销售量"
else
session("lxmc")="销售额"
end if
%>
<%
'定义连接
set Conn=server.CreateObject("adodb.connection")
'打开ODBC
conn.Open "jsyc_xgs","jsyc_xgs","jsyc_xgs"
if isempty(request.querystring("wddm")) then
sql1 ="select * from gsxx"
else
sql1="select * from wdxx_hz where wddm like '"&request.querystring("wddm")&"'"
end if
set rs1=conn.execute(sql1)
session("wddm")=rs1("wddm")
session("wdmc")=rtrim(rs1("wdmc"))
session("sndm")=left(session("wddm"),2)
%>
<%
if isempty(request.querystring("jydm")) then
session("dm")=""
elseif request.querystring("jydm")="2" then
session("dm")=session("sndm")
else
session("dm")=request.querystring("jydm")
end if
if isempty(Request.querystring("jydm")) or (len(Request.QueryString ("jydm"))=1 and Request.QueryString ("jydm")="1") then
session("jymc")="卷烟"
elseif len(Request.QueryString ("jydm"))=1 or Request.querystring("jydm")=session("sndm") then
session("jymc")=Request.QueryString ("jymc")
elseif len(Request.QueryString ("jydm"))=2 then
session("jymc")=Request.QueryString ("jymc")&"产烟"
elseif len(Request.QueryString ("jydm"))=4 then
session("jymc")=Request.QueryString ("jymc")&"产卷烟"
elseif len(Request.QueryString ("jydm"))=6 then
session("jymc")=Request.QueryString ("jymc")&"系列烟"
elseif len(Request.QueryString ("jydm"))=8 then
session("jymc")=Request.QueryString ("jymc")
end if
sql="exec jhb2_Proc '"&session("year")&"'"
set rs=conn.execute(sql)