📄 ckwaredetailsmain.asp
字号:
<%
Class CkWareDetailsMain
Dim l_db
Dim l_cimdl
Dim l_chutil
'/********************************************
'/* 弶婜張棟
'/********************************************
Public Function Init()
'DB僐僱僋僔儑儞庢摼
Set l_db = New DbAccess
Call l_db.ProcConnection(DSN, USERID, PASSWD)
Set l_cimdl = New CompanyInfoMdl
Set l_chutil = New CharUtil
'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
l_cimdl.l_SystemId = Session("User").Item("SYSTEM_ID") '僔僗僥儉ID
l_cimdl.l_CompanyId = Session("User").Item("COMPANY_ID") '夛幮ID
l_cimdl.l_UserId = Session("User").Item("USER_ID") '儐乕僓ID
End Function
'/****************************************************************
'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
'/* return丗Scripting.Dictionary 昞帵儕僗僩(CompanyInfoMdl宆偺攝楍)
'/****************************************************************
Public Function UpdateList()
Dim l_cim
'僩儔儞僓僋僔儑儞奐巒
If Not l_db.ProcBeginTrans Then
'Response.Write "僩儔儞僓僋僔儑儞奐巒幐攕<br>"
End If
Set l_cim = New CompanyInfoMaster
If Not l_cim.UpdateSection(l_db,l_cimdl) Then
'Response.Write "峏怴幐攕<br>"
Else
'僩儔儞僓僋僔儑儞廔椆
l_db.ProcCommit
End If
End Function
'/********************************************
'/* 擖椡僨乕僞庢摼
'/********************************************
Public Function GetFormParam()
Dim l_objbasp
Set l_objbasp = Server.CreateObject("basp21")
'搊榐偡傞儃僞儞墴壓帪
'慜夋柺傛傝忣曬庢摼
l_cimdl.l_PostCode1 = Request.Form("postcode1")
l_cimdl.l_PostCode2 = Request.Form("postcode2")
l_cimdl.l_PostCode = Request.Form("postcode1") & "-" & Request.Form("postcode2")
l_cimdl.l_Prefecture = Request.Form("prefecture")
l_cimdl.l_Town = l_chutil.Asc_chk(Request.Form("town"),4)
l_cimdl.l_HouseNumber = l_chutil.Asc_chk(Request.Form("House_Number"),4)
l_cimdl.l_Building = l_chutil.Asc_chk(Request.Form("building"),4)
l_cimdl.l_CompanyName = l_chutil.Asc_chk(Request.Form("companyname"),4)
l_cimdl.l_CompanyNameKana = l_chutil.Asc_chk(Request.Form("companyname_kana"),4)
'l_cimdl.l_CompanyNameKana = Request.Form("companyname_kana")
l_cimdl.l_SectionName = l_chutil.Asc_chk(Request.Form("sectionname"),4)
l_cimdl.l_Person = l_chutil.Asc_chk(Request.Form("person"),4)
l_cimdl.l_Tel = Request.Form("tel")
l_cimdl.l_Fax = Request.Form("fax")
l_cimdl.l_Mail = l_chutil.kinsoku_chg(l_objbasp,Request.Form("Mail"))
l_cimdl.l_ReMail = l_chutil.kinsoku_chg(l_objbasp,Request.Form("ReMail"))
l_cimdl.l_LoginId = Request.Form("loginId")
l_cimdl.l_Password = Request.Form("password")
End Function
'/********************************************
'/* 僄儔乕僠僃僢僋
'/********************************************
Public Function CheckInput(l_inmdl)
Dim l_ckutil
Dim l_msgarray(20)
Dim l_element
Set l_ckutil = New CheckUtil
CheckInput = True
l_element = 0
'梄曋斣崋僠僃僢僋
If l_inmdl.l_PostCode1 <> "" and l_inmdl.l_PostCode2 <> "" Then
If Not l_ckutil.Zip_chk(l_inmdl.l_PostCode) Then
l_msgarray(l_element) = IG11007E
l_element = l_element + 1
CheckInput = false
End If
Else
l_msgarray(l_element) = IG11006E
l_element = l_element + 1
CheckInput = false
End If
'搒摴晎導僠僃僢僋
If l_inmdl.l_Prefecture = "慖戰偟偰偔偩偝偄" Then
l_msgarray(l_element) = IG11008E
l_element = l_element + 1
CheckInput = false
End If
'巗挰懞僠僃僢僋
If Not l_inmdl.l_Town <> "" Then
l_msgarray(l_element) = IG11009E
l_element = l_element + 1
CheckInput = false
End If
'斣抧僠僃僢僋
If Not l_inmdl.l_HouseNumber <> "" Then
l_msgarray(l_element) = IG11010E
l_element = l_element + 1
CheckInput = false
End If
'夛幮柤僠僃僢僋
If Not l_inmdl.l_CompanyName <> "" Then
l_msgarray(l_element) = IG11011E
l_element = l_element + 1
CheckInput = false
End If
'夛幮柤乮僇僫乯僠僃僢僋
If Not l_inmdl.l_CompanyNameKana <> "" Then
l_msgarray(l_element) = IG11032E
l_element = l_element + 1
CheckInput = false
End If
'扴摉幰僠僃僢僋
If Not l_inmdl.l_Person <> "" Then
l_msgarray(l_element) = IG11033E
l_element = l_element + 1
CheckInput = false
End If
'Tel僠僃僢僋
If l_inmdl.l_Tel <> "" Then
If Not l_ckutil.Tel_chk(l_inmdl.l_Tel) Then
l_msgarray(l_element) = IG11014E
l_element = l_element + 1
CheckInput = false
End If
Else
l_msgarray(l_element) = IG11013E
l_element = l_element + 1
CheckInput = false
End If
'Fax僠僃僢僋
If l_inmdl.l_Fax <> "" Then
If Not l_ckutil.Tel_chk(l_inmdl.l_Fax) Then
l_msgarray(l_element) = IG11035E
l_element = l_element + 1
CheckInput = false
End If
End If
'儊乕儖傾僪儗僗僠僃僢僋
If l_inmdl.l_Mail <> "" and l_inmdl.l_Remail <> "" Then
If Not l_ckutil.email_chk(l_inmdl.l_Mail) Then
l_msgarray(l_element) = IG11015E
l_element = l_element + 1
CheckInput = false
Else
If l_inmdl.l_Mail <> l_inmdl.l_ReMail Then
l_msgarray(l_element) = IG11016E
l_element = l_element + 1
CheckInput = false
End If
End If
Else
l_msgarray(l_element) = IG11034E
l_element = l_element + 1
CheckInput = false
End If
ReDim l_remsgarray(l_element)
Dim l_count
For l_count = 0 to l_element
l_remsgarray(l_count) = l_msgarray(l_count)
Next
Session("ErrMsg") = l_remsgarray
End Function
'/********************************************
'/* 僄儔乕夋柺昞帵 5.17
'/********************************************
Public Function ErrDisp()
Dim l_errarray
Dim l_count
l_errarray = Session("ErrMsg")
%>
<html>
<head>
<title>憅屔夛幮丂僄儔乕儊僢僙乕僕</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<script language="JavaScript1.2" src="../js/wakasu.js"></script>
<link rel="stylesheet" href="../css/wakasu.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" onLoad="MM_preloadImages('menu/img/menu_home_f2.gif','img/common/button_search_f2.gif','img/common/button_details_f2.gif','img/common/button_select_f2.gif','img/common/button_next_f2.gif','img/common/button_back_f2.gif','img/common/button_form_f2.gif','img/common/button_auction_f2.gif')" leftmargin="0" topmargin="0">
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2" width="300" bgcolor="#EEEEEE"><a href="../menu/top.asp"><img src="../menu/img/logo.gif" width="300" height="55" alt="Win High-quality Service" border="0"></a></td>
<td background="../menu/img/heder.gif">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="350" class="txt_m"></td>
<td class="txt_m" align="right">
<b><font color="#FFFFFF"><%=l_cmn.GetDispTime%></font></b>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#0066CC">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#0066CC">
<tr>
<td width="8"> </td>
<td width="41"><font color="#0066CC"><a href="../menu/top.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','../menu/img/menu_home_f2.gif',1)"><img name="Image3" border="0" src="../menu/img/menu_home.gif" width="41" height="21" alt="Home傊"></a></font></td>
<td> </td>
<td width="37"><font color="#0066CC"></font></td>
<td width="58"><font color="#0066CC"></font></td>
<td width="78"><font color="#0066CC"><a href="../contact.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image6','','../menu/img/menu_contactus_f2.gif',1)" target="_brank"><img name="Image6" border="0" src="../menu/img/menu_contactus.gif" width="78" height="21" alt="偍栤崌偣傊"></a></font></td>
<td width="10"><font color="#0066CC"><img src="../menu/img/menu_bar.gif" width="2" height="21"></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" background="img/header_line.gif"><img src="../img/common/spacer.gif" width="1" height="3"></td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#F4F2E1" height="24" width="140"><img src="../img/common/spacer.gif" width="140" height="8"></td>
<td bgcolor="#F4F2E1" height="24"> </td>
<td bgcolor="#F4F2E1" height="24" class="txt_m">
<div align="right" class="txt_s"><%=Session("User").Item("NAME")%> 條丂[<a class="menu" href="../user_logout.asp?out=on">儘僌傾僂僩</a>] </div>
</td>
</tr>
<tr>
<td width="140" bgcolor="#F4F2E1"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td bgcolor="#0066CC" colspan="2"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#F4F2E1" valign="top" align="center" background="menu/../img/left_back.gif" rowspan="2">
<table width="140" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td class="txt_s" align="center"><script src=https://seal.verisign.com/getseal?host_name=sv1.eprex-four.net&size=M&use_flash=NO&use_transparent=YES&lang=ja></script><br>
摉僒僀僩偱偼丄128價僢僩SSL埫崋壔捠怣偵傛傝丄偍媞條偺忣曬傪曐岇偟偰偍傝傑偡丅</td>
</tr>
<tr>
<td align="center"> </td>
</tr>
<tr>
<td class="txt_s" align="center"><a href="http://www.microsoft.com/windows/ie_intl/ja/default.mspx" target="_blank"><img src="../img/common/ie.gif" width="88" height="31" border="0" alt="Microsoft幮傊"><br>
偙偺儁乕僕偼Microsoft IE偵嵟揔壔偟偰偮偔傜傟偰偄傑偡丅僶僫乕傪僋儕僢僋偟偰丄嵟怴偺僽儔僂僓傪 僟僂儞儘乕僪偟偰偔偩偝偄丅</a></td>
</tr>
<tr>
<td class="txt_s"> </td>
</tr>
</table>
</td>
<td width="20"> </td>
<td> </td>
</tr>
<tr>
<td width="20"> </td>
<td valign="top">
<form name="form1" method="post" action="ware_details.asp">
<table width="610" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="../img/common/keyword_top600.gif" width="610" height="8"></td>
</tr>
<tr>
<td bgcolor="#555555"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td width="608" bgcolor="#F4F2E1">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr><td class="txt_l" align="center"><b><p>僄儔乕儊僢僙乕僕</p></b></td></tr>
<tr><td class="txt_m" align="center"> </td></tr>
<tr>
<td class="txt_m" align="center">
<% If IsArray(l_errarray) Then
For l_count = 0 to UBound(l_errarray) - 1
If l_errarray(l_count) = "" Then
Exit For
End If
%> <font color="red"><%=l_errarray(l_count)%></font><br>
<% Next
End If
%> <br>
<input type="submit" value="<< 栠丂傞">
</td>
</tr>
<tr>
<td class="txt_m" width="10"> </td>
</tr>
</table>
</td>
<td bgcolor="#555555"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td colspan="3"><img src="../img/common/keyword_bottom600.gif" width="610" height="9"></td>
</tr>
</table>
<input type="hidden" name="postcode1" value="<%=Request.Form("postcode1")%>">
<input type="hidden" name="postcode2" value="<%=Request.Form("postcode2")%>">
<input type="hidden" name="prefecture" value="<%=Request.Form("prefecture")%>">
<input type="hidden" name="town" value="<%=Request.Form("town")%>">
<input type="hidden" name="house_number" value="<%=Request.Form("house_number")%>">
<input type="hidden" name="building" value="<%=Request.Form("building")%>">
<input type="hidden" name="companyname" value="<%=Request.Form("companyname")%>">
<input type="hidden" name="companyname_kana" value="<%=Request.Form("companyname_kana")%>">
<input type="hidden" name="sectionname" value="<%=Request.Form("sectionname")%>">
<input type="hidden" name="person" value="<%=Request.Form("person")%>">
<input type="hidden" name="tel" value="<%=Request.Form("tel")%>">
<input type="hidden" name="fax" value="<%=Request.Form("fax")%>">
<input type="hidden" name="mail" value="<%=Request.Form("mail")%>">
<input type="hidden" name="remail" value="<%=Request.Form("remail")%>">
<input type="hidden" name="loginId" value="<%=Request.Form("loginId")%>">
<input type="hidden" name="password" value="<%=Request.Form("password")%>">
<input type="hidden" name="P1" value="err">
</form>
</td>
</tr>
<tr>
<td valign="top" align="right" bgcolor="#0066CC"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td width="20"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td valign="top"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="50">
<div align="center" class="txt_s"></div>
</td>
<td height="50"> </td>
<td class="txt_s" height="50" align="center">
<p> </p>
<p>乥 <a href="../menu/top.asp">Home</a> 乥 <a href="../contact.html">偍栤崌偣</a>
乥</p>
<p>™ EPREX<br>
Copyright (C) 2004 IFIS Japan Corporation. All Rights Reserved. </p>
</td>
</tr>
</table>
</body>
</html>
<%
Session.Contents.Remove("ErrMsg")
End Function
End Class
'/******************************************************
'/(徻嵶忣曬昞帵梡儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class CompanyInfoMdl
Dim l_SystemId
Dim l_CompanyId
Dim l_UserId
'擖椡棑崁栚
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 + -