📄 view.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<!--#include file="Connections/conn.asp" -->
<!--登录权限判断，Session和MD5加密判断-->
<%
Function getGroupName(gId)
If gId = "" Then
getGroupName = ""
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_group Where gId = " & gId,conn,3,1
If rs.RecordCount <> 1 Then
getGroupName = ""
Else
getGroupName = rs("gName")
End If
rs.Close
Set rs = Nothing
End If
End Function
Function getList(i,sTable,iId,sValue)
If i < 1 Or i > 2 Then
getList = ""
Exit Function
End If
Dim strList
Dim rs
If i = 1 Then
strList = "<select name=""" & sValue & """>"
strList = strList & "<option value="""">请选择</option>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From " & sTable & "",conn,3,1
Do While Not rs.BOF And Not rs.EOF
strList = strList & "<option value=""" & rs(sValue) & """>" & rs(sValue) & "</option>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
strList = strList & "</select>"
getList = strList
Else
strList = "<select name=""" & sValue & """>"
strList = strList & "<option value="""">请选择</option>"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From " & sTable & "",conn,3,1
Do While Not rs.BOF And Not rs.EOF
strList = strList & "<option value=""" & rs(iId) & """>" & rs(sValue) & "</option>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
strList = strList & "</select>"
getList = strList
End If
End Function
Function listRecords(cId)
Dim rs,strOut
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_records Where cId = " & cId,conn,3,1
Do While Not rs.BOF And Not rs.EOF
strOut = strOut & " <tr>" & VBCrlf
strOut = strOut & " <td width=""120"" align=""center"">" & rs("rDate") & "</td>" & VBCrlf
strOut = strOut & " <td width=""80"" align=""center"">" & rs("rType") & "</td>" & VBCrlf
strOut = strOut & " <td>" & rs("rContent") & "</td>" & VBCrlf
strOut = strOut & " </tr>" & VBCrlf
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
listRecords = strOut
End Function
Rem Session("CRM_account") 用户帐号
Rem Session("CRM_name") 用户名
Rem Session("CRM_level") 用户等级
If Session("CRM_account") = "" Or Session("CRM_name") = "" Or Session("CRM_level") <= 0 Then Response.Redirect("default.asp")
Session("CRM_url") = Request.ServerVariables("HTTP_REFERER")
If InStr(Session("CRM_url"),"addData.asp") > 0 Or InStr(Session("CRM_url"),"view.asp") > 0 Then
Session("CRM_url") = "listAll.asp"
End If
Dim strNormal,strAdmin,strToPrint
strNormal = strNormal & " <tr>" & VBCrlf
strNormal = strNormal & " <td width=""60"" align=""center"" bgcolor=""menu"">编号</td>" & VBCrlf
strNormal = strNormal & " <td align=""center"" bgcolor=""menu"">公司名称</td>" & VBCrlf
strNormal = strNormal & " <td align=""center"" bgcolor=""menu"">公司网址</td>" & VBCrlf
strNormal = strNormal & " <td width=""80"" align=""center"" bgcolor=""menu"">地区</td>" & VBCrlf
strNormal = strNormal & " </tr>" & VBCrlf
strAdmin = strAdmin & " <tr>" & VBCrlf
strAdmin = strAdmin & " <td width=""60"" align=""center"" bgcolor=""menu"">编号</td>" & VBCrlf
strAdmin = strAdmin & " <td align=""center"" bgcolor=""menu"">公司名称</td>" & VBCrlf
strAdmin = strAdmin & " <td align=""center"" bgcolor=""menu"">公司网址</td>" & VBCrlf
strAdmin = strAdmin & " <td width=""80"" align=""center"" bgcolor=""menu"">地区</td>" & VBCrlf
strAdmin = strAdmin & " <td width=""80"" align=""center"" bgcolor=""menu"">业务员</td>" & VBCrlf
strAdmin = strAdmin & " </tr>" & VBCrlf
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="http://www.technet.cn">
<meta name="Date" content="2003-08">
<title></title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function showHideBlock(s)
{
if(eval("document.all." + s + ".style.display == \"none\"")){
eval("document.all." + s + ".style.display = \"block\"");
}
else{
eval("document.all." + s + ".style.display = \"none\"");
}
}
function checkInput()
{
for(var i=0;i<arguments.length;i++){
var o = eval("document.all." + arguments[i]);
if(o.value == ""){
alert("请输入内容。");
o.focus();
return false;
break;
}
}
}
if (this.location.href == top.location.href){
top.location.href = "";
}
function openModalDialog(thisUrl)
{
var strUrl = thisUrl;
//window.showModalDialog(strUrl,"","status:false;dialogWidth:600px;dialogHeight:450px;status:no;scroll=no;resizable=no;help=no;");
window.open(strUrl,'','menubar=no,scrollbars=no,resizable=no,width=480,height=360');
}
-->
</script>
</head>
<body style="background-color: menu;" onCopy="return false;" onSelectStart="return false;" onCut="return false;" onContextMenu="window.event.returnValue=false;">
<%
Dim action
action = Trim(Request("action"))
Select Case action
''Case "save"
'' Call saveData()
''Case "edit"
'' Call editForm()
Case "saveRecords"
Call saveEditData()
Case Else
Call editForm()
End Select
Sub saveEditData()
Dim cId
Dim rDate,rType,rContent
cId = CInt(ABS(Request("cId")))
rDate = Request.Form("rDate")
rType = Request.Form("recordsType")
rContent = htmlEncode2(Request.Form("rContent"))
If Not IsNumeric(cId) Or cId <= 0 Or rType = "" Or Not IsDate(rDate) Or rContent = "" Then
Response.Write("<font color=""#FF0000""><b>数据请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From baidu_records",conn,3,2
rs.AddNew
rs("cId") = cId
rs("rDate") = rDate
rs("rType") = rType
rs("rContent") = rContent
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
End If
End Sub
Sub editform()
Dim cId
cId = CInt(ABS(Request("cId")))
If Not IsNumeric(cId) Or cId <= 0 Then
Response.Write("<font color=""#FF0000""><b>数据请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_client Where cId = " & cId,conn,3,1
If rs.RecordCount <> 1 Then
Response.Write("<font color=""#FF0000""><b>数据请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Response.End()
End If
Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
Dim cArea,cLocal,cType,cStatus,cAddress
Dim cGroup,cTrade,cSquare
'Dim cDomainBegin,cDomainEnd
'Dim cSpaceBegin,cSpaceEnd
'Dim cOprationBegin,cOprationEnd
Dim cInfo
cCompany = rs("cCompany")
cLinkman = rs("cLinkman")
cHomepage = rs("cHomepage")
cTel = Replace(rs("cTel"),"|"," ")
cEmail = rs("cEmail")
cUser = rs("cUser")
cArea = rs("cArea")
cLocal = rs("cLocal")
cType = rs("cType")
cStatus = rs("cStatus")
cAddress = rs("cAddress")
cGroup = rs("cGroup")
cTrade = rs("cTrade")
cSquare = rs("cSquare")
'cDomainBegin = rs("cDomainBegin")
'If cDomainBegin = "1900-12-31" Then cDomainBegin = ""
'cDomainEnd = rs("cDomainEnd")
'If cDomainEnd = "1900-12-31" Then cDomainEnd = ""
'cSpaceBegin = rs("cSpaceBegin")
'If cSpaceBegin = "1900-12-31" Then cSpaceBegin = ""
'cSpaceEnd = rs("cSpaceEnd")
'If cSpaceEnd = "1900-12-31" Then cSpaceEnd = ""
'cOprationBegin = rs("cOprationBegin")
'If cOprationBegin = "1900-12-31" Then cOprationBegin = ""
'cOprationEnd = rs("cOprationEnd")
'If cOprationEnd = "1900-12-31" Then cOprationEnd = ""
cInfo = rs("cInfo")
rs.Close
Set rs = Nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr id="oHead" style="display: block;">
<td valign="top"> </td></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF" style="padding: 10px;">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="100" align="right">公司名称：</td>
<td width="240"> <% = cCompany %> <input name="id" type="hidden" id="id" value="<% = cId %>"> </td>
<td width="100" align="right">联系人：</td>
<td><% = cLinkman %></td>
</tr>
<tr>
<td width="100" align="right">网址：</td>
<td width="240"> <% = cHomepage %></td>
<td width="100" align="right">联系电话：</td>
<td><% = cTel %></td>
</tr>
<tr>
<td width="100" align="right">电子信箱：</td>
<td width="240"> <% = cEmail %></td>
<td width="100" align="right">公司地址：</td>
<td>
<% = cAddress %> </td>
</tr>
<tr>
<td width="100" align="right">地区：</td>
<td width="240"> <% = cArea %></td>
<td width="100" align="right">所属小区：</td>
<td><% = cSquare %></td>
</tr>
<tr>
<td width="100" align="right">客户类型：</td>
<td>
<% = cType %> </td>
<td align="right">行业类型：</td>
<td><% = cTrade %></td>
</tr>
<tr>
<td width="100" align="right">业务员：</td>
<td width="240">
<% = cUser %> </td>
<td width="100" align="right">业务组：</td>
<td><% = getGroupName(cGroup) %></td>
</tr>
<tr>
<td width="100" align="right">客户描述：</td>
<td colspan="3"><% = cInfo %></td>
</tr>
<tr>
<td colspan="4" align="center"> <input name="Reset" type="button" id="Reset" value=" 修 改 " onClick="location.href='addData.asp?action=edit&cId=<% = cId %>';">
<input name="Back" type="button" id="Back" value=" 返回列表 " onClick="location.href='<% = Session("CRM_url") %>';"></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><span style="color: #000000; font-weight: bold;">[添加拜访纪录]</span> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="recordsForm" action="?action=saveRecords" method="post" onSubmit="return checkInput('rDate','recordsType','cId','rContent');">
<tr>
<td>添加拜访纪录：</td>
</tr>
<tr>
<td>拜访日期：
<input name="rDate" type="text" id="rDate3" value="<% = Date() %>" size="16" maxlength="12">
拜访类型：
<% = getList(1,"baidu_recordsType",,"recordsType") %> <input name="cId" type="hidden" id="cId" value="<% = cId %>"></td>
</tr>
<tr>
<td valign="top">拜访记录：
<textarea name="rContent" cols="80" rows="4" id="rContent"></textarea></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value=" 提 交 ">
<input name="AddPlan" type="button" id="AddPlan" value=" 添加拜访计划 " onClick="openModalDialog('addPlan_records.asp?cId=<% = cId %>');"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td align="center"><span style="color: #000000; font-weight: bold;">[拜访纪录列表]</span> <table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF">
<tr>
<td width="120" align="center" bgcolor="menu">拜访时间</td>
<td width="80" align="center" bgcolor="menu">拜访类别</td>
<td align="center" bgcolor="menu">拜访记录</td>
</tr>
<% = listRecords(cId) %>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td colspan="2" align="right"><a href="#top">返回顶部<img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a> </td></td>
</tr>
</table>
<%
End If
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -