comment.asp

起点9 V2.0小说整站系统 介绍： 1、 采用企业级标准应用三层架构

<%
session.CodePage = 65001
Response.Buffer=true
Response.Expires=0
%>
<!--#include file="request.asp"-->
<!--#include file="comment_class.asp"-->
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from "&prefix&"booklist where id="&bid&""
rs.open sql,conn,1,1
booktitle=rs("booktitle")
rs.close
%>
<%Response.ContentType = "text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="main" title="<%=booktitle%>书评">
<p>

<a href="index.asp?pnum=<%=pnum%>&amp;uid=<%=uid%>&amp;ups=<%=ups%>">[返回首页]</a>
<%
if bid<>"" then
%>
<a href="show.asp?bid=<%=bid%>&amp;pnum=<%=pnum%>&amp;uid=<%=uid%>&amp;ups=<%=ups%>">返回书页</a>
<%
end if
%>
<br/>
《<%=booktitle%>》
<br/>
【本书评论】
<br/>
---------------
<br/>
<%=list_page%>
<BR/>
---------------
<br/>
【发表评论】

<%=login_page%>
<br/>
<a href="index.asp?pnum=<%=pnum%>&amp;uid=<%=uid%>&amp;ups=<%=ups%>">返回首页</a>
<%
if bid<>"" then
%>
<a href="show.asp?bid=<%=bid%>&amp;pnum=<%=pnum%>&amp;uid=<%=uid%>&amp;ups=<%=ups%>">返回书页</a>
<%
end if
%>
<br/>
<!--#include file="bootom_ad.asp"-->
</p></card></wml>