<%=Qcdn.HTMLcode(title)%>
|
<%
if AddWriter then
Response.write("作者：")
if writer<>"" then
response.Write(writer)
response.write("")
end if
end if
if ad = 1 then
if Session("flag") = "" or Session("Admin_Name") = "" then
Session("flag") = ""
Session("Admin_Name") = ""
Errmsg = "你没有登录系统。你以登陆超时。点击这里重新登陆"
call Qcdn.Err_List(errmsg,1)
Response.end
end if
Response.write("审核 修改")
end if
%>
|
<%=Qcdn.Ubbcode(content)%>
|
来源：
<%if writefrom<>"" then response.Write(writefrom)%>
阅读：<%=hits%> 次
日期：<%=Intime%>
|
|
<%
if AddScroll then
Response.write ""
Response.write "【 双击滚屏 】 "
end if
if EmailFlag<>0 then
Response.write "【 推荐朋友 】 "
end if
if AddComment then
Response.write "【 评论 】 "
end if
if AddFavorite then
Response.write "【 收藏 】 "
end if
if AddPrint then
Response.write "【 打印 】 "
end if
if AddClose then
Response.write "【 关闭 】"
end if
%>
【 字体：大 中
小 】 |
<%
sql = "Select Unid,title from article_info where Unid = "& Unid-1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "上一篇：已经没有了。"
else
Response.write "上一篇："& Qcdn.HTMLcode(rs(1)) &""
end if
%>
<%
rs.close
sql = "Select Unid,title from article_info where Unid = "& Unid+1
Set Rs = conn.execute(sql)
if Rs.eof and Rs.bof then
Response.write "下一篇：已经没有了。"
else
Response.write "下一篇："& Qcdn.HTMLcode(rs(1)) &""
end if
rs.close
%>
|
|