<!-- #include file="../conn.asp" -->
<!-- #include file="../const.asp" -->
<!-- #include file="../jq.html" -->
<title><%=dianming%> - 业务操作</title>
<link href="../images/sunzom.css" rel="stylesheet" type="text/css">
<%call chksunzom()
pxu=requestA("px")
soye=chk0(requestA("soye"))
if soye=1 then maxrecord=10000
if soye>1 then maxrecord=soye
mx000id=requestA("mxid")
xxid=requestA("xxid")
m1id=chk0(requestA("m1id"))
x1id=requestA("x1id")
sid=chk0(requestA("sid"))
sids=split(""&sid&"||||||","|")
sid0=chk0(sids(0)):sid1=chk0(sids(1)):sid2=chk0(sids(2)):sid3=chk0(sids(3)):sid4=chk0(sids(4)):sid5=chk0(sids(5))
if len(sid2)<3 then sid2="h0ui"
cdid=chk0(requestA("cdid"))

if chk0(x1id)>0 then x00id=x1id else  x00id=xxid
if chk0(m1id)>0 then m0id=m1id else  m0id=mx000id

chk=requestA("chk")
gid=chk0(requestA("gid"))
if instr(quanxs,"m"&mx000id&"x")<=0  and nowuserid<>1 then call sunzomqx()

