📄 f_contracteditinfo1.asp

📁 一个很好的在线购物系统

💻 ASP

字号:




<!--#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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -