📄 userdetailsmain.asp
字号:
<%
Class UserDetailsMain
Dim l_UserMdlObject
Dim l_DBObject
Dim l_Regist
Dim l_Delete
Dim l_Update
Dim l_Section
Dim l_CheckUtil
Dim l_CharUtil
Dim l_Basp
Dim l_ErrCnt,l_ErrArray(10)
'/********************************************
'/* 弶婜張棟
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function Init()
Set l_UserMdlObject = New UserDetailsMdl
'DB僐僱僋僔儑儞庢摼
Set l_DBObject = New DbAccess
Call l_DBObject.ProcConnection(DSN,USERID,PASSWD)
Set l_CheckUtil = New CheckUtil
Set l_CharUtil = New CharUtil
Set l_Basp = Server.CreateObject("basp21")
Call l_CommonObject.SearchSession()
'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
l_UserMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
'l_UserMdlObject.l_CompanyId = Session("User").Item("COMPANY_ID")
l_UserMdlObject.l_CompanyId = l_CommonObject.GetCustomerCompIdRec(l_DBObject,l_UserMdlObject.l_SystemId)
l_UserMdlObject.l_UserName = Session("User").Item("NAME")
'慜夋柺儃僞儞墴壓忬嫷庢摼
l_Regist = Request.Form("regist")
l_Delete = Request.Form("del")
l_Section = Request.Form("section")
l_Update = Request.QueryString("P1")
End Function
'/********************************************
'/* 擖椡僠僃僢僋仌夋柺忣曬庢摼
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function GetFormParam()
l_UserMdlObject.l_Param1 = Request.QueryString("P1")
l_UserMdlObject.l_Param2 = Request.QueryString("P2")
l_UserMdlObject.l_Param3 = Request.QueryString("P3")
l_UserMdlObject.l_Param4 = Request.QueryString("P4")
l_UserMdlObject.l_SectionId = Request.Form("section_id")
GetFormParam = true
'搊榐偡傞儃僞儞墴壓帪
If l_Regist <> "" Then
'擖椡僠僃僢僋
l_ErrCnt = 0
'幮堳ID僠僃僢僋
If Request.Form("employee_id") <> "" Then
If l_CheckUtil.number_chk(l_Basp,Request.Form("employee_id")) = 0 Then
l_ErrArray(l_ErrCnt) = IG11046E
l_ErrCnt = l_ErrCnt + 1
End If
End If
'儐乕僓柤僠僃僢僋
If Request.Form("name") = "" Then
l_ErrArray(l_ErrCnt) = IG11047E
l_ErrCnt = l_ErrCnt + 1
End If
'儐乕僓柤(僇僞僇僫)僠僃僢僋
If Request.Form("name_kana") = "" Then
l_ErrArray(l_ErrCnt) = IG11048E
l_ErrCnt = l_ErrCnt + 1
End If
'儊乕儖傾僪儗僗僠僃僢僋
If Request.Form("mail") = "" Then
'l_ErrArray(l_ErrCnt) = IG11034E
'l_ErrCnt = l_ErrCnt + 1
If Request.Form("mail") <> Request.Form("remail") Then
l_ErrArray(l_ErrCnt) = IG11016E
l_ErrCnt = l_ErrCnt + 1
End If
Else
If Not l_CheckUtil.email_chk(Request.Form("mail")) Then
l_ErrArray(l_ErrCnt) = IG11015E
l_ErrCnt = l_ErrCnt + 1
Else
If Request.Form("mail") <> Request.Form("remail") Then
l_ErrArray(l_ErrCnt) = IG11016E
l_ErrCnt = l_ErrCnt + 1
End If
End If
End If
'ID僠僃僢僋
If Request.Form("login_id") = "" Then
l_ErrArray(l_ErrCnt) = IG11052E
l_ErrCnt = l_ErrCnt + 1
End If
'僄儔乕桳柍敾掕
If l_ErrCnt > 0 then
Session("ErrMsg") = l_ErrArray
'Response.ReDirect "../error.asp"
'5.16
ErrDisp()
GetFormParam = false
End If
'慜夋柺傛傝忣曬庢摼
l_UserMdlObject.l_RecogAuth = Request.Form("recog_auth")
If l_UserMdlObject.l_RecogAuth = "" Then
l_UserMdlObject.l_RecogAuth = "0"
End If
l_UserMdlObject.l_EmployeeId = Request.Form("employee_id")
l_UserMdlObject.l_Name = l_CharUtil.chg_HantoZen(Request.Form("name"))
l_UserMdlObject.l_NameKana = l_CharUtil.chg_HantoZen(Request.Form("name_kana"))
l_UserMdlObject.l_Mail = Request.Form("mail")
l_UserMdlObject.l_ReMail = Request.Form("remail")
l_UserMdlObject.l_UserId = Request.Form("login_id")
l_UserMdlObject.l_Password = Request.Form("password")
End If
'嶍彍儃僞儞墴壓帪
If l_Udm.l_Delete <> "" Then
'慜夋柺傛傝晹栧ID庢摼
l_UserMdlObject.l_UserId = Request.Form("login_id")
End If
End Function
'/********************************************
'/* 儐乕僓乕忣曬搊榐仌峏怴
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function UserDetailsUpdate()
UserDetailsUpdate = true
'怴婯搊榐偺応崌
If l_Update = "NEW" Then
'儐乕僓懚嵼僠僃僢僋
If Not l_Um.CheckUser(l_DBObject,l_UserMdlObject) Then
'儐乕僓憓擖
If Not l_Um.InsertUser(l_DBObject,l_UserMdlObject) Then
l_ErrArray(l_ErrCnt) = IG11041E
l_ErrCnt = l_ErrCnt + 1
End If
Else
l_ErrArray(l_ErrCnt) = IG11043E
l_ErrCnt = l_ErrCnt + 1
End If
Else
If l_Update = "UPDATE" Then
'峏怴帪
If Not l_Um.UpdateUser(l_DBObject,l_UserMdlObject) 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"
'5.16
ErrDisp()
UserDetailsUpdate = false
End If
End Function
'/********************************************
'/* 儐乕僓乕忣曬嶍彍
'/* param丗側偟
'/* return丗側偟
'/********************************************
Public Function UserDetailsDelete()
UserDetailsDelete = true
'儐乕僓ID懚嵼僠僃僢僋
If l_Um.CheckUser(l_DBObject,l_UserMdlObject) Then
'儐乕僓嶍彍
If Not l_Um.DeleteUser(l_DBObject,l_UserMdlObject) Then
l_ErrArray(l_ErrCnt) = IG11044E
l_ErrCnt = l_ErrCnt + 1
End If
Else
l_ErrArray(l_ErrCnt) = IG11045E
l_ErrCnt = l_ErrCnt + 1
End If
If l_ErrCnt > 0 Then
Session("ErrMsg") = l_ErrArray
'Response.ReDirect "../error.asp"
'5.16
ErrDisp()
UserDetailsDelete = false
End If
End Function
'//=========================================
'//僄儔乕夋柺昞帵 5.16
'//=========================================
Public Function ErrDisp()
Dim l_errarray
Dim l_count
Dim l_cmn
'-----擖椡抣
Dim l_section_id
Dim l_recog_auth
Dim l_employee_id
Dim l_name
Dim l_name_kana
Dim l_mail
Dim l_remail
Dim l_login_id
Dim l_password
Set l_cmn = New Common
l_errarray = Session("ErrMsg")
'擖椡抣庢摼
l_section_id = Request.Form("section_id")
l_recog_auth = Request.Form("recog_auth")
l_employee_id = Replace(l_CharUtil.html_chg(l_Basp,Request.Form("employee_id")),"""",""")
l_name = l_CharUtil.Asc_chk(Request.Form("name"),4)
l_name_kana = l_CharUtil.Asc_chk(Request.Form("name_kana"),4)
l_mail = Replace(l_CharUtil.html_chg(l_Basp,Request.Form("mail")),"""",""")
l_remail = Replace(l_CharUtil.html_chg(l_Basp,Request.Form("remail")),"""",""")
l_login_id = Replace(l_CharUtil.html_chg(l_Basp,Request.Form("login_id")),"""",""")
l_password = Replace(l_CharUtil.html_chg(l_Basp,Request.Form("password")),"""",""")
%>
<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"><%=l_UserMdlObject.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="user_details.asp?P1=<%=Request.QueryString("P1")%>&P2=<%=Request.QueryString("P2")%>&P3=<%=Request.QueryString("P3")%>&P4=<%=Request.QueryString("P4")%>&P5=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="section_id" value="<%=l_section_id%>">
<input type="hidden" name="recog_auth" value="<%=l_recog_auth%>">
<input type="hidden" name="employee_id" value="<%=l_employee_id%>">
<input type="hidden" name="name" value="<%=l_name%>">
<input type="hidden" name="name_kana" value="<%=l_name_kana%>">
<input type="hidden" name="mail" value="<%=l_mail%>">
<input type="hidden" name="remail" value="<%=l_remail%>">
<input type="hidden" name="login_id" value="<%=l_login_id%>">
<input type="hidden" name="password" value="<%=l_password%>">
</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 UserDetailsMdl
Dim l_SystemId
Dim l_CompanyId
Dim l_UserName
'擖椡棑崁栚
Dim l_SectionId
Dim l_RecogAuth
Dim l_EmployeeId
Dim l_Name
Dim l_NameKana
Dim l_Mail
Dim l_ReMail
Dim l_UserId
Dim l_Password
Dim l_Param1
Dim l_Param2
Dim l_Param3
Dim l_Param4
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -