📄 分项目.asp
字号:
<html><style type="text/css">
<!--
a:link {
color: #0000FF;
}
a:visited {
color: #FF0000;
}
-->
</style>
<body>
<%
dim value
value=request.QueryString("value")
%>
<%dim strConn
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db.mdb")+";Persist Security Info=False"
set rs=server.createobject("adodb.recordset")
tempsql="select * from "+value
rs.open tempsql,conn,1,1
%>
<%
num=request.QueryString("page")
if num="" then
session("prepage")=0
m=39
else
if num="next" then
session("prepage")=session("prepage")+1
m=39
else
if num="last" then
session("prepage")=session("prepage")-1
m=39
else
session("prepage")=num
end if
end if
end if
coun=rs.recordcount\40
if session("prepage")<0 then
session("prepage")=0
m=39
end if
if session("prepage")>=(coun) then
session("prepage")=(coun)
n=rs.recordcount Mod 40
m=n-1
end if
%>
<style type="text/css">
<!--
body,td,th {
font-family: 华文楷体;
font-weight: bold;
}
body {
margin-left: 20px;
margin-right: 20px;
}
.STYLE1 {font-size: x-large}
.STYLE3 {font-family: "楷体_GB2312"}
.STYLE4 {font-size: medium; font-family: "楷体_GB2312"; }
a:link {
color: #FF0000;
}
a:visited {
color: #FF0000;
}
-->
</style>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">
<p align="left" class="STYLE1 STYLE3"><%=value%>概况一览表</td><td width="50%">
<div align="right"><img src="log.jpg" width="150" height="70" /></div></td></tr></table></p>
<hr size="10" noshade="noshade" />
<p><a href="index.asp">总项目概况</a>>><%=value%>概况</p>
<form id="form1" name="form1" method="post" action="del.asp?value=<%=value%>">
<table width="100%" height="141" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="109" height="44" align="center" valign="middle" bgcolor="#666666"><span class="STYLE4 STYLE3">项目名称</span></td>
<td width="109" align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4 STYLE3">产值</span></td>
<td width="110" align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4 STYLE3">实际收入</span></td>
<td width="110" align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4 STYLE3">实际支付</span></td>
<td width="140" align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4 STYLE3">利润</span></td>
<td width="155" align="center" valign="middle" bgcolor="#FFCCFF"><span class="STYLE3">项目时间</span></td>
</tr>
<%if (not rs.eof) then
rs.move session("prepage")*40
end if%>
<%
for i=0 to m
while not rs.eof
mc=rs("项目名称")
cz=rs("产值")
sr=rs("实际收入")
zf=rs("实际支付")
lr=rs("利润")
sj=rs("项目时间")%>
<tr>
<td height="45" align="left" valign="middle" bgcolor="#666666"><span class="STYLE4 STYLE3"><a href="细项目.asp?xm_name=<%=mc%>&fxm_name=<%=value%>">
<label>
<input type="checkbox" name="checkbox" value=<%=mc%> />
</label>
<%=mc%></a></span></td>
<td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4 STYLE3"><%=cz%></span></td>
<td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4 STYLE3"><%=sr%></span></td>
<td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4 STYLE3"><%=zf%></span></td>
<td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4 STYLE3"><%=lr%></span></td>
<td align="center" valign="middle" bgcolor="#FFCCFF"><span class="STYLE3"><%=sj%></span></td>
</tr>
<%if cz="" then cz=0 end if
if sr="" then sr=0 end if
if zf="" then zf=0 end if
if lr="" then lr=0 end if
sumcz=int(cz)+sumcz
sumsr=int(sr)+sumsr
sumzf=int(zf)+sumzf
sumlr=int(lr)+sumlr
rs.movenext
wend
%>
<%next%>
<tr>
<td height="50" align="center" valign="middle" bgcolor="#666666"><span class="STYLE4 STYLE3">合计</span></td>
<td align="center" valign="middle" bgcolor="#CCFF66"><span class="STYLE4 STYLE3"><%=sumcz%></span></td>
<td align="center" valign="middle" bgcolor="#99CCFF"><span class="STYLE4 STYLE3"><%=sumsr%></span></td>
<td align="center" valign="middle" bgcolor="#CCFFFF"><span class="STYLE4 STYLE3"><%=sumzf%></span></td>
<td align="center" valign="middle" bgcolor="#FF6600"><span class="STYLE4 STYLE3"><%=sumlr%></span></td>
<td align="center" valign="middle" bgcolor="#FFCCFF"><span class="STYLE3"></span></td>
</tr>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing%>
<div align="right"><a href=分项目.asp?page=last&value=<%=value%>>上一页</a>
<a href=分项目.asp?page=next&value=<%=value%>>下一页</a>
总共有<%=coun+1%>页
</div>
</form>
<label>
<input type="button" name="Submit" value="删除项目" onClick="del()"/> </label>
<label>
<input type="button" name="Submit2" value="添加项目" onClick="location='add.asp?value=<%=value%>';"/>
</label>
</body>
<p> </p>
<p class="STYLE1"> </p>
</html>
<script language="JavaScript">
function del()
{
var tmpurl="del.asp?value="+"<%=value%>"+"&content=";
flag=confirm("确认要删除项目吗?")
if(flag!=0)
{
for(var i=0;i<document.form1.elements.length;i++)
{
if ((document.form1.elements[i].type=="checkbox")&&(document.form1.elements[i].checked))
{
var tmp=document.form1.elements[i].value;
tmpurl=tmpurl+tmp+",";
}
}
check="del.asp?value="+"<%=value%>"+"&content=";
if(tmpurl==check)
{
alert("请选择要删除的项目");
}
else
{
document.location=tmpurl;
}
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -