仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 554|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网站制作之asp仿照 Lotus Notes 的界面程序

[复制链接]
萌萌妈妈 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:48:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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为移动电话互联网客户服务。
萌萌妈妈 该用户已被删除
沙发
 楼主| 发表于 2015-1-19 09:06:56 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
再见西城 该用户已被删除
板凳
发表于 2015-1-24 11:30:04 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
蒙在股里 该用户已被删除
地板
发表于 2015-2-1 09:37:34 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
admin 该用户已被删除
5#
发表于 2015-2-7 02:06:52 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
山那边是海 该用户已被删除
6#
发表于 2015-2-19 18:22:15 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
若相依 该用户已被删除
7#
发表于 2015-3-6 15:13:43 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
再现理想 该用户已被删除
8#
发表于 2015-3-13 03:06:13 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
飘飘悠悠 该用户已被删除
9#
发表于 2015-3-20 10:45:53 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 06:46

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表