e_reininfo.asp

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

<!--#include file="../include/Pubconn.asp"-->
<%
'投诉日期
ksfs=request("ksfs")
djbh=request("djbh")
khxh=request("khxh")
cpbm=request("cpbm")
wtstyle=request("wtstyle")
jycd=request("jycd")
ksyq=request("ksyq")
ksproblem=request("ksproblem")


year1=request("year1")
month1=request("month1")
date1=request("date1")
if year1<>"" and month1<>""  then
   ksrq=year1+"-"+month1+"-"+date1
end if 
'受理日期
year2=request("year2")
month2=request("month2")
date2=request("date2")
if year2<>"" and month2<>""  then
   slrq=year1+"-"+month1+"-"+date1
end if 

set rsts=Server.CreateObject("ADODB.RecordSet")
sql="select *  from E_ClientComplain "
rsts.open sql,Pubconn,1,3
rsts.addnew
  rsts("BillID")=djbh
  rsts("DisposePerson")=Session("UserID")
  rsts("ClientNum")=khxh 
  rsts("ComplainTime")=ksrq
  rsts("Style")=ksfs
  rsts("ProdCode")=cpbm
  rsts("ProblemType")=wtstyle 
  rsts("CrisesLevel")=jycd  
  rsts("Request")=ksyq
  rsts("Problem")=ksProblem
  rsts("DisposeTime")=slrq
  rsts("YesorNO")="0"  
  rsts("Authors")=Session("username") 
  rsts("DepartID")=Session("DepartID")
  
 
rsts.update

%>

<p align="center">
<font size="2">
数据保存成功！！<a href="E_rein.asp">返回</a>
</font>