ASP网页编程之自界说每次增加的纪录数,包括客户真个...
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。客户端|数据|原创当我们偶然在增加新纪录时,一次增加一条的操纵很不便利,特别是在录进多量量的数据时,好比:先生成就。上面是我给一个客户做的自界说增加纪录数(即:用户能够本人选择以后一次增加几笔记录),并用vb函数对每一个必要输出的文本框做了反省。
上面是源程序:
<%@Language=VBScript%>
<%
文件名:dd_product_price.asp
功效:增加商品代价具体材料
申明:背景程序
程序:小白
工夫:2002-5-15
更新:
更新申明:
公司:坐标公司
主页:www.zbhn.com
%>
<HTML>
<HEAD>
<title><%=application("web_name")%>--->增加商品代价材料</title>
<METANAME="GENERATOR"Content="MicrosoftFrontPage4.0">
<styletype="text/css"><!--a:link{color:darkslateblue;text-decoration:none}
a:visited{color:darkslateblue;text-decoration:无}
a:hover{color:brown;text-decoration:底线}
input.radio{background:navyblue;color:#000000}
font{font-size:9pt;line-height:13pt;FONT-FAMILY:MSShellDlg,Tahoma}
td{font-size:9pt;line-height:13pt;FONT-FAMILY:MSShellDlg,Tahoma}
textarea{BACKGROUND-COLOR:#e8e8e8;BORDER-BOTTOM:1pxdouble;BORDER-LEFT:1pxdouble;BORDER-RIGHT:1pxdouble;BORDER-TOP:1pxdouble;COLOR:#000000;;font-size:9pt;FONT-FAMILY:MSShellDlg,Tahoma}
input{BACKGROUND-COLOR:#e8e8e8;BORDER-BOTTOM:1pxdouble;BORDER-LEFT:1pxdouble;BORDER-RIGHT:1pxdouble;BORDER-TOP:1pxdouble;COLOR:#000000;;font-size:9pt;FONT-FAMILY:"MSShellDlg","Tahoma";background-position:center}
--></style>
<SCRIPTLANGUAGE="javascript"src="js/refuse_visit.js"></SCRIPT>
<SCRIPTLANGUAGE="javascript"src="js/max_window.js"></SCRIPT>
</HEAD>
<body>
<!--#includefile="sjkpzwj/ytxx_conn.inc"-->
<palign="center">
<%
dimurl
url=request.ServerVariables("SCRIPT_NAME")
onerrorresumenext
record=request.QueryString("record")
ifrecord=""then
record=1
endif
record=cint(record)
ifErr.number0then
record=1
Response.Write"操纵不妥,请下次当心点"
endif
ifRequest.ServerVariables("Request_Method")="POST"then
假如提交过去的是post办法,则增加纪录到数据库
dimtext1(20),text2(20),text3(20),text4(20)
______________________
subgave_value(text,xx)
onerrorresumenext
count=0
foreachiteminRequest.Form(text)
xx(count)=item
count=count+1
next
ifErr.number0then
response.Write"suberr:"&Err.Description
endif
endsub
onerrorresumenext
____________________
callgave_value("text1",text1)
callgave_value("text2",text2)
callgave_value("text3",text3)
callgave_value("text4",text4)
ifErr.number0then
response.Write"callsuberr:"&Err.Description
endif
%%%%%%%%%%%%%%%%%%%%%%%%
onerrorresumenext
ifErr.number0then
response.Write"showtext1err:"&Err.Description
Response.End
endif
%%%%%%%%%%%%%%%%%%
%>
<center>增加商品代价材料</center>
<%
setRs=server.CreateObject("ADODB.Recordset")
onerrorresumenext
R</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。 学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点: 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。 ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。 Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。 Session:这个存储跟客户端会话过程的数据,默认20分钟失效
页:
[1]