newvipbook.asp

小说站源代码文件

<!--#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%>