sql="select * from sz_mx where id="&mx000id&""  
set rs1 =server.createobject("ADODB.RecordSet")	
rs1.open sql,conn,1,3
if not rs1.eof then
mxname=rs1("mxname"):mxml=rs1("mxml"):mxbiao=rs1("mxdat"):mxdat=Replace(rs1("mxdat"),""&bqz&"",""):xmname=rs1("xmname"):mxdw=rs1("mxdw")
mxms=rs1("mxms"):mxzt=rs1("mxzt"):bdys=chk0(rs1("bdys")):bid=chk0(rs1("bid")):bzd=rs1("bzd"):bbal=rs1("bbal"):bbxian=rs1("bbxian")
end if
rs1.close:set rs1=nothing
if bid>0 then 
mxdat0=cdatx("mxdat","SZ_mx","where id="&bid&"")
gidk="<input type=""hidden"" name=""gid"" value="""&gid&""">"
gxname=cdatx("mxname","SZ_mx","where id="&bid&"")
if instr(bbal,"bao")>0 then 
if chk0(m1id)=0 then  Response.Write "<script language='javascript'>alert('请选择关联["&gxname&"]，点击["&xmname&"]再提交!');window.location.href='hz.asp?id="&bid&"';</script>":Response.end
end if
end if

sExport=requestA("export")
If sExport = "excel" Then
	Response.ContentType = "application/vnd.ms-excel"
	Response.AddHeader "Content-Disposition", "attachment; filename="&mxname&".xls"
End If
If sExport = "word" Then
	Response.ContentType = "application/vnd.ms-word"
	Response.AddHeader "Content-Disposition:", "attachment; filename="&mxname&".doc"
End If
If sExport = "csv" Then
	Response.ContentType = "application/csv"
	Response.AddHeader "Content-Disposition:", "attachment; filename="&mxname&".csv"
End If

select case chk
case "edit"
czxx="修改"
case "dayin"
czxx="详情"
case else
czxx="增加"
end select
%> 

<%
'取得搜索关键字
soxs=chk0(requestA("soxs"))
nowstartdate=requestA("startdate") 
if len(nowstartdate)="" then   nowstartdate=(date()-day(date()-1))&" 00:00:00"
nowenddate=request("enddate") 
if len(nowenddate)="" then  nowenddate=date()&" 23:59:59"
nowkeyword=requestA("keyword")
nowriqi=request("riqi")
nowkey2=request("key2")
if nowriqi<>"" and len(nowriqi)>3 then nowstartdate=nowriqi&" 00:00:00":nowenddate=nowriqi&" 23:59:59"
if nowstartdate<>"" and nowenddate<>"" then
if formatdatetime(nowstartdate,2)=formatdatetime(nowenddate,2) then nowriqi=formatdatetime(nowenddate,2)
if right(nowstartdate,2)<>"00" then nowstartdate=nowstartdate&" 00:00:00"
if right(nowenddate,2)<>"59" then nowenddate=nowenddate&" 23:59:59" 
end if
pgxx0="&startdate="&nowstartdate&"&enddate="&nowenddate&"&cdid="&cdid&"&mxid="&mx000id&"&m1id="&m1id&"&xxid="&xxid&"&x1id="&x1id&"&sid="&sid&"&soye="&soye&""

%>
<div id="layout"><div id="navTab" class="tabsPage">
<div class="pageHeader">
<form method="POST" action="/set/hzyw.asp?mxid=<%=mx000id%>&m1id=<%=m1id%>&xxid=<%=xxid%>&sid=<%=sid%>"  name="form5"><span style="float: right"><a href="javascript:history.back(-1)" title="返回上一步"><img border="0" src="../images/back.gif"></a><a href="?mxid=<%=m0id%>&m1id=<%=m2id%>&sid=<%=sid%>&xxid=<%=x1id%>"  title="返回上一级"><img border="0" src="../images/back1.gif"></a></span><%=gdcd(mx000id,x00id,2,sid0,"",m1id,0,cdid,x00id)%><%if len(gdcd(mx000id,x00id,2,sid0,"",m1id,0,cdid,x00id))>5 then isljqk=1%><%if instr(bbal,"guanso")<=0 then%><%sosuoxx()%><%end if%></form>
</div>
<form name="form2" action="xx_del.asp">
<div class="pageContent">
	<div class="panelBar">
		<ul class="toolBar">
		<li><a class="icon" href="hz.asp?mxid=<%=mx000id%>&m1id=<%=m1id%>&xxid=<%=xxid%>&sid=<%=sid%>"><span><%=mxname%>汇总</span></a></li>
<%if instr(quanxs,"zmxj")>0 then%><li><a class="add" onClick="OpenWin('yw.asp?mxid=<%=mx000id%>&m1id=<%=m1id%>&xxid=<%=xxid%>&sid=<%=sid%>','<%=mxname%>新增')"><span>新增</span></a></li><%end if%>
<%if instr(quanxs,"smxc")>0 then%><input type='hidden' name="lx" size="1" value="hz" ><input type='hidden' name="dat" value="<%=mxbiao%>"><input type="submit" value="删 除" class="delete" onClick="return confirm('确定要删除所选择的记录吗？')"><%end if%>
			<li class="line">line</li>
</ul>
	</div>
<%
sql="select * from SZ_zd where ChannelID="&bid&" and Instr('"&bzd&"',FieldName)>0 and ShowOnForm=1 order by OrderID desc,id asc"
set rsb2=conn.execute(sql)
if not rsb2.bof then
Response.Write "<div class=""f12 pd5"">"
do while not rsb2.eof
id2=chk0(rsb2("id"))
bdTitle=rsb2("Title"):bdname=rsb2("FieldName")
'if bdbt=1 then jsxx=jsxx&"document.form1."&bdname&".value==""""||"
edx=cdatx(""&bdname&"",""&mxdat0&"","where id="&xxid&"")
szhi=szhi&""&bdname&"∮"&edx&"[#]"
Response.Write ""&bdTitle&"：<b>"&edx&"</b>&nbsp;&nbsp;"
rsb2.movenext
loop
Response.Write "</div>"
end if
rsb2.close:set rsb2=nothing
edx=""
 
sql="select * from SZ_zd where ChannelID="&mx000id&" and ShowOnForm=1 order by OrderID desc,id asc"
set rsc2=conn.execute(sql)
if not rsc2.bof then
do while not rsc2.eof
zdid3=rsc2("id"):bdTitle=rsc2("Title"):bdname=rsc2("FieldName"):zdhz=rsc2("zdhz"):zdurl=rsc2("zdurl") 

if instr(zdhz,sid2)<=0 and instr("h0ui,h1ui,h2ui,h3ui,h4ui,h5ui,h6ui,h7ui,h8ui,h9ui,h10ui,h11ui,h12ui,h13ui,h14ui,h15ui",sid2)>0 then
hzbt=hzbt&"<th>"
if nowuserid=1 then
hzbt=hzbt&"<a target=""_blank"" href=""/set/zdgl.asp?chk=edit&mxid="&mx000id&"&id="&zdid3&""" title=""点击修改属性"">"&bdTitle&"</a>"
elseif  instr(zdhz,"paixu")>0 then
if pxu="" or right(pxu,3)="asc" then px1="desc":px2="↑" else  px1="asc":px2="↓"
hzbt=hzbt&"<a href=""?px="&bdname&"-"&px1&""&pgxx0&""" title=""点击排序"">"&bdTitle&""&px2&"</a>"
else
hzbt=hzbt&""&bdTitle&""
end if
hzbt=hzbt&"</th>"
if instr(zdhz,"gluser")>0 then souser=souser&" or ("&bdname&" like '%"&nowuser&"%' or  "&bdname&" like '%"&nowuserhao&"%') "

