📄 list.asp
字号:
<%
if request.cookies("flag")="" then
response.write "<script>top.location.href=""login.asp"";</script>"
response.end
end if
%>
<!--#include file="dbconn.asp"-->
<%
dim company
company=request("company")
set rs8=server.createobject("adodb.recordset")
sql8="select * from contacts where ([企业名称] like '"&company&"') "
rs8.open sql8,conn,1,3
%>
<html>
<head>
<title><%=company%></title>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"> </p>
<p align="center">--------------<b><font color="#000099"> <%=company%> </font></b>--------------</p>
<%do while not rs8.eof and i<1 %>
<table width="534" align="center" height="289">
<tr>
<td width="69"><b>地区：</b></td>
<td width="162"><font color="#990000"><%=rs8("地区")%></font></td>
<td width="93"><b>企业名称<font color="#808080" style="font-size: 9pt">： </font></b></td>
<td width="190"><font color="#990000"><%=rs8("企业名称")%></font></td>
</tr>
<tr>
<td width="69"><b>法人代表：</b></td>
<td width="162"><font color="#990000" style="font-size: 9pt"> <%=rs8("法人代表")%></font></td>
<td width="93"><b>手机号：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"> <%=rs8("手机1")%>
</font></td>
</tr>
<tr>
<td width="69"><b>电话：</b></td>
<td width="162"><font color="#990000" style="font-size: 9pt"> <%=rs8("电话")%>
</font></td>
<td width="93"><b>传真：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"> <%=rs8("传真")%></font></td>
</tr>
<tr>
<td width="69"><b>联系人：</b></td>
<td width="162"><font color="#990000" style="font-size: 9pt"> <%=rs8("联系人")%></font></td>
<td width="93"><b>联系人电话：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"> <%=rs8("联系人电话")%></font></td>
</tr>
<tr>
<td width="69"><b>邮编：</b></td>
<td width="162"><font color="#990000" style="font-size: 9pt"> <%=rs8("邮编")%></font></td>
<td width="93"><b>地址：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"> <%=rs8("地址")%>
</font></td>
</tr>
<tr>
<td width="69"><b>网址：</b></td>
<td width="162"><font color="#990000" style="font-size: 9pt"> <%=rs8("网址")%></font></td>
<td width="93"><b>邮箱：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"> <%=rs8("邮箱")%>
</font></td>
</tr>
<tr>
<td width="69"><b>代收邮件：</b></td>
<td width="162"> <font color="#990000" style="font-size: 9pt"><%=rs8("代收")%></font>
</td>
<td width="93"><b>本公司经办人：</b></td>
<td width="190"><font color="#990000" style="font-size: 9pt"><%=rs8("经办人1")%>、<%=rs8("经办人2")%></font></td>
</tr>
</table>
<%
i=2
rs8.movenext
loop
%>
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from yewu where ([企业名称] like '"&company&"') order by [开始日期]"
rs.open sql,conn,1,1
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" align="center">
<tr bgcolor="#CCCCCC">
<td width="138" height="28"> <div align="center"><b>业务分类</b></div></td>
<td width="334" height="28"> <div align="center"><b>具体内容</b></div></td>
<td width="166" height="28"> <div align="center"><b>开始日期</b></div></td>
<td width="208" height="28"> <div align="center"><b>到期日期</b></div></td>
<td width="119" height="28"> <div align="center"><b>操作</b></div></td>
</tr>
<%
do while not rs.eof
%>
<tr>
<td width="138" height="32"> <div align="center"><%=rs("项目")%></div></td>
<td width="334" height="32"> <div align="left"> <%=rs("具体内容")%></div></td>
<td width="166" height="32"> <div align="center"><%=rs("开始日期")%></div></td>
<td width="208" height="32"> <div align="center"><%=rs("到期日期")%></div></td>
<td width="119" height="32"> <div align="center"><a href="edit.asp?id=<%=rs("id")%>" target="_blank">修改</a>|<a href="xufei_yewu.asp?id=<%=rs("id")%>">续费</a></div></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<p> </p>
<p>
<%'end if%>
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from caiwu where ([企业名称] like '"&company&"') order by [开始日期]"
rs.open sql,conn,1,1
%>
</p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr bgcolor="#CCCCCC">
<td width="65" height="28"> <div align="center"><b>合同号</b></div></td>
<td width="59" height="28"> <div align="center"><b><font color="#000000">经办人</font></b></div></td>
<td width="136" height="28"> <div align="center"><b>业务分类</b></div></td>
<td width="254" height="28"> <div align="center"><b>具体内容</b></div></td>
<td width="58" height="28"> <div align="center"><b> 日期</b></div></td>
<td width="58" height="28"> <div align="center"><b>实收<br>
金额</b></div></td>
<td width="59" height="28"> <div align="center"><b>成本<br>
支出</b></div></td>
<td width="59" height="28"> <div align="center"><b>经办人1</b></div></td>
<td width="59" height="28"> <div align="center"><b>经办人2</b></div></td>
<td width="91" height="28"> <div align="center"><b>备注</b></div></td>
<td width="115" height="28"> <div align="center"><b>操作</b></div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="65" height="32"> <div align="center"><%=rs("合同编号")%></div></td>
<td width="59" height="32"> <div align="center"><%=rs("企业经办人")%></div></td>
<td width="136" height="32"> <div align="center"><%=rs("项目")%></div></td>
<td width="254" height="32"> <div align="left"> <%=rs("具体内容")%></div></td>
<td width="58" height="32"> <div align="center"><%=rs("开始日期")%></div></td>
<td width="58" height="32"> <div align="center"><%=rs("实收金额")%></div></td>
<td width="59" height="32"> <div align="center"><%=rs("成本支出")%></div></td>
<td width="59" height="32"> <div align="center"><%=rs("经办人1")%></div></td>
<td width="59" height="32"> <div align="center"><%=rs("经办人2")%></div></td>
<td width="91" height="32"> <div align="center"><%=rs("memo")%></div></td>
<td width="115" height="32">
<div align="center"><a href="edit_yewu.asp?id=<%=rs("id")%>">修改</a>|<a href="del_yewu.asp?id=<%=rs("id")%>">删除</a></div>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>
<%
rs8.close
set rs8=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -