兰色精灵 发表于 2015-1-16 23:20:23

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还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。

灵魂腐蚀 发表于 2015-1-17 22:56:43

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

再见西城 发表于 2015-1-21 09:54:07

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

变相怪杰 发表于 2015-1-27 08:17:46

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

小女巫 发表于 2015-2-1 22:49:10

学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。

简单生活 发表于 2015-2-3 17:47:08

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

小妖女 发表于 2015-2-9 04:06:42

Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write

谁可相欹 发表于 2015-2-26 21:16:29

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。

老尸 发表于 2015-3-8 17:57:21

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

飘飘悠悠 发表于 2015-3-16 08:39:36

代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。

再现理想 发表于 2015-3-22 21:38:11

Session:这个存储跟客户端会话过程的数据,默认20分钟失效
页: [1]
查看完整版本: ASP网页编程之自界说每次增加的纪录数,包括客户真个...