台灣最大程式設計社群網站
線上人數
520
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 自定義每次增加的記錄數,包含客戶端的資料檢
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
自定義每次增加的記錄數,包含客戶端的資料檢
價值 : 0 QP  點閱數:339 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
自定義每次增加的記錄數,包含客戶端的資料檢查

當我們有時在增加新記錄時,一次增加一條的操作很不方便,尤其是在錄入大批量的資料時,比如:學生成績。
下面是我給一個客戶做的自定義增加記錄數(即:會員可以自己選擇目前一次增加多少條記錄),並用vb函數對每個需要輸入的文本框做了檢查。

下面是源程式:

<%@ Language=VBScript %>
<%
'文件名:dd_product_price.asp
'功能:增加商品價格詳細資料
'說明:後臺程式
'程式:小白
'時間:2002-5-15
'更新:
'更新說明:
'公司:坐標公司
'首頁:www.zbhn.com
%>

<HTML>

<HEAD>
<title> <%=application("web_name")%> --->增加商品價格資料</title>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<style type="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:MS Shell Dlg,Tahoma}
td { font-size: 9pt; line-height: 13pt; FONT-FAMILY:MS Shell Dlg,Tahoma}
textarea { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000;; font-size: 9pt ;FONT-FAMILY:MS Shell Dlg,Tahoma}
input { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #000000;; font-size: 9pt; FONT-FAMILY:"MS Shell Dlg", "Tahoma"; background-position: center}
--></style>
<SCRIPT LANGUAGE="javascript" src="js/refuse_visit.js"></SCRIPT>
<SCRIPT LANGUAGE="javascript" src="js/max_window.js"></SCRIPT>
</HEAD>
<body>
<!--#include file="sjkpzwj/ytxx_conn.inc"-->
<p align="center">
<%
dim url
url=request.ServerVariables("SCRIPT_NAME")
on error resume next
record=request.QueryString("record")
if record="" then
record=1
end if
record=cint(record)
if Err.number <> 0 then
record=1
Response.Write "操作不當,請下次小心點"
end if
if Request.ServerVariables ("Request_Method")="POST" then
'如果提交過來的是post方法,則增加記錄到資料庫

dim text1(20),text2(20),text3(20),text4(20)

'______________________
sub gave_value(text,xx)
on error resume next
count=0
for each item in Request.Form(text)
xx(count)=item
count=count+1
next
if Err.number <> 0 then

response.Write "sub err:"& Err.Description
end if
end sub
on error resume next
'____________________
call gave_value("text1",text1)
call gave_value("text2",text2)
call gave_value("text3",text3)
call gave_value("text4",text4)
if Err.number <> 0 then
response.Write "call sub err:"&Err.Description
end if

'%%%%%%%%%%%%%%%%%%%%%%%%
on error resume next

if Err.number <> 0 then
response.Write "show text1 err:"&Err.Description
Response.End
end if
'%%%%%%%%%%%%%%%%%%

%>
<center>增加商品價格資料 </center>

<%
set Rs=server.CreateObject ("ADODB.Recordset")

on error resume next

Rs.Open "select * from price where 1=2",str_connection,1,3

'************************************
if Err.number <> 0 then
Response.Write "Error--->"&Err.Description &"<font color=red>;Please contact with the <font color=red> web master</font>!</font>"
Rs.Close
set Rs=nothing
Response.End

end if
'**************************************
'連接資料庫、打開資料表成功後
'______使用addnew方法增加記錄________

on error resume next
for jj=0 to record-1
Rs.AddNew
rs(1)=text1(jj)
rs(2)=text2(jj)
rs(3)=text3(jj)
rs(4)=text4(jj)
Rs.Update
next
Rs.Close
set Rs=nothing

if Err.number <> 0 then
&nbsf="#"> 技巧 |


--------------------------------------------------------------------------------

本篇文章發表於2002-06-05 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.