d_linkmaninfo.asp

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

<!--#include file="../include/Pubconn.asp"-->

<%   
khxh=request("khxh")
name=request("name")
sex=request("sex")
year1=request("year1")
month1=request("month1")
date1=request("date1")
if year1<>"" and month1<>"" and date1<>"" then
   total1=year1+"-"+month1+"-"+date1
end if

year2=request("year2")
month2=request("month2")
date2=request("date2")
if year2<>"" and month2<>"" and date2<>"" then
   total2=year2+"-"+month2+"-"+date2
end if

jg=request("jg")
bm=request("bm")
zw=request("zw")
movephone=request("movephone")
officetelephone=request("officetelephone")
calltelelphone=request("calltelephone")
xg=request("xg")
yxl=request("yxl")
cggz=request("cggz")
bz=request("bz")
zgf=request("R1") '在岗否
email=request("email")
set rslxr=server.CreateObject("ADODB.RecordSet")
sql="select *  from  D_LinkMan "
rslxr.open sql,Pubconn,1,3
   rslxr.addnew            
          rslxr.Fields("clientnum")=khxh            
          rslxr.Fields("linkman")=name            
          rslxr.Fields("sex")=sex            
          rslxr.Fields("BirthDay")=total1            
          rslxr.Fields("NativePlace")=jg            
          rslxr.Fields("Department")=bm            
          rslxr.Fields("HeadShip")=zw            
          rslxr.Fields("Telephone")=officetelephone            
          rslxr.Fields("MobileTelephone")=movephone            
		  rslxr.Fields("CallTelephone")=calltelelphone            
		  rslxr.Fields("Character")=xg            
		  rslxr.Fields("AffectPower")=yxl            
		  rslxr.Fields("AttionPoint")=cggz            
		  rslxr.Fields("MemorializeDay")=total2            
		  rslxr.Fields("Remark")=bz     
		  rslxr("Authors")=Session("UserName")
       	  rslxr("DepartID")=Session("DepartID")
		  rslxr.Fields("OnOrOff")=zgf
		  rslxr.Fields("e_mail")=email 
		         
	rslxr.Update                  
%>
<p align="center">　
<p align="center"><font size="2">
数据保存完毕！<a href="D_LinkMan.asp">返回</a>
 </font> 
<% 
rslxr.close 
set rslxr=nothing 
 
%>