fileaddz.asp

来自「企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 33 行

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="auto.asp" -->
<%
   zhuti=request.Form("zhuti")
   content=request.Form("content") 
   spr=request.form("spr")  
   part=request.form("part")
   sql3="select * from sfile order by id desc"
   set rs3=CN.execute(sql3)
   if rs3.eof then
     maxid=1
   else
   	maxid=rs3("id")+1
   end if

   set RS = server.CreateObject("ADODB.Recordset")
     RS.open "sfile" , CN,1,3
	 RS.addnew
	 RS("id")=maxid
	 RS("biaoti")=zhuti
	 RS("fjr")=Session("Rname")
	 RS("fbshj")=Date()&" "&time()
	 RS("spr")=spr
	 RS("neir")=content
	 RS("part")=part
	 RS("zhuangtai")=0
	 RS.update
     RS.close
	 set RS = nothing  
	 CN.close
	 response.Redirect("fileadd.asp")
   %>