view.asp

WEB客户管理系统+小型OA系统。一个不错的程序

<%@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 & "          <td width=""30"" align=""center"">" &"<a href=delrecords.asp?rid="&rs("rid")&"&cid="&cid&">"& "删除" &"</a>" &"</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("login.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">
<title>客户资料收集系统</title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function showHideHead(strSrc)
{
	var strFile = strSrc.substring(strSrc.lastIndexOf("/"),strSrc.length);
    if (strFile == "/arrow_up.gif"){
	    oHead.style.display = "none";
		oHeadCtrl.src = "images/arrow_down.gif";
		oHeadCtrl.alt = "显示头部";
		oHeadBar.title = "显示头部";		
	}
	else {
	    oHead.style.display = "block";
		oHeadCtrl.src = "images/arrow_up.gif";
		oHeadCtrl.alt = "隐藏头部";
		oHeadBar.title = "隐藏头部";
	}
}

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;" >
<%
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,flag
	cId = CInt(ABS(Request("cId")))	    
	rDate = Request.Form("rDate")
	rType = Request.Form("recordsType")
	flag=request.Form("flag")
	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  * From baidu_records where cId="&request.Form("cId"),conn,3,2

			  conn.execute("update [baidu_client] set  flag="&request.Form("flag")&"  where cId="&cId)
			  
		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,total
		Dim cGroup,cTrade,cSquare
		dim phone,fax,qq,msn
	    Dim cDomainBegin,isbn,cSpaceEnd,cDomainEnd
	    'Dim cSpaceBegin,cSpaceEnd
	    'Dim cOprationBegin,cOprationEnd
	    Dim cInfo,level,flag
		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")
		total=rs("total")
		cAddress = rs("cAddress")
		cGroup = rs("cGroup")
		cTrade = rs("cTrade")
		cSquare = rs("cSquare")
		phone=rs("phone")
		fax=rs("fax")
		qq=rs("qq")
		msn=rs("msn")
		cDomainBegin=rs("cDomainBegin")
		isbn=rs("isbn")
		level=rs("level")
		cSpaceEnd=rs("cSpaceEnd")
		cDomainEnd = rs("cDomainEnd")
		flag=rs("flag")
		
		'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")