if instr(zdhz,"ltj")>0  then zdtjs=zdtjs&"|"&bdTitle
if Instr(zdhz,"sook")>0 then sozd=sozd&""&bdname&"|"
if Instr(zdhz,"sorq")>0 then issorq=1:sorq=sorq&" and "&bdname&"-#SJ# "

if instr(zdhz,"ltj")>0  then 
liehe=1
zdtjs=zdtjs&"|"&bdTitle
hzbta=hzbta&"<td>"&bdTitle&"</td>"
else
hzbta=hzbta&"<td></td>"
end if

hzhes=hzhes&""&zdhz&"|"
hzsjx=hzsjx&""&bdname&"|"
end if
rsc2.movenext
loop
end if
rsc2.close:set rsc2=nothing
%>

<%
sql="select * from "&mxbiao&" where 1=1 "  
if chk0(xxid)>0  then sql=sql&" and gid="&xxid&" "
  
if  nowuserid=1 or instr(nowqx,"admall")>0  or instr(bbal,"shujugx")>0 then
elseif soxs=1 then
sql=sql&" and Instr('"&nowxs&"',zduser)>0 "
else
sql=sql&" and (zduser='"&nowuser&"' or zduser='"&nowuserhao&"'  "&souser&" ) "
end if


if nowstartdate<>"" then 
if issorq=1 then  sorqa=replace(sorq,"#SJ#","#"&nowstartdate&"#>=0"):sql=sql&" "&sorqa&" "   else  sql=sql&" and tjsj-#"&nowstartdate&"#>=0"
end if
if nowenddate<>"" then 
if issorq=1 then  sorqb=replace(sorq,"#SJ#","#"&nowenddate&"#<=0"):sql=sql&" "&sorqb&" "  else  sql=sql&" and tjsj-#"&nowenddate&"#<=0"
end if
  
if nowkeyword<>"" then
soxx1=split(sozd,"|")
for ss=0 to Cntshu(sozd,"|")-1
soxxs=soxxs&" "&soxx1(ss)&" like '%"&nowkeyword&"%' or"
next  
if soxxs<>"" then soxxs1=" and ("&left(soxxs,len(soxxs)-2)&") "

if nowkey2<>"" then
soxx2=split(sozd,"|")
for yy=0 to Cntshu(sozd,"|")-1
so1xxs=so1xxs&" "&soxx2(yy)&" like '%"&nowkey2&"%' or"
next  
if so1xxs<>"" then soxxs2=" and ("&left(so1xxs,len(so1xxs)-2)&") "
end if

sql=sql&soxxs1&soxxs2
pgxx="&keyword="&escape(nowkeyword)&"&key2="&nowkey2&""&pgxx0&""
else
pgxx="&key2="&nowkey2&""&pgxx0&""
end if 
  
if Instr(pxu,"-")>0  then pxqks=replace(pxu,"-"," ") else  pxqks=" id desc "
sql=sql&" order by "&pxqks&" "   

'Response.Write (""&sql&""):Response.end

 set rsxiao =server.createobject("ADODB.RecordSet")	
  rsxiao.open sql,conn,1,3
  if not rsxiao.eof then
shownum=maxrecord
totalrecord=rsxiao.recordcount
rsxiao.pagesize=shownum
maxpage=rsxiao.pagecount
requestpage=clng(request.querystring("p"))
if requestpage="" or requestpage=0 then requestpage=1
if resquestpage>maxpage then resquestpage=maxpage
if not requestpage=1 then rsxiao.move (requestpage-1)*rsxiao.pagesize
%>
<form name="form3" action="xx_del.asp">
<div  class="layoutBox" layoutH="150">
<table class="table" width="100%" layoutH="110">
<thead><tr>
<th width="22" align="center"><%if instr(quanxs,"smxc")>0 then%><input type="checkbox" group="id" class="checkboxCtrl"><%end if%></th>
<%if instr(bbxian,"xsid")>0 then
xhge="<td></td>"
%><th>序号</th><%end if%> 
<%=hzbt%>
	<th class="category NoPrint" height="31">↓操作 </th></tr></thead><tbody>
  <%
