📄 product.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "product","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request("strfield")<>"" then
strwhere=" where "&request("strfield")&" like '%"&request("strvalue")&"%'"
end if
if Request.Form("strfield")<>"" then
strwhere=" where "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
end if
if Request.QueryString("orderbyfield")<>"" then
'排序字段改变返回第一页
if session("orderbyfield")<>Request.QueryString("orderbyfield") then
tofirstpage=true
else
tofirstpage=false
end if
'翻页时保持排序方式，不翻页循环改变升序/降序
if request("turnpage")="" then
if request("orderby")="" or request("orderby")="desc" then
session("orderby")="asc"
else
session("orderby")="desc"
end if
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
else
if request("orderbyfield")<>"" then
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
end if
end if
'保存当然排序字段
session("orderbyfield")=Request.QueryString("orderbyfield")
else
strwhere=strwhere&" order by lastmoddate desc"
end if
rs.Open "select top 100 name,productid,productcode,model,producttype,shortkey,price,retail_price,onwhsestatus from v_productlist"&strwhere,conn,1,1
'搜索时用
selecttablename="v_productlist"
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<LINK href="../tools/menu.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Script LANGUAGE="javascript" src="../tools/menuView.js"></script>
<title>产品</title>
<script language=javascript>
window.top.frames (1).document.location='../left.asp?type=product';
</script>
</head>
<script language=javascript>
var g_UrlParams ;
function JustShowMenu(src)
{
document.all(src).style.visibility = "visible";
}
function HideMenu(src)
{
document.all(src).style.visibility = "hidden";
}
function MenuItem_onclick(url,attrstr)
{
var tempwin=window.open(url,null,attrstr);
tempwin.location.href=url + g_UrlParams;
//window.location.href = url + g_UrlParams;
}
function LocateMenu(src,MenuName)
{
var left;
var top ;
var parent ;
parent = document.all(src).offsetParent;
left = parent.offsetLeft + document.all(src).offsetLeft + document.all(src).offsetWidth/2;
top = parent.offsetTop + document.all(src).offsetTop +document.all(src).offsetHeight/2;
while(true)
{
parent = parent.offsetParent ;
if ( "BODY"==parent.tagName) break;
left += parent.offsetLeft ;
top += parent.offsetTop;
}
document.all(MenuName).style.left =left ;
document.all(MenuName).style.top = top ;
}
function ShowMenu(src,MenuName,iUrlParams)
{
var i ;
var parent = new Array(20) ;
var left ;
var top ;
g_UrlParams = iUrlParams ;
LocateMenu(src,MenuName);
document.all(MenuName).style.visibility = "visible";
}
</script>
<SCRIPT language=JavaScript>
function relativeinput_onchange()
{
if (form1.strfield.value=="producttype"){
strvalue1.style.display='none';
strvalue2.style.display='block';
form1.strvalue1.value="";
}
if (form1.strfield.value!="producttype"){
strvalue1.style.display='block';
strvalue2.style.display='none';
form1.strvalue2.value="";
}
}
function GetStrValue()
{
if (form1.strfield.value!="producttype"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="producttype"){
form1.strvalue.value=form1.strvalue2.value;
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="product.asp" onsubmit="return GetStrValue();">
<table align=center width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=model <%if request("strfield")="product" then Response.Write "selected"%>>型号</option>
<option value=productcode <%if request("strfield")="productcode" then Response.Write "selected"%>>货号</option>
<option value=name <%if request("strfield")="name" then Response.Write "selected"%>>名称</option>
<option value=producttype <%if request("strfield")="producttype" then Response.Write "selected"%>>产品类型</option>
<option value=shortkey <%if request("strfield")="shortkey" then Response.Write "selected"%>>助记符</option>
<option value=price <%if request("strfield")="price" then Response.Write "selected"%>>价格</option>
<option value=retail_price <%if request("strfield")="retail_price" then Response.Write "selected"%>>市场价</option>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"producttype" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="producttype" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择产品类型--</option>
<%getgrouptype selecttablename,"producttype",request("strvalue2")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='product.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td>
</tr>
<tr>
<td height="25" colspan=3><strong><font class=title>产品列表</font></strong> <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,,width=750, height=500','newproduct.asp');"><img src="../images/button_new.gif" border=0></a></td>
</tr>
<tr >
<td height="16" colspan="3" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan=3></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="7%" align=center height="22">操作</td>
<td width="10%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=productcode&orderby=<%=session("orderby")%>">货号</a></td>
<td align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a></td>
<td width="18%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=name&orderby=<%=session("orderby")%>">产品名称</a></td>
<td width="14%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=producttype&orderby=<%=session("orderby")%>">产品类型</a></td>
<td width="10%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=onwhsestatus&orderby=<%=session("orderby")%>">库存类型</a></td>
<td width="10%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=price&orderby=<%=session("orderby")%>">参考售价</a></td>
<td width="10%" align=center><a href="product.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=retail_price&orderby=<%=session("orderby")%>">市场价</a></td>
</tr>
<%
set productid=rs("productid")
set productcode=rs("productcode")
set model=rs("model")
set producttype=rs("producttype")
set onwhsestatus=rs("onwhsestatus")
set price=rs("price")
set Retail_Price=rs("Retail_Price")
set name=rs("name")
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center height="22" nowrap>
<%
'//////////////// Add Menu List Start /////////////////////////
AddPopupMenu1 true,true,false,false,false,false,false,false,_
"newproduct.asp?id=", _
"../delete.asp?warn=产品的删除将影响历史报价、订单、库存统计，建议您保留产品并将它设为失效&productid=",_
"",_
"",_
"",_
"",_
"",_
"menuProduct"&rs("productid")
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Product<%=rs("productid")%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Product<%=rs("productid")%>','menuProduct<%=rs("productid")%>','<%=rs("productid")%>')" onMouseOut="HideMenu('menuProduct<%=rs("productid")%>')"></td>
<td align=center><a href="javascript:opensubwin3('productdetail.asp?productid=<%=productid%>','product<%=productid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=250,top=150,left=160');"><%=productcode%></a></td>
<td align=center><a href="javascript:opensubwin3('productdetail.asp?productid=<%=productid%>','product<%=productid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=250,top=150,left=160');"><%=model%></a></td>
<td align=center><%=name%></td>
<td align=center><%=producttype%></td>
<td align=center>
<%
if onwhsestatus="非常备品" then
response.write "<font color=ff0000>非常备品</font>"
elseif onwhsestatus="常备品" then
response.write "<font color=00ff00>常备品</font>"
elseif onwhsestatus="准常备品" then
response.write "<font color=0000ff>准常备品</font>"
end if%>
</td>
<td align=center><%=formatnumber(price,2)%></td>
<td align=center><%=formatnumber(Retail_Price,2)%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
set rsq=server.CreateObject("adodb.recordset")
rsq.Open "select productid from product",conn,1,1
if not rsq.eof then
rsq.PageSize=session("PageSize")
'rsq.AbsolutePage=CurPage
end if
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=rsq.PageCount%>页 / 记录数:<%=rsq.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -