<%
dim page

If Request.QueryString("Page") = "" or Request.QueryString("Page") = 0 then
Page = 1
Else
page = CINT(Request.QueryString("Page"))
End If

id=Trim(Request.QueryString("id"))
dim sql,conn,rs
sql="DSN=hysql;UID=sa;PWD=Adminwm;DATABASE=hy-world"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open sql
userid_s=Session("userid_s")
password_s=Session("password_s")
sqlstr="select * from userid where userid='"&userid_s&"'"
set rs1=Conn.execute(sqlstr)
response.write rs1("username")
response.write "欢迎登陆宏洋化工生产管理系统页面"
response.write "

"
//if userid="" then Response.Redirect "erroy.asp?id=100"

%>

href="css.css" rel=stylesheet>

marginwidth="0" marginheight="0">
添加报表>>
<%
sqlstr1="select * from gj_id"
set rs=Conn.execute(sqlstr1)
%>

产品类别

详细信息

管件      <%      do while not rs.eof      response.write "·"      %>      ">      <%      response.write rs("gj_name")      response.write ""      response.write " "      rs.movenext loop      %> 管材           <%      do while not rs.eof      response.write "·"      response.write rs("gj_name")      response.write " "      rs.movenext loop      %>

<%      if id="000" then%> 　 　 　　宏洋化工生产管理系统页面使用帮助：      　　1.[查看信息]：您可以通过左侧的菜单选择您需要查询的产品规格，会出现您需要的信息，如果您对信息有何疑义，请致电0931-4669999，转企划部。      　　2.[添加信息]：如果您确定自己是有效的系统管理员，您可以通过本页面左上角的“添加报表”链接进入“添加报表”页面，在这里您可以添加最新的     产品信息，不过提醒您注意的是，您的任何一点错误都会影响到整个系统的准确性，所以请您务必在提交前确认录入信息的正确性。      　　谢谢您的合作！      <% else %>     <% sqlstr2="select * from gj_prodictin where gd_id='"&id&"' ORDER BY dtime DESC" set rs2=Conn.execute(sqlstr2) rs2.pagesize=15 do while not rs2.eof and i<15      if (trim(rs2("goodbad"))="合格品") and (trim(rs2("out"))=0) then      response.write "·" response.write rs2("productid")      response.write " "      amount=rs2("amount")      colorg=rs2("colorg")      spec=rs2("spec")      dtime=rs2("dtime")      response.write dtime&"入库的此批产品数量为"&amount&"， 产品规格为"&spec&"， 产品颜色为"&colorg      response.write " "      amountall=amountall+amount      else              if (trim(rs2("goodbad"))="次品") and (trim(rs2("out"))=0) then               amount=rs2("amount")                  amountbad=amountbad+amount              end if      end if      rs2.movenext         i=i+1 loop response.write " " response.write "库存中此类产品（均为合格产品）的数量为"&amountall response.write " " response.write " "      response.write "此类产品生产过程中产生的次品总数量为"&amountbad response.write " "     %> <% n=1 do while not n>cint(rs2.pagecount) %> <%=n%> <% n=n+1 loop %> <%=page%>/<%=rs2.pagecount%>页 <% rs2.close %> <%End if%>

<%
rs.close

%>