📄 typenews.asp
字号:
<!--#include file="head.asp" -->
<%sub navigation()%>
>> 信息浏览
<%end sub%>
<%
ID=CheckStr(Request.QueryString("ID"))
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "index.asp"
Response.End()
End If
InfoSql="select Sort1,Sort2,ID from info where ID="&ID
Set InfoRs=Conn.Execute(InfoSql)
B_id=Infors("Sort1")
L_id=Infors("Sort2")
Infors.close
set Infors=nothing
InfoSql="select a125_names,ID from a125_type where ID="&B_id
Set InfoRs=Conn.Execute(InfoSql)
B_names=Infors("a125_names")
Infors.close
set Infors=nothing
%>
<table border="0" cellpadding="0" cellspacing="0" width="996" height="10" bgcolor="#ffffff">
<tr>
<td width="216" valign="top" bgcolor="#FEF1CF" >
<div align="center">
<%call a125_tianqi()%>
</div>
<div align="center">
<% Call a125_acticletype(15,B_id,B_names) %>
</div>
<div align="center">
<% call a125_Search5() %>
</div>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=212 border=0>
<TBODY>
<TR>
<TD align=middle height=30><img src="images/2/index_80.gif" width="206" height="30" alt=""></TD>
</TR>
<TR>
<TD align=middle height=200><% Call a125_articleInfo(4,8,20,L_id,0) %></TD>
</TR>
</TBODY>
</TABLE>
</div>
</td>
<td valign="top" width="780" height="100%">
<!--主要内容开始-->
<%
dim sql
dim rs
dim rstype
dim typesql
dim title
ID=CheckStr(Request.QueryString("ID"))
If isInt(ID)=False OR Not IsNumeric(ID) Then
Response.Redirect "index.asp"
Response.End()
End If
set rs=server.createobject("adodb.recordset")
sql="update Info set hits=hits+1 where ID="&ID&""
rs.open sql,conn,1,3
%>
<%
sqla="select * from Info where ID="&ID&""
Set Rsa=conn.execute (sqla)
if rsa.eof and rsa.bof then
response.Redirect("index.asp")
end if
ClassID=Rsa("Sort2")
SortID=Rsa("Sort1")
if ClassID<>0 then
sqlc="select * from a125_type where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
if rsc.eof and rsc.bof then
response.Redirect("index.asp")
end if
Classname=Rsc("a125_names")
a125_big_id=Rsc("a125_big_id")
sqls="select * from a125_type where ID="&a125_big_id&""
Set Rss=conn.execute (sqls)
if Rss.eof and Rss.bof then
response.Redirect("index.asp")
end if
SortName=Rss("a125_names")
end if
if ClassID=0 then
sqls="select * from a125_type where ID="&SortID&""
Set Rss=conn.execute (sqls)
SortName=Rss("a125_names")
end if
'Info=RsS("Info")
%>
<table width="100%" height="100%" border="0" align="center" valign="top" cellpadding="0" cellspacing="0">
<TR>
<TD width=15 height=15><IMG height=15 src="images/1/k2_1a.gif"
width=15></TD>
<TD background=images/1/k2_1b.gif height=15><IMG height=15
src="images/space.gif" width=1></TD>
<TD width=15 height=15><IMG height=15 src="images/1/k2_1c.gif"
width=15></TD>
</TR>
<tr>
<TD width=10 background=images/1/k2_2a.gif><IMG height=1 src="images/space.gif" width=15></TD>
<td valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="25" style="border-bottom:2px #ff9900 solid;">
<tr>
<TD align=middle height=36 width=9><img src="images/2/index_06.gif" width="9" height="36" alt=""></TD>
<TD width="30" height="36" background="images/2/index_08.gif"><DIV align=center><IMG height=17 src="images/bottom4.gif" width=18></DIV></TD>
<TD width="730" height="25" background="images/2/index_08.gif">您现在的位置：首页 >> <a href="type.asp?a125id=<%=a125_big_id%>"><%=SortName%></a> >> <a href="class_type.asp?a125id=<%=ClassID%>"><%=Classname%></a></TD>
<TD align=middle height=36 width=11><img src="images/2/index_10.gif" width="11" height="36" alt=""></TD>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<tr><td>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width="100%" id="Right_width" s>
<%
set rs=server.createobject("adodb.recordset")
ID=request("id")
IF ID = "" OR Not IsNumeric(ID) Then
Response.Redirect("Index.asp")
Response.End
End IF
sqltext="select top 1 * from Info where Id="&ID&""
rs.open sqltext,conn,1,1
do while not rs.eof
InfoID=rs("Id")
Discussion=rs("Discussion")
Title=rs("Title")
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=30 width="100%" valign="bottom">
<div align="center"><b><font size="4"><%=Title%></font></b></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<%
Call ReadContent()
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width="100%" border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=34 align="right">
</TD>
<TD width="41%" align="right">【<a href="class_type.asp?a125id=<%=ClassID%>">返回</a>】 【<a href="javascript:window.scroll(0,-360)">顶部</a>】
【<a href="javascript:self.close()">关闭</a>】</TD>
</TR>
</TBODY>
</TABLE>
<%
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"> </td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<% sub ReadContent()%>
<hr size="3" width="100%" Color=#f5f5f5>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td style='FILTER: DropShadow(Color=#cccccc, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'>
<p align="center">
<%
if RS("department")<>"" then
InfoSql="select * from HX_Department where WS_Did="&RS("department")
Set InfoRs=Conn.Execute(InfoSql)
DepartmentName=Infors("WS_DepartmentName")
Infors.close
set Infors=nothing
else
DepartmentName=""
end if
Select case switch_author
case "1"
response.write "录入：<font color=""#FF0000"">"&RS("author")&"</font>"
case "2"
response.write "录入：<font color=""#FF0000"">"&DepartmentName&"</font>"
case "3"
response.write "录入：<font color=""#FF0000"">"&DepartmentName&" "&RS("author")&"</font>"
Case else
End Select
%>
<a href="http://<%=a125_http%>" target=_blank><%=a125_http%></a>
<%=rs("date")%> 人气：<font color="#FF0000"><%=rs("hits")%></font>
</td>
</tr>
</table>
</div>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="4">
<tr>
<td width="100%" height="100%" style="line-height: <%=a125_line_H%>" valign="top">
<%=RS("content")%>
</td>
</tr>
</table>
<% end sub %>
</td>
<TD width=15 background=images/1/k2_2c.gif><IMG height=1 src="images/space.gif" width=15></TD>
</tr>
<TR>
<TD width=15><IMG height=15 src="images/1/k2_3a.gif" width=15></TD>
<TD background=images/1/k2_3b.gif height=15><IMG height=15 src="images/space.gif" width=1></TD>
<TD width=15 height=15><IMG height=15 src="images/1/k2_3c.gif" width=15></TD></TR></TBODY></TABLE></TD>
</TR>
</table>
</td></tr></TABLE>
<!--主要内容结束-->
<!--#include file="foot.asp" -->
<SCRIPT language=javascript>
document.title="<%=Title%>--<%=a125_title%>";
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -