📄 g_statesh.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableCheck("G_TblCloseState",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainstate.asp>返回</a>"
response.end
end if
%>
<%
%>
<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="cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub check1()
if myform.txtstuff.value="" then
msgbox"请选择业务员！",64,"提示："
exit sub
end if
myform.submit
end sub
</script>
<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">客户跟进状态报告审核</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<%
sid=request("txtstuff")
%>
<%
set Stsh=server.createobject("adodb.recordset")
if sid<>"" then
str="select * from G_TblCloseState "
str=str&"where StuffNum='"&sid&"' and AuditingYN<>'Y'"
Stsh.open str&"order by ID desc",pubconn,1
' response.write str
%>
<form method="post" action="G_Statesh.asp" name="myform">
<p>
<table border="0" width="100%">
<td width="100%">
<p align="left"><font size="2">请选择审核对象：
</font>
</p>
</td>
</table>
<table border="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="11%" align="center" bgcolor="#F1E8DA"> 业务员
<select name="txtstuff" style="width:100" size="1">
<%
'业务员列表
set rst1=Server.CreateObject("ADODB.RecordSet")
sql="Select * from A_StuffInfo Where SaleFlag='1' and delflag='0' "
rst1.open sql,pubconn,1
%>
<option value="">请选择</option>
<%do while not rst1.eof%>
<option value="<%=rst1("StuffNum")%>" <%
if sid<>"" then
if trim(sid)=rst1("StuffNum") then
response.write("selected")
end if
end if
%> ><%=rst1("Name")%></option>
<%
rst1.movenext
loop
set rst1=nothing
%>
</select> <input type="button" value="查询" onclick="check1()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<a href="G_mainstate.asp">返回</a>
</td>
</tr>
</table>
<%
if Stsh.eof then%>
<center><p><font size="2">没有符合条件的记录！<a href=G_mainstate.asp>返回</a></font></center>
<% response.end
else
%>
<table border="1" cellspacing="0" width="100%" height="30">
<tr>
<td width="194" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">客户
</font>
</td>
<td width="39" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">接近
</font>
</td>
<td width="37" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">调查
</font>
</td>
<td width="48" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">问题
</font>
</td>
<td width="38" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">方案
</font>
</td>
<td width="57" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">价格条件
</font>
</td>
<td width="50" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">关键人
</font>
</td>
<td width="39" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">展示
</font>
</td>
<td width="56" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">建议书
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -