?? employee.prg

?? 一個相當不錯的BS結構學習源碼
?? PRG
?? 第 1 頁 / 共 4 頁
字號:
     </table>
     <br>
     <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
     <tr><td colspan=3>
     <font color=white>
     <P ALIGN="CENTER">VFP 狐貍辦公信息管理系統(測試版)->員工信息管理系統->##TheMessage0##&nbsp[當前用戶-##xm##]
     </font></td></tr>
     <tr bgcolor=white >
     <td><a href="index.asp"><font color="#104DAD">返回到登錄網頁</font></a></td>
     <td align=center> <font color="#104DAD" >##TheMessage##</FONT></td>
     <td align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一級網頁</font></a></td>
     </tr></table> 
     <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
     <tr><td height="13"><img src="image\banner2.jpg" width="758" height="12"></td></tr></table>
     <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
     <tr><td><br>
     <table width=100% border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
     <tr><td><font color=white><P ALIGN=CENTER>##TheMessage##</font></td></tr>
     <tr bgcolor=white ><td  align=center>
     <table width=100% bgcolor=#164DA8 border=0  cellspacing=1 cellpadding=2 align=center>
     <tr><td><font color=white>登錄名</font></td>
     <td><font color=white>姓名</font></td>
     <td><font color=white>部門</font></td>
     <td><font color=white>內線</font></td>
     <td><font color=white>外線</font></td>
     <td><font color=white>個人電話</font></td>
     <td><font color=white>電子郵箱</font></td>
     <td><font color=white>QQ號</font></td></tr>
   ENDTEXT
   TEXT TO cHtmlEm1 TEXTMERGE noshow
          </table></td></tr></table>
          </td></tr></table>
          </body></html>
   ENDTEXT
  endif

     do case
        case allt(Pm1)="AllE" or allt(Pm1)="Departm" or allt(Pm1)="OneE"
             cHtml = cHtml + cHtmlEm + cHtmlEm1
        case allt(Pm1)="ModPer"
             cHtml = this.ModPerson(u1,p1)
        case allt(Pm1) = "Sysgl"
             cHtml = this.SystemEm(u1,p1,Pm7)
     otherwise
             cHtml = this.dlcw()
     endcase

   else
     use
     cHtml = this.dlcw()                                 &&  否則顯示出錯網頁
   endif

  RETURN cHtml
  ENDFUNC                         
*****************************************************************************************************************
	HIDDEN FUNCTION ModPerson(u1 as string, p1 as string) as String
	SET TEXTMERGE DELIMITERS TO "##","##"              &&  新的文本合并分隔符為 ## ##
        SET DELETED ON

	LOCAL cResult as String, xm
              cResult = ""

		IF !USED('userinfo')
		     USE userinfo IN 0
		ENDIF
		sele userinfo
                go top
                LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)        &&  查詢登錄人員
     		 if found()
                  xm = allt(user_name)                                             &&  姓名
                   
TEXT TO cResult TEXTMERGE noshow
    <HTML><HEAD><TITLE>修改個人信息</TITLE>
    <META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows"></HEAD>
    <BODY BGCOLOR="">
    <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
    <tr bgcolor=white><td valign=center ><img src="IMAGE\ASPLogo3.jpg" width=730 height=56></td></tr>
    </table>
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="758" height="12"></td></tr>
    </table><br>
    <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
    <tr><td colspan=3>
    <font color=white>
    <P ALIGN="CENTER">VFP 狐貍辦公信息管理系統(測試版)->員工信息管理系統->修改我的個人信息&nbsp[當前用戶-##xm##]
    </font></td></tr>
    <tr bgcolor=white >
    <td><a href="index.asp"><font color="#104DAD">返回到登錄網頁</font></a></td>
    <td  align=center> <font color="#104DAD">【##xm##】修改個人信息</FONT></td>
    <td  align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一級網頁</font></a></td>
    </tr></table> 
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr> 
    <td height="10" colspan="4" valign="top" bgcolor="#FFFFFF"> 
    <table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="760" height="12"></td></tr></table></td></tr></table><br>
    <FORM ACTION="ModifyPersonalInformation.asp" METHOD=POST>                            
    <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
    <TR VALIGN="center" ALIGN="center">
    <TD WIDTH=40% bgcolor=#B5C7EF><P><img src="IMAGE\Employee.jpg"></td><td><br>
    <table CELLPADDING=0 CELLSPACING=1 BORDER=0 align=center width=100%>
    <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##User_name## SIZE=41 MAXLENGTH=5 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp內線電話</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##telinside## SIZE=41 MAXLENGTH=3 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp外線電話</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##teloutside## SIZE=41 MAXLENGTH=7 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp個人電話</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##telephone## SIZE=41 MAXLENGTH=20 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp電子郵箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##EMAILDRESS## SIZE=41 MAXLENGTH=30 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbspQQ號</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##QQ## SIZE=41 MAXLENGTH=15 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp輸入新的口令</font></td><td><INPUT TYPE="Password" NAME="NewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp確認新的口令</font></td><td><INPUT TYPE="Password" NAME="SureNewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    </table><br></td></TR></table>
    <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=760 align=center>
    <TR VALIGN="top" ALIGN="center"><TD WIDTH=100% align=center >
    <INPUT TYPE="submit" NAME="Send" VALUE="確認修改個人信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
    </TD></TR></table></FORM></body></html>
ENDTEXT
            use
else
            use
            cResult = this.dlcw()
endif

     RETURN cResult
  ENDFUNC
*****************************************************************************************************************
	FUNCTION PerResult(u1 as string, p1 as string,Pm1 as String,Pm2 as String,Pm3 as String,Pm4 as String,Pm5 as String,Pm6 as String,Pm7 as String,Pm8 as String) as String
	SET TEXTMERGE DELIMITERS TO "##","##"              &&  新的文本合并分隔符為 ## ##
        SET DELETED ON

	LOCAL cResult as String, xm, TheMessage, LenAll
              cResult = ""

	IF !USED('userinfo')
	    USE userinfo IN 0
	ENDIF
	sele userinfo
        go top
        LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)
        LenAll = len(allt(Pm1))*len(allt(Pm2))*len(allt(Pm3))*len(allt(Pm4))*len(allt(Pm5))*len(allt(Pm6))
      
   if LenAll>0 and found()
       xm = allt(Pm1)
       repl  user_name with allt(Pm1),telinside with allt(Pm2),teloutside with allt(Pm3),;
             telephone with allt(Pm4),EMAILDRESS with allt(Pm5),qq with allt(Pm6)
             TheMessage = allt("【"+ xm +"】的個人信息修改成功")
       if len(allt(Pm7))+len(allt(Pm8))>0
           if allt(Pm7)==allt(Pm8)
                repl pass_word with allt(Pm8)
                TheMessage = TheMessage + "，修改口令成功，請重新登錄"
           else
                TheMessage = TheMessage + "，但新口令校驗不正確，口令未修改"
           endif
       else
                TheMessage = TheMessage + "，口令未修改"
       endif
    use
 
