📄 xslb1.asp
字号:
<!--#include file="../../include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>经销商名称</title><link href="../../order/cread.css" rel="stylesheet" type="text/css">
<style>
<!--
.lf {cursor:hand
}
-->
</style>
<base target="_self">
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<%
bz=request("bz")
dyear=request("dyear")
aim=request("aim")
oyear=request("oyear")
yi=request("yi")
er=request("er")
san=request("san")
si=request("si")
wu=request("wu")
liu=request("liu")
qi=request("qi")
ba=request("ba")
jiu=request("jiu")
shi=request("shi")
syi=request("syi")
ser=request("ser")
if yi="" then
yi=0
end if
if er="" then
er=0
end if
if san="" then
san=0
end if
if si="" then
si=0
end if
if wu="" then
wu=0
end if
if liu="" then
liu=0
end if
if qi="" then
qi=0
end if
if ba="" then
ba=0
end if
if jiu="" then
jiu=0
end if
if shi="" then
shi=0
end if
if syi="" then
syi=0
end if
if ser="" then
ser=0
end if
'response.write xsbm
'response.write dyear
'response.write bz
'response.end
if bz<>"1" then
set myrs=server.createobject("adodb.recordset")
myrs.CursorLocation=3
myrs.CursorType = adOpenStatic
str4="select * from f_aimdepart where departcode='01' and year='"&dyear&"' and object='"&aim&"'"
'response.write str4
'response.end
myrs.open str4,pubconn,1,3
if not myrs.eof then
Sql = "update f_aimdepart " & _
"SET objyear="& "'" & oyear*10000 & "',"&_
"obj1="& "'" & yi*10000 & "',"&_
"obj2="& "'" & er*10000 & "',"&_
"obj3="& "'" & san*10000 & "',"&_
"obj4="& "'" & si*10000 & "',"&_
"obj5="& "'" & wu*10000 & "',"&_
"obj6="& "'" & liu*10000 & "',"&_
"obj7="& "'" & qi*10000 & "',"&_
"obj8="& "'" & ba*10000 & "',"&_
"obj9="& "'" & jiu*10000 & "',"&_
"obj10="& "'" & shi*10000 & "',"&_
"obj11="& "'" & syi*10000 & "',"&_
"obj12="& "'" & ser*10000 & "'"&_
" where departcode='01' and year='"&dyear&"' and object='"&aim&"'"
'response.write sql
'response.end
pubconn.Execute(sql)
end if
count=myrs.recordcount
myrs.close
set rs1=server.createobject("adodb.recordset")
rs1.CursorLocation=3
rs1.CursorType = adOpenStatic
str1="select * from f_aimdepart"
rs1.open str1,pubconn,1,3
if count<=0 then
rs1.addnew
rs1("departcode")="01"
rs1("year")=dyear
rs1("object")=aim
rs1("objyear")=oyear*10000
rs1("obj1")=yi*10000
rs1("obj2")=er*10000
rs1("obj3")=san*10000
rs1("obj4")=si*10000
rs1("obj5")=wu*10000
rs1("obj6")=liu*10000
rs1("obj7")=qi*10000
rs1("obj8")=ba*10000
rs1("obj9")=jiu*10000
rs1("obj10")=shi*10000
rs1("obj11")=syi*10000
rs1("obj12")=ser*10000
rs1("Authors")=Session("UserName")
rs1("DepartID")=Session("DepartID")
rs1.update
end if
rs1.close
set rs1=nothing
end if
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic
str="select * from f_aimdepart where year='"&dyear&"' and departcode='01'"
rs.open str,pubconn,1,3
'response.write str
%>
<form name=form1 action=khdd1.asp target="header">
<input type=hidden name="dyear" value="<%=dyear%>">
<table border="1" cellspacing="0" width="102%" height="38">
<tr>
<td width="7%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">项目(单位)</font></td>
<td width="9%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">年度目标</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">1月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">2月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">3月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">4月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">5月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">6月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">7月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">8月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">9月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">10月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">11月</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">12月</font></td>
</tr>
<%for i=1 to rs.recordcount %>
<%
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7" >
<%else%>
<tr bgcolor="#EDEBEC" >
<%end if%>
<td width="7%" height="1" align="center">
<input type=submit value="<%=rs("object")%>" name="aim<%=i%>" class=lf style="background-color: #F2F2EE; border: 0px solid #D4D0C8; ; color:#0000FF"></td>
<input type=hidden name=bz value=<%=i%>>
<td width="9%" height="1">
<%a=rs("objyear")/10000
a1=rs("obj1")/10000
a2=rs("obj2")/10000
a3=rs("obj3")/10000
a4=rs("obj4")/10000
a5=rs("obj5")/10000
a6=rs("obj6")/10000
a7=rs("obj7")/10000
a8=rs("obj8")/10000
a9=rs("obj9")/10000
a10=rs("obj10")/10000
a11=rs("obj11")/10000
a12=rs("obj12")/10000
%>
<input value="<%=a%>" name="oyear<%=i%>" size="7" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a1%>" name=yi<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a2%>" name=er<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a3%>" name=san<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a4%>" name=si<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a5%>" name=wu<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a6%>" name=liu<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a7%>" name=qi<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a8%>" name=ba<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a9%>" name=jiu<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a10%>" name=shi<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a11%>" name=syi<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
<td width="4%" align="center"><input value="<%=a12%>" name=ser<%=i%> size="5" style="background-color: #F2F2EE; border: 0 solid #F2F2EE"></td>
</tr>
<%
rs.MoveNext
if rs.eof then
exit for
end if
next %>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -