adminview.asp

一个比较完整的企业erp系统

						  <select name = 'Marital' size = '1'>
				            <option value = '0' <%=v1v2(AMarital,0," style = 'color:red;' selected = 'selected' ","")%>>已婚</option>
							<option value = '1' <%=v1v2(AMarital,1," style = 'color:red;' selected = 'selected' ","")%>>未婚</option>
							<option value = '2' <%=v1v2(AMarital,2," style = 'color:red;' selected = 'selected' ","")%>>保密</option>
					      </select></td>
				        <td style = 'text-align:right;width:40px;'>姓别&nbsp;</td>
				        <td style = 'text-align:left;width:auto;'>
						  <select name = 'Sex' size = '1'>
				            <option value = '0' <%=v1v2(ASex,0," style = 'color:red;' selected = 'selected' ","")%>>女</option>
							<option value = '1' <%=v1v2(ASex,1," style = 'color:red;' selected = 'selected' ","")%>>男</option>
							<option value = '2' <%=v1v2(ASex,2," style = 'color:red;' selected = 'selected' ","")%>>密</option>
					      </select></td>
					  </tr>
				   </table></td>
				   <td style = 'text-align:right;'>学位</td>
				   <td><input type="text" name="PassDegree" style = 'width:100%;'value='<%=c01.HtmlF(APassDegree)%>'/></td>
				 </tr>
                 <tr>
				   <td style = 'text-align:right;'>备　　注</td>
				   <td colspan = '5'><textarea name="Remark" style = 'width:100%;height:50px;overflow-x:hidden;overflow-y:auto;'><%=c01.HtmlF(ARemark)%></textarea></td>
				 </tr>

                 <tr>
				   <td style = 'text-align:right;'>是否可用</td>
				   <td colspan = '5'>
				       <table border = '0' style = 'width:100%;' cellspacing = '0' cellpadding = '0'>
					      <tr>
						    <td style = 'width:60px;'>
							    <select style = 'width:50px;' name = 'disabled'>
							      <option value = '1' <%=v1v2(Adisabled,1," style = 'color:red;' selected = 'selected' ","")%>>可用</option>
								  <option value = '0' <%=v1v2(Adisabled,0," style = 'color:red;' selected = 'selected' ","")%>>禁用</option>
							    </select></td>
							<td style = 'width:70px;text-align:left;'>&nbsp;注册到部门</td>
							<td style = 'text-align:left;width:auto;'>
                            <%SQL = "select * from admintype where ATypeSelect = 0"%>
							<%Call admintypeSub(SQL,AAtypeid,boxWidth,"ATypeSelect",ATypeALL)%>
							　注册为：<select name = 'Rank'>
							     <option value = '0' <%=v1v2(SeRank_inc,0," selected = 'true' style = 'color:red;' ","")%>>超级管理员</option>
							     <option value = '2' <%=v1v2(SeRank_inc,0,""," selected = 'true' style = 'color:red;' ")%>>普通管理员</option>
								</select>
							</td>
						  </tr>
					   </table></td>
				 </tr>
			    </table>

             </fieldset></td>
      </tr>
      <tr>
	     <td><input type="checkbox" name="repetition" value = 'YES' style = 'border-style:none;'/>检查登陆帐号是否重复</td>
	  </tr>
      <tr>
	     <td>&nbsp;权限：看进货价<input type="checkbox" name="SeeinPrice" value = 'SeeinPrice' style = 'border-style:none;' <%=v1v2(AdminSelFlag("SeeinPrice",","),true," checked = 'true' ","")%>/></td>
	  </tr>


	</table></td>

 </tr>
 <tr>
   <td style = 'text-align:center;'>
<%
   prve_ = SelectZD("Select aid from admins where aid > " & AAid & " Order by aid",0)
   next_ = SelectZD("Select aid from admins where aid < " & AAid & " Order by aid Desc",0)
%>
   <input type="submit" value = ' 确定 ' onclick = "javascript:form.Options.value = 'Reg';if(replace_(form.Loginid.value,' ','')==''){alert('请输入登陆名！');form.Loginid.focus();return false;}else if(form.ATypeSelect.value==''){alert('请选择注册子部门！');document.form.ATypeSelect.focus();return false;}"/><input type="reset" value = ' 重置 '/><input type="button" value = ' 关闭 ' onclick = "javascript:window.close();"/><%=v1v2(prve_,0,"<input type='button' value = '上一个' disabled = 'true'/>","<input type='button' value = '上一个' onclick=""javascript:form.aid.value='" & prve_ & "';form.submit();"" />")%><%=v1v2(next_,0,"<input type='button' value = '下一个' disabled = 'true'/>","<input type='button' value = '下一个' onclick=""javascript:form.aid.value='" & next_ & "';form.submit();"" />")%>
   </td>
 </tr>
 </form>
</table>


<%
Options = trim(Request.Form("Options"))
if Options = "Reg" then


   Loginid = Replace(GetText("Loginid","P","Str",1,110,""),"'","")
   BadStr = " []［`~!@#$%^&*()_-+=|\	<>/?'"""
   viewBadStr = " b］［｀~！＠＃＄％＾＆＊（）＿－＋＝｜＼ 〈〉／？’”"
   Loginid = Check(BadStr,Request.Form("Loginid"),"^","1")
   LoginPassWord = Check(BadStr,Request.Form("LoginPassWord"),"^","1")'
   newLoginPassWord = Check(BadStr,Request.Form("newPassWord"),"^","1")'

   if Loginid = "" then
      Response.Write viewinfo("alertBack","请输入登陆帐号！","")
      Response.end
   end if
   if inStr(Loginid,"^") > 0 then
      Response.Write viewinfo("alertBack","登陆帐号不要包含有（" & viewBadStr & "）等字符和空格！","")
	  Response.end
   end if

   Atypeid_ = GetText("ATypeSelect","P","number",1,10,0)'
   Atypeid_ = SelectZD("select Atypeid from admintype where Atypeid = " & Atypeid_ & "",0)
   if Atypeid_ = 0 then
	  Response.Write viewinfo("alertBack","请选好注册子部门！","")
	  Response.end
   end if
   if trim(Request.Form("repetition")) = "YES" then
      if not Conn.Execute("select Loginid from admins where Loginid = '" & Loginid & "'").eof then
	     Response.Write viewinfo("alertBack","已经存在（" & Loginid & "）这个管理帐号了！请起另一个帐号","")
	     Response.end
	  end if
   end if
   Atypeid_ = GetText("ATypeSelect","P","number",1,10,0)'
   Atypeid_ = SelectZD("select Atypeid from admintype where Atypeid = " & Atypeid_ & "",0)
   if Atypeid_ = 0 then
	  Response.Write viewinfo("alertBack","请选好注册子部门！","")
	  Response.end
   end if
   SQL = "select * from admins where aid = " & Aid & ""
   Rs.Open(SQL),Conn,1,3
	  Rs("Atypeid") = Atypeid_
      Rs("Loginid") = htmlencode(Loginid,"Y")'登陆名
   
      if trim(Request.Form("UpdatePassWord")) = "YES" then
		 if inStr(newLoginPassWord,"^")>0 then
            Response.Write viewinfo("alertBack","新密码不要包含有（" & viewBadStr & "）等字符和空格！","")
	        Response.end
		 end if
		 if not LoginPassWord = Rs("LoginPassWord") then
		    Response.Write viewinfo("alertBack","您输入的旧密码不正确！","")
	        Response.end
	     end if
		 UpdatePassWordinfo = "\n\n密码修改成功：新密码为：" & newLoginPassWord
         Rs("LoginPassWord") = htmlencode(newLoginPassWord,"Y")'登陆密码
	  end if

      Rs("TrueName") = htmlencode(GetText("TrueName","P","Str",1,110,"none"),"Y")'真名
      Rs("PcNum") = htmlencode(GetText("PcNum","P","Str",1,250,"none"),"Y")'电脑编号
      Rs("Place") = htmlencode(GetText("Place","P","Str",1,250,"none"),"Y")'职位
      Rs("Phone") = htmlencode(GetText("Phone","P","Str",1,250,"none"),"Y")'联系电话
      Rs("MobileTelephone") = htmlencode(GetText("MobileTelephone","P","Str",1,250,"none"),"Y")'移动电话
      Rs("Website") = htmlencode(GetText("Website","P","Str",1,250,"none"),"Y")'网址
      Rs("Email") = htmlencode(GetText("Email","P","Str",1,250,"none"),"Y")'Email
      Rs("Zip") = GetText("Zip","P","Str",1,250,"none")'邮编

	  Rs("IdCard") = htmlencode(GetText("IdCard","P","Str",1,250,"none"),"Y")'身份证
	  Rs("Birthday") = htmlencode(GetText("Birthday","P","Str",1,250,"none"),"Y")'生日
	  Rs("NativePlace") = htmlencode(GetText("NativePlace","P","Str",1,250,"none"),"Y")'籍贯
	  Rs("Folk") = htmlencode(GetText("Folk","P","Str",1,250,"none"),"Y")'民族
	  Rs("Sex") = htmlencode(GetText("Sex","P","number",1,10,2),"Y")'
	  Rs("Marital") = htmlencode(GetText("Marital","P","number",1,10,2),"Y")'婚姻否
	  Rs("PassDegree") = htmlencode(GetText("PassDegree","P","Str",1,250,"none"),"Y")'学位
	  if SeRank_inc = 0 then 
	     Rs("Flag") = htmlencode(GetText("SeeinPrice","P","Str",1,250,"none"),"Y")'权限
         Rs("Rank") = GetText("Rank","P","number",1,10,1000)'等级
	  end if

      Rs("Address") = htmlencode(GetText("Address","P","Str",1,250,"none"),"Y")'详细地址
      Rs("disabled") = GetText("disabled","P","number",1,10,0)'是否可用
	  Rs("Regtime") = htmlencode(GetText("Regtime","P","Str",1,110,"none"),"Y")
	  Rs("lasttime") = now
      Rs("Remark") = htmlencode(GetText("Remark","P","Str",1,2000,"none"),"Y")'备注
   Rs.update
   Rs.Close
	  Response.Write viewinfo("alertClose","管理员修改成功！"  & UpdatePassWordinfo,SELVAR("FN","") & "?aid=" & Aid)
end if
ConnClose()
Set c01 = Nothing
%>

</div>
</body>
</html>