⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 userdetailsmain.asp

📁 印刷物の発注、在庫管理、出庫処理を一元管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
		
		Dim l_sectionid
		Dim l_recgauth
		Dim l_employeeid
		Dim l_name
		Dim l_namekana
		Dim l_mail
		Dim l_remail
		Dim l_loginid
		Dim l_password
		
		Set l_cmn = New Common
		l_errarray = Session("ErrMsg")

		l_sectionid = Request.Form("section_id")
		l_recgauth = Request.Form("recog_auth")
		l_employeeid = Request.Form("employee_id")
		l_name = Request.Form("name")
		l_namekana = Request.Form("name_kana")
		l_mail = Request.Form("mail")
		l_remail = Request.Form("remail")
		l_loginid = Request.Form("login_id")
		l_password = Request.Form("password")
		
		l_recgauth = Replace(l_CharUtil.html_chg(l_Basp,l_recgauth),"""",""")
		l_employeeid = Replace(l_CharUtil.html_chg(l_Basp,l_employeeid),"""",""")
		l_name = l_CharUtil.chg_HantoZen(l_name)
		l_namekana = l_CharUtil.chg_HantoZen(l_namekana)
		l_mail = Replace(l_CharUtil.html_chg(l_Basp,l_mail),"""",""")
		l_remail = Replace(l_CharUtil.html_chg(l_Basp,l_remail),"""",""")
		l_loginid = Replace(l_CharUtil.html_chg(l_Basp,l_loginid),"""",""")
		l_password = Replace(l_CharUtil.html_chg(l_Basp,l_password),"""",""")

%>
		<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">&nbsp;</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>&nbsp;</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">&nbsp;</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>]&nbsp;&nbsp;</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">&nbsp;</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">&nbsp;</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">&nbsp;</td>
				</tr>
			  </table>
			</td>
			<td width="20">&nbsp;</td>
			<td>&nbsp;</td>
		  </tr>
		  <tr> 
			<td width="20">&nbsp;</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">&nbsp;</td></tr>
						<tr>
						  <td class="txt_m" align="center"> 
<%	If IsArray(l_errarray) Then
		For l_count = 0 to UBound(l_errarray)
			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="&lt;&lt; 栠丂傞">
					  </td>
					</tr>
					<tr>
					  <td class="txt_m" width="10">&nbsp;</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_sectionid%>">
			  <input type="hidden" name="recog_auth" value="<%=l_recgauth%>">
			  <input type="hidden" name="employee_id" value="<%=l_employeeid%>">
			  <input type="hidden" name="name" value="<%=l_name%>">
			  <input type="hidden" name="name_kana" value="<%=l_namekana%>">
			  <input type="hidden" name="mail" value="<%=l_mail%>">
			  <input type="hidden" name="remail" value="<%=l_remail%>">
			  <input type="hidden" name="login_id" value="<%=l_loginid%>">
			  <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">&nbsp;</td>
			<td class="txt_s" height="50" align="center"> 
			  <p>&nbsp;</p>
			  <p>乥 <a href="../menu/top.asp">Home</a>  乥 <a href="../contact.html">偍栤崌偣</a>  
				乥</p>
			  <p>&#153; Win High-quality Service<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 + -