📄 deliverymain.asp
字号:
<%
Class DeliveryMain
Dim l_db 'DBAccess DB傾僋僙僗梡
Dim l_cmn 'Common
Dim l_chutil 'CharUtil梡
Dim l_sysId '僔僗僥儉ID(String)
Dim l_coId '夛幮ID(String)
Dim l_cku 'CheckUtil
Dim l_cimdl
Dim l_dic
'/********************************************
'/* 弶婜張棟
'/********************************************
Public Function Init()
Dim l_dbinfo 'String
'DB僐僱僋僔儑儞庢摼
Set l_db = New DbAccess
Set l_cmn = New Common
Set l_chutil = New CharUtil
Set l_cku = New CheckUtil
Call l_db.ProcConnection(DSN, USERID, PASSWD)
'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
l_sysId = Session("User").Item("SYSTEM_ID") '僔僗僥儉ID
l_coId = Session("User").Item("COMPANY_ID") '夛幮ID
End Function
'/********************************************
'/* 攝憲愭偺庢摼
'/********************************************
Public Function GetDelivery
Dim l_radiobutton
l_radiobutton = Request.Form("deliradio")
Select Case l_radiobutton
Case "000002"
Set GetDelivery = GetReceive
Case "000003"
Set GetDelivery = GetAddress
Case Else
Set GetDelivery = GetAgency
End Select
End Function
'/********************************************
'/* 攝憲愭偺僠僃僢僋
'/********************************************
Public Function CheckDelivery
Dim l_radiobutton
Dim l_checkdic
Dim l_name
Dim l_basp
Set l_checkdic = CreateObject("Scripting.Dictionary")
Set l_basp = Server.CreateObject("basp21")
'攝憲愭僐乕僪
l_checkdic.add "ordercd",Replace(l_chutil.html_chg(l_basp,Request.Form("ordercd")),"""",""")
'擖椡幰
l_checkdic.add "inputuser",l_chutil.Asc_chk(Request.Form("inputuser"),4)
'梄曋斣崋
l_checkdic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""",""")
l_checkdic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""",""")
'搒摴晎導
l_checkdic.add "prefecture",Request.Form("prefecture")
'巗挰懞
l_checkdic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
'斣抧
l_checkdic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
'價儖柤
l_checkdic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
'夛幮
l_checkdic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
'晹栧
l_checkdic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
'偍撏偗愭柤
l_checkdic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
'揹榖斣崋
l_checkdic.add "tel",Replace(l_chutil.html_chg(l_basp,Request.Form("tel")),"""",""")
'Fax
l_checkdic.add "fax",Replace(l_chutil.html_chg(l_basp,Request.Form("fax")),"""",""")
'旛峫
l_checkdic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
'儊乕儖
l_checkdic.add "mail",Request.Form("mail")
'妋擣儊乕儖
l_checkdic.add "remail",Request.Form("remail")
'儃僞儞柤
l_checkdic.add "consubmit",Request.Form("consubmit")
l_checkdic.add "postcode",l_checkdic.Item("postcode1") & "-" & l_checkdic.Item("postcode2")
l_checkdic.add "deliradio",Request.Form("deliradio")
l_radiobutton = Request.Form("deliradio")
Select Case l_radiobutton
Case "000002"
l_checkdic.add "delikind","搊榐愭偵憲晅"
Case "000003"
l_checkdic.add "delikind","偦偺懠偵憲晅"
End Select
'========================
'擖椡僠僃僢僋
'========================
If Not InCheckDelivery(l_checkdic) Then
l_checkdic.add "err",false
End If
Set CheckDelivery = l_checkdic
End Function
'/********************************************
'/* 埶棅尦偺庢摼
'/* return丗dictionary
'/********************************************
Public Function GetAgency
'Dim l_strSql
'Dim l_rset
Dim l_agedic
'Dim l_count
Set l_agedic = CreateObject("Scripting.Dictionary")
'l_strSql = "SELECT A.*,B.COMPANY_NAME FROM SECTION_M A,COMPANY_M B " &_
'"WHERE A.SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
'"AND A.SYSTEM_ID = B.SYSTEM_ID " &_
'"AND A.COMPANY_ID = '" & Session("User").Item("COMPANY_ID") & "' " &_
'"AND A.COMPANY_ID = B.COMPANY_ID "
'Set l_rset = l_db.ProcRecordset(l_strSql,10,1)
'Do Until l_rset.Eof
'For l_count = 0 to l_rset.Fields.Count - 1
'l_agedic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value
'Next
'l_rset.MoveNext
'Loop
'l_agedic.add "inputuser",Session("User").Item("NAME")
'l_agedic.add "postcode1",Left(l_agedic.Item("postcode"),3)
'l_agedic.add "postcode2",Mid(l_agedic.Item("postcode"),5,4)
'l_agedic.add "deliradio",Request.Form("deliradio")
'l_agedic.add "delikind","埶棅尦偵憲晅"
'l_agedic.add "consubmit",Request.Form("consubmit")
'l_agedic.add "note",Request.Form("note")
'l_agedic.add "remail",l_agedic.Item("mail")
'l_agedic.add "err",""
'擖椡幰
l_agedic.add "inputuser",Session("User").Item("NAME")
l_agedic.add "deliradio","000003"
l_agedic.add "delikind","偦偺懠偵憲晅"
Set GetAgency = l_agedic
End Function
'/********************************************
'/* 搊榐愭偺庢摼
'/* param丗
'/* return丗
'/********************************************
Public Function GetReceive
Dim l_strSql
Dim l_rset
Dim l_count
Dim l_recieveid
Dim l_i
Dim l_msgarray(1)
Dim l_basp
Set l_dic = CreateObject("Scripting.Dictionary")
Set l_rset = CreateObject("ADODB.Recordset")
Set l_basp = Server.CreateObject("basp21")
l_recieveid = Request.Form("ordercd")
'========================
'偙偺偁偨傝偵擖椡僠僃僢僋
'========================
'If l_recieveid = "" Then
' l_dic.add "err","搊榐愭ID傪巜掕偟偰偔偩偝偄"
'Else
' l_dic.add "err",""
'End If
If CheckRecieve(l_recieveid) Then
l_strSql = "SELECT * " &_
"FROM RECEIVEADDRESS_M " &_
"WHERE RECEIVE_ADDRESS_ID = '" & l_recieveid & "' " &_
" AND DEL_FLG = '" & FLG_OFF & "' "
Set l_rset = l_db.ProcRecordset(l_strSql,10,1)
l_i = 0
Do Until l_rset.Eof
For l_count = 0 to l_rset.Fields.Count - 1
l_dic.add l_chutil.Asc_chk(l_rset.Fields(l_count).Name,2),l_rset.Fields(l_count).Value
Next
l_rset.MoveNext
Loop
If l_dic.Count <> 0 Then
l_dic.add "err",""
l_dic.add "inputuser",Request.Form("inputuser")
l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Left(l_dic.Item("postcode"),3)),"""",""")
l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Mid(l_dic.Item("postcode"),5,4)),"""",""")
l_dic.add "ordercd",Replace(l_chutil.html_chg(l_basp,l_recieveid),"""",""")
l_dic.add "deliradio",Request.Form("deliradio")
l_dic.add "delikind","搊榐愭偵憲晅"
l_dic.add "consubmit",Request.Form("consubmit")
l_dic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
l_dic.add "remail",l_dic.Item("mail")
Else
l_msgarray(0) = IG06023E
Session("ErrMsg") = l_msgarray
l_dic.add "err",false
'擖椡忣曬傪廋暅
l_dic.add "inputuser",Request.Form("inputuser")
l_dic.add "ordercd",Replace(l_chutil.html_chg(l_basp,l_recieveid),"""",""")
l_dic.add "deliradio",Request.Form("deliradio")
l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""",""")
l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""",""")
l_dic.add "prefecture",Request.Form("prefecture")
l_dic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
l_dic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
l_dic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
l_dic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
l_dic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
l_dic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
l_dic.add "tel",Request.Form("tel")
l_dic.add "fax",Request.Form("fax")
l_dic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
l_dic.add "mail",Request.Form("mail")
l_dic.add "remail",Request.Form("remail")
End If
Else
l_dic.add "inputuser",Request.Form("inputuser")
l_dic.add "ordercd",Replace(l_chutil.html_chg(l_basp,l_recieveid),"""",""")
l_dic.add "err",false
l_dic.add "deliradio",Request.Form("deliradio")
l_dic.add "postcode1",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode1")),"""",""")
l_dic.add "postcode2",Replace(l_chutil.html_chg(l_basp,Request.Form("postcode2")),"""",""")
l_dic.add "note",l_chutil.Asc_chk(Request.Form("note"),4)
l_dic.add "prefecture",Request.Form("prefecture")
l_dic.add "town",l_chutil.Asc_chk(Request.Form("town"),4)
l_dic.add "house_number",l_chutil.Asc_chk(Request.Form("house_number"),4)
l_dic.add "building",l_chutil.Asc_chk(Request.Form("building"),4)
l_dic.add "company_name",l_chutil.Asc_chk(Request.Form("company_name"),4)
l_dic.add "section_name",l_chutil.Asc_chk(Request.Form("section_name"),4)
l_dic.add "person",l_chutil.Asc_chk(Request.Form("person"),4)
l_dic.add "tel",Request.Form("tel")
l_dic.add "fax",Request.Form("fax")
l_dic.add "remail",Request.Form("remail")
l_dic.add "mail",Request.Form("mail")
End If
If Len(l_dic.Item("note")) > 250 Then
'旛峫偑250暥帤傪挻偊偰偄傑偡
l_msgarray(0) = IG11098E
Session("ErrMsg") = l_msgarray
l_dic.Item("err") = false
End If
Set GetReceive = l_dic
End Function
'/********************************************
'/* 僒僽夋柺偐傜搊榐愭偺庢摼
'/* param丗l_class 僇僥僑儕
'/* l_compname 婇嬈柤徧 {婇嬈偺慖戰夋柺偐傜偺応崌丗僇僫
'/* 巟揦慖戰夋柺偐傜偺応崌丗娍帤}
'/* l_sectionid 憲晅愭ID
'/* l_sectionname 晹栧柤
'/* l_srcflg 張棟僼儔僌丂侾丗婇嬈偺慖戰夋柺偐傜丂俀丗巟揦慖戰夋柺偐傜
'/* return丗
'/********************************************
Public Function GetSubReceive(l_class,l_compname,l_receiveid,l_sectionname,l_srcflg)
Dim l_strSql
Dim l_rset 'RecordSet
Dim l_dic
Dim l_count
Dim l_fildcnt
Set l_dic = CreateObject("Scripting.Dictionary")
Set l_rset = CreateObject("ADODB.Recordset")
'l_strSql = "SELECT * " &_
' "FROM RECEIVEADDRESS_M "
'/張棟僼儔僌偵傛傝SQL暥惗惉偺愗傝暘偗
Select Case l_srcflg
Case 1
l_strSql = "SELECT COMPANY_ID, " &_
" COMPANY_NAME," &_
" COMPANY_NAME_KANA," &_
" CLASS " &_
" FROM RECEIVEADDRESS_M "
If l_class <> "" Then
l_strSql = l_strSql & "WHERE CLASS = '" & l_class & "' " &_
" AND DEL_FLG = '0' "
If l_compname <> "" Then
l_strSql = l_strSql & "AND COMPANY_NAME_KANA LIKE '" & l_compname & "%'"
End If
ElseIf l_compname <> "" Then
l_strSql = l_strSql & "WHERE COMPANY_NAME_KANA LIKE '" & l_compname & "%'" &_
" AND DEL_FLG = '0' "
End If
l_strSql = l_strSql & " GROUP BY COMPANY_ID,COMPANY_NAME,COMPANY_NAME_KANA,CLASS"
Case 2
l_strSql = "SELECT COMPANY_ID, " &_
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -