📄 waredetailsmain.asp
字号:
<%
'/************************************
'/* 僔僗僥儉儊儞僥僫儞僗
'/* 憅屔夛幮搊榐儊僀儞僋儔僗
'/************************************
Class WareDetailsMain
Dim l_WareMdlObject
Dim l_DBObject
Dim l_Regist
Dim l_Cancel
Dim l_Update
Dim l_Ware
Dim l_CheckUtil
Dim l_CharUtil
Dim l_Basp
Dim l_ErrCnt,l_ErrArray(20)
'/********************************************
'/* 弶婜張棟
'/********************************************
Public Function Init()
Set l_WareMdlObject = New WareDetailsMdl
'DB僐僱僋僔儑儞庢摼
Set l_DBObject = New DbAccess
Call l_DBObject.ProcConnection(DSN,USERID,PASSWD)
Call l_CommonObject.SearchSession
'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
l_WareMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
l_WareMdlObject.l_CompanyId = Session("User").Item("COMPANY_ID")
l_WareMdlObject.l_UserName = Session("User").Item("NAME")
'慜夋柺儃僞儞墴壓忬嫷庢摼
l_Regist = Request.Form("regist")
l_Cancel = Request.Form("cancel")
l_Ware = Request.Form("ware")
l_Update = Request.QueryString("P1")
End Function
'/********************************************
'/* 擖椡僠僃僢僋仌夋柺忣曬庢摼
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function GetFormParam()
GetFormParam = true
'搊榐偡傞儃僞儞墴壓帪
If l_Wdm.l_Regist <> "" Then
'擖椡僠僃僢僋
Set l_CheckUtil = New CheckUtil
Set l_CharUtil = New CharUtil
Set l_Basp = Server.CreateObject("basp21")
l_ErrCnt = 0
'夛幮僠僃僢僋
If Request.Form("company_name") = "" Then
l_ErrArray(l_ErrCnt) = IG11049E
l_ErrCnt = l_ErrCnt + 1
End If
'夛幮(僇僞僇僫)僠僃僢僋
If Request.Form("company_name_kana") = "" Then
l_ErrArray(l_ErrCnt) = IG11050E
l_ErrCnt = l_ErrCnt + 1
End If
'嬈幰僐乕僪僠僃僢僋
If Request.Form("trader_id") = "" Then
l_ErrArray(l_ErrCnt) = IG11051E
l_ErrCnt = l_ErrCnt + 1
Else
If l_CheckUtil.number_chk(l_Basp,Request.Form("trader_id")) = 0 Then
l_ErrArray(l_ErrCnt) = IG11069E
l_ErrCnt = l_ErrCnt + 1
End If
End If
'僄儔乕桳柍敾掕
If l_ErrCnt > 0 then
Session("ErrMsg") = l_ErrArray
'Response.ReDirect "../error.asp"
ErrDisp()
GetFormParam = false
End If
'慜夋柺傛傝忣曬庢摼
l_WareMdlObject.l_CompanyName = l_CharUtil.chg_HantoZen(Request.Form("company_name"))
l_WareMdlObject.l_CompanyNameKana = l_CharUtil.chg_HantoZen(Request.Form("company_name_kana"))
l_WareMdlObject.l_TraderId = Request.Form("trader_id")
End If
'庢堷拞巭儃僞儞墴壓帪
If l_Wdm.l_Cancel <> "" Then
'慜夋柺傛傝晹栧ID庢摼
l_WareMdlObject.l_TraderId = Request.Form("trader_id")
'忬嫷庢摼
If Request.Form("status") = FLG_ON Then
'庢堷拞仺庢堷拞巭偵偡傞
l_WareMdlObject.l_Status = FLG_OFF
Else
'庢堷拞巭仺庢堷拞偵偡傞
l_WareMdlObject.l_Status = FLG_ON
End If
End If
End Function
'/********************************************
'/* 夛幮忣曬搊榐仌峏怴
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function WareDetailsUpdate()
WareDetailsUpdate = true
'憅屔夛幮懚嵼僠僃僢僋
If Not l_Wsm.CheckCompanyId(l_DBObject,l_WareMdlObject) Then
'憅屔夛幮憓擖
If Not l_Wsm.InsertCompany(l_DBObject,l_WareMdlObject) Then
l_ErrArray(l_ErrCnt) = IG11041E
l_ErrCnt = l_ErrCnt + 1
End If
Else
If l_Update = "UPDATE" Then
'峏怴帪
If Not l_Wsm.UpdateCompany(l_DBObject,l_WareMdlObject) Then
l_ErrArray(l_ErrCnt) = IG11042E
l_ErrCnt = l_ErrCnt + 1
End If
Else
l_ErrArray(l_ErrCnt) = IG11043E
l_ErrCnt = l_ErrCnt + 1
End If
End If
If l_ErrCnt > 0 Then
Session("ErrMsg") = l_ErrArray
'Response.ReDirect "../error.asp"
ErrDisp()
WareDetailsUpdate = false
End If
End Function
'/********************************************
'/* 夛幮忣曬庢堷拞巭
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function WareDetailsCancel()
WareDetailsCancel = true
'憅屔夛幮亅庢堷拞巭
If Not l_Wsm.CancelCompany(l_DBObject,l_WareMdlObject) Then
l_ErrCnt = l_ErrCnt + 1
l_ErrArray(l_ErrCnt) = IG11042E
End If
If l_ErrCnt > 0 Then
Session("ErrMsg") = l_ErrArray
'Response.ReDirect "../error.asp"
ErrDisp()
WareDetailsCancel = false
End If
End Function
'//=========================================
'//僄儔乕夋柺昞帵 5.17
'//=========================================
Public Function ErrDisp()
Dim l_errarray
Dim l_count
Dim l_cmn
Set l_cmn = New Common
l_errarray = Session("ErrMsg")
%>
<html>
<head>
<title>Win High-quality Service丂僄儔乕儊僢僙乕僕</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"><%=l_WareMdlObject.l_UserName%> 條丂[<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?P1=<%=Request.QueryString("P1")%>&P2=<%=Request.QueryString("P2")%>&P3=err">
<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="status" value="<%=Request.Form("status")%>">
<input type="hidden" name="company_name" value="<%=Request.Form("company_name")%>">
<input type="hidden" name="company_name_kana" value="<%=Request.Form("company_name_kana")%>">
<input type="hidden" name="trader_id" value="<%=Request.Form("trader_id")%>">
</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 WareDetailsMdl
Dim l_SystemId
Dim l_CompanyId
Dim l_UserName
'擖椡棑崁栚
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_TraderId
Dim l_LoginId
Dim l_Password
Dim l_Status
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -