<!--#include file="../conn.asp"-->
<!--#include file="function.asp"-->
<%
newsid=cint(request("id"))

Set rs=Server.CreateObject("ADODB.RecordSet") 

sql="select * from links where id="&newsid
rs.Open sql,conn,1,1

if rs.eof and rs.bof then
	response.Write("<script language=javascript>alert('未找到您请求的页面，请返回首页');location.reload('/');</script>>")
end if

if rs("wailink")<>"No" then
response.Redirect(rs("wailink"))
end if

'*************************************************
'函数名：writeWeizhi
'作  用：获取当前页面位置
'作  者：Joh.Dailyn自动分页类。
'*************************************************
sub writeWeizhi
    dim strWeizhi
	strWeizhi=strWeizhi & "◇&nbsp;您的位置&nbsp;&gt;&nbsp;<a href=/>首&nbsp;页</a>&nbsp;&gt;&nbsp;"&rs("BigclassName")&"&nbsp;&gt;&nbsp;"&rs("smallClassName")&""
	response.write strWeizhi
end sub	

'*************************************************
'函数名：writeKeywords
'作  用：获取和显示相关信息
'作  者：Joh.Dailyn自动分页类。
'*************************************************
sub writeKeywords
	dim strKeyWords
	set rsk=server.CreateObject("adodb.recordset")
	rsk.open "select id,title from News where KeyWords='"&rs("KeyWords")&"' and id<>"&newsid&" order by id desc",conn,1,1
	if trim(rs("KeyWords"))<>"Null" then
		strKeyWords=strKeyWords & "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='28'><strong>---------- 相关信息 ----------</strong></td></tr>"
	do while not rsk.eof
		strKeyWords=strKeyWords & "<tr><td height='22'>·&nbsp;<a href='Article.asp?id="&rsk("id")&"' target='_blank' title='"&rsk("title")&"'>"&rsk("title")&"</a></td></tr>"
		
	rsk.MoveNext
	loop
	strKeyWords=strKeyWords & "</table>"
	response.write strKeyWords
	rsk.close
	end if
end sub	

'*************************************************************
'类  名  称：AutoPaging，Joh.Dailyn自动分页类。
'目　　　的：自动将长文章分页输出
'属　　　性：Splitchar：分页搜索标志。以一维数组方式输入，默认array("<br/>","<BR>","<Br>","<bR>")
'　　　　　　PagingString：要进行分页的字符串
'　　　　　　PagingSize：分页长度
'　　　　　　CurrentPage：当前输出页码
'　　　　　　DefaultRange：默认搜索分页标志范围
'　　　　　　StepRange：搜索步长
'方　　　法：getTotalPageCount()：返回总分页数
'　　　　　　OutputString：输出当前分页内容
'*************************************************************
'Class AutoPaging
	'public Splitchar'分页搜索标志，数组
	'public PagingString'分页字符串
	'public PagingSize'页面最大长度
	'public CurrentPage'当前页码
	'public DefaultRange'默认起始范围
	'public StepRange'步长
	'private Truncate'2维数组m，n。m0=页码、m1=起始字符、m2=结束字符，n=总页数
	'private intStart'开始位置
	'private intLen'截取长度
	'private tmpStr
	'private Range'起始范围

	'private Sub Class_Initialize()
	 ' Splitchar=array("<br/>","<BR>","<Br>","<bR>")
	  'PagingSize = 2000
	  'DefaultRange=1
	  'StepRange = 1
	  'intStart = 0
	  'intEnd = 0
	'End Sub
	
	'public Function getTotalPageCount()'返回总页数
	  'if len(PagingString) mod PagingSize > 0 then
		'getTotalPageCount = int(len(PagingString) / PagingSize) + 1
	  'else
		'getTotalPageCount = len(PagingString) / PagingSize
	  'end if
	'End Function
	
	'public Sub OutputString
	  'redim Truncate(2,getTotalPageCount())
	
	  'For tmpI = 0 to getTotalPageCount()
		'Truncate(0,tmpI)=tmpI
	  'Next
	
	 ' For tmpI = 1 to ubound(Truncate,2)
		'if Truncate(0,tmpI) = 1 then
		  'Truncate(1,tmpI) = 1
		'else
		  'Truncate(1,tmpI)=Truncate(1,tmpI - 1) + Truncate(2,tmpI - 1)
		'end if
		'Range = DefaultRange
		'Do while Range < PagingSize
		 ' tmpStr=right(mid(PagingString,Truncate(1,tmpI),PagingSize),Range)
		 ' For tmpInt=0 to ubound(Splitchar)
			'if instr(1,tmpStr,Splitchar(tmpInt)) > 0 then
			 ' Truncate(2,tmpI) = (PagingSize - (len(tmpStr) - instr(1,tmpStr,Splitchar(tmpInt)))) - 1
			  'exit do
			'end if
		 ' Next
		'  Range = Range + StepRange
		'Loop
		''if tmpI = Cint(CurrentPage) then
		 ' intStart = Truncate(1,tmpI)
		'  intLen = Truncate(2,tmpI)
		'end if
	  'next
	  'if Cint(CurrentPage) = getTotalPageCount() then
		'response.write(mid(PagingString,intStart))'如果当前分页为最后一页，则取剩下的所有字符
	  'else
		'response.write(mid(PagingString,intStart,intLen))
	  'end if
	'End Sub
'End Class

'分页页码部分：
'Sub ShowPageing(getUrl,getId)
	'if TotalPage > 1 then
	 ' For i=1 to TotalPage
		'if i = Cint(Page) then
		'  response.write("[<b>" & i & "</b>]")
		'else
		  'response.write("<a href=readnews.asp?newsid=" & NewsID & "&bigclassid=" & BigClassID & "&smallclassid=" & SmallClassid & "&specialid=" & SpecialID & "&page=" & i & ">[" & i & "]</a>　")
		 ' response.Write " [<a href="&getUrl&"?"&getId&"=" & newsid & "&Page=" & i & ">" & i & "</a>] "
		'end if
	 ' Next
	'end if
'End Sub

'Public Sub CloseRsMyclass
	'rs.close
	'set rs=nothing
	'Set myclass = nothing
'End Sub
%>
<SCRIPT language=JavaScript>
var currentpos,timer;

function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</SCRIPT>