addok.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/ifr/ifrasp.asp" -->

<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>



<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  Recordset1__MMColParam = Session("userssdfgfhtrh")
End If
%>



<%

Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 资产表  WHERE 录入帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'  ORDER BY ID DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
Recordset1.addnew()
Recordset1("资产名称")=request("资产名称")
Recordset1("编号")=request("编号")
Recordset1("计量单位")=request("计量单位")
Recordset1("数量")=request("数量")
Recordset1("规格型号")=request("规格型号")
Recordset1("安装费")=request("安装费")
Recordset1("购买价格")=request("购买价格")
Recordset1("折旧")=request("折旧")
Recordset1("生产单位")=request("生产单位")
Recordset1("生产年月")=request("生产年月")
Recordset1("交付使用日期")=request("交付使用日期")
Recordset1("预计使用年限")=request("预计使用年限")
Recordset1("使用部门")=request("使用部门")
Recordset1("使用地点")=request("使用地点")
Recordset1("请购人或部门")=request("请购人或部门")
Recordset1("保管人或部门")=request("保管人或部门")
Recordset1("用途")=request("用途")
Recordset1("出厂编号")=request("出厂编号")
Recordset1("录入帐号")=request("帐号")
Recordset1("录人姓名")=request("姓名")
Recordset1("录入部门")=request("部门")
Recordset1("使用状态")=request("使用状态")
Recordset1("录入日期")=date()
Recordset1("净值")=request("净值")
Recordset1("录人员")=request("录人员")
Recordset1("备注")=request("备注")
Recordset1.update
Recordset1_numRows = 0
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<style type="text/css">
<!--
.style1 {	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>


 <link href="../../css/link.css" rel="stylesheet" type="text/css">
<div align="center">
  <table width="760" height="21" border="0" cellpadding="0" cellspacing="0" background="../../img/bw/line.gif">
    <tr>
      <td><div align="center"><span class="style1">资产录入系统</span></div></td>
    </tr>
  </table>
  <table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
    <tr>
      <td bgcolor="#FFFFFF"><table width="99%"  border="0" cellpadding="3" cellspacing="0">
        <tr>
          <td width="16%">资产名称:</td>
          <td width="84%"><%=(Recordset1.Fields.Item("资产名称").Value)%></td>
        </tr>
        <tr>
          <td>编号:</td>
          <td><%=(Recordset1.Fields.Item("编号").Value)%></td>
        </tr>
        <tr>
          <td>计量单位:</td>
          <td><%=(Recordset1.Fields.Item("计量单位").Value)%></td>
        </tr>
        <tr>
          <td>数量:</td>
          <td><%=(Recordset1.Fields.Item("数量").Value)%></td>
        </tr>
        <tr>
          <td>规格型号:</td>
          <td><%=(Recordset1.Fields.Item("规格型号").Value)%></td>
        </tr>
        <tr>
          <td>出厂编号:</td>
          <td><%=(Recordset1.Fields.Item("出厂编号").Value)%></td>
        </tr>
        <tr>
          <td>技术证书号:</td>
          <td><%=(Recordset1.Fields.Item("技术证书号").Value)%></td>
        </tr>
        <tr>
          <td>购买价格:</td>
          <td><%=(Recordset1.Fields.Item("购买价格").Value)%></td>
        </tr>
        <tr>
          <td>安装费:</td>
          <td><%=(Recordset1.Fields.Item("安装费").Value)%>(可不填)</td>
        </tr>
        <tr>
          <td>折旧:</td>
          <td><%=(Recordset1.Fields.Item("折旧").Value)%>(可不填)</td>
        </tr>
        <tr>
          <td>净值:</td>
          <td><%=(Recordset1.Fields.Item("净值").Value)%>(可不填)</td>
        </tr>
        <tr>
          <td>生产单位:</td>
          <td><%=(Recordset1.Fields.Item("生产单位").Value)%></td>
        </tr>
        <tr>
          <td>生产年月:</td>
          <td><%=(Recordset1.Fields.Item("生产年月").Value)%></td>
        </tr>
        <tr>
          <td>交付使用日期:</td>
          <td><%=(Recordset1.Fields.Item("交付使用日期").Value)%></td>
        </tr>
        <tr>
          <td>预计使用年限:</td>
          <td><%=(Recordset1.Fields.Item("预计使用年限").Value)%> </td>
        </tr>
        <tr>
          <td>请购人或部门:</td>
          <td><%=(Recordset1.Fields.Item("请购人或部门").Value)%></td>
        </tr>
        <tr>
          <td>保管人或部门:</td>
          <td><%=(Recordset1.Fields.Item("保管人或部门").Value)%></td>
        </tr>
        <tr>
          <td>用途:</td>
          <td><%=(Recordset1.Fields.Item("用途").Value)%></td>
        </tr>
        <tr>
          <td>使用部门:</td>
          <td><%=(Recordset1.Fields.Item("使用部门").Value)%></td>
        </tr>
        <tr>
          <td>使用地点:</td>
          <td><%=(Recordset1.Fields.Item("使用地点").Value)%></td>
        </tr>
        <tr>
          <td>使用状态:</td>
          <td><%=(Recordset1.Fields.Item("使用状态").Value)%></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td><a href="addzichuanfgnht3yhsfbgey4wtgrbfyjyuetyhnjuh.asp">继续录入</a> <a href="adminzichuangfhnghetyh.asp">管理</a></td>
        </tr>
      </table></td>
    </tr>
  </table>
    <table width="760" height="21" border="0" cellpadding="0" cellspacing="0" background="../../img/bw/line1.gif">
    <tr>
      <td><div align="center"></div></td>
    </tr>
  </table>
  <%
Recordset1.Close()
Set Recordset1 = Nothing
%>
</div>