for i=1 to rsxiao.pagesize  and not rsxiao.bof
if rsxiao.eof then exit for
    hzid=rsxiao("id")
  %>
  <tr rel="<%=hzid%>" title="双击查看详情" onDblClick="OpenWin('/bao/baoA.asp?xxid=<%=hzid%>&cdid=<%=cdid%>&x1id=<%=x1id%>&mxid=<%=mx000id%>&m1id=<%=m1id%>&sid=<%=sid%>','<%=mxname%>详情')">
<td align="center" class="NoPrint"><%if instr(quanxs,"smxc")>0 then%><input type="checkbox" name="ID" value="<%=hzid%>" style="border:0"><%end if%></td>
<%if instr(bbxian,"xsid")>0 then
if instr(bbal,"zbid")>0 then bhao=bhao+1 else bhao=zdid
%><td align="center"><%=bhao%></td><%end if%>
<%
hzsj1=split(hzsjx,"|")
for hh=0 to Cntshu(hzsjx,"|")-1
zdxxss=Conn.Execute("select zdhz,DefaultValue,Title,FieldType,zdurl,zdshu from SZ_zd where ChannelID="&mx000id&" and FieldName='"&hzsj1(hh)&"' ")
zdhz0=zdxxss(0):zdmrz=zdxxss(1):zdlx0=zdxxss(3):zdurl0=zdxxss(4):zdshu0=chk0(zdxxss(5))
if instr(zdhz0,"ltj")>0  then 
zdhz1=cdatx("Title","SZ_zd","where ChannelID="&mx000id&" and FieldName='"&hzsj1(hh)&"'")
tjsjc=tjsjc&"[#]"&zdhz1&"|"&CDbl(chk0(rsxiao(""&hzsj1(hh)&"")))&""
end if
if hzsj1(hh)="zdsh" then 
if chk0(rsxiao(""&hzsj1(hh)&""))=1 then imgxx="<img border=""0"" src=""/images/check.gif"" title=""已审核"">" else  imgxx="<img border=""0"" src=""/images/DEL.gif"" title=""未审核"">"
if instr(quanxs,"smxh")>0 then zdnr="<a href=""xx_del.asp?lx=heshi&mxid="&mx000id&"&id="&hzid&""" onclick=""return confirm('确定审核？')"">审核</a>" 
zdnr=imgxx&zdnr
else 
zd1nr=rsxiao(""&hzsj1(hh)&"")
if len(zd1nr)>30 then zdnr=left(zd1nr,30)&".." else zdnr=zd1nr
if zdshu0>0 and len(zd1nr)>zdshu0 then zdnr=left(zd1nr,zdshu0)&".."

end if
if len(zd1nr)>1 then
if len(nowkeyword)>1 and nowkeyword<>zd1nr then key2xx="keyword="&escape(nowkeyword)&"&key2="&escape(zd1nr)&"" else key2xx="keyword="&escape(zd1nr)&""
end if
if instr(zdhz0,"sook")>0 and len(zdnr)>0 and sExport="" then zdnr="<a href=""?"&key2xx&""&pgxx0&""">"&zdnr&"</a>"

Response.Write "<td>"&zdnr&"</td>"
next
%>
<td align="center" class="NoPrint">
<%if cdid=166 and mxid=40 then%><a  class="hand" onclick="OpenWin('/bao/baoD.asp?cdid=<%=cdid%>&xxid=<%=hzid%>&x1id=<%=x1id%>&mxid=<%=mx000id%>&m1id=<%=m1id%>&sid=<%=sid%>&chkid=45','<%=mxname%><%=xqnl%>')">货权汇总</a><%end if%>
<%=gdcd(mx000id,hzid,2,sid1,"",m1id,m2id,cdid,x00id)%> <%if instr(quanxs,"xmxg")>0 then%><input onclick="<%if isljqk=1 then%>location.href='hzyw.asp?chk=edit&cdid=<%=cdid%>&xxid=<%=xxid%>&x1id=<%=hzid%>&mxid=<%=m0id%>&m1id=<%=m1id%>&sid=<%=sid%>'<%else%>OpenWin('yw.asp?chk=edit&cdid=<%=cdid%>&xxid=<%=xxid%>&x1id=<%=hzid%>&mxid=<%=m0id%>&m1id=<%=m1id%>&sid=<%=sid%>','<%=mxname%>修改')<%end if%>" value="修改"  type=button name="moren"><%end if%></td></tr>
<%
'end if
rsxiao.movenext
next
end if%>

