📄 read.asp
字号:
<!--#include file="../includes/db.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>办公自动化系统</title>
<style type="text/css">
<!--
.style1 {
color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<center>
<table border="0" width="100%" height="50" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
<table width="75%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5A8BCE">
<tr>
<td height="35" align=left bgcolor="#E6F7FF"><div align="center" class="style1">
<%
call insureID()
dim CLIENT_ID
dim Submited
dim Confirmed
CLIENT_ID=request("CLIENT_ID")
Submited=request("Submited")
Confirmed=request("Confirmed")
if CLIENT_ID="" then
call trigErr()
end if
sql="SELECT Clients_info.Client_date, Clients_info.COMPANY_NAME, Clients_info.AGENT_NAME, " _
&"Clients_info.EMAIL, Dept.Dept_name AS Dept_name, " _
&"Clients_info.Tel,Clients_info.Web, Clients_info.SUBMIT_DATE, Users_info.Name AS PersonName " _
&"FROM Clients_info INNER JOIN Users_info " _
&"ON Clients_info.User_id = Users_info.User_id " _
&"INNER JOIN Dept " _
&"ON Users_info.DEPT_ID = Dept.DEPT_ID " _
&"WHERE (Clients_info.CLIENT_ID ="&CLIENT_ID&" ) "
call openDB()
rs.open sql,conn,1,1
response.write rs("Dept_name")&"部门客户单"
if Submited="UnSubmit" then
response.write "(未提交)"
else
if Confirmed="UnConfirmed" then
response.write "(未审核)"
end if
end if
%>
</div></td>
</tr>
</table>
<table width="75%" border="0" cellpadding="4" cellspacing="1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bgcolor="#5A8BCE">
<tr bgcolor="#efefef">
<td width="20%" bgcolor="#FCFCFC">公司名称：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("COMPANY_NAME")%>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#FCFCFC">代理人姓名：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("AGENT_NAME")%>
</td>
</tr>
<tr bgcolor="#efefef">
<td width="20%" bgcolor="#FCFCFC">联系电话：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("Tel")%>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#FCFCFC">Email地址：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("EMAIL")%>
</td>
</tr>
<tr bgcolor="#efefef">
<td width="20%" bgcolor="#FCFCFC">网站地址：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("Web")%>
</td>
</tr>
<tr bgcolor="#FCFCFC">
<td width="20%" bgcolor="#FCFCFC" >录入人员：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("PersonName")%>
</td>
</tr>
<tr bgcolor="#efefef">
<td width="20%" bgcolor="#FCFCFC" >录入日期：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("Client_date")%>
</td>
</tr>
<%if Submited="Submited" and Confirmed="UnConfirmed" then%>
<tr bgcolor="#FCFCFC">
<td width="20%" bgcolor="#FCFCFC" >提交日期：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("SUBMIT_DATE")%>
</td>
</tr>
<%end if%>
<%if Submited="Submited" and Confirmed="Confirmed" then%>
<tr bgcolor="#FCFCFC">
<td width="20%" bgcolor="#FCFCFC" >审核日期：</td>
<td width="55%" bgcolor="#FCFCFC">
<%=rs("CONFIRM_DATE")%>
</td>
</tr>
<%end if%>
<tr>
<td width="75%" height=50 colspan=2 align=center bgcolor="#EFEFEF">
<%
call closeDB()
if session("POSITION_ID")=4 and request("action")="Confirm" then
response.write "[<a href=""Save.asp?CLIENT_ID="&CLIENT_ID&"&action=Confirm"">通过审核</a>]"
end if
if Submited="UnSubmit" then
response.write"[<a href=""Save.asp?CLIENT_ID="&CLIENT_ID&"&action=Submit"">提交</a>]"
end if
%>
[<a href="javaScript:history.back()">返回</a>]
</td>
</tr>
</table>
</center>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -