📄 preview.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@language=vbscript%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private" 
%>
<%'On Error Resume Next%>
<%const title="库存报告"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0">
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<!-- #include file=../data/flag.inc-->
<%
prod_flag = request("flag")
if not isnumeric(prod_flag) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""flag必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
sql = "select company_name from company where company_id = "&newcompanyid&""
set rs_company = conn.execute(sql)
if not rs_company.eof then
	company_name = rs_company("company_name")
end if
rs_company.close
set rs_company = nothing
%>
<div align=center><font size=4><%=company_name%>今日库存报表</font></div><br>
<%
   
Response.Write User
dim count_in,count_out
response.write " 　今日为："&date()&""
if flag < 4 then
	sql="select * from dc where dc_companyid= " & newcompanyid
else
	sql = "select * from dc where dc_id in ("&dcservice&") order by dc_code asc"
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
response.write "  共 "&rs.recordcount&" 个仓库编号； "
rs.close
'if flag < 4 then
'	sql="exec prev_product " & newcompanyid
'else
	sql = "select * from product where prod_flag = "&prod_flag&" and prod_dir_flag = 0 order by prod_no asc"
'end if
rs.open sql,conn,3,2
response.write " 共 "&rs.recordcount&" 种物品名称 "
rs.close

'if not rs.eof then
   response.write "<table width=100% align=center border='1'  cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'>"
    ShowHeader
    ShowContent
   response.write "</table>"
   
   	Response.Write "<table width=100% align=center border='1'  cellspacing='0' bordercolordark='#FFFFFF' bordercolorlight='#DADBFC' bordercolor='#00000'"
   	response.write "  <tr  bgcolor='#ECECFF'>"
	response.write "    <td nowrap rowspan=1 align=center >编号</td>"
	response.write "    <td nowrap rowspan=1 align=center >
⌨️ 快捷键说明

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