|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的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还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|