📄 readshare.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>共享资源</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="outplan.css" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 10pt}
-->
</style>
</head>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from share where uid='"&session("uid")&"' and id="&Clng(request("id"))
rs.open sql,conn,1,3
if rs.eof then
response.write "没有你要找的资源"
response.End
end if
stype=rs("type")
sname="未知类型"
select case stype
case "mp3"
sname="MP3音乐"
sext=".mp3"
case "dv"
sname="视频"
sext=".wmv"
case "pic"
sname="照片"
sext=".jpg"
case "gz"
sname="表格"
sext=".xls"
end select
response.write "作者："&rs("username")&"<br>"
response.write "标题："&rs("title")&"<br>"
response.write "时间："&rs("savedate")&"<br>"
response.write "内容："&rs("content")&"<br>"
response.write "类型："&sname&" "
if trim(stype)<>"pic" then
response.write "<a href='"&stype&"/"&rs("id")&sext&"'>下载</a>（右键点击另存）<br>"
else
response.write "<br>"
end if
fileid=rs("id")
readnum=rs("readnum")
if trim(readnum)>0 then
readnum=CLng(readnum)+1
else
readnum=1
end if
rs("readnum")=readnum
rs.update
rs.close
if trim(stype)="pic" then
sql="select * from sharepic where shareid="&trim(fileid)
rs.open sql,conn,1,1
while not rs.eof
response.write "<img src=pic/"&rs("id")&".jpg>"
response.write "<br><br>"
rs.movenext
wend
rs.close
end if
if trim(stype)="mp3" then
filesrc="mp3/"&fileid&".mp3"
%>
<object classid=clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width=350 height=70>
<param name=showstatusbar value=1>
<param name=filename value="<%=filesrc%>">
<embed src=<%=filesrc%>>
</embed></object>
<%
end if
if trim(stype)="dv" then
filesrc="dv/"&fileid&".wmv"
%>
<embed src="<%=filesrc%>" autostart="true" loop="false">
<%end if%>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -