📄 empmain_base_disp.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
if request.QueryString("pagetype") <> "" then
if request.QueryString("pagetype") <> "Base" then
url = "empmain_" &request.QueryString("pagetype")& "_Disp.asp?ID=" & request.QueryString("ID") & "&pagetype=" & request.QueryString("pagetype")
response.Redirect(url)
response.end
end if
end if
%>
<%
Dim genInfo__MMColParam
genInfo__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
genInfo__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim genInfo
Dim genInfo_numRows
Set genInfo = Server.CreateObject("ADODB.Recordset")
genInfo.ActiveConnection = MM_EmpMain_STRING
genInfo.Source = "SELECT * FROM T_Client WHERE F_Id = " + Replace(genInfo__MMColParam, "'", "''") + ""
genInfo.CursorType = 0
genInfo.CursorLocation = 2
genInfo.LockType = 1
genInfo.Open()
genInfo_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
</head>
<body class="body">
<form method="POST" action="EmpMain_Base_Disp.asp" webbot-action="--WEBBOT-SELF--" class="body">
<fieldset style="padding: 2" class="fiedset"> <legend>基本资料</legend>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" align="center">
<tr>
<td width="15%" align="right" class="Caption">公司名称:</td>
<td width="338" class="ValueArea"> <%=(genInfo.Fields.Item("F_CompanyName").Value)%></td>
<td width="144" class="Caption">联系人:</td>
<td width="338" class="ValueArea"><%=(genInfo.Fields.Item("F_Contect").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption" >省市:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_City").Value)%></td>
<td class="Caption"> 职务:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Jobs").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption"> 联系电话:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Tel").Value)%></td>
<td class="Caption"> 网址:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_NetAddress").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">传真:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Fox").Value)%></td>
<td class="Caption">邮箱:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Email").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">产品:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Product").Value)%>
</td>
<td class="Caption">邮编:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_Post").Value)%></td>
</tr>
<tr>
<td align="right" class="Caption">加入时间:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_date").Value)%>
</td>
<td class="Caption">业务员:</td>
<td class="ValueArea"><%=(genInfo.Fields.Item("F_EClerk").Value)%></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">通讯地址:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Address").Value)%></td>
</tr>
<tr>
<td height="21" align="right" class="Caption">客户等级:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Levels").Value)%></td>
</tr>
<tr>
<td height="140" align="right" nowrap class="Caption">备注:</td>
<td colspan="3" valign="top" class="ValueArea"><%=(genInfo.Fields.Item("F_Remark").Value)%></td>
</tr>
</table>
</fieldset></form>
<div align="right"> </div>
</body>
</html>
<%
genInfo.Close()
Set genInfo = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -