📄 productsalemodify.asp

📁 一个比较完整的oa系统
💻 ASP
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/SelectDate.ASP"-->
<%if WS_S.MemberPriv("WS_SaleManageProductSaleRecord")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_ProductSaleRecord":Tablename1="HX_Product":Orderby="":action=request("action"):id=request("id")
if not WS_S.HX_IsNUM(id) then  HX_GoBack "非法操作","" 
Orderby=" where WS_PSID="&id
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="saveinfo" then
 PTID=WS_s.HX_Replace(request("PTID")):SaleMan=WS_s.HX_Replace(request("SaleMan")):SaleDate=WS_s.HX_Replace(request("SaleDate")):SaleDescribe=WS_s.HX_Replace(request("SaleDescribe"))
   rs("WS_PTID")=PTID:rs("WS_ProductSaleMan")=SaleMan
   if isdate(SaleDate) then  rs("WS_ProductSaleDate")=SaleDate
   rs("WS_ProductSaleDescribe")=SaleDescribe:rs.update
 HX_GoBack "修改成功","ProductSaleRecord.asp" 
end if
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>修改销售记录</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>修改销售记录</font>　　　　　<a href='ProductSaleCreate.asp' class='menu'>添加销售记录</a>　　　　<a href='ProductSaleManage.asp' class='menu'>销售记录管理</a></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1><form name='form1' method='post' action='?action=saveinfo'><tr bgcolor='#FFFFFF'><td width='23%' align='right'>产品名称：</td><td width='77%'><select name='PTID' id='PTID'>"
Orderby=" where WS_ProductCreateMan="&loginuid&" order by WS_PTID desc"
set urs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if urs.recordcount>0 then
  do until urs.eof
	response.write "<option value='"&urs("WS_PTID")&"' "
	 if rs("WS_PTID")=urs("WS_PTID") then response.write "selected"
	 response.write ">"&urs("WS_ProductName")&"</option>"
	urs.movenext
   loop
end if
WS_S.HX_RSClose urs  
response.write "</select></td></tr><tr bgcolor='#FFFFFF'><td align='right'>出售日期：</td><td><input name='SaleDate' type='text' value='"&rs("WS_ProductSaleDate")&"' size='28' readonly> <input name='button' type='button' title='选择时间' onClick=""popUpcalendar(this, form1.SaleDate, 'yyyy/mm/dd')"" value='选择'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>购 买 人：</td><td><input name='SaleMan' type='text' value='"&rs("WS_ProductSaleMan")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>备　　注：</td><td><input name='SaleDescribe' type='text' value='"&rs("WS_ProductSaleDescribe")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right' valign=top>&nbsp;</td><td><input type='submit' name='Submit' value=' 修 改 '> <input type='reset' name='Submit2' value=' 重 置 '> <input name='id' type='hidden' id='id' value='"&id&"'></td></tr></form></table></td></tr></table>"
WS_S.HX_RSClose rs%>
⌨️ 快捷键说明

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