tgaddz.asp

企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/auto.asp" -->
<%
   zhuti=request.Form("zhuti")
   content=request.Form("content")
   quanxian=request.form("quanxian")
   str="select * from tongzhi order by id desc"
   set rs1=CN.execute(str)
   maxid=rs1("id")+1
   if  zhuti<>"" and content<>""then
     set RS = server.CreateObject("ADODB.Recordset")
	 RS.open "tongzhi" , CN,1,3
	 RS.addnew
	 RS("id")=maxid
	 RS("biaoti")=zhuti
	 RS("faburen")=Session("Rname")
	 RS("fbshj")=Date()&" "&time()
	 RS("cishu")=0
	 RS("neirong")=content
	 RS("quanxian")=quanxian
	 RS.update
     RS.close
	 set RS = nothing
   end if  
   set rs1=nothing
   CN.close
   response.Redirect("tongzhitianjia.asp")
%>