product.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 256 行
ASP
256 行
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="../Pub_Fun.asp"-->
<%
ProductCreatorID=session("Session_User")
if request("act")="edit" then
ProductRevisorID_l=session("Session_User")
end if
''判断是否是添加操作
if request("act")="add" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM product"
rs.Open sql,conn,1,3
''增加一条新的记录
rs.Addnew
rs("ProductName")=trim(Request("ProductName"))
rs("ProductSupplyID")=Request("ProductSupply")
rs("ProductInfo")=htmlencode2(Request("ProductInfo"))
rs("ProductCreatorID")=cint(Request("ProductCreatorID"))
rs("ProductCreateDate")=Request("ProductCreateDate")
''记录更新
rs.Update
''判断是否要将产品写库存表。如果要写入数据库，则默认的主题为第一次进货
if request("price")<>"" and request("P_num")<>"" then
sql_stock="insert into stock(stockproductID,stockproductname,stockproductnum,stockproductprice,stocksort,stocktopic,stockinfo,stockdate,stockcreatorid,stockcreatedate) "
sql_stock=sql_stock&" values("&rs("productid")&",'"&rs("ProductName")&"',"&cint(request("P_num"))&","&cdbl(request("price"))&",0,'第一次进货','第一次进货','"&rs("ProductCreateDate")&"',"&rs("ProductCreatorID")&",'"&rs("ProductCreateDate")&"')"
conn.execute sql_stock
end if
rs.Close
Set rs=Nothing
''写入数据库操作完成后提示并返回到添加页面
%>
<script language="VBScript">
msgbox "商品添加成功！！"
window.location="productlist.asp"
</script>
<%
end if
''将修改后的信息写入数据库
if request("act")="savechange" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM product where ProductID="&trim(request("id"))
rs.Open sql,conn,2,3
rs("ProductName")=trim(Request("ProductName"))
rs("ProductSupplyID")=Request("ProductSupply")
rs("ProductInfo")=htmlencode2(Request("ProductInfo"))
rs("ProductRevisorID")=Request("ProductRevisorID")
rs("ProductReviseDate")=date()
rs.Update
rs.Close
Set rs=Nothing
''操作成功提示并且转入到产品列表页面
%>
<script language="VBScript">
msgbox "商品修改成功！！"
window.location="productlist.asp"
</script>
<%
end if
''从数据库中读取要修改的产品的信息
if request("act")="edit" and trim(request("id"))<>"" then ''判断是否满足读取的条件
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM product where ProductID="&trim(request("id")) ''建立查询语句
rs.Open sql,conn,3
if not rs.eof then ''如果要读取的记录存在，则将各值存放在各变量中
ProductName=trim(rs("ProductName"))
ProductSupplyID=trim(rs("ProductSupplyID"))
ProductInfo=keepformat(rs("ProductInfo"))
ProductCreatorID=Rs("ProductCreatorID")
ProductCreateDate=Rs("ProductCreateDate")
ProductRevisorID=Rs("ProductRevisorID")
ProductReviseDate=Rs("ProductReviseDate")
end if
set rs=nothing
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>产品信息添加</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<!--#include file="../scripts/check.vs"-->
<script language="VBScript">
sub checkinfo(act)
if trim(productinfo.Productname.value) = "" then
msgbox "请输入产品名称！！"
productinfo.Productname.focus
exit sub
end if
if trim(productinfo.ProductSupply.value) = "0" then
msgbox "请选择产品的供应商！！"
productinfo.ProductSupply.focus
exit sub
end if
if trim(productinfo.ProductInfo.value) <> "" then
if len(trim(productinfo.ProductInfo.value))>760 then
msgbox "输入的产品介绍内容太多，请重新输入！！"
productinfo.ProductInfo.focus
exit sub
end if
else
msgbox "请输入产品的简单介绍！！"
productinfo.ProductInfo.focus
exit sub
end if
<!-- 判断是修改还是新建保存 -->
if act=1 then
if (productinfo.price.value ="" or productinfo.p_num.value ="" ) then
<!--提示用户是否填写入库信息-->
if confirm("进货入库信息没有填写完整，确实不填写保存么？",vbyesno,64) then
productinfo.act.value="add"
productinfo.action="product.asp"
productinfo.submit
end if
else
productinfo.act.value="add"
productinfo.action="product.asp"
productinfo.submit
end if
else
productinfo.act.value="savechange"
productinfo.action="product.asp"
productinfo.submit
end if
End sub
</script>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD height="24" valign="top" bgcolor="#566CDB" ><img src="../images/DispStation_H.gif" width="11" height="24">产品信息添加</TD>
<TD align="right" valign="middle" bgcolor="#DDDDDD" >
<%if request("act")="edit" then %>
<input name="SaveButton" type="button" class="button_all" value="修改" onClick="checkinfo(0)">
<%else %>
<input name="SaveButton" type="button" class="button_all" value="保存" onClick="checkinfo(1)">
<%end if%>
<input onclick="javascript:location.href='productlist.asp';" name="ListButton" type="button" class="button_all" value="列表">
<input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" value="返回">
</TD>
</TR>
<TR>
<TD height="16" colspan="2" valign="top" width="100%"> </TD>
</TR>
</Tbody>
</table>
<form name="productinfo" method="post">
<input type="hidden" name="id" value="<%=trim(request("id"))%>">
<input type="hidden" name="act">
<TABLE width="751" border=0 align=center cellPadding=3 cellSpacing=1 bgcolor="#33CCFF">
<TBODY>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF">
<FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">产品名称:
<input name="ProductName" type="text" size="30" maxlength="50" value="<%=ProductName%>">
</span></TD>
<TD align="left" valign="middle" bgcolor="#FFFFFF" >
<FONT face=Wingdings color=#99ccff >v</FONT></FONT><span class="style1">产品供应商:
<select name="ProductSupply">
<option value="0" >未选择供应商</option>
<%
set rs_s = server.createobject("adodb.recordset")
sql_s= "select distinct clientid,clientname from client order by clientid "
rs_s.open sql_s,conn,3
if not rs_s.eof then
for i=1 to rs_s.recordcount
%>
<option value="<%=trim(rs_s("clientid"))%>" <% if ProductSupplyID=trim(rs_s("clientid")) then response.Write("selected") %>> <%=rs_s("clientname")%></option>
<%
rs_s.movenext
next
end if
set rs_s=nothing
%>
</select>
</span></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="2" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><span class="style1">产品介绍: </span></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="2" >
<textarea name="ProductInfo" cols="90%" rows="6"><%=ProductInfo%></textarea>
</TD>
</TR>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF" colspan="2">入库信息</TD>
</TR>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF"> <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">入库价格:
<input onBlur=Num_onBlur("Price") type="text" class=CInput name="Price" size = 8 maxlength="8" <% if request("act")="edit" then response.Write("disabled")%>>
</span></TD>
<TD align="left" valign="middle" bgcolor="#FFFFFF" >
<FONT face=Wingdings color=#99ccff >v</FONT></FONT><span class="style1">入库数量:
<input onBlur=IntNum_onBlur("P_num") type="text" class=CInput name="P_num" size = 8 maxlength="8" <% if request("act")="edit" then response.Write("disabled")%>>
</span></TD>
</TR>
</TBody>
</table>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR bgcolor="#FFFFFF">
<TD height="30" valign="bottom" colspan="3" >系统信息</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="3" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建者:
<input readonly="true" name="ProductCreator" type="text" size="15" maxlength="30" value="<%=showoperatorname(ProductCreatorID)%>">
<input name="ProductCreatorID" type="hidden" value ="<%=ProductCreatorID%>">
</FONT></TD>
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建日期:
<input readonly="true" name="ProductCreateDate" type="text" size="15" maxlength="30" value="<%if ProductCreateDate<>"" then response.Write(ProductCreateDate) else response.Write(date()) end if%>">
</FONT></TD>
<TD align="left" valign="middle" ></TD>
</TR>
<TR>
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>修改者:
<input readonly="true" name="ProductRevisor" type="text" size="15" maxlength="30" value="<%if isnull(ProductRevisorID) then response.Write showoperatorname(ProductRevisorID_l) else response.Write showoperatorname(ProductRevisorID) end if %>">
<input name="ProductRevisorID" type="hidden" value = <%=(ProductRevisorID_l)%>>
</FONT></TD>
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改日期:
<input readonly="true" name="ProductReviseDate" type="text" size="15" maxlength="30" value="<%if ProductReviseDate<>"" then response.Write(ProductReviseDate) else if request("act")="edit" then response.Write(Date()) end if end if%>">
</FONT></TD>
<TD align="left" valign="middle" ></TD>
</TR>
<TR align=middle bgColor=#99ccff>
<TD height="24" colSpan=3 vAlign=middle></TD>
</TR>
</TBODY>
</TABLE>
</form>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?