Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ จะขอบคุณมากค่ะ

ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ จะขอบคุณมากค่ะ

เริ่มหัวข้อใหม่

Guest

ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ
จะขอบคุณมากค่ะ
If (Request("savecardnew") = "บันทึก" ) and ( Session("RidNew_card") <> "") and (Session("RMaxidNew_card") <> "") and (Request("nmcardnew22") <> "") and (Request("nmcardnew23") <> "") and (Request("nmcardnew27") <> "") and (Request("codecardnew42") <> "") then
If (len(Request("nmcardnew27")) >= 13) then
If ( Request("codecardnew42") <> "") then
If (len(Request("codecardnew42")) >= 20) then
codecardnew2_srs = Left(Request("codecardnew42"),instr(Request("codecardnew42"),"#")-1)
codecardnew2_Md = mid(Request("codecardnew42"),instr(Request("codecardnew42"),"#")+1,18)
codecardnew2_model = mid(codecardnew2_Md,1,instr(codecardnew2_Md,"|")-1)
codecardnew2_sfx = mid(codecardnew2_Md,instr(codecardnew2_Md,"|")+1,2)
End If
End if
If (Request("card_fr_date") <> "") and (Request("card_fr_month") <> "") then
card_fr_dt_new = mid(Request("card_fr_month"),3,4)&"/"&Left(Request("card_fr_month"),2)&"/"&Request("card_fr_date")
End if

Chk_card_cd = ""

sql = ""
sql = "Select * From DLR_ACRD"
sql = sql & " Where ACD_FST_NM like '" &Request("nmcardnew22")& "'"
sql = sql & " and ACD_FMLY_NM like '" &Request("nmcardnew23")& "'"
sql = sql & " and ACD_CST_ID = '" &Request("nmcardnew27")& "'"
sql = sql & " and ACD_SRS_CD = '" &codecardnew2_srs& "'"
sql = sql & " and ACD_MOD_CD = '" &codecardnew2_model& "'"
sql = sql & " and ACD_MOD_SFX = '" &codecardnew2_sfx& "'"
sql = sql & " and ACD_CLR_CD = '" &Request("codecardnew43")& "'"
sql = sql & " and ACD_ACRD_DT = '" &card_fr_dt_new& "'"
set rs = conn.execute(sql)
do while not rs.eof
loop

If (Chk_card_cd = "") then
If (Request("card_to_date") <> "") and (Request("card_to_month") <> "") then
card_to_dt_new = mid(Request("card_to_month"),3,4)&"/"&Left(Request("card_to_month"),2)&"/"&Request("card_to_date")
End if
If (Request("card_apmt_date") <> "") and (Request("card_apmt_month") <> "") then
card_apmt_dt_new = mid(Request("card_apmt_month"),3,4)&"/"&Left(Request("card_apmt_month"),2)&"/"&Request("card_apmt_date")
End if
If (Request("nmcardnew26") = "") OR (Request("nmcardnew25") = "") OR (Request("nmcardnew24") = "") then
card_bd_dt_new = NwYear&"/"&NwMonth&"/"&NwDate
Else
card_bd_dt_new = Cstr(Cint("25"&Request("nmcardnew26"))-543)&"/"&Request("nmcardnew25")&"/"&Request("nmcardnew24")
End If

Slsty_card = ""
Slsno_card = ""

If (Request("radiocardnew") <> "") then
Slsty_card = Request("radiocardnew")
If (Slsty_card = "1") then
Slsno_card = "0"
ElseIf (Slsty_card = "2") then
Slsno_card = Request("nmcardnew2")
If (Slsno_card = "") Or (Slsno_card = "0") then
Slsno_card = "0"
End If
End If
End If
If (codecardnew2_srs <> "") and (codecardnew2_model <> "") and (codecardnew2_sfx <> "") then

If (Request("codecardnew4") = "P") and (Request("nmcardnew27") <> "") then
Chk_card_cst_cd = ""

sql = ""
sql = "Select * From DLR_CST_MST"
sql = sql & " Where DCM_CST_ID = '" &Request("nmcardnew27")& "'"
sql = sql & " and DCM_CST_TY_CD = '" &Request("codecardnew21")& "'"
sql = sql & " and DCM_FST_NM = '" &Request("nmcardnew22")& "'"
sql = sql & " and DCM_FMLY_NM = '" &Request("nmcardnew23")& "'"
sql = sql & " and DCM_CST_GRP = 'A' "
set rs = conn.execute(sql)
loop
If (Chk_card_cst_cd = "") then
sql = ""
sql = "Select Max(DCM_CST_MAX) From DLR_CST_MST"
sql = sql & " Where DCM_CST_GRP = 'A' "
set rs = conn.execute(sql)
If (rs("Max(DCM_CST_MAX)") <> "") then
Maxidcard_cst_max = rs("Max(DCM_CST_MAX)")
Else
Maxidcard_cst_max = 0
End If
Maxidcard_cst_max_st = mid(CStr(10000000 + (Cint(Maxidcard_cst_max) +1)),2,7)
Maxidcard_cst_no_st = "A"&mid(CStr(CInt(Request("codecardnew21")) + 100),2,2)&Maxidcard_cst_max_st

