 |
|
|
 |
 |
|
ได้ครับ
ก็เพียงแค่นั้งชื่อ
<input type="text" name="user">
สร้างมา 5 ตัวครับ โดยให้ชื่อเหมือนกันครับ
และเมื่อต้องการอ่านค่า โปรแกรมจะมองค่าที่ส่งเข้ามาเป็น Array ครับ
For i=0 To Request.Form("user").Count-1
' ตรวจสอบค่าว่าง
if Request.Form("user")(i) <> "" Then
Response.write Request.Form("user")(i)&"<br>"
ให้ใช้คำส่ง Insert Reccord ในระหว่างนี้ครับ
End if
Next
|
 |
 |
 |
 |
| Date :
11 ม.ค. 2548 09:58:24 |
By :
@W_IN |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ยังงงๆ อยู่ครับ
ผมสร้างฟอร์มรับ ดังนี้
<input type="text" name="INTYPE">
<input type="text" name="INTYPE">
<input type="text" name="INTYPE">
<input type="text" name="INTYPE">
<input type="text" name="INTYPE">
แล้ว post ดังนี้ แต่ยังไม่ได้ ไม่แน่ใจว่าจะใช่แบบนี้หรือเปล่า
เป็น Database Oracle ครับ
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.1.12;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE_ACTUAL"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
For i=0 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Response.write Request.Form("INTYPE")(i)&"<br>"
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")
Rs.Update
Conn.Close
End if
Next
%>
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 11:05:39 |
By :
chai_nok |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.1.12;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE_ACTUAL"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
For i=0 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")(i)
Rs.Update
Next
Conn.Close
End if
%>
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 12:33:32 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แก้หน่อยนะครับ
<%
Set Conn=Server.Createobject("ADODB.Connection")
myDSN="DSN=TestDB;UID=test;PWD=test;SERVER=172.16.1.12;ConnectString=test;"
Conn.Open myDSN
sql ="Select * From CONSOLIDATE_ACTUAL"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
For i=0 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")(i)
Rs.Update
End if
Next
Conn.Close
%>
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 12:34:31 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ยังไม่ได้เลยครับ
Error Type:
Request object, ASP 0105 (0x80004005)
An array index is out of range.
/append.asp, line 10
INType จำเป็นไหมครับว่าต้องเป็น Number
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 14:12:07 |
By :
chai_nok |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่น่าจะเกี่ยวนะครับ ลองดูในส่วนของ Array นะครับ
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 15:20:33 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมจะลองดูก่อนนะครับ
ขอบคุณมากนะครับ
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 16:56:05 |
By :
chai_nok |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมลืมว่าตำแหน่งของอาเรย์ต้องเริ่มที่ 1 ครับ
For i=1 To Request.Form("INTYPE").Count
นี่เป็นตัวอย่างนะครับ
<form name="t" action="" method="post">
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="submit" name="submit" value="submit">
</form>
<%
For i=1 To Request.Form("INTYPE").Count
if Request.Form("INTYPE")(i) <> "" Then
Response.write Request.Form("INTYPE")(i)&"<br>"
End if
Next
%>
|
| |
|
|
| |
| Date :
11 ม.ค. 2548 17:25:06 |
By :
@W_IN |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ได้แล้วครับ ขอบคุณ @W_IN มากนะครับ
|
| |
|
|
| |
| Date :
12 ม.ค. 2548 09:16:38 |
By :
chai_nok |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอถามเพิ่มเติมหน่อยนะครับ
<form name="t" action="" method="post">
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="INTYPE"><br>
<input type="text" name="ACTUAL"><br>
<input type="text" name="ACTUAL"><br>
<input type="text" name="ACTUAL"><br>
<input type="text" name="ACTUAL"><br>
<input type="text" name="ACTUAL"><br>
<input type="submit" name="submit" value="submit">
</form>
<%
For i=1 To Request.Form("INTYPE").Count-1
if Request.Form("INTYPE")(i) <> "" Then
Rs.AddNew
Rs("INTYPE") = Request.Form("INTYPE")(i)
Rs("ACTUAL") = Request.Form("ACTUAL")(i)
Rs.Update
End if
Next
%>
คือตอนนี้ผมจะรับข้อมูลทีละห้าเรคคอร์ด โดย set value ของค่า intype ไว้
แต่ค่า actual จะคีย์เข้าไปเอง แต่กรณีเรคคอร์ดที่ไม่มีค่า actual หรือเป็นค่าว่าง
จะไม่ให้บรรทึกลงฐานข้อมูล ต้องทำอย่างไรครับ
|
| |
|
|
| |
| Date :
15 ม.ค. 2548 12:41:31 |
By :
chai_nok |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
Load balance : Server 02
