?? employee.prg

?? 一個相當不錯的BS結構學習源碼
?? PRG
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34

             TheMessage = allt("【"+ allt(Pm2) +"】的個人信息修改成功")

          if allt(u1) = allt(Pm1)
             TheMessage = allt(TheMessage+"，如果更新了口令，請重新登錄")
          endif

 		IF !USED('departments')          && 部門數據
		     USE departments IN 0
		ENDIF
		sele departments
                go top
                  Do while not EOF()
                       TEXT TO cDepart0 TEXTMERGE noshow
                           <option value=##department##>##department##</option>
                       ENDTEXT
                       cDepart = cDepart + cDepart0
                  skip
                  Enddo
                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">員工信息查詢->系統管理員選項->修改某個員工信息&nbsp[當前用戶-##xm##]</font></td></tr>
   <tr bgcolor=white>
   <td><a href="index.asp"><font color="#164DA8">返回到登錄頁面</font></a></td>
   <td align=center> <font color="#164DA8" >##TheMessage##</FONT></td>
   <td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一級網頁</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>
   <FORM ACTION="ModifyUserInformation.asp"  METHOD=POST>     
   <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
   <TR VALIGN="center" ALIGN="center">
   <TD WIDTH=30% bgcolor=#B5C7EF><img src="image\Employee.jpg"></td><td><br>
   <table CELLPADDING=0 CELLSPACING=1 BORDER=1 align=center width=100%>
   <tr><td width=25%><font color="#164DA8">&nbsp登錄名</font></td><td>##Pm1##</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##Pm2## SIZE=51 MAXLENGTH=5 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp部門</font></td>
   <td><SELECT NAME="DepartName" size=1 width=10>
   <option value=##Pm3##>##Pm3##</option>
ENDTEXT
TEXT TO cResult1 TEXTMERGE noshow
   </SELECT>&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp內線電話</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##Pm4## SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp外線電話</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##Pm5## SIZE=51 MAXLENGTH=7 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp個人電話</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##Pm6## SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbspQQ號</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##Pm7## SIZE=51 MAXLENGTH=15 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp電子郵箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##Pm8## SIZE=51 MAXLENGTH=30 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp口令(1--8字符)</font></td><td><INPUT TYPE="password" NAME="Pw" VALUE=##Pm9## SIZE=51 MAXLENGTH=8 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp權限</font></td><td><INPUT TYPE="text" NAME="Qx" VALUE=##Pm10## SIZE=51 MAXLENGTH=20 >&nbsp*</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="ModUsrInfo" VALUE="確認修改此用戶信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
   </TD></TR></table></FORM></body></html>
ENDTEXT
    cResult = cResult + cDepart + cResult1

else
    use
    cResult = this.dlcw()
endif
    RETURN cResult
ENDFUNC
***********************************************************************************************
   FUNCTION AddUsr(u1 as string, P1 as String, Pm1 as string) as String
	SET TEXTMERGE DELIMITERS TO "##","##"
	LOCAL cResult as String, cResult1 as String, cDepart as String, cDepart0 as String, xm
           cDepart  = ""

		IF !USED('departments')          && 部門數據
		     USE departments IN 0
		ENDIF
		sele departments
                go top
                  Do while not EOF()
                       TEXT TO cDepart0 TEXTMERGE noshow
                           <option value=##department##>##department##</option>
                       ENDTEXT
                       cDepart = cDepart + cDepart0
                  skip
                  Enddo
                use

   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)
   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">員工信息查詢->系統管理員選項->修改某個員工信息&nbsp[當前用戶-##xm##]</font></td></tr>
   <tr bgcolor=white>
   <td><a href="index.asp"><font color="#164DA8">返回到登錄頁面</font></a></td>
   <td align=center> <font color="#164DA8" >##Pm1##</FONT></td>
   <td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一級網頁</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>
   <FORM ACTION="AddNewUser.asp"  METHOD=POST>     
   <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
   <TR VALIGN="center" ALIGN="center">
   <TD WIDTH=30% bgcolor=#B5C7EF><img src="image\Employee.jpg"></td><td><br>
   <table CELLPADDING=0 CELLSPACING=1 BORDER=1 align=center width=100%>
   <tr><td width=25%><font color="#164DA8">&nbsp登錄名</font></td><td><INPUT TYPE="text" NAME="UsrID" VALUE="" SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE="" SIZE=51 MAXLENGTH=5 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp部門</font></td>
   <td><SELECT NAME="DepartName" size=1 width=10>
ENDTEXT
TEXT TO cResult1 TEXTMERGE noshow
   </SELECT>&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp內線電話</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE="" SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp外線電話</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE="" SIZE=51 MAXLENGTH=7 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp個人電話</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE="" SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbspQQ號</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE="" SIZE=51 MAXLENGTH=15 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp電子郵箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE="" SIZE=51 MAXLENGTH=30 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp口令(1--8字符)</font></td><td><INPUT TYPE="password" NAME="Pw" VALUE="" SIZE=51 MAXLENGTH=8 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp權限</font></td><td><INPUT TYPE="text" NAME="Qx" VALUE="" SIZE=51 MAXLENGTH=20 >&nbsp*</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="ModUsrInfo" VALUE="確認添加的新用戶信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
   </TD></TR></table></FORM></body></html>
ENDTEXT
    cResult = cResult + cDepart + cResult1
else
  use
    cResult = this.dlcw()
endif

    RETURN cResult
ENDFUNC
**********************************************************************************************************
 FUNCTION AddUsrProc(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,Pm9 as String,Pm10 as String) as String
	SET TEXTMERGE DELIMITERS TO "##","##"
        SET DELETED ON
	LOCAL cResult as String 

LenAll = len(allt(Pm1))*len(allt(Pm2))*len(allt(Pm3))*len(allt(Pm4))*len(allt(Pm5))*len(allt(Pm6))*len(allt(Pm7))*len(allt(Pm8))*len(allt(Pm9))*len(allt(Pm10))

	IF !USED('userinfo')
	    USE userinfo IN 0
	ENDIF
	sele userinfo
        go top
        LOCATE FOR allt(user_id)==ALLT(Pm1)
            if found()
               TheMessage = "登錄名【"+allt(Pm1)+"】已經分配給【"+allt(user_name)+"】，不能重復，請在下面繼續"
                  cResult = this.AddUsr(u1,p1,TheMessage)
               use
            else
                 if LenAll = 0
                    use
                    cResult = this.dlcw()
                 else
                    go top
                    LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)
                    appe blan
                    go bott
                    repl  user_id with allt(Pm1),user_name with allt(Pm2),department with allt(Pm3),;
                          telinside with allt(Pm4),teloutside with allt(Pm5),telephone with allt(Pm6),;
                          qq with allt(Pm7),EMAILDRESS with allt(Pm8),pass_word with allt(Pm9),user_power with allt(Pm10)
                    use
                    TheMessage = "登錄名為【"+allt(Pm1)+"】，姓名為【"+allt(Pm2)+"】的員工信息添加成功，可以繼續"
                    cResult = this.AddUsr(u1,p1,TheMessage)
                 endif
            endif

      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()
          cResult = this.dlcw()
      endif
      use

  RETURN cResult
  ENDFUNC
**********************************************************************************************************
    HIDDEN FUNCTION dlcw() as String              &&  出錯網頁函數，外部不可見
    LOCAL cResult
    TEXT TO cResult TEXTMERGE noshow
	<html>
	<head></head>
	<body>
	<p align="center"><font color="#FF0000" size="6">本次操作失敗！</font></p>
	<p></p>
	<p align="left"><font color="#FF00FF">原因可能是：</font></p>
	<ul>
	<li><p style="line-height: 160%"><font color="#FF00FF">您沒有輸入所有必須輸入的數據</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您沒有選擇必須選擇的項目</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">數據庫出錯或鏈結錯誤</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您沒有該項操作的權限</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">會話超時，請重新登錄</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您沒有正常登錄系統</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">服務器未啟動或出錯</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">找不到相應的頁面</font></li>
	</ul>
	<p></p>
	<p align="center"><font color="#FF00FF">如果重新登錄，請注意用戶名及口令的大小寫！</font></p>
	<p></p><p></p>
	<div align="center"><a href="javascript:history.back()">返回上一頁面</a>&nbsp&nbsp&nbsp&nbsp<a href="index.asp">返回登錄頁面</a></div>
	</body>
	</html>
     ENDTEXT

    RETURN cResult
ENDFUNC
**************************************************************************************

ENDDEFINE
上一頁 1 2 34
?? 文件大小 231 K
?? 上傳用戶 ZOUTING
?? 所屬分類書籍源碼
??? 相關標簽

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

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

?? employee.prg

?? 快捷鍵說明
