📄 f_contractsh1.asp
字号:
end if
htcx.absolutepage=page
%>
<center>
<div align="center">
<center>
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">
<tr>
<td width="53" height="24" align="center" width="131" bgcolor="#DDD2C4">
<font size="2">合同号
</font>
</td>
<td width="105" height="24" align="center" width="84" bgcolor="#DDD2C4">
<font size="2">销售代表
</font>
</td>
<td width="83" height="24" align="center" width="98" bgcolor="#DDD2C4">
<font size="2">客户名称
</font>
</td>
<td width="61" height="24" align="center" width="120" bgcolor="#DDD2C4">
<font size="2">联系人</font>
</td>
<td width="104" height="24" align="center" width="146" bgcolor="#DDD2C4">
<font size="2">合同状态
</font>
</td>
</font>
<td width="104" height="24" align="center" width="146" bgcolor="#DDD2C4">
<font size="2">评审
</font>
</td>
</tr>
<font size="2">
<% for n=1 to htcx.pagesize%>
<%if n mod 2=1 then
bg="#f7f7f7"
else
bg="#EDEBEC"
end if%>
<tr bgcolor="<%=bg%>">
<%
'找出对应的客户名称与业务员名字
set RSkh=server.createobject("adodb.recordset")
sql="select * from D_ClientInfo where ClientNum='"&htcx("Needer")&"'"
RSkh.open sql,Pubconn,1
if not rskh.eof then
khmc=rskh("ClientName")
else
khmc=""
end if
set RSywy=server.createobject("adodb.recordset")
sql="select * from A_StuffInfo where StuffNum='"&htcx("SaleDelegate")&"'"
RSywy.open sql,Pubconn,1
%>
<td width="53" height="23" align="center" width="131"><font size="2"><%=htcx("Contractnum")%> </font></td>
<td width="105" height="23" align="center" width="84"><font size="2"><%=RSywy("Name")%>
</font>
</td>
<td width="83" height="23" align="center" width="98"><font size="2"><%=khmc%>
</font>
</td>
<td width="61" height="23" align="center" width="120"><font size="2"></font><% if htcx("linkman")="" then
response.write " "
else
response.write htcx("linkman")
end if
%></td>
<td width="104" height="23" align="center" width="146"><%
if htcx("YesorNo")="1" then
response.write ("未评审")
end if
if htcx("YesorNo")="2" then
response.write ("评审未通过")
end if
if htcx("YesorNo")="3" then
response.write ("正在评审")
end if
if htcx("YesorNo")="4" then
response.write ("已评审")
end if
%></td>
<td width="104" height="23" align="center" width="146"><font size="2"></font>
<font size="2">
<%if htcx("YesorNo")<>"4" then%><a href="F_contractshbrow1.asp?ID=<%=htcx("ID")%>"><%end if %>评审
</font>
</a>
</td>
</tr>
<%
htcx.movenext
if htcx.eof then exit for
next
%>
</table>
</center>
</div>
<p align="center">
<font size="2">
共<%=htcx.pagecount%>页 第<%=page%>页 <a href="F_contractsh1.asp?page=1&hth=<%=hth%>&xsdb=<%=xsdb%>">首页</a> <%if page>1 then %>
<a href="F_contractsh1.asp?page=<%=(page-1)%>&hth=<%=hth%>&xsdb=<%=xsdb%>">上页</a>
<% else%>
上页
<% end if%>
<%if page<htcx.pagecount then %>
<a href="F_contractsh1.asp?page=<%=(page+1)%>&hth=<%=hth%>&xsdb=<%=xsdb%>">下页</a>
<% else %>
下页
<%end if%><a href="F_contractsh1.asp?page=<%=htcx.pagecount%>&hth=<%=hth%>&xsdb=<%=xsdb%>">尾页</a> </font>
<%%>
<select name="page1" style="width:80" size="1">
<% for yy=1 to htcx.pagecount%>
<option value="<%=yy%>">第<%=yy%>页</option>
<%next%>
</select><input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<a href="F_htjm.htm">返回</a>
<p>
</form>
<%
htcx.close
set htcx=nothing
end if %>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -