各位大侠：
我做了一个教学文件上传程序，但是现在存在一些问题，就是文件上传以后，只要被访问了，“文件名字”就会自动从页面上消失，数据库中的文件名字也自己消失了，我把数据库改成了只读文件，还是解决不了这个问题，请各位帮忙，修改一下，本人万分感谢，如有更好的系统，望推荐之！还有我的系统每次只能上传一个附件，能否改成上传多个附件，谢谢！～！！！leizi888致谢！
qq:17268469
<% Option Explicit %>
<html>
<head>
<title>土木系</title>
</head>
<body>
<h2 align="center"><img src="imges/logo1.gif" width="778" height="120"></h2>
<h2 align="center"><font color="#FF0000">文件上传</font></h2>
<p align="center"><font color="#FF0000">2005－2006年第一学期</font></p>
<center>
<a href="add.asp">添加教学文件</a> <a href="index.asp">注 销</a>
</center>
<div align="center"><img src="imges/logo.gif" width="645" height="1">
<%
'以下连接数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq=" & Server.Mappath("news.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'以下建立Recordset对象实例rs
Dim strSql,rs
strSql="Select * From news"
Set rs=db.Execute(strSql)
'以下显示数据库记录
Do while Not rs.Eof
%>
</div>
<table width="630" height="31" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333">
<tr>
<td width="1" height=27 background="imges/logo.gif"></td>
<td width="16"><div align="left"></div></td>
<td width="82" height=27><%=rs("title")%> <div align="left"></div></td>
<td width="20" height=27><div align="left"></div></td>
<td width="422" height=27> <div align="left"><a href="newsupload/<%=rs("filename")%>" target="_blank"><%=rs("filename")%></a> </div></td>
<td width="63"><div align="left"><a href="delete.asp?id=<%=rs("id")%>">删除</a></div></td>
<td width="45"><a href="update_form.asp?id=<%=rs("id")%>">修改</a></td>
<td width="1" height=27 background="imges/logo.gif"></td>
</tr>
<tr>
<td height=1 colspan="8"><img src="imges/logo.gif" width="650" height="1"></td>
</tr>
</table>
<%
rs.Movenext
Loop
%>
</body>
</html>
[此贴子已经被作者于2006-3-28 15:07:00编辑过]
