-
Notifications
You must be signed in to change notification settings - Fork 0
/
News_Detail.asp
40 lines (36 loc) · 1.36 KB
/
News_Detail.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
<center>
<%
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file=Sub.asp -->
<%
id=my_request("id",1)
if id="" or isnull(id) or IsNumeric(id)=False then
response.write("<script>alert(""��������!"");location.href=""news_List.asp"";</script>")
response.end
end if
'�����������
sql="update news_info set news_info_hitnums=news_info_hitnums+1 where id="&id
conn.execute (sql)
dim news_info_title,news_info_content,news_info_addtime,news_info_hitnums
sql="select news_info_title,news_info_content,news_info_addtime,news_info_hitnums from news_info where id="&id
set rs=conn.execute (sql)
news_info_title =rs(0)
news_info_content=rs(1)
news_info_addtime=rs(2)
news_info_hitnums=rs(3)
rs.close
set rs=nothing
call up(news_info_title,"��������","<a href=News_List.asp>��������</a> » ��������")
response.write "<tr>"&_
" <td><h2 align=center>"&news_info_title&"</h2></td>"&_
"</tr>"&_
"<tr><td align=center>����ʱ�䣺"&news_info_addtime&"</font> ���������"&news_info_hitnums&"��</td></tr>"&_
"<tr>"&_
" <td style='table-layout:fixed;word-break:break-all' class=maintxt>"&news_info_content&"<br></td>"&_
"</tr>"
call down()
%></center>