<%
zzdd=split(zdtjs,"|")
for zz=1 to Cntshu(zdtjs,"|")
if zz>1 then hhe0=0
ttss=split(tjsjc,"[#]")
for tt=1 to Cntshu(tjsjc,"[#]")
if zzdd(zz)=split(ttss(tt),"|")(0) then 
hhe0=hhe0+CDbl(split(ttss(tt),"|")(1))
end if
hhe1=hhe0
next
if instr(hzbta,">"&zzdd(zz)&"")>0 then hzbta=replace(hzbta,">"&zzdd(zz)&"",">"&hhe1&"")
'hhee=hhee&""&zzdd(zz)&"："&FormatNumber(hhe1,2,-2)&"，"
next
if right(hhee,1)="，" then hhee=left(hhee,len(hhee)-1)
%>
<%if liehe=1 then%><tr><td>合计</td><%=xhge%><%=hzbta%><td></td></tr><%end if%>

</tbody>
</table></div></div></form>
<!--endprint--><%rsxiao.close:set rsxiao=nothing %></form>
<div class="panelBar"><div class="pages"><%sunday()%></div><div class="fenye ar"><%=fenye(shownum,maxpage,totalrecord,""&pgxx&"&px="&pxu&"")%></div></div>

<%if instr(quanxs,"zmxj")>0 or chk="edit" then%>
<form method="POST" action="ywgl.asp" name="form1">
<%
sql="select * from SZ_zd where ChannelID="&mx000id&" and ShowOnForm=1 order by OrderID desc,id asc"
set rsz2=conn.execute(sql)
%>
<%if bdys=10 then%>
<table cellpadding="4" class="toptable" border="1">
  <input type="hidden" name="page" value="<%=currentpage%>">
  <tr align="center"><%=hzbt%>	
	<td class="category NoPrint" height="31">↓操作 </td>
  </tr>
<tr>
<%if instr(quanxs,"smxc")>0 then%><td align="center"><input type="checkbox" name="ids" value="<%=hzid%>"></td><%end if%>
<input type="hidden" name="mxid" value="<%=mx000id%>"><%=gidk%><input type="hidden" name="m1id" value="<%=m1id%>"><input type="hidden" name="xxid" value="<%=xxid%>"><input type="hidden" name="chk" value="<%=chk%>ok"><input type="hidden" name="xur" value="hzyw"><input name="submit" type="submit" value="<%=czxx%> " onClick="return check()" >
<%
if not rsz2.bof then
do while not rsz2.eof
id2=chk0(rsz2("id"))
bdTitle=rsz2("Title"):bdname=rsz2("FieldName"):bdmoren=rsz2("DefaultValue"):bdTips=rsz2("Tips"):bdlx=rsz2("FieldType"):bdbjqlx=rsz2("EditorType")
bdscok=rsz2("AllowFileExt"):bdscdx=rsz2("MaxFileSize"):bdOptions=rsz2("Options"):bdShowUnit=rsz2("ShowUnit"):bdUnitOptions=rsz2("UnitOptions")
bdbt=rsz2("MustFillTF"):bdWidth=rsz2("Width"):bdMaxLength=rsz2("MaxLength"):bdHeight=rsz2("Height"):zdkd=chk0(rsz2("zdkd")):zdhz=rsz2("zdhz")
zwzd1=rsz2("zwzd1"):zwzd2=rsz2("zwzd2"):fuzhi=rsc2("fuzhi"):gongs=rsc2("gongs")