TEXT TO cResult TEXTMERGE noshow
    <HTML><HEAD><TITLE>修改個人信息</TITLE>
    <META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows"></HEAD>
    <BODY BGCOLOR="">
    <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
    <tr bgcolor=white><td valign=center ><img src="IMAGE\ASPLogo3.jpg" width=730 height=56></td></tr>
    </table>
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="758" height="12"></td></tr>
    </table><br>
    <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
    <tr><td colspan=3>
    <font color=white>
    <P ALIGN="CENTER">VFP 狐貍辦公信息管理系統(測試版)->員工信息管理系統->修改我的個人信息&nbsp[當前用戶-##xm##]
    </font></td></tr>
    <tr bgcolor=white >
    <td><a href="index.asp"><font color="#104DAD">返回到登錄網頁</font></a></td>
    <td  align=center> <font color="#104DAD">##TheMessage##</FONT></td>
    <td  align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一級網頁</font></a></td>
    </tr></table> 
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr> 
    <td height="10" colspan="4" valign="top" bgcolor="#FFFFFF"> 
    <table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="758" height="12"></td></tr></table></td></tr></table><br>
    <FORM ACTION="ModifyPersonalInformation.asp" METHOD=POST>                            
    <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
    <TR VALIGN="center" ALIGN="center">
    <TD WIDTH=40% bgcolor=#B5C7EF><P><img src="IMAGE\Employee.jpg"></td><td><br>
    <table CELLPADDING=0 CELLSPACING=1 BORDER=0 align=center width=100%>
    <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##Pm1## SIZE=41 MAXLENGTH=5 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp內線電話</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##Pm2## SIZE=41 MAXLENGTH=3 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp外線電話</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##Pm3## SIZE=41 MAXLENGTH=7 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp個人電話</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##Pm4## SIZE=41 MAXLENGTH=20 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp電子郵箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##Pm5## SIZE=41 MAXLENGTH=30 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbspQQ號</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##Pm6## SIZE=41 MAXLENGTH=15 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp輸入新的口令</font></td><td><INPUT TYPE="Password" NAME="NewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp確認新的口令</font></td><td><INPUT TYPE="Password" NAME="SureNewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    </table><br></td></TR></table>
    <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=760 align=center>
    <TR VALIGN="top" ALIGN="center"><TD WIDTH=100% align=center >
    <INPUT TYPE="submit" NAME="Send" VALUE="確認修改個人信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
    </TD></TR></table></FORM></body></html>
ENDTEXT

   else
      use
      cResult = this.dlcw() 
  endif

     RETURN cResult
  ENDFUNC
*******************************************************************************************************************		
  HIDDEN FUNCTION SystemEm(u1 as string, p1 as string,SysEm as String) as String       &&  登錄驗證函數
	SET TEXTMERGE DELIMITERS TO "##","##"               &&  新的文本合并分隔符為 ## ##
        SET DELETED ON

	LOCAL cHtml as String, xm, TheMessage
           cHtml = ""
         cHtmlEm = ""
        cHtmlEm0 = ""
        cHtmlEm1 = ""

	IF !USED('userinfo')
	    USE userinfo IN 0
	ENDIF
	sele userinfo
              do case
                 case allt(SysEm) = "User_id"
                       TheMessage = "所有員工信息按【登錄名】排序如下"
                 case allt(SysEm) = "User_Name"
                       TheMessage = "所有員工信息按【姓名】排序如下"
                 case allt(SysEm) = "Department"
                       TheMessage = "所有員工信息按【部門】排序如下"
                 otherwise
                    go top
                       LOCATE FOR allt(user_id)==ALLT(SysEm)
?? 文件大小 231 K
?? 上傳用戶 ZOUTING
?? 所屬分類書籍源碼
??? 相關標簽

#BS結構 #源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? employee.prg

?? 快捷鍵說明
