f_contracteditinfo1.asp

来自「一个很好的在线购物系统」· ASP 代码 · 共 66 行

ASP
66 行
字号 



<!--#include file="../include/Pubconn.asp"-->
<%
ID=Request("ID")
set rsht=Server.CreateObject("ADODB.RecordSet")
sql="select *  from F_Tblcontract1 where ID="&cint(ID)
rsht.open sql,Pubconn,1,3

if not rsht.eof then
 
  rsht("Contractnum")=request("hth")
  rsht("SaleDelegate")=Session("UserID") 
  rsht("Engineer")=request("gcsxh")
  rsht("Needer")=request("khxh") 
  rsht("LinkMan")=request("lxr")  
  rsht("EsceptNeed")=request("tsyq") 
  rsht("TopTemptDry")=request("wd1") 
  rsht("TopTemptDump")=request("wd2") 
  rsht("CloudCompose")=request("yqzc") '烟组成
  rsht("CloudWaterContent")=request("yszc") 
  rsht("LightTemperature")=request("wd3") 
  rsht("TopRadius")=request("zdl") 
  rsht("TopPer")=request("bfb1") 
  rsht("LowRadius")=request("zxl") 
  rsht("LowPer")=request("bfb2") 
  rsht("Thickness")=request("rknd") 
  rsht("LetAsk")=request("pfyq") 
  rsht("DealWind")=request("clfl") 
  rsht("Density")=request("md")
  rsht("Densitymx")=request("mdmx") 
  rsht("Explode")=request("bzx")  '爆炸性
  rsht("SysTopPress")=request("xtfy") 
  rsht("ExitStyle")=request("phfs") '排放方式
  rsht("OtherRemark")=request("phfsmx")   '排放方式remark
  rsht("WorkCharacter")=request("gzxz")
  rsht("SupplyKw")=request("gdnum1")
  rsht("SupplyV")=request("gdnum2")
  rsht("SaveMonth")=request("zbyear")
  rsht("Compressness")=request("power")   '压力
  rsht("CompressAir")=request("air")
  rsht("EspectRequire")=request("espyq")
  rsht("YesOrNo")="1"
  rsht("Authors")=Session("username")
  rsht("DepartID")=Session("DepartID")
  rsht.update
end if 

%>

<head>
<title></title>
</head>

<body bgcolor="#FFFFFF">

<p align="center">
　

<p align="center">
<font size="2">

数据修改成功！！<a href="F_contractbrow1.asp">返回</a>
</font>

f_contracteditinfo1.asp - 源码说明

本页面展示了「一个很好的在线购物系统」中的 f_contracteditinfo1.asp 源码文件，采用 ASP 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与在线购物系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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