if chk="edit" or chk="dayin" then edx=cdatx(""&bdname&"",""&mxbiao&"","where id="&xxid&"")
if bdbt=1 and (instr(zwzd1,nowzw)>0 or len(trim(zwzd1))<2 or isnull(zwzd1)) then jsxx=jsxx&"document.form1."&bdname&".value==""""||"

if instr(zdhz,"j1xx")>0 then tjxxa1=tjxxa1&"+Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值""":tjxxa2=tjxxa2&"+Number(document.getElementById("""&bdname&""").value)*"&chk0(fuzhi)&""
if instr(zdhz,"j1xx")>0 and instr(zdhz,"hhj")>0  then tjxxax="-Number(document.getElementById("""&bdname&""").value)"
if instr(zdhz,"j2xx")>0 then tjxxa1=tjxxa1&"-Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""
if instr(zdhz,"j3xx")>0 then tjxxa1=tjxxa1&"*Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""
if instr(zdhz,"j4xx")>0 then tjxxa1=tjxxa1&"/Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""

if instr(zdhz,"hhj")>0  or instr(gongs,"ZD_")>0 then 
shux="onClick=""math"&bdname&"()"" title=""点击计算"" class=""heji"""
if gongs="gongs1" then
tjxx3=tjxx3&"function math"&bdname&"(){document.getElementById("""&bdname&""").value =parseFloat(("&right(tjxxa2,len(tjxxa2)-1)&").toFixed(10));}"
elseif  gongs="gongs2" then
tjxx4=tjxx4&"function math"&bdname&"(){document.getElementById("""&bdname&""").value =parseFloat((("&right(tjxxa1,len(tjxxa1)-1)&""&tjxxax&")*"&chk0(fuzhi)&").toFixed(10));}"
elseif instr(gongs,"ZD_")>0  then
gong22s=replace(replace(gongs,"[ZD_","Number(document.getElementById(""ZD_"),"]",""").value)")
tjxx5=tjxx5&"function math"&bdname&"(){document.getElementById("""&bdname&""").value =parseFloat(("&gong22s&").toFixed(10));}"
else
tjxx2=tjxx2&"function math"&bdname&"(){document.getElementById("""&bdname&""").value =parseFloat(("&right(tjxxa1,len(tjxxa1)-1)&").toFixed(10));}"
end if
end if
if instr(bdmoren,"|")>0 and instr(zdhz,"mohe")<=0 then sojs=sojs&"function fun"&bdname&"(){document.all('"&bdname&"so').src=""/so.asp?chk=so&dbs="&bdmoren&"&mozd="&bdname&"&key=""+form1."&bdname&".value;};"

Response.Write "<td>"
call zwqxxx()
Response.Write "</td>"
rsz2.movenext
loop
rsz2.close:set rsz2=nothing
end if
%>
</tr></table>
<%else%>
<div class="bdys<%=bdys%>">
<%

if not rsz2.bof then
do while not rsz2.eof
id2=chk0(rsz2("id"))
bdTitle=rsz2("Title"):bdname=rsz2("FieldName"):bdmoren=rsz2("DefaultValue"):bdTips=rsz2("Tips"):bdlx=rsz2("FieldType"):bdbjqlx=rsz2("EditorType")
bdscok=rsz2("AllowFileExt"):bdscdx=rsz2("MaxFileSize"):bdOptions=rsz2("Options"):bdShowUnit=rsz2("ShowUnit"):bdUnitOptions=rsz2("UnitOptions")
bdbt=rsz2("MustFillTF"):bdWidth=rsz2("Width"):bdMaxLength=rsz2("MaxLength"):bdHeight=rsz2("Height"):zdkd=chk0(rsz2("zdkd")):zdhz=chk0(rsz2("zdhz"))
fuzhi=rsz2("fuzhi"):gongs=rsz2("gongs"):zwzd1=rsz2("zwzd1"):zwzd2=rsz2("zwzd2")

if chk="edit" or chk="dayin" then edx=cdatx(""&bdname&"",""&mxbiao&"","where id="&x1id&"")
if bdbt=1 and (instr(zwzd1,nowzw)>0 or len(trim(zwzd1))<2 or isnull(zwzd1)) then jsxx=jsxx&"document.form1."&bdname&".value==""""||"

if instr(zdhz,"j1xx")>0 then tjxxa1=tjxxa1&"+Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值""":tjxxa2=tjxxa2&"+Number(document.getElementById("""&bdname&""").value)*"&chk0(fuzhi)&""
if instr(zdhz,"j1xx")>0 and instr(zdhz,"hhj")>0  then tjxxax="-Number(document.getElementById("""&bdname&""").value)"

if instr(zdhz,"j2xx")>0 then tjxxa1=tjxxa1&"-Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""
if instr(zdhz,"j3xx")>0 then tjxxa1=tjxxa1&"*Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""
if instr(zdhz,"j4xx")>0 then tjxxa1=tjxxa1&"/Number(document.getElementById("""&bdname&""").value)":shux="title=""只能填写数值"""

