|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题程序《%
仿LotusNotes的界面程序
塞北的雪
创作日期:2002年3月
修正日期:2005年3月
为了平安和共享的便利,将个中asp程序的标志改成中笔墨符,利用时能够批量交换回
%〉
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<style>
.tHeader{font-weight:bold;background-color:#D0D0D0;color:#000000;border-left:
1solid#FFFFFF;border-right:1solid#000000;border-top:1solid#FFFFFF;
border-bottom:1solid#000000}
.tHeaderPush{font-weight:bold;background-color:#D0D0D0;color:#000000;border:1
solid#707070;}
</style>
<title>仿照LotusNotes殊效</title>
<scriptlanguage=javascript>
varyesH="√";//选中后显现的标记
varnoH=;//未选中时的或人显现
varIfPush=no;//挪动鼠标选中的时分用于把持,yes暗示鼠标已按下,拖动有
效;no暗示鼠标已泰起来了,再挪动鼠标已没有感化了
varFI=yes;//挪动鼠标选中的时分用于把持,yes能够处置以后单位格,no
则不克不及处置
//默许为yes,当我们进进某个单位格地区,则处置他,然后改成
no,则不再
//对该单位格处置,当分开单位格时又改成yes,又能够处置下一
个进进的单位格
//实行数据删除
functiondelInfo(iCount)
{
varpKey=newString();
if(iCount>0)
{
for(vari=1;i<=iCount;i++)
{
if(document.getElementById("a"+i).innerText==yesH)
{pKey+=(""+document.getElementById("pKey"+i).value+",")}
//此处天生关头字串,因为是字符型,故在每一个关头字的两侧加了单引号,
//然后用逗号毗连,假如是数字型,则不必单引号。
}
}
if(pKey!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("断定要删除选定的信息吗?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//实行数据修正,不管选中几,但只对第一个举行修正
functioneditInfo(iCount)
{
varpKey=newString();
if(iCount>0)
{
for(vari=1;i<=iCount;i++)
{
if(document.getElementById("a"+i).innerText==yesH)
{pKey+=document.getElementById("pKey"+i).value;
break;}
}
}
if(pKey!="")
{
window.open("editinfo.asp?unid="+pKey,"_blank");
//此处进进界限界面,对选中信息举行编纂。editinto.asp代码没有编写。
}
}
functionmd()
{IfPush=yes;}
functionmu()
{IfPush=no;}
//拖沓拔取
functionWr(whoTd)
{
if(IfPush==yes)
{
if(FI==yes)
{FI=no;
if(whoTd.innerText!=noH)
{whoTd.innerText=noH;}
else
{whoTd.innerText=yesH;}
}
}
}
//单击拔取
functionWRone(whoTd)
{
if(whoTd.innerText!=noH)
{whoTd.innerText=noH;}
else
{whoTd.innerText=yesH;}
}
</script>
</head>
《%
毗连数据库
Setdb=Server.CreateObject("ADODB.Connection")
dimDBPath
DBPath=Server.MapPath("crcconfiginfodispatch.mdb")
dimmmm
mmm="driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
db.Openmmm
实行删除
ifrequest("delPkey")""then
Response.Write"del:"&request("delPkey")
Response.RedirectRequest.ServerVariables("Path_info")
此处代码属于过剩,可是能够制止革新提醒。依据必要,能够自在计划程序
endif
读取数据
setrs=Server.CreateObject("ADODB.Recordset")
rs.Open"select*fromnotes",db,3
%〉
<bodyonmousedown="md();"onmouseup="mu();"oncontextmenu="returnfalse"
ondragstart="returnfalse"onselectstart="returnfalse">
<br><br><br><divalign=center>
<tableborder="1"rules=noneframe=hsidescellspacing=0cellpadding=0width="90%">
<tr>
<tdwidth="4%"bgcolor="#FFFFFF"style="cursor:hand">
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|