gztjs.asp

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

<!--#include file="inc/Conndb.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/Ubbcode.asp"-->
<!--#include file="inc/Function.asp"-->
<!-- #include file="Inc/Head.asp" -->
<%
dim rs,sql,ErrMsg,FoundErr
dim yggz
FoundErr=false
ID=Trim(Request.Form("ID"))
yggz=Trim(Request.Form("yggz"))

if founderr=false then
	
	set rs=server.createobject("adodb.recordset")
	if request("action")="add" then
		sql="select top 1 * from gzda" 
		rs.open sql,conn,1,3
		rs.addnew
		call SaveData()		
		rs.update
		ID=rs("ID")
		rs.close
		set rs=nothing
	elseif request("action")="Modify" then
  		if ID<>"" then
			sql="select * from gzda where id=" & ID
			rs.open sql,conn,1,3
			if not (rs.bof and rs.eof) then
				call SaveData()
				rs.update
				rs.close
				set rs=nothing
 			else
				founderr=true
				errmsg=errmsg+"<li>找不到此文章，可能已经被其他人删除。</li>"
				call WriteErrMsg()
			end if
		else
			founderr=true
			errmsg=errmsg+"<li>不能确定ID的值</li>"
			call WriteErrMsg()
		end if
	else
		founderr=true
		errmsg=errmsg+"<li>没有选定参数</li>"
		call WriteErrMsg()
	end if

	call CloseConn()
%>

</div>
<br><br><br><br><br><br><br><br>
<table width="950" border="0" align=center cellpadding="0" cellspacing="2" class="border">
  <tr align=center>
    <td width="100%"  height="100" class="title"><b>
      <%if request("action")="add" then%>
      <span class="style3">添加</span>      
      <%else%>
      <span class="style3">      修改</span>      
      <%end if%>
      <span class="style3">设备记录成功</span></b></td>
  </tr>
  <tr>
    <td height="63" class="tdbg">
    <p align="center">&nbsp; </p></td>
  </tr>
</table>
</body>
</html>
<%
else
	WriteErrMsg
end if

sub SaveData()	

rs("yggz")=yggz
	
end sub	
%>
</body>
</html>