📄 default.asp
字号:
<!--#include file='connect.asp'-->
<%
'session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
'if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath
'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw"
DBPath1=server.mappath("../db/lmtof.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
'end if
set opendb=session(sessionname)
end function
%>
<%
'-----------------------------------------
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
%>
<html>
<head>
<title>上传文件页面</title>
<style>
body {font-size:9pt}
td {font-size:9pt}
input {font-size:9pt}
textarea {font-size:9pt}
</style>
<script language='Jscript'>
function checkSub(src){
if(src.filename.value==''){
alert("文件主题必须输入!");
src.filename.focus();
return (false)
}
}
</script>
</head>
<body style='margin:0;background:#FFFFFF'>
<table border='0' width='680' align='center' cellspacing="0" cellpadding="0">
<tr height='100' bgcolor='#003399'>
<td align='center' bgcolor="#FFFFFF" height="45" > <font color="#0066FF" size="3"><b><font color="#FF0000">文
件 共 享</font></b></font></td>
</tr>
<tr>
<td valign='top' bgcolor='#FFFFFF'><br> 文件列表(所有文件只保存30天):<br>
<hr size=0 width='96%' align='center'> <table border='0' width='90%' align='center' cellspacing="2" cellpadding="0">
<%
Dim Sql
Dim Rs
Sql="select top 100 * from upfile_table order by id desc"
set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open Sql,conn,1,1
if not Rs.EOF then
while not Rs.EOF
Response.Write "<tr height='20'><td width='10%' nowrap>主题:</td><td>"& Rs("id") &"、"& Rs("Subject") &" ["& Rs("filesize") &" Bytes]</td></tr>"
Response.Write "<tr height='20'><td width='10%' nowrap>文件:</td><td><a href='"& Rs("filePath") &"/"& Rs("Filename") &"' target=main_wanglongdai>"& Rs("Filename") &"</a></td></tr>"
Response.Write "<tr height='20'><td width='10%' nowrap>简介:</td><td>"& Rs("Expit") &"</td></tr>"
Response.Write "<tr height='1' bgcolor='#003399'><td colspan='2'></td></tr>"
Rs.MoveNext
wend
else
Response.Write "<tr><td>无记录</td></tr>"
end if
Rs.Close
set Rs=nothing
Conn.close
set conn=nothing
%>
</table>
</td>
</tr>
<tr bgcolor='#003399' height='1'>
<td bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor='#FFFFFF'>
<div align="center"><br>
该页面设定可上传文件大小为<font color='red'> 5M </font>以下,并如果已经存在同名文件将报错(具体可按需设定)
</div>
<table border='0' align="center" cellpadding="5">
<form method="POST" action="upfile.asp" enctype="multipart/form-data" id="form1" name="form1" onsubmit='return checkSub(this)'>
<tr>
<td>报错：</td>
<td><input type='radio' name='errnumber' value='0'>
自动更名
<input type='radio' name='errnumber' value='1' checked>
报错方式
<input type='radio' name='errnumber' value='2'>
直接覆盖</td>
</tr>
<tr>
<td>主题：</td>
<td><input type='text' name='filename' size='30'></td>
</tr>
<tr>
<td>文件：</td>
<td><input type="file" name="fruit" size="30"></td>
</tr>
<tr>
<td valign='top'>简介：</td>
<td><textarea name='fileExt' cols='40' rows='5'></textarea></td>
</tr>
<tr>
<td colspan='2'><input type="submit" value="上传文件" name="subbutt"></td>
</tr>
</form>
</table>
<div align="center"></div>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -