<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="header.asp" -->
<%
	Dim log_Year,log_Month,log_Day,cateID,viewType,SQLFiltrate,Url_Add
	Url_Add="?"
	Response.Write("<br>")
 %>
<table width="768" border="0" cellpadding="8" cellspacing="0" class=maintable align="center">
  <tr>
    <td width="100%" valign="top">
<%
if enableEnglish=1 then ShowEnglish
Dim CurPage
If CheckStr(Request.QueryString("Page"))<>Empty Then
	Curpage=CheckStr(Request.QueryString("Page"))
	If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
	Curpage=1
End If

Dim webBook
Set webBook=Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM 17u0_book ORDER BY book_ID DESC"
webBook.Open SQL,CONN,1,1
SQLQueryNums=SQLQueryNums+1
If webBook.EOF AND webBook.BOF Then 
	Response.Write("<table width=""100%"" border=""0"" align=""center"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr><td bgcolor=""#FFFFFF"" height=""58"" align=""center"">鏆傛椂娌℃湁鐣欒█</td></tr></table><br><br>")
Else
	Dim book_ID,book_Messager,book_QQ,book_Url,book_Mail,book_face,book_IP,book_Content,book_PostTime,book_reply,book_HiddenReply,book_replyTime,book_replyAuthor
	webBook.PageSize=R17u0BookPage '姣忛〉鐣欒█鏁