<!--#include file="../Inc/conn.asp"-->
<!--#Include File="Func.asp"-->
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=unicode(""&SiteTitle&"")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<link href="<%if Session("CssFile")<>"" then%><%=Session("CssFile")%><%else%>Style.css<%end if%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim rs,sql,id
id=request("Id")
if not IsNumeric(id) then 
response.Write("&#x8BF7;&#x4E0D;&#x8981;&#x8F93;&#x5165;&#x975E;&#x6CD5;&#x5B57;&#x7B26;")
response.end
end if
if id<>"" then 
set rs = server.createobject("adodb.recordset")
sql="select * from "&tbname&"_Article where ID="&id&" and yn = 0"  
rs.open sql,conn,1,3
dim Cid
Cid=rs("id")
response.Write("<h2>"&unicode(rs("Title"))&"</h2><ul><li>")
rs.close
set rs = server.createobject("adodb.recordset")
sql="select * from "&tbname&"_Article where ID="&id
rs.open sql,conn,1,3
if ViewNoRight(rs("GroupID"),rs("Exclusive")) Then
response.Write(ContentPagination(rs("content"&Language&"")))
Else 
response.Write "&#x4E0D;&#x597D;&#x610F;&#x601D;&#x4F60;&#x6CA1;&#x6709;&#x6743;&#x9650;&#x67E5;&#x770B;&#xFF01;"&"<br/>"
End If 
rs.close
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from "&tbname&"_Article where yn = 0 and ID>"&id
rs.open sql,conn,1,3
Dim Lname,Lid
if not rs.eof then
Lname=unicode(rs("Title"))
Lid=rs("id")
else 
Lname="&#x5DF2;&#x5230;&#x6700;&#x540E;&#x4E00;&#x7BC7;&#x6587;&#x7AE0;"
Lid=id
end if
rs.close
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from "&tbname&"_Article where yn = 0 and "&id&">ID "
rs.open sql,conn,1,3
Dim Rname,Rid
if not rs.eof then
Rname=unicode(rs("Title"))
Rid=rs("id")
else 
Rname="&#x5DF2;&#x5230;&#x7B2C;&#x4E00;&#x7BC7;&#x6587;&#x7AE0;"
Rid=id
end if
rs.close
dim mcount
set rs = server.createobject("adodb.recordset")
sql="select count(id) As mcount from "&tbname&"_Article where id="&id&""
rs.open sql,conn,1,3
if not rs.eof then
mcount=rs("mcount")
end if
rs.close
end if
%>&#x4E0B;&#xFF1A;
<a title="<%=Lname%>" href="NewsView.asp?Id=<%=Lid%>"><%=Lname%></a><br/>&#x4E0A;&#xFF1A;
<a title="<%=Rname%>" href="NewsView.asp?Id=<%=Rid%>"><%=Rname%></a>
<br/></li>
</ul>
<div id="n" align="left"></div>
<br/>
<img src="WapImg/back.gif" alt="" />
<a title="&#x8FD4;&#x56DE;&#x4E0A;&#x7EA7;" href="Newslist.asp?Page=1">&#x8FD4;&#x56DE;&#x4E0A;&#x7EA7;</a>
<br/><img src="WapImg/home.gif" alt="" />
<a title="&#x7F51;&#x7AD9;&#x9996;&#x9875;" href="Index.asp">&#x7F51;&#x7AD9;&#x9996;&#x9875;</a>
<br/>
<div id="b" align="left"></div>
<p>&copy;&#x32;&#x30;&#x31;&#x33; <%=unicode(SiteTitle)%>&#x0020;&#x7248;&#x6743;&#x6240;&#x6709;
  <br/>
&#x73B0;&#x5728;&#x65F6;&#x523B; <%=now()%>
</p>
</body></html>