wnp_zccl.asp

U盘身份识别软件

<!--#include file="WNP_INCLUDE.ASP" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
tableName="WNT_UNIT"
fieldName="WND_UNIT_Order"
orderNumber=request("unitOrder")
fieldId="WND_UNIT_ID"
recordId=request("qyid")
action=request("action")
qymc=request("qymc")
UNIT_BM_new=session("UNIT_BM")+request("dwbm01")
if action="add" then
  sql="select * from WNT_UNIT where WND_UNIT_UN='"&qymc&"' or UNIT_BM='"&UNIT_BM_new&"'"
  rssub.open sql,conn,1,1
  if not rssub.eof then
     rssub.close
     response.Write "<script language=javascript>alert('企业名称不能重复！');location.href='WNP_ZC.ASP';</script>"
  else
call addOrder(tableName,fieldName,orderNumber)
  sql="select * from WNT_UNIT where WND_UNIT_Order="&orderNumber
rs.open sql,conn,1,3
  rs("UNIT_BM")=UNIT_BM_new
  rs("WND_UNIT_UN")=qymc
  rs("UNIT_Jibie")=session("UNIT_Jibie")+1
rs.Update
rs.close
response.Redirect "WNP_ZC.ASP"
  end if
elseif action="edit" then
    call modOrder(tableName,fieldName,orderNumber,fieldId,recordId)
	qyid=request("qyid")
	hiddenFieldBM=request("hiddenFieldBM")
	dwbm01=request("dwbm01")
	if dwbm01<>hiddenFieldBM then
	  unitLeftSameStep=session("UNIT_Jibie")*session("EveryStepNumber")
	  sql="update WNT_UNIT set UNIT_BM='"&session("UNIT_BM")&"' + Right(UNIT_BM,"&unitLeftSameStep+1&") where left(UNIT_BM,"&unitLeftSameStep&")='"&session("UNIT_BM")&"' and Len(UNIT_BM)>"&unitLeftSameStep
	  conn.execute(sql)
	  sql="update WNT_USER set USER_DWBM='"&session("UNIT_BM")&"' + Right(USER_DWBM,"&unitLeftSameStep+1&") where left(USER_DWBM,"&unitLeftSameStep&")='"&session("UNIT_BM")&"' and Len(USER_DWBM)>"&unitLeftSameStep
	  conn.execute(sql)
	end if
	sql="update WNT_UNIT set UNIT_BM='"&UNIT_BM_new&"',WND_UNIT_UN='"&qymc&"',UNIT_Jibie="&session("UNIT_Jibie")&"+1"
	if trim(request("selectUnitType"))<>"" then
	   sql=sql+",WND_UNIT_MT="&request("selectUnitType")
	end if
	if trim(request("qyxz"))<>"" then
	   sql=sql+",WND_UNIT_EN='"&request("qyxz")&"'"
	end if
	if trim(request("sshy"))<>"" then
	   sql=sql+",WND_UNIT_RP='"&request("sshy")&"'"
	end if
	if trim(request("zczj"))<>"" then
	   sql=sql+",WND_UNIT_RF='"&request("zczj")&"'"
	end if
	if trim(request("gyrs"))<>"" then
	   sql=sql+",WND_UNIT_EP='"&request("gyrs")&"'"
	end if
	if trim(request("Province"))<>"" then
	   sql=sql+",WND_UNIT_Province='"&request("Province")&"'"
	end if
	if trim(request("txdz"))<>"" then
	   sql=sql+",WND_UNIT_MA='"&request("txdz")&"'"
	end if
	if trim(request("yzbm"))<>"" then
	   sql=sql+",WND_UNIT_ZC='"&request("yzbm")&"'"
	end if
	if trim(request("zyfzr"))<>"" then
	   sql=sql+",WND_UNIT_USER='"&request("zyfzr")&"'"
	end if
	if trim(request("bgdh"))<>"" then
	   sql=sql+",WND_UNIT_OT='"&request("bgdh")&"'"
	end if
	if trim(request("zzdh"))<>"" then
	   sql=sql+",WND_UNIT_HT='"&request("zzdh")&"'"
	end if
	if trim(request("Fax"))<>"" then
	   sql=sql+",WND_UNIT_TF='"&request("Fax")&"'"
	end if
	if trim(request("yddh"))<>"" then
	   sql=sql+",WND_UNIT_CT='"&request("yddh")&"'"
	end if
	if trim(request("email"))<>"" then
	   sql=sql+",WND_UNIT_EM='"&request("email")&"'"
	end if
	if trim(request("txlb"))<>"" then
	   sql=sql+",WND_UNIT_TCT='"&request("txlb")&"'"
	end if
    sql=sql+" where WND_UNIT_ID="&qyid
    conn.execute(sql)
	response.Write("<script language=javascript>alert('修改成功！');location.href='WNP_ZC.ASP';</script>")
end if
%>