sql = ""
sql = "Insert Into DLR_CST_MST"
sql = sql & " (DCM_CST_NO,"
sql = sql & " DCM_CST_MAX, "
sql = sql & " DCM_CST_ID,"
sql = sql & " DCM_CST_TY_CD,"
sql = sql & " DCM_CST_GRP,"
sql = sql & " DCM_CST_TTL_CD,"
sql = sql & " DCM_BD_DT,"
sql = sql & " DCM_CST_SX,"

sql = sql & " DCM_FST_NM,"
sql = sql & " DCM_FMLY_NM,"
sql = sql & " DCM_OCP_NM,"

sql = sql & " DCM_ADR,"
sql = sql & " DCM_ADR_SDSTT,"
sql = sql & " DCM_ADR_DSTT,"
sql = sql & " DCM_ADR_PRV_CD,"
sql = sql & " DCM_ZP_CD,"

sql = sql & " DCM_TELM_NO,"
sql = sql & " DCM_TELH_NO,"
sql = sql & " DCM_TELO_NO,"
sql = sql & " DCM_FIRM_NM,"

sql = sql & " DCM_CRE_BY,DCM_CRE_DT) "

sql = sql & " Values ("
sql = sql & " '"&Maxidcard_cst_no_st&"' , "
sql = sql & " '"&Maxidcard_cst_max_st&"' , "
sql = sql & " '"&Request("nmcardnew27")&"' , "

sql = sql & " '"&Request("codecardnew21")&"' , "
sql = sql & " 'A' , "
sql = sql & " '"&Request("codecardnew22")&"' , "
sql = sql & " '"&card_bd_dt_new&"' , "
sql = sql & " '"&Request("codecardnew23")&"' , "

sql = sql & " '"&Request("nmcardnew22")&"' , "
sql = sql & " '"&Request("nmcardnew23")&"' , "
sql = sql & " '"&Request("nmcardnew28")&"' , "

sql = sql & " '"&Request("nmcardnew29")&"' , "
sql = sql & " '"&Request("nmcardnew31")&"' , "
sql = sql & " '"&Request("nmcardnew32")&"' , "
sql = sql & " '"&Request("codecardnew24")&"' , "
sql = sql & " '"&Request("nmcardnew33")&"' , "

sql = sql & " '"&Request("nmcardnew34")&"' , "
sql = sql & " '"&Request("nmcardnew35")&"' , "
sql = sql & " '"&Request("nmcardnew36")&"' , "
sql = sql & " '"&Request("nmcardnew21")&"' , "

sql = sql & " '" &Session("IduNew_card")& "' , '" &DateNow& "' )"
set rs = conn.execute(sql)
End If
End If

sql = ""
sql = "Insert Into DLR_ACRD"
sql = sql & " (ACD_ACRD_NO, "
sql = sql & " ACD_ACRD_MAX, "
sql = sql & " ACD_ACRD_MONTH , "
sql = sql & " ACD_ACRD_NO_TBR, "
sql = sql & " ACD_BRC_CD,"
sql = sql & " ACD_SLSM_CD,"
sql = sql & " ACD_ACRD_SRE_CD,"
sql = sql & " ACD_GIVEUP_RSN1_NM,"
sql = sql & " ACD_SLS_TY,"
sql = sql & " ACD_SLS_NO,"
sql = sql & " ACD_ACRD_STS,"
sql = sql & " ACD_ACRD_DT,"
sql = sql & " ACD_CL_DT,"
sql = sql & " ACD_APMT_DT,"
sql = sql & " ACD_NOTE,"

sql = sql & " ACD_CST_NO,"
sql = sql & " ACD_CST_TY_CD,"
sql = sql & " ACD_FIRM_NM,"
sql = sql & " ACD_CST_TTL_CD,"
sql = sql & " ACD_FST_NM,"
sql = sql & " ACD_FMLY_NM,"
sql = sql & " ACD_CST_SX_TY,"
sql = sql & " ACD_CST_BD_DT,"
sql = sql & " ACD_CST_ID,"
sql = sql & " ACD_CST_OCP,"
sql = sql & " ACD_ADR,"
sql = sql & " ACD_ADR_SDSTT,"
sql = sql & " ACD_ADR_DSTT,"
sql = sql & " ACD_ADR_PRV_CD,"
sql = sql & " ACD_ZP_CD,"
sql = sql & " ACD_TELM_NO,"
sql = sql & " ACD_TELH_NO,"
sql = sql & " ACD_TELO_NO,"
sql = sql & " ACD_EMAIL_ADD,"

sql = sql & " ACD_SRS_CD,"
sql = sql & " ACD_MOD_CD,"
sql = sql & " ACD_MOD_SFX, "
sql = sql & " ACD_CLR_CD,"
sql = sql & " ACD_CUR_VEH_BRN,"
sql = sql & " ACD_CUR_VEH_SRS,"
sql = sql & " ACD_CUR_VEH_MOD,"
sql = sql & " ACD_CUR_VEH_YR,"

