📄 fbinfile.asp
字号:
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<link rel="stylesheet" href="css/css.css">
<body bgcolor="#eeeeee" topmargin="5" leftmargin="0">
<%
Response.Write Request.ServerVariables("REQUEST_METHOD")
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
vfname = makefilename(now())
set conn=opendb("oabusy","conn","accessdsn")
'set conn1=opendoc("oabusy","conn1","accessdsn")
set xup = Server.CreateObject("Xionsoft.XionFileUpLoad")
if xup.FileCount <1 then
Response.Write "请选择要上传的会议材料！！！！！"
Response.Write "<a href=fbjhg.asp>返回</a>"
Response.End
end if
filename1=xup.FileName("file1")
if lcase(right(filename1,4))<>".pdf" and lcase(right(filename1,4))<>".doc" then
Response.Write "必须上传是PDF或DOC文档,您上传的是"&lcase(right(filename1,4))
Response.Write "<a href=fbjhg.asp?id="&id&">返回</a>"
Response.End
end if
if xup.FileSize("file1")>400000 then
Response.Write "文档超大,,必须小于4000000字节"
Response.Write "<a href=fbjhg.asp?id="&id&">返回</a>"
Response.End
end if
for i=1 to xup.ItemCount
if xup.ItemName(i)="title" then title=xup.ItemValue(i)
if xup.ItemName(i)="id" then id=xup.ItemValue(i)
if xup.ItemName(i)="meetname" then meetname=xup.ItemValue(i)
if xup.ItemName(i)="fbdw" then fbdw=xup.ItemValue(i)
next
set rs1=server.createobject("ADODB.recordset")
sql1="select * from path"
rs1.open sql1,conn,1,3
if not rs1.eof and not rs1.bof then
filepath=rs1("meetword")
else
filepath="upfile/"
end if
rs1.close
set rs1=nothing
set rs=server.createobject("ADODB.recordset")
sql="update meetdate set ldjhyn=1 where id="&id
conn.execute sql
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from ldjhg"
rs.Open sql,conn,1,3
rs.addnew
rs("reid")=id
'rs("title")=title
rs("filepath")=filepath
'rs("filepath2")=filepath2
rs("filename")=filename1
'rs("filename2")=vfname&".htm"
rs("fbdw")=fbdw
rs("meetname")=meetname
rs("jointime")=date
rs.update
rs.close
set rs=nothing
'if filename2<>"" then xup.SaveFile "file2",filepath2&vfname&".htm"
if filename1<>"" then xup.SaveFile "file1",filepath&vfname&filename1
'if filename1<>"" then
'sql = "INSERT INTO jhg (reid, title, filesize,content) VALUES("
'sql = sql &id &","
'sql=sql&"'"&filename1&"',"
'sql=sql& xup.filesize("file1")&",?)"
'Response.Write sql
'xup.SaveDb "file1",conn1,sql
'xup.SaveDb 1, conn1, sql
'end if
'conn1.close
'set conn1=nothing
set xup=nothing
conn.close
set conn=nothing
Response.Write "会议材料发布完成!!!!!!!!!!!!"&"<br>"
Response.Write "如还有材料请继续!!!!!!!!!!"&"<br>"
Response.Write " <a href='fbjhg.asp?id="&id&"'>返回</a>"
end if
%><!--#include file="footer.htm"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -