电子公文传输管理系统
源代码在线查看: newpath.asp
set conn=opendb("oabusy","conn","accessdsn")
if request("submit")="提交" then
meetword=request("meetword")
'meethtml=request("meethtml")
fileword=request("fileword")
'filehtml=request("filehtml")
url=request("url")
path=request("path")
homename=request("homename")
pagecount=request("pagecount")
sql="select * from path"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
if not rs.eof and not rs.bof then
rs.Close
set rs=nothing
sql="delete * from path"
conn.execute sql
end if
sql = "Insert Into path(meetword,fileword,path,url,homename,pagecount) Values( "
sql=sql & SqlStr(meetword) & ","
'sql = sql & SqlStr(meethtml) & ", "
sql = sql & SqlStr(fileword)& ", "
'sql = sql & SqlStr(filehtml)& ","
sql = sql & SqlStr(path)& ", "
sql = sql & SqlStr(url)& ", "
sql = sql & SqlStr(homename)& ", "
sql = sql & sqlstr(pagecount) & ")"
' sql="update path set meetword='"&meetword&"',meethtml='"&meethtml&"',fileword='"&fileword&"',"
' sql=sql & "filehtml='"&filehtml&"', url='"&url&"',path='"&path&"',homename='"&homename&"',"
' sql=sql &"pagecount="&pagecount&" where id=0"
conn.Execute sql
%>
文件会议系统数据添加成功!重新登录
end if
%>
sql="select * from path"
rs.open sql,conn,1
if not rs.eof and not rs.bof then
meetword=rs("meetword")
meethtml=rs("meethtml")
fileword=rs("fileword")
filehtml=rs("filehtml")
url=rs("url")
path=rs("path")
homename=rs("homename")
pagecount=rs("pagecount")
rs.close
end if
set rs=nothing
%>
function form_check(){
if(document.form2.meetword.value==""){window.alert("会议文档上传路径不能为空");document.form2.meetword.focus();return (false);}
//if(document.form2.meethtml.value==""){window.alert("会议HTML上传路径不能为空");document.form2.meethtml.focus();return (false);}
if(document.form2.fileword.value==""){window.alert("文件文档上传路径不能为空");document.form2.fileword.focus();return (false);}
// if(document.form2.filehtml.value==""){window.alert("文件HTML上传路径不能为空");document.form2.filehtml.focus();return (false);}
if(document.form2.url.value==""){window.alert("主页URL");document.form2.url.focus();return (false);}
if(document.form2.path.value==""){window.alert("主页绝对地址不能为空");document.form2.path.focus();return (false);}
if(document.form2.homename.value==""){window.alert("系统名称不能为空");document.form2.homename.focus();return (false);}
if(document.form2.pagecount.value==""){window.alert("每页显示条数");document.form2.pagecount.focus();return (false);}
}
.style1 {color: #FF0000}
-->
文件会议系统基本数据
文档上传目录:
会议
(目录必须存在)
文档上传目录:
文件
(目录必须存在)
主页路径URL:
主页绝对路径:
系统名称:
文件条数/页:
条
set conn=nothing%>