📄 deliverymain.asp
字号:
" SECTION_ID," &_
" SECTION_NAME," &_
" RECEIVE_ADDRESS_ID " &_
" FROM RECEIVEADDRESS_M "
l_strSql = l_strSql & "WHERE CLASS = '" & l_class & "' " &_
"AND COMPANY_NAME = '" & l_compname & "' " &_
"AND COMPANY_ID = '" & CStr(l_receiveid) & "' " &_
"AND DEL_FLG = '0' "
If l_sectionname <> "" Then
l_strSql = l_strSql & "AND SECTION_NAME_KANA LIKE '" & l_sectionname & "%' "
End If
End Select
Set l_rset = l_db.ProcRecordset(l_strSql,10,0)
Set l_dic = l_cmn.GetDictionaryFromRs(l_rset)
Set GetSubReceive = l_dic
End Function
'/********************************************
'/* 搊榐愭傪Dictionary偵愝掕
'/* param丗l_class 僇僥僑儕
'/* l_compname 婇嬈柤徧
'/* return丗
'/********************************************
Public Function SetReceive(l_rset)
Dim l_count
Dim l_detaildic
Set l_detaildic = CreateObject("Scripting.Dictionary")
For l_count = 0 to l_rset.Fields.Count - 1
l_detaildic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value
Next
Set SetReceive = l_detaildic
End Function
'/********************************************
'/* 攝憲愭偺庢摼(庤擖椡)
'/* return丗dictionary
'/********************************************
Public Function GetAddress
Dim l_addressdic
Dim l_name
Dim l_basp
Set l_addressdic = CreateObject("Scripting.Dictionary")
Set l_basp = Server.CreateObject("basp21")
'攝憲愭僐乕僪
l_addressdic.add "ordercd",Replace(l_chutil.html_chg(l_basp,Request.Form("ordercd")),"""",""")
'擖椡幰
l_addressdic.add "inputuser",l_chutil.Asc_chk(Request.Form("inputuser"),4)
'梄曋斣崋
l_addressdic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""",""")
l_addressdic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""",""")
'搒摴晎導
l_addressdic.add "prefecture",Request.Form("prefecture")
'巗挰懞
l_addressdic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
'斣抧
l_addressdic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
'價儖柤
l_addressdic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
'夛幮
l_addressdic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
'晹栧
l_addressdic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
'偍撏偗愭柤
l_addressdic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
'揹榖斣崋
l_addressdic.add "tel",Replace(l_chutil.html_chg(l_basp,Request.Form("tel")),"""",""")
'Fax
l_addressdic.add "fax",Replace(l_chutil.html_chg(l_basp,Request.Form("fax")),"""",""")
'旛峫
l_addressdic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
'儊乕儖
l_addressdic.add "mail",Request.Form("mail")
'妋擣儊乕儖
l_addressdic.add "remail",Request.Form("remail")
'儃僞儞柤
l_addressdic.add "consubmit",Request.Form("consubmit")
l_addressdic.add "postcode",l_addressdic.Item("postcode1") & "-" & l_addressdic.Item("postcode2")
l_addressdic.add "deliradio",Request.Form("deliradio")
l_addressdic.add "delikind","偦偺懠偵憲晅"
If l_addressdic.Item("ordercd") <> "" Then
l_addressdic.Remove("ordercd")
End If
'========================
'擖椡僠僃僢僋
'========================
If Not InCheckDelivery(l_addressdic) Then
l_addressdic.add "err",false
End If
Set GetAddress = l_addressdic
End Function
'/********************************************
'/* 攝憲愭僐乕僪偺擖椡僠僃僢僋
'/* param丗l_reccode
'/* return丗boolean
'/********************************************
Public Function CheckRecieve(l_reccode)
Dim l_baspobj
Set l_baspobj = Server.Createobject("basp21")
Dim l_msgarray(1)
CheckRecieve = true
If l_reccode = "" Or IsNull(l_reccode) Then
l_msgarray(0) = IG06022E
CheckRecieve = false
Session("ErrMsg") = l_msgarray
'ElseIf l_cku.number_chk(l_baspobj,l_reccode) = 0 Then
ElseIf Not l_cku.IsNumericAlpha(l_reccode) Then
l_msgarray(0) = IG06024E
CheckRecieve = false
Session("ErrMsg") = l_msgarray
End If
End Function
'/********************************************
'/* 偦偺懠攝憲愭偺擖椡僠僃僢僋
'/* param丗dictionary
'/* return丗boolean
'/********************************************
Public Function InCheckDelivery(l_dic)
Dim l_msgarray()
Dim l_element
Dim l_count
l_element = 0
InCheckDelivery = true
'擖椡幰僠僃僢僋
If l_dic.Item("inputuser") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG06021E
l_element = l_element + 1
InCheckDelivery = false
End If
'梄曋斣崋僠僃僢僋
If l_dic.Item("postcode1") = "" Or l_dic.Item("postcode2") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11006E
l_element = l_element + 1
InCheckDelivery = false
ElseIf Not l_cku.Zip_chk(l_dic.Item("postcode")) Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11007E
l_element = l_element + 1
InCheckDelivery = false
End If
'搒摴晎導僠僃僢僋
If l_dic.Item("prefecture") = "慖戰偟偰偔偩偝偄" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11008E
l_element = l_element + 1
InCheckDelivery = false
End If
'巗挰懞僠僃僢僋
If l_dic.Item("town") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11009E
l_element = l_element + 1
InCheckDelivery = false
End If
'斣抧僠僃僢僋
If l_dic.Item("house_number") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11010E
l_element = l_element + 1
InCheckDelivery = false
End If
'夛幮柤僠僃僢僋
If l_dic.Item("company_name") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11011E
l_element = l_element + 1
InCheckDelivery = false
End If
'偍撏偗愭柤僠僃僢僋
If l_dic.Item("person") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11012E
l_element = l_element + 1
InCheckDelivery = false
End If
'Tel僠僃僢僋
If l_dic.Item("tel") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11013E
l_element = l_element + 1
InCheckDelivery = false
ElseIf Not l_cku.Tel_chk(l_dic.Item("tel")) Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11014E
l_element = l_element + 1
InCheckDelivery = false
End If
'Fax僠僃僢僋
If l_dic.Item("fax") <> "" Then
If Not l_cku.Tel_chk(l_dic.Item("fax")) Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11035E
l_element = l_element + 1
InCheckDelivery = false
End If
End If
'儊乕儖傾僪儗僗僠僃僢僋
If l_dic.Item("mail") <> "" Then
If Not l_cku.email_chk(l_dic.Item("mail")) Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11015E
l_element = l_element + 1
InCheckDelivery = false
ElseIf l_dic.Item("mail") <> l_dic.Item("remail") Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11016E
l_element = l_element + 1
InCheckDelivery = false
End If
End If
If l_dic.Item("remail") <> "" Then
If l_dic.Item("mail") = "" Then
Redim Preserve l_msgarray(l_element)
l_msgarray(l_element) = IG11015E
l_element = l_element + 1
InCheckDelivery = false
End If
End If
'旛峫偺暥帤悢僠僃僢僋 20051114 廋惓
If l_dic.Item("note") <> "" Then
If Len(l_dic.Item("note")) > 250 Then
Redim Preserve l_msgarray(l_element)
'旛峫偑250暥帤傪挻偊偰偄傑偡
l_msgarray(l_element) = IG11098E
l_element = l_element + 1
InCheckDelivery = false
End If
End If
' ReDim l_re_msgarray(l_element)
' For l_count = 0 to l_element
' l_re_msgarray(l_count) = l_msgarray(l_count)
' Next
'僄儔乕儊僢僙乕僕傪僙僢僔儑儞偵曐帩
If l_element > 0 Then
' Session("ErrMsgForm") = l_errarray
' End If
Session("ErrMsg") = l_msgarray
End If
End Function
'/********************************************
'/* 僋儘乕僘
'/********************************************
Public Function Close
If IsObject(l_db.l_objADO_Rset) Then
Call l_db.CloseRecodeset
End If
If IsObject(l_db.l_objADO_Conn) Then
Call l_db.CloseConnection
End If
End Function
End Class
'/******************************************************
'/(徻嵶忣曬昞帵梡儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class CompanyInfoMdl
Dim l_SystemId
Dim l_CompanyId
Dim l_UserName
'擖椡棑崁栚
Dim l_PostCode1
Dim l_PostCode2
Dim l_PostCode
Dim l_Prefecture
Dim l_Town
Dim l_HouseNumber
Dim l_Building
Dim l_CompanyName
Dim l_CompanyNameKana
Dim l_SectionName
Dim l_Person
Dim l_Tel
Dim l_Fax
Dim l_Mail
Dim l_ReMail
Dim l_LoginId
Dim l_Password
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -