📄 fb.asp
字号:
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/opendb.asp"-->
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
</script>
<script Language="JavaScript">
function form_check(){
if(document.form2.meetname.value==""){window.alert("会议名称不能为空");document.form2.meetname.focus();return (false);}
if(document.form2.opendept.value==""){window.alert("组织单位不能为空");document.form2.opendept.focus();return (false);}
if(document.form2.meettime.value==""){window.alert("会议时间不能为空");document.form2.meettime.focus();return (false);}
if(document.form2.joinman.value==""){window.alert("与会单位不能为空");document.form2.joinman.focus();return (false);}
}
</script>
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end
end if
set conn=opendb("oabusy","conn","accessdsn")
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
set xup = Server.CreateObject("Xionsoft.XionFileUpLoad")
For i = 1 To xup.ItemCount
Response.Write xup.ItemName(i) &":"&Xup.ItemValue(i)& "<br>"
Next
set xup=nothing
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<center>
<b>发布文件</b> "<font color=red>*</font>"号的表示必须填写
</center>
<center>
<hr width="90%" size="1" noshade color="ff6633">
<form method=post name=form2 action="fb.asp" enctype="multipart/form-data" >
<table border=1>
<tr>
<td width="71">
<div align="center">文件标题</div>
</td>
<td width="331">
<input type=text name="title" size=40>
<font color=red>*</font> </td>
<td width="239">
<%set rs1=server.createobject("ADODB.recordset")
sql1="select * from fbgtype"
rs1.open sql1,conn,1,3
%>
<div align="left">文件类型
<select name="typename" size="1">
<%if not rs1.eof and not rs1.bof then
i=0
do while not rs1.EOF
if instr(rs1("username"),oabusyusername)>1 or oabusyuserlevel="supermanage" or instr(rs1("fbuser"),oabusyusername)>1 then
i=i+1
%>
<option value="<%=rs1("typename")%>"><%=rs1("typename")%></option>
<%
end if
rs1.Movenext
loop
if i=0 then Response.Write "<option value='没有类型'>无权发布或没有类型</option>"
else
%>
<option value="没有类型">没有类型</option>
<%end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing%>
</select>
</div>
</td>
</tr>
<tr>
<td width="71" height="20">
<div align="center">发布单位</div>
</td>
<td colspan="2" height="20">
<input type=text name="fbdw" size=50>
<font color=red>*</font>
<div align="center"></div>
</td>
</tr>
<tr>
<td width="71">
<div align="center">文件接收单位</div>
</td>
<td valign="top" align="left" colspan="2">
<textarea name="joinman" cols="50"></textarea>
<font color=red>*</font> <a href="#" onClick="MM_openBrWindow('userlist.asp','','left=330,top=100,scrollbars=yes,width=450,height=600')">接收单位列表</a></td>
</tr>
<tr valign="top">
<td width="71" rowspan="2">上传文件</td>
<td colspan="2">
<input type="file" name="file1" size="50">
(WORD文档)</td>
</tr>
<tr valign="top">
<td colspan="2">
<input type="file" name="file2" size="50">
(HTML文档) </td>
</tr>
</table>
<br>
<input type="submit" name="submit" value="发布" onclick="return form_check();" style="border:1 solid #000000;background:#ffffff">
</form>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -