📄 tianjias.asp

📁 人事管理系统人事管理系统人事管理系统人事管理系统
💻 ASP
字号:
<!--#include file="inc/Conndb.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/Ubbcode.asp"-->
<!--#include file="inc/Function.asp"-->
<%
dim rs,sql,ErrMsg,FoundErr
dim gh,name,xb,sfzh,zp,rzsj,xl,zsh,zw,bm,zsf,zzmm
FoundErr=false
ID=Trim(Request.Form("ID"))
gh=Trim(Request.Form("gh"))
name=Trim(Request.Form("name"))
xb=Trim(Request.Form("xb"))
sfzh=Trim(Request.Form("sfzh"))
zp=Trim(Request.Form("zp"))
rzsj=Trim(Request.Form("rzsj"))
xl=Trim(Request.Form("xl"))
zsh=Trim(Request.Form("zsh"))
zw=Trim(Request.Form("zw"))
bm=Trim(Request.Form("bm"))
zsf=Trim(Request.Form("zsf"))
zzmm=Trim(Request.Form("zzmm"))

if founderr=false then
	
	set rs=server.createobject("adodb.recordset")
	if request("action")="add" then
		sql="select top 1 * from rsxt" 
		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 rsxt 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()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改属性</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #F5F5F5;
}
.h25 {
	font-size: 12px;
	line-height: 25px;
	color: #999999;
}
.style3 {font-size: 18px}
-->
</style>
</head>
<body>
</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("gh")=gh
rs("name")=name
rs("xb")=xb
rs("sfzh")=sfzh
rs("zp")=zp
rs("rzsj")=rzsj
rs("xl")=xl
rs("zsh")=zsh
rs("zw")=zw
rs("bm")=bm
rs("zsf")=zsf
rs("zzmm")=zzmm
	
end sub	
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -