newvipbook.asp

来自「功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹」· ASP 代码 · 共 12 行

<!--#include file="../conn.asp"--><%id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
set rsvip1=server.CreateObject("ADODB.Recordset")
sqlvip1="select id,view_type,view_date from [list_view] where view_id="&id&" and view_IsVip=1"
rsvip1.open sqlvip1,conn,1,1
if not(rsvip1.bof and rsvip1.eof) then
response.write "document.write(""&nbsp;&nbsp;&nbsp;&nbsp; 本书VIP会员最新章节：<a target=_blank href="&SiteSystemPath&"vip_view_book.asp?id="&rsvip1("id")&">"&rsvip1("view_type")&"</a>"");" 
response.write "document.write(""&nbsp;&nbsp;&nbsp;&nbsp; 更新日期："&rsvip1("view_date")&""");"
end if
rsvip1.close
set rsvip1=nothing%>