emplmodify.aspx

来自「一个完整的办公自动化源码,免费提供给大家下载」· ASPX 代码 · 共 289 行 · 第 1/2 页

        <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10"  ID="zremark" runat="server" TextMode="SingleLine" Columns="50" />
        </font></td>
    </tr>
    <tr> 
      <td height="25" align="right"><font color="#000000">个人简历：</font></td>
      <td height="25"><font color="#000000">&nbsp; 
        <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10"  Columns="55" ID="zresume" Rows="6" runat="server" TextMode="MultiLine" />
        </font></td>
    </tr>
    <tr> 
      <td height="25" align="right"><font color="#000000">家庭社会关系：</font></td>
      <td height="25"><font color="#000000">&nbsp; 
        <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10"  Columns="55" ID="zfamily" Rows="6" runat="server" TextMode="MultiLine" />
        </font></td>
    </tr>
    <tr>
      <td height="25" align="right">当前照片：</td>
      <td height="25"><img runat="server" id="zphto" width="100" height="120"></td>
    </tr>
    <tr> 
      <td height="25" align="right"><font color="#000000">修改照片：</font></td>
      <td height="25"><font color="#000000">&nbsp; 
        <input type="file" id="myfile" runat="server" size="50" style="border-width:1px;border-style:Solid;font-size:10pt;" name="file">
        </font></td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="2"><font color="#000000">&nbsp;</font><font color="#000000"> 
        <asp:button ID="zsave" runat="server" Font-Size="10"  Text="确定修改" OnClick="zscsave" />
        <asp:validationsummary HeaderText="请填入必填项目：" ID="rerror" runat="server" ShowMessageBox="true" ShowSummary="false" />
        </font></td>
    </tr>
  </table>
</form>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then 
			if not (checkqx("a")) then response.redirect("../../webmaster/error.aspx")
			bindlist()
		end if
	end sub
	sub bindlist()
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand()
		objcmd.connection=conn
		objcmd.commandtext="select * from personinf where id=" & request.QueryString("id")
		dim objrd as oledbdatareader=objcmd.executereader()
		if not objrd.read() then
			response.Redirect("empledit.aspx")
			'异常错误,转回
			response.end
		end if
		zname.text=objrd.item("name")
		zbirthday.text=objrd.item("birthday")
		zsex.text=objrd.item("sex")
		znation.text=objrd.item("nation")
		zworktime.text=objrd.item("worktime")
		zpolitics.text=objrd.item("politics")
		zhomeaddress.text=objrd.item("homeaddress")
		ztelephone.text=objrd.item("telephone")
		zmarriage.text=objrd.item("marriage")
		zeducation.text=objrd.item("education")
		zspecialty.text=objrd.item("specialty")
		zbranch.text=objrd.item("branch")
		zbusiness.text=objrd.item("business")
		zworktype.text=objrd.item("worktype")
		ztechnology.text=objrd.item("technology")
		zcomputer.text=iif(isdbnull(objrd.item("computer")),"",objrd.item("computer"))
		'以下是非必填项，可能为空字串
		zlanguageS.text=iif(isdbnull(objrd.item("languageS")),"",objrd.item("languageS"))
		zcharacterS.text=iif(isdbnull(objrd.item("characterS")),"",objrd.item("characterS"))
		zremark.text=iif(isdbnull(objrd.item("remark")),"",objrd.item("remark"))
		zresume.text=iif(isdbnull(objrd.item("resume")),"",objrd.item("resume"))
		zfamily.text=iif(isdbnull(objrd.item("family")),"",objrd.item("family"))
		zphto.src="photo\" & iif(isdbnull(objrd.item("imageS")),"",objrd.item("imageS"))
		conn.close()
	end sub
	sub zscsave(s as object,e as eventargs)
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand()
		objcmd.connection=conn
		if myfile.postedfile.contentlength<>0 then
			objcmd.commandtext="update personinf set name=?,birthday=?,sex=?,nation=?,worktime=?,politics=?," & _ 
						    "homeaddress=?,telephone=?,marriage=?,education=?,specialty=?,branch=?,business=?," & _
							"worktype=?,technology=?,computer=?,languageS=?,characterS=?,remark=?,resume=?,family=?,imageS=?" & _ 
					 	   " where id=" & request.QueryString("id")
		else
			objcmd.commandtext="update personinf set name=?,birthday=?,sex=?,nation=?,worktime=?,politics=?," & _ 
						    "homeaddress=?,telephone=?,marriage=?,education=?,specialty=?,branch=?,business=?," & _
							"worktype=?,technology=?,computer=?,languageS=?,characterS=?,remark=?,resume=?,family=?" & _ 
					 	   " where id=" & request.QueryString("id")
		end if		
		objcmd.parameters.add("@name",oledbtype.char).value=zname.text
		objcmd.parameters.add("@birthday",oledbtype.char).value=zbirthday.text
		objcmd.parameters.add("@sex",oledbtype.char).value=zsex.text
		objcmd.parameters.add("@nation",oledbtype.char).value=znation.text
		objcmd.parameters.add("@worktime",oledbtype.char).value=zworktime.text
		objcmd.parameters.add("@politics",oledbtype.char).value=zpolitics.text
		objcmd.parameters.add("@homeaddress",oledbtype.char).value=zhomeaddress.text
		objcmd.parameters.add("@telephone",oledbtype.char).value=ztelephone.text
		objcmd.parameters.add("@marriage",oledbtype.char).value=zmarriage.text
		objcmd.parameters.add("@education",oledbtype.char).value=zeducation.text
		objcmd.parameters.add("@specialty",oledbtype.char).value=zspecialty.text
		objcmd.parameters.add("@branch",oledbtype.char).value=zbranch.text
		objcmd.parameters.add("@business",oledbtype.char).value=zbusiness.text
		objcmd.parameters.add("@worktype",oledbtype.char).value=zworktype.text
		objcmd.parameters.add("@technology",oledbtype.char).value=ztechnology.text
		objcmd.parameters.add("@computer",oledbtype.char).value=zcomputer.text
		objcmd.parameters.add("@languageS",oledbtype.char).value=zlanguageS.text
		objcmd.parameters.add("@characterS",oledbtype.char).value=zcharacterS.text
		objcmd.parameters.add("@remark",oledbtype.char).value=zremark.text
		objcmd.parameters.add("@resume",oledbtype.char).value=zresume.text
		objcmd.parameters.add("@family",oledbtype.char).value=zfamily.text
		if myfile.postedfile.contentlength<>0 then
			dim lsfile as object
			lsfile=myfile.postedfile
			dim lsname() as string=split(lsfile.filename,".")
			dim lsnm as string=lsname(lsname.length-1)
			dim lstime=now()
			dim lsyear,lsmonth,lsday,lshour,lsminute,lssecond,lsfilename as string
			lsyear=year(lstime)
			lsmonth=right("0" & month(lstime),2)
			lsday=right("0" & day(lstime),2)
			lshour=right("0" & hour(lstime),2)
			lsminute=right("0" & minute(lstime),2)
			lssecond=right("0" & second(lstime),2)
			dim lsrd as string
			randomize
			lsrd=cstr(int(100*rnd())+1)
			lsfilename=lsyear & lsmonth & lsday & lshour & lsminute & lssecond & "-" & lsrd  & "." & lsnm
			'得到以当前日期及时间为前缀的新文件名，只保留原文档的护展名(防止文件出现重名现象、防止中文文件名)
			dim lspath as string
			lspath=server.mappath(".") & "\photo\" & lsfilename
			lsfile.saveas(lspath)		
			objcmd.parameters.add("@imageS",oledbtype.char).value=lsfilename
		end if
		objcmd.executenonquery()
		conn.close()
		response.redirect("empledit.aspx")
	end sub
</script>