<!--#include file="../Inc/conn.asp"-->
<!--#Include File="Func.asp"-->
<%Call SiteInfo%>
<?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 
id =1
End If 
if id<>"" then 
set rs = server.createobject("adodb.recordset")
sql="select * from "&tbname&"_About where ID="&id
rs.open sql,conn,1,1
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&"_About where ID="&id
rs.open sql,conn,1,1
response.Write(ContentPagination(Replace(rs("Content"),"../upload","http://"&SitePath&"/upload")))
rs.close
set rs = server.createobject("adodb.recordset")
sql="select top 1 * from "&tbname&"_About where ID>"&id
rs.open sql,conn,1,1
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&"_About where "&id&">ID  order by id desc"
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&"_About 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="About.asp?Id=<%=Lid%>"><%=Lname%></a><br/>&#x4E0A;&#xFF1A;
<a title="<%=Rname%>" href="About.asp?Id=<%=Rid%>"><%=Rname%></a>
<br/></li>
</ul>
<div id="n" align="left"></div>
<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;&#x0032;&#x0030;&#x0030;&#x0039;&#x000D;&#x000A;<%=unicode(sitetitle2)%>&#x0020;&#x7248;&#x6743;&#x6240;&#x6709;
  <br/>
&#x73B0;&#x5728;&#x65F6;&#x523B; <%=now()%>
</p>
</body></html>