📄 particular2.asp
字号:
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<head>
<title>信息中心</title>
<link rel="stylesheet" href="../../../system/all.css">
</head>
<body>
<p>
<%
dim id,back_flag,subject_id,subject_name,user_id
id=request("thename") '显示记录ID号
subject_id=request("thename2")
subject_name=request("thename3")
user_id=session("user_id")
'先把点击数加1
sql="update reference set hits=hits+1 where id=" & id
db.execute(sql)
'再显示该文件内容
SQL="SELECT author,url,abstract,keywords,magazine,upload_file_name,hits,childs,writer_id,submit_date,file_name FROM reference"
SQL=SQL + " WHERE id = " & id
sql=sql & " and lesson_id='" & session("lesson_id") & "'"
SET RS=db.EXECUTE(SQL)
author=rs("author")
url=rs("url")
abstract=rs("abstract")
keywords=rs("keywords")
magazine=rs("magazine")
upload_file_name=rs("upload_file_name")
hits=rs("hits")
childs=rs("childs")
writer_id=rs("writer_id")
submit_date=rs("submit_date")
%>
<CENTER>
<p> 
<p>
<h3 align=center><%=RS("file_name")%><h3>
<p>
<TABLE border="0" bordercolor="#8800FF" width="95%" bgcolor=e9e9e9>
<TR>
<td width="20%">网址：</td>
<TD>
<%
if url<>"" then
response.write "<a href='" & url & "' target='_blank'>" & url & "</a>"
end if
%>
</TD>
</TR>
<TR>
<td width="20%">作者:</td>
<TD><%=author%></TD>
</TR>
<TR>
<td>摘要:</td>
<TD><%=abstract%></TD>
</TR>
<TR>
<TR>
<td>关键字:</td>
<TD><%=keywords%></TD>
</TR>
<TR>
<td>来源:</td>
<TD><%=magazine%></TD>
</TR>
<TR>
<TD>附件：</td>
<td>
<%if upload_file_name<>"" then%>
<a href="../../../../uploadfile/<%=session("lesson_id")%>/<%=upload_file_name%>" target="_new"><font color="red">下载或浏览全文</font></a>
<%end if%>
</TD>
</TR>
<TR>
<td>点击数:</td>
<TD><%=hits%></TD>
</TR>
<TR>
<td>回复数:</td>
<TD><%=childs%></TD>
</TR>
<TR>
<td>上传者:</td>
<TD><%=writer_id%></TD>
</TR>
<TR>
<td>上传时间:</td>
<TD><%=submit_date%></TD>
</TR>
</TABLE>
<p>
<%
response.write "<a href='javascript:close();'><font color='red'>关闭本窗口</font></a>"
%>
<TABLE border="0" bordercolor="#8800FF" width="95%" cellspacing="2">
<th align="left">评论列表</th><th align="right">
<a href="discuss2.asp?id=<%=id%>&title=<%=rs("file_name")%>">发表评论</a></th>
</table>
<%
sql="select * from reference_discuss where reference_id=" & id
sql=sql & " order by id desc"
set rs=db.execute(sql)
dim I
I=0
do while not rs.eof
I=I+1
response.write "<center><TABLE border='0' bordercolor='#8800FF' width='95%' cellspacing='2'>"
response.write "<tr><td >"
response.write I & "<br>"
response.write rs("title") & "<br>"
response.write rs("body") & "<br>"
response.write "<p align='right'><I>" & rs("writer_id") & "发表于" & cstr(rs("submit_date")) & "</I>"
response.write "</td></tr>"
response.write "</table><p>"
rs.movenext
loop
%>
</CENTER>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -