?? particular.asp
字號:
<% if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<!--#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='list.asp'><font color='red'><<返回</font></a>"
%>
<TABLE border="0" bordercolor="#8800FF" width="95%" cellspacing="2">
<th align="left">評論列表</th><th align="right">
<a href="discuss.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 + -