if instr(zdhz,"hhj")>0  or instr(gongs,"ZD_")>0 then 
shux="onClick=""math"&bdname&"()"" title=""点击计算"" class=""heji"""
if gongs="gongs1" then
tjxx3="function math"&bdname&"(){document.getElementById("""&bdname&""").value ="&right(tjxxa2,len(tjxxa2)-1)&";}"
elseif  gongs="gongs2" then
tjxx4="function math"&bdname&"(){document.getElementById("""&bdname&""").value =("&right(tjxxa1,len(tjxxa1)-1)&""&tjxxax&")*"&chk0(fuzhi)&";}"
elseif instr(gongs,"ZD_")>0  then
gong22s=replace(replace(gongs,"[ZD_","Number(document.getElementById(""ZD_"),"]",""").value)")
tjxx5=tjxx5&"function math"&bdname&"(){document.getElementById("""&bdname&""").value ="&gong22s&";}"
else
if len(tjxxa1)>2 then tjxx2="function math"&bdname&"(){document.getElementById("""&bdname&""").value ="&right(tjxxa1,len(tjxxa1)-1)&";}"
end if
end if
if instr(bdmoren,"|")>0 and instr(zdhz,"mohe")<=0 then sojs=sojs&"function fun"&bdname&"(){document.all('"&bdname&"so').src=""/so.asp?chk=so&dbs="&bdmoren&"&mozd="&bdname&"&key=""+form1."&bdname&".value;};"

if instr(bdmoren,"@=")>0 then szhi=replace(szhi,replace(bdmoren,"@=",""),bdname)
if instr(szhi,""&bdname&"∮")>0 then bdmoren=split(split(szhi,""&bdname&"∮")(1),"[#]")(0)

if bdys=0 then
Response.Write "<span>"&bdTitle&"："
call zwqxxx()
Response.Write "</span>  "
else

if Instr(zdhz,"duhang")>0 then cla2s="style=""float: left; width:100%"""
if Instr(zdhz,"du2hang")>0 then cla2s="style=""float: left; width:49%"""
if Instr(zdhz,"du3hang")>0 then cla2s="style=""float: left; width:33%"""
if Instr(zdhz,"du4hang")>0 then cla2s="style=""float: left; width:24%"""

Response.Write "<dl "&cla2s&"><span class=""sunbt"&bdys&""">"&bdTitle&"：</span>"
call zwqxxx()
Response.Write "</dl>"
end if
shux="":cla2s="":bdname=""
rsz2.movenext
loop
end if
rsz2.close:set rsz2=nothing
%><p align="center"><input type="hidden" name="mxid" value="<%=mx000id%>"><%=gidk%><input type="hidden" name="sid" value="<%=sid%>"><input type="hidden" name="m1id" value="<%=m1id%>"><input type="hidden" name="xxid" value="<%=x00id%>"><input type="hidden" name="x1id" value="<%=x1id%>"><input type="hidden" name="cdid" value="<%=cdid%>"><input type="hidden" name="chk" value="<%=chk%>ok"><input type="hidden" name="xur" value="hzyw"><input name="submit" type="submit" value="保存<%=czxx%> " onClick="return check()" ></p>
</div>
<%end if%>
</form><%end if%>
</div></div>
</body>
</html>
<%if right(jsxx,2)="||" then jsxx=left(jsxx,len(jsxx)-2)%><script language="javascript">
<%if len(tjxx2)>3 then%>
//默认计算
<%=tjxx2%><%end if%>
<%if len(jsxx)>3 then%>
function check()
{if (<%=jsxx%>)
{alert("有*号的必须填写！");
return false;}}
<%end if%>
<%if len(tjxx3)>3  then%>
//各列相乘相加
<%=tjxx3%><%end if%>
<%if len(tjxx4)>3  then%>
//默认*当前值
<%=tjxx4%><%end if%>
<%if len(tjxx5)>3  then%>
//运算公式
<%=tjxx5%><%end if%>
<%=sojs%>
function funsokey(){document.all('sokeyso').src="/so.asp?chk=so&dbs=soquan&mozd=sokey&key="+form5.keyword.value;};
</script>