📄 b_productview.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
departid=session("departid")
userclass=tablevisitor("b_tblkhdjkl",username)
userclass1=tablevisitor("b_tblcxdjkl",username)
userclass2=tablevisitor("b_tblxldjkl",username)
'建立数据连接
dim conn
set conn=server.CreateObject("adodb.connection")
set conn=pubconn
%>
<%
'------------------------------------获取参数信息-----------------------------
dim m_prodcode '参数----商品编码
dim m_page '参数----当前页数
dim m_type '参数----折扣类型
'首次进入页面时的参数设定
if Request.ServerVariables("REQUEST_METHOD")<>"POST" and request("page")="" then
m_prodcode=""
m_page=1
m_type=request("tt")
end if
'按查询按钮进入页面时的参数设定
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request("B1")="查询" then
m_prodcode=trim(request("TCpbm"))
m_page=1
m_type=request("mytype")
else
m_prodcode=trim(request("TCpbm"))
m_page=trim(request("XPage"))
m_type=request("mytype")
end if
end if
'翻页进入页面时的参数设定
if request("page")<>"" then
m_prodcode=trim(request("prodcode"))
m_page=request("page")
m_type=request("mytype")
end if
'---------------------------从数据库中调出商品信息,返回记录集rst------------------------------
dim rst
dim mysql
set rst=server.CreateObject("adodb.recordset")
if rst.State =1 then
rst.Close
end if
if m_prodcode<>"" then
mysql="select * from A_ProductInfo where prodcode='" & m_prodcode & "' "
else
mysql="select * from A_ProductInfo where delflag='0'"
end if
set rst=conn.Execute(mysql)
if rst.RecordCount >0 then
rst.movefirst
lastpage=0
m_count=10
while not rst.EOF
if m_count=0 then
lastpage=lastpage+1
m_count=10
end if
rst.MoveNext
m_count=m_count-1
wend
lastpage=lastpage+1
rst.MoveFirst
for i=1 to (m_page-1)*10
rst.MoveNext
next
end if
'-------------------------------------------------------------------------------------------
if m_type=0 then
m_cap="按客户折扣"
end if
if m_type=1 then
m_cap="按促销折扣"
end if
if m_type=2 then
m_cap="按销售金额折扣"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<form name="form1" action="B_ProductView.asp?mytype=<%=m_type%>" method="post">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2"><%=m_cap%></font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="50">
<tr>
<td width="100%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">
产品编码 </font><input type="text" name="TCpbm" size="15" value=<%=m_prodcode%>>
<input type="submit" value="查询" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</td>
</tr>
</table>
<P></P>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="25%" bgcolor="#DDD2C4" height="20" align="center"><b><font size="2">产品编码</font></b></td>
<td width="25%" bgcolor="#DDD2C4" height="20" align="center"><b><font size="2">产品名称</font></b></td>
<td width="25%" bgcolor="#DDD2C4" height="20" align="center"><b><font size="2">计量单位</font></b></td>
<td width="25%" bgcolor="#DDD2C4" height="20" align="center"><b><font size="2">产品定价</font></b></td>
</tr>
<%dim rowcount
rowcount=10
if not rst.EOF then
while not rst.EOF and rowcount>0
%>
<%if rowcount mod 2 =0 then
m_color="#f7f7f7"
else
m_color="#EDEBEC"
end if
%>
<tr bgcolor=<%=m_color%> height="20">
<td width="20%" align="center"><font size="2"><%
if rst.Fields("prodcode")<>"" then
Response.Write rst.Fields("prodcode")
else
Response.Write " "
end if
%></font></td>
<td width="20%" align="center"><font size="2">
<%
if rst.Fields("prodname")<>"" then
Response.Write rst.Fields("prodname")
else
Response.Write " "
end if
%></font></td>
<td width="20%" align="center"><font size="2"><%
if rst.Fields("unit")<>"" then
Response.Write rst.Fields("unit")
else
Response.Write " "
end if
%></font></td>
<%if m_type=0 then%>
<td width="20%" align="center"><font size="2">
<%if userclass>1 then%>
<A href="B_CusDiscount.asp?prodcode=<%=rst.Fields("prodcode")%>&prodid=<%=m_prodcode%>&page=<%=m_page%>&mytype=<%=m_type%>"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%else%>
<A href="qx.asp"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%end if%>
</font></td>
<%end if%>
<%if m_type=1 then%>
<td width="20%" align="center"><font size="2">
<%if userclass1>1 then%>
<A href="B_ActiveDiscount.asp?prodcode=<%=rst.Fields("prodcode")%>&prodid=<%=m_prodcode%>&page=<%=m_page%>&mytype=<%=m_type%>"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%else%>
<A href="qx.asp"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%end if%>
</font></td>
<%end if%>
<%if m_type=2 then%>
<td width="20%" align="center"><font size="2">
<%if userclass2>1 then%>
<A href="B_SaleDiscount.asp?prodcode=<%=rst.Fields("prodcode")%>&prodid=<%=m_prodcode%>&page=<%=m_page%>&mytype=<%=m_type%>"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%else%>
<A href="qx.asp"><%
if not isnumeric(rst.Fields("saleprice")) then
Response.Write " "
else
Response.Write rst.Fields("saleprice")
end if
%></A>
<%end if%>
</font></td>
<%end if%>
</tr>
<%
rst.MoveNext
rowcount=rowcount-1
wend
end if
rst.Close
if m_page=1 and lastpage=1 then
m_page1=1
m_page2=1
else
if m_page=1 then
m_page1=1
m_page2=2
else
if m_page=lastpage then
m_page1=m_page-1
m_page2=lastpage
else
m_page1=m_page-1
m_page2=m_page+1
end if
end if
end if
if m_page2>lastpage then
m_page2=m_page2-1
end if
%>
</table>
<p> <font size="2">第<%=m_page%>页，共<%=lastpage%>页 </font>
<a href="B_ProductView.asp?page=1&prodcode=<%=m_prodcode%>&mytype=<%=m_type%>"><font size="2">首页</font></a>
<a href="B_ProductView.asp?page=<%=m_page1%>&prodcode=<%=m_prodcode%>&mytype=<%=m_type%>"><font size="2">上一页</font></a>
<a href="B_ProductView.asp?page=<%=m_page2%>&prodcode=<%=m_prodcode%>&mytype=<%=m_type%>"><font size="2">下一页</font></a>
<a href="B_ProductView.asp?page=<%=lastpage%>&prodcode=<%=m_prodcode%>&mytype=<%=m_type%>"><font size="2">末页</font></a>
<select size="1" name="XPage" style="width:40">
<%for i=1 to lastpage%>
<option value=<%=i%>><%=i%>
<%next%>
</select>
<input type="submit" name="B1" size="6" value="Go" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</p>
<P><a href="B_ClientClass.asp"><font size="2">返回</font></a></P>
</form>
</body>
</html>
<%
'回收内存
set rst=nothing
conn.close()
'------------------------------------------------------------------------------------------
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -