zwxg1.asp

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

<%

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

sql="select * from zwda 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="zwtjs.asp?action=Modify">
<input name="zw" type="text" value="<%=rs("zw")%>">
<input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>">
<input name="" type="submit" value="提交">

</form>
</body>
</html>