admin_addinfo.asp

来自「为我们公司使用的oa系统」· ASP 代码 · 共 30 行

<%@language=vbscript codepage=936 %>
<!--#include file="conn.Asp" -->
<% 
   dim Rs,SQLstr,wherestr,classid,fileTitle,addfileuser,ImagePath
   
	fileTitle=request("fileTitle")
	ImagePath=request("ImgUrl")
	'wherestr=request("file_where")
	addfileuser=request("file_adduser")
	
	SQLstr="select * from [fileinfo]"
	set rs=server.CreateObject("ADODB.recordset")
	rs.open SQLstr,cnsql,1,3

	Rs.addnew
	Rs("filecontent")=Request("Content")
	Rs("filetitle")=fileTitle
	Rs("addfileuser")=addfileuser
	Rs("filetime")=date()&" "& time()
	'Rs("filewhere")=wherestr
	Rs.update
	if not err then 
%>  
	   <script language=Javascript>
      <!--
       alert("信息添加成功！" );  
	   window.location="addFiles.asp";
       -->
      </script>
<% end if %>