sql = sql & " ACD_CRE_BY,ACD_CRE_DT) "

sql = sql & " Values ('"&Session("RidNew_card")&"' , "
sql = sql & " '"&Session("RMaxidNew_card")&"' , "
sql = sql & " '"&NwMonth&"' , "
sql = sql & " '"&Request("codecardnew51")&"' , "
sql = sql & " '"&Request("codecardnew1")&"' , "
sql = sql & " '"&Request("codecardnew3")&"' , "
sql = sql & " '"&Request("codecardnew2")&"' , "
sql = sql & " '"&Request("nmcardnew1")&"' , "
sql = sql & " '"&Slsty_card &"' , "
sql = sql & " '"&Slsno_card &"' , "
sql = sql & " '"&Request("codecardnew4")&"' , "
sql = sql & " '"&card_fr_dt_new&"' , "
sql = sql & " '"&card_to_dt_new&"' , "
sql = sql & " '"&card_apmt_dt_new&"' , "
sql = sql & " '"&Request("nmcardnew14")&"' , "

sql = sql & " '"&Maxidcard_cst_no_st&"' , "
sql = sql & " '"&Request("codecardnew21")&"' , "
sql = sql & " '"&Request("nmcardnew21")&"' , "
sql = sql & " '"&Request("codecardnew22")&"' , "
sql = sql & " '"&Request("nmcardnew22")&"' , "
sql = sql & " '"&Request("nmcardnew23")&"' , "
sql = sql & " '"&Request("codecardnew23")&"' , "
sql = sql & " '"&card_bd_dt_new&"' , "
sql = sql & " '"&Request("nmcardnew27")&"' , "
sql = sql & " '"&Request("nmcardnew28")&"' , "
sql = sql & " '"&Request("nmcardnew29")&"' , "
sql = sql & " '"&Request("nmcardnew31")&"' , "
sql = sql & " '"&Request("nmcardnew32")&"' , "
sql = sql & " '"&Request("codecardnew24")&"' , "
sql = sql & " '"&Request("nmcardnew33")&"' , "
sql = sql & " '"&Request("nmcardnew34")&"' , "
sql = sql & " '"&Request("nmcardnew35")&"' , "
sql = sql & " '"&Request("nmcardnew36")&"' , "
sql = sql & " '"&Request("nmcardnew37")&"' , "

sql = sql & " '"&codecardnew2_srs&"' , "
sql = sql & " '"&codecardnew2_model&"' , "
sql = sql & " '"&codecardnew2_sfx&"' , "
sql = sql & " '"&Request("codecardnew43")&"' , "
sql = sql & " '"&Request("nmcardnew41")&"' , "
sql = sql & " '"&Request("nmcardnew42")&"' , "
sql = sql & " '"&Request("nmcardnew43")&"' , "
sql = sql & " '"&Request("nmcardnew44")&"' , "

sql = sql & " '" &Session("IduNew_card")& "' , '" &DateNow& "' )"
set rs = conn.execute(sql)
If (Request("codecardnew51") <> "") then
sql = ""
sql = "Update DLR_ACRD_TBR"
sql = sql & " Set ACD_ACRD_NO = '"&Session("Ridnew_card")&"', "
sql = sql & " ACD_UPD_BY = '"&Session("Idunew_card")&"', "
sql = sql & " ACD_UPD_DT = '"&DateNow&"' "
sql = sql & " Where ACD_ACRD_NO_TBR = '" & Request("codecardnew51") & "' "
set rs = conn.execute(sql)
End If

Monthcard_newst = mid(CStr(NwMonth + 100),2,2)

BRCcard_newst = Session("BRCmaster ")
sql = ""
sql = "Select Max(ACD_ACRD_MAX) From DLR_ACRD"
sql = sql & " Where ACD_ACRD_MONTH = '" & NwMonth & "' "
set rs = conn.execute(sql)

If (rs("Max(ACD_ACRD_MAX)") <> "") then
Maxidcard_newst = rs("Max(ACD_ACRD_MAX)")
Else
Maxidcard_newst = 0
End If
Maxidcard_new = mid(CStr(100000 + (Cint(Maxidcard_newst) +1)),2,5)

Session("RidNew_card") = "A"&mid(NwYear,3,2)&Monthcard_newst&BRCcard_newst&Maxidcard_new
Session("RMaxidNew_card") = Maxidcard_new

response.Redirect("sell_card_new.asp")
End If
End If
End If
End If

Tag : - - - -

Date : 28 ส.ค. 2549 15:19:56

By : เพรียว

View : 1803

Reply : 1

No. 1

Guest

ต้องคำถามมายาวขนาดนี้ใครจะตอบล่ะจ๊ะ....

ถามสั้นๆ เฉพาะส่วนที่ตัวเองไม่เข้าใจซิ

Date : 29 ส.ค. 2549 08:32:25

By : prasioni

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ ช่วยอธิบายโค้ดการบันทึกให้หน่อยไก้ไหมคะ จะขอบคุณมากค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00

Registered : 109,038

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice