📄 func_goods.asp
字号:
<SCRIPT LANGUAGE="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore)
{ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function DoSubmit0(value)
{
document.selectform.selectid.value=value;
document.selectform.submit();
}
function DoSubmit1(value,value2)
{
if(value2==1)
{
if(!confirm("删除后将无法恢复，一定要删除吗？"))
return;
}
else if(value2==2)
{
if(!confirm("密码清除后将无法恢复，一定要清除密码吗？"))
return;
}
document.deleform.deleteid.value=value;
document.deleform.deleteflag.value=value2;
document.deleform.submit();
}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial
set rs = Server.CreateObject("ADODB.Recordset")
if request("deleteflag")="1" then
sql="delete from cci_jxc_goods where id=" & request("deleteid")
ConnObj.execute(sql)
msg="信息删除成功，编号为:" & request("deleteid")
response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if
if request("saveflag")<>"" then
dim msg
saveserial=1
msg=""
if trim(request("thename"))="" then
msg=msg & saveserial & "、请输入货品名称!<br>"
saveserial=saveserial+1
end if
if trim(request("typeid"))="" then
msg=msg & saveserial & "、请选择货品类别!<br>"
saveserial=saveserial+1
end if
if trim(request("spec"))="" then
msg=msg & saveserial & "、请输入货品规格!<br>"
saveserial=saveserial+1
end if
if trim(request("unitid"))="" then
msg=msg & saveserial & "、请选择货品单位!<br>"
saveserial=saveserial+1
end if
if trim(request("saveprice"))="" then
msg=msg & saveserial & "、请输入库存单价!<br>"
saveserial=saveserial+1
end if
if trim(request("saleprice"))="" then
msg=msg & saveserial & "、请输入参考销售价!<br>"
saveserial=saveserial+1
end if
if trim(request("lowsave"))="" then
msg=msg & saveserial & "、请输入库存下限!<br>"
saveserial=saveserial+1
end if
if trim(request("topsave"))="" then
msg=msg & saveserial & "、请输入库存上限!<br>"
saveserial=saveserial+1
end if
if saveserial<=1 then
if request("saveflag")<>"1" then
sql="select * from cci_jxc_goods where id=" & request("id")
else
sql="select * from cci_jxc_goods"
end if
rs.open sql,connobj,3,3
if request("saveflag")="1" then
rs.addnew
end if
if trim(request("thecode"))<>"" then
rs("thecode")=request("thecode")
else
rs("thecode")=null
end if
rs("thename")=request("thename")
rs("typeid")=request("typeid")
rs("spec")=request("spec")
rs("unitid")=request("unitid")
rs("saveprice")=cdbl(request("saveprice"))
rs("saleprice")=cdbl(request("saleprice"))
rs("lowsave")=cdbl(request("lowsave"))
rs("topsave")=cdbl(request("topsave"))
if trim(request("baprice"))<>"" then
rs("baprice")=cdbl(request("baprice"))
else
rs("baprice")=0
end if
if trim(request("salebaprice"))<>"" then
rs("salebaprice")=cdbl(request("salebaprice"))
else
rs("salebaprice")=0
end if
if trim(request("memo"))<>"" then
rs("memo")=request("memo")
else
rs("memo")=null
end if
rs("status")=request("status")
rs.update
rs.close
msg="货品资料保存成功！!"
end if
response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if
SQL = "select a.id,a.thename,b.typename,a.spec,c.unitname,a.saveprice,a.baprice From cci_jxc_goods a,cci_jxc_type b,cci_jxc_unit c where a.typeid=b.id and a.unitid=c.id order by a.id desc"
Rs.Open Sql,connObj,1,1
sumcount=rs.recordcount
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
<tr>
<th height="25" align="center"> <b><%=site_title%>货品资料管理</b>
<div align="right"></div></th>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF" >
<table width="100%" cellpadding="1" cellspacing="1" class=tableborder1>
<tr align="center" height=25>
<td class=TopLighNav ><b>货品名称</b></td>
<td class=TopLighNav width="80"><b>类别</b></td>
<td class=TopLighNav width="60"><b>规格</b></td>
<td class=TopLighNav width="80"><b>单位</b></td>
<td class=TopLighNav width="80"><b>单价</b></td>
<td class=TopLighNav width="80"><b>批发价</b></td>
<td width="30" class=TopLighNav><b>修改</b></td>
<td width="30" class=TopLighNav><b>删除</b></td>
</tr>
<%
If (Not Rs.Eof) And (Not Rs.Bof) Then
page_size = 20
Rs.pagesize = page_size
page_count = Rs.pagecount
Page = Request.QueryString("page")
If Isnull(Page) or (Not Isnumeric(Page)) Then
aPage = 1
Else
aPage = Cint(page)
If aPage < 1 Then
aPage = 1
ElseIf aPage > Cint(page_count) Then
aPage = page_count
End If
End If
Rs.Absolutepage = aPage
ars = Rs.Getrows(page_size)
For i = 0 To Ubound(ars,2)
%>
<tr bgcolor=#FFFFFF align="center" height= 20>
<td><%=ars(1,i)%></td>
<td> <% = ars(2,i) %> </td>
<td> <% = ars(3,i) %> </td>
<td><%=ars(4,i)%></td>
<td><%=ars(5,i)%></td>
<td><%=ars(6,i)%></td>
<td><input type=radio name=abc <%if request("selectid")=cstr(ars(0,i)) then response.Write(" checked")%> onclick="DoSubmit0(<%=trim(Ars(0,i))%>)"></td>
<td><input type=radio name=bcd onclick="DoSubmit1(<%=trim(Ars(0,i))%>,1)"></td>
</tr>
<%
Next
Else
Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=8>目前没有货品资料录入!</td></tr>")
End If
rs.close
%>
</table>
</td>
</tr>
<tr bgcolor="#EEEEEE"> <form name="form1">
<td height="24" align="right" bgcolor="#ffffff" >
<%
If sumcount > 0 Then
%>
[共有
<% = sumcount %>
条记录 页:
<% = aPage %>
/
<% = page_count %>
]
<%
if Cint(aPage) > 1 then
%>
[<a href="goods.asp?page=<% = aPage - 1 %>">上一页</a>]
<%
else
response.write "[上一页]"
end if
if (Cint(aPage) < Cint(page_count)) then
%>
[<a href="goods.asp?page=<% = aPage + 1 %>">下一页</a>]
<%
else
response.write "[下一页]"
end if
%>
跳到
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
For i = 1 to page_count
If i = aPage Then
%>
<option value="goods.asp?page=<% = i %>" selected><% = i %></option>
<%
else
%>
<option value="goods.asp?page=<% = i %>"><% = i %></option>
<%
End If
Next
%>
</select>页
<%
Else
Response.Write(" ")
End If
%>
</td> </form>
</tr>
</table>
<%
if request("selectflag")="1" then
sql="select * from cci_jxc_goods where id=" & request("selectid")
Rs.Open Sql,connObj,1,1
if not rs.eof then
Id=rs("id")
thecode=rs("thecode")
thename=rs("thename")
typeid=rs("typeid")
spec=rs("spec")
unitid=rs("unitid")
saveprice=rs("saveprice")
saleprice=rs("saleprice")
baprice=rs("baprice")
salebaprice=rs("salebaprice")
lowsave=rs("lowsave")
topsave=rs("topsave")
memo=rs("memo")
bstatus=rs("status")
end if
rs.close
end if
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
<form name="theform" method="post" action="" > <input type=hidden name=id value="<%=id%>">
<tr >
<th height="25" colspan="4" align="center" class=TopLighNav>货品资料录入</th>
</tr>
<tr>
<td width="100" class=tablebody1>名称</td>
<td class=tablebody1><input name="thename" type="text" size="20" value="<%=thecode%>">
</td>
<td width="79" class=tablebody1>编码</td>
<td width="210" class=tablebody1><input name="thecode" type="text" size="20" value="<%=thecode%>"> </td>
</tr>
<tr>
<td class=tablebody1>类别</td>
<td width="163" class=tablebody1><select name=typeid>
<%
sql="select id,typename from cci_jxc_type"
Rs.Open Sql,connObj,1,1
flag=0
do while not rs.eof
if typeid=rs("id") then
flag=1
response.Write "<option value=" & rs("id") & " selected>" & rs("typename") & "</option>"
else
response.Write "<option value=" & rs("id") & ">" & rs("typename") & "</option>"
end if
rs.movenext
loop
rs.close
if flag<>1 then
response.Write "<option selected></option>"
else
response.Write "<option></option>"
end if
%> </select></td>
<td width="79" class=tablebody1>规格</td>
<td class=tablebody1><input name="spec" type="text" size="20" value="<%=spec%>">
</td>
</tr>
<tr>
<td class=tablebody1>单位</td>
<td class=tablebody1><select name=unitid>
<%
sql="select id,unitname from cci_jxc_unit"
Rs.Open Sql,connObj,1,1
flag=0
do while not rs.eof
if unitid=rs("id") then
flag=1
response.Write "<option value=" & rs("id") & " selected>" & rs("unitname") & "</option>"
else
response.Write "<option value=" & rs("id") & ">" & rs("unitname") & "</option>"
end if
rs.movenext
loop
rs.close
if flag<>1 then
response.Write "<option selected></option>"
else
response.Write "<option></option>"
end if
%> </select></td>
<td class=tablebody1>库存单价</td>
<td class=tablebody1><input name="saveprice" type="text" size="20" value="<%=saveprice%>"></td>
</tr>
<tr>
<td width="100" class=tablebody1>参考批发价</td>
<td class=tablebody1><input name="baprice" type="text" size="20" value="<%=baprice%>">
</td>
<td width="79" class=tablebody1>参考销售价</td>
<td width="210" class=tablebody1><input name="Saleprice" type="text" size="20" value="<%=Saleprice%>"> </td>
</tr>
<tr>
<td width="100" class=tablebody1>参考批发销售价</td>
<td class=tablebody1><input name="Salebaprice" type="text" size="20" value="<%=Salebaprice%>">
</td>
<td width="79" class=tablebody1>最低库存</td>
<td width="210" class=tablebody1><input name="Lowsave" type="text" size="20" value="<%=Lowsave%>"> </td>
</tr>
<tr>
<td width="100" class=tablebody1>最高库存</td>
<td class=tablebody1><input name="topsave" type="text" size="20" value="<%=topsave%>">
</td>
<td width="79" class=tablebody1>显示状态</td>
<td width="210" class=tablebody1><select name="status">
<option></option>
<option value="1" <%if bstatus=1 then response.Write "selected"%>>显示</option>
<option value="0" <%if bstatus=0 then response.Write "selected"%>>不显示</option>
</select>
</td>
</tr>
<tr>
<td width="100" class=tablebody1>说明</td>
<td class=tablebody1 colspan="3"><textarea name="memo" cols="80" rows="5"><%=memo%></textarea>
</td>
</tr>
<input type=hidden name=saveflag value="<%
if request("selectflag")="1" then
response.Write "2"
else
response.Write "1"
end if
%>">
<tr>
<td colspan="4" align="center" class=tablebody1><input type="submit" name="Submit" value=" 保 存 "></td>
</tr>
</form>
</table>
<form name=deleform action="" method=post>
<input type=hidden name=deleteid>
<input type=hidden name=deleteflag>
</form>
<form name=selectform action="" method=post>
<input type=hidden name=selectid>
<input type=hidden name=selectflag value="1">
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -