📄 xsthjzok.asp

📁 《网上商品交易系统》开发及测试环境操作系统：Windows 2000 Server 后台数据库：SQL Server 2000 Web服务器：IIS 5.0 　《网上商品交易系统》

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sell.asp" -->
<%
if(Request("hjkph") <> "") then varid = Request("hjkph")
if(Request("hthph") <> "") then varthph = Request("hthph")
if(Request("hkhname") <> "") then varkhname = Request("hkhname")
if(Request("bcjk") <> "") then varbcjk = Request("bcjk")
if(Request("jkdate") <> "") then varjkdate = Request("jkdate")
if(Request("jkczy") <> "") then varczy = Request("jkczy")
if(Request("jkjsr") <> "") then varjsr = Request("jkjsr")
if(Request("hye") <> "") then varye = Request("hye")
if(Request("bcjk") <> "") then varbcjk = Request("bcjk")
if(Request("hye") <> "") then varye = Request("hye")
if(varye = 0) then
 varwhether = "是"
else
varwhether = "否"
end if
if(Request("hthph") <> "") then varthph = Request("hthph")
'保存销售退货结账信息
set comsave = Server.CreateObject("ADODB.Command")
Ins_xsth = "INSERT INTO dbo.tab_thjz_xs (ID,thid,khname,bcjk,ye,jkdate,czy ,jsr) VALUES ('" +_
 Replace(varid, "'", "''") + "', '" + Replace(varthph, "'", "''") +_
 "', '" + Replace(varkhname, "'", "''") + "', " + Replace(varbcjk, "'", "''") + ", " +_
  Replace(varye, "'", "''") + ", '" + Replace(varjkdate, "'", "''") + "', '" +_
  Replace(varczy, "'", "''") + "', '" + Replace(varjsr, "'", "''") + "') "
conn.Execute(Ins_xsth)
'更新销售退货结账票号数据表信息
UP_xsthph= "UPDATE dbo.tab_thph_xs  SET sf = sf + " + Replace(varbcjk, "'", "''") +_
 " , wf = " + Replace(varye, "'", "''") + " , whether =  '" + Replace(varwhether, "'", "''") +_
  "' WHERE thph ='" + Replace(varthph, "'", "''") + "' "
conn.Execute(UP_xsthph)

%>
<html>
<head>
<title>明日企业网上销售管理系统——应收管理！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../images/bg.gif">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="311">
  <tr> 
    <td> 
      <div align="center"> 
        <p><b><font color="990000">商品销售退货结款成功！</font></b></p>
        <p><font color="#990000"><b>单击“ <a href="./xsthjz.asp" class="l" target="_parent">返回</a> 
          ”继续结款。</b></font></p>
      </div>
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -