⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 browse.asp

📁 ASp+SQLServer编写的网上办公系统
💻 ASP
字号:
<!--#include file="../includes/keepHouse.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebOffice</title>
<%
call insureID()
dim DEPT_ID
dim DEPARTMENT
if session("POSITION_ID")<=3 then
	DEPT_ID=request("DEPT_ID")
	DEPARTMENT=request("DEPARTMENT")
	if DEPT_ID="" or DEPARTMENT="" then
		call trigErr()
	end if
else
	DEPT_ID=session("DEPT_ID")
	DEPARTMENT=session("DEPARTMENT")
end if
%>
</head>
<body>
<center>
<table border="0" width="100%" height="50" cellspacing="0" cellpadding="0">
 <tr>
  <td width="100%"></td>
 </tr>
</table>

<table border="0" width="75%" cellspacing="0" cellpadding="0">
 <tr>
  <td width="5%" bgcolor="#0000FF" height="35" align=left><img border="0" src="../images/back.gif"></td>
  <td width="65%" bgcolor="#0000FF" height="35" align=center><b><font color="#FFFFFF"><%=DEPARTMENT%>部门订单清单</font></b></td>
  <td width="5%" bgcolor="#0000FF" height="35" align=right><img border="0" src="../images/Close2.gif"></td>
 </tr>
</table>
<table border="1" width="75%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="7%" bgcolor="#FCFCFC">订单号</td>
<td width="24%" bgcolor="#FCFCFC">客户名称</td>  
<td width="25%" bgcolor="#FCFCFC">产品名称</td>
<td width="7%" bgcolor="#FCFCFC">件数</td>
<td width="12%" bgcolor="#FCFCFC">签订时间</td>
</tr>
<%
sql="SELECT Orders.PIECES, Orders.MAKE_DATE, Orders.ORDER_ID, " _ 
	&"Clients.COMPANY_NAME, Products.PRODUCT_NAME " _
	&"FROM Orders INNER JOIN " _
	&"Clients ON Orders.CLIENT_ID = Clients.CLIENT_ID INNER JOIN " _
	&"Products ON Orders.PRODUCT_ID = Products.PRODUCT_ID INNER JOIN " _
	&"Personnel ON Orders.PERSONNEL_ID = Personnel.PERSONNEL_ID INNER JOIN " _
	&"Department ON Personnel.DEPT_ID = Department.DEPT_ID " _
	&"WHERE (Department.DEPT_ID = "&DEPT_ID&") "
call openDB()
rs.open sql,conn,1,1
if rs.eof then
	response.write "<tr>"
	response.write "<td width=""75%"" colspan=5 bgcolor=""#FCFCFC"" align=center>"
	response.write DEPARTMENT&"部门还没有任何订单!"
	response.write "</td></tr>"
else
	while not rs.eof
		response.write"<tr>"
		response.write"	<td width=""7%"" bgcolor=""#FCFCFC"">"&rs("ORDER_ID")&"</td>"
		response.write"	<td width=""24%"" bgcolor=""#FCFCFC"">"&rs("COMPANY_NAME")&"</td>"
		response.write"	<td width=""25%"" bgcolor=""#FCFCFC""><a href=""Read.asp?ORDER_ID=" _
		&rs("ORDER_ID")&""">"&rs("PRODUCT_NAME")&"</a></td>"
		response.write"	<td width=""7%"" bgcolor=""#FCFCFC"">"&rs("PIECES")&"</td>"
		response.write"	<td width=""12%"" bgcolor=""#FCFCFC"">"&rs("MAKE_DATE")&"</td>"
		response.write"</tr>"
		rs.movenext
	wend
end if
call closeDB()
%>
<tr>
<td width="75%" colspan=5 height="50" align=center bgcolor="#EFEFEF">
[<a href="javascript:history.back()">返回</a>]
</td>
</table>
</center>
</body>
</html>

⌨️ 快捷键说明

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