📄 index.asp

📁 实验教学系统很好用有学生老师管理等模块便于学校使用

💻 ASP

字号:

<HTML> <BODY>
	<P ALIGN='RIGHT'><A HREF="ADD_FORM.ASP">上传文件</A>
	<TABLE WIDTH="100%" BORDER="1">
		<TR BGCOLOR="#CACACA" ALIGN="CENTER">
			<TD WIDTH="10%">预览</TD>
			<TD WIDTH="15%">名称</TD>
			<TD WIDTH="13%">大小(K)</TD>
			<TD WIDTH="15%">类型</TD>
			<TD WIDTH="17%">简介</TD>
			<TD WIDTH="10%">下载</TD>
			<TD WIDTH="10%">浏览</TD>
			<TD WIDTH="10%">删除</TD>
		</TR>
<%
	set conn = server.createobject("ADODB.CONNECTION")
	conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
		server.mappath("temp.mdb")
	strSql = "SELECT * FROM uploadfiles ORDER BY submit_date DESC"        
	Set rs = conn.Execute(strSql)
	Do while Not rs.Eof
		Response.Write "<tr bgcolor='#EBEBEB'>"
		Response.Write "<td><img src='showimage.asp?id=" &_
			rs("id") & "' width='120' height='80'></td>"

		Response.Write "<td>" & rs("filename") & "</td>"
		Response.Write "<td align='right'>" & Int(rs("size")/1024) & "</td>"
		Response.Write "<td>" & rs("ext") & "</td>"
		Response.Write "<td>" & rs("intro") & "</td>"
		Response.Write "<td align='center'><a href='download.asp?id=" &_
			rs("id") & "'>下载</a></td>"
		Response.Write "<td align='center'><a href='browse.asp?id=" &_
			rs("id") & "' target='_blank'>浏览</a></td>"

		Response.Write "<td align='center'><a href='delete.asp?id=" &_
			rs("id") & "'>删除</a></td>"
		Response.Write "</tr>"
		rs.MoveNext
	Loop
%>
	</TABLE></BODY> </HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -