ycms_showbook.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<!--#include file="inc/Skin.asp"-->
<!--#include file="inc/ubb.asp"-->
<%
YCMS_Open()
Dim bookid:bookid=Request.QueryString("id")
title="鏌ョ湅鐣欒█"
call YCMS_where(title,"YCMS_ShowBook.asp?id="&bookid)
YCMS_Head()
Dim tmp
tmp=YCMS_skin(18)
tmp=Split(tmp,"<!--@@@-->")
YCMS_Print(tmp(0))

Select Case Request.QueryString("action") 
case "editbook"
      call editbook()
case "editreplybook"
      call editreplybook()
Case Else
Call showbook()
End Select

Sub showbook()
set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from [YCMS_book] where id="&bookid,conn,1,1
if rs.eof and rs.bof then
YCMS_url("Error.asp?action=error&text="&server.urlencode("璇ユ暟鎹