index.asp

来自「完整功能: 1.自由限制上传文件类型 2.自由设置上传大小限制(单文件大小和」· ASP 代码 · 共 32 行

ASP
32
字号
<!--#include file="conn.asp"-->
<html>
<head>
<title>An-Upload无组件上传类</title>
</head>
<body>
<%
sql="select * from img order by [id] desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "没有任何数据!<a href=""upload.asp"">现在上传</a>"
else
	i=0
	response.write "<h2>上传的图片列表</h2> <a href=""upload.asp"">现在上传</a><hr />"
	do while not rs.eof
		i=i+1
		response.write i & "." & rs("Title") & "<br />" & vbcrlf
		response.write "<img onload=""if(this.width>300){this.width=300;}"" "
		response.write "onclick=""window.open('ReadFromDB.asp?id="&rs("id")&"');"" "
		response.write "src=""ReadFromDB.asp?id="&rs("id")&""" alt="""&rs("title")&""" />" & vbcrlf
		response.write "<br /><br />"&vbcrlf
  		rs.movenext
        loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?