mzxg.asp

人事管理系统 人事管理系统 人事管理系统 人事管理系统

<!--#include file="inc/Conndb.asp"-->
<!--#include file="inc/Ubbcode.asp"-->
<!--#include file="inc/Function.asp"-->
<%

dim ID,rs,FoundErr,ErrMsg
ID=trim(request("ID"))
FoundErr=False
if ID="" then 
	response.Redirect("mzwh.asp")
end if

sql="select * from mzda where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if FoundErr=True then
	call WriteErrMsg()
else
%>
<!-- #include file="Inc/Head.asp" -->
<form method="POST" name="myform" onSubmit="return CheckForm();" action="mztjs.asp?action=Modify">

<P align="center" class="t style3 style2">&nbsp;
  </p>
<br>

  <div align="center">
  </div>
  <input name="mz" type="text" value="<%=rs("mz")%>">
  <div align="center">
</div>
  <div align="center">
    <p>
      <input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>">
</p>
  </div>
<p align="center">
<input type="submit" name="Submit" value="提&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;交">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
</form>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>