%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
bookNameE=request("bookNameE")
prezero = false
select case bookNameE
case "clnp"
bookNameC="灿烂涅槃"
bookNameE="clnp"
cover="cover"
cov=10
cat=4
maxPage=412
bookURL="books/clnp/"
picFormat="gif"
case "sjygydg"
bookNameC="世界摇滚乐大观"
bookNameE="sjygydg"
cover="cover"
cov="none"
cat=5
maxPage=591
bookURL="books/sjygydg/"
picFormat="jpg"
case "ygydlsyfg"
bookNameC="摇滚乐的历史与风格"
bookNameE="ygydlsyfg"
cover="cover"
cov="none"
cat=3
maxPage=226
bookURL="books/ygydlsyfg/"
picFormat="jpg"
case "omlxyyzn"
bookNameC="欧美流行音乐指南"
bookNameE="omlxyyzn"
cover="cover"
cov=13
cat=56
maxPage=899
bookURL="books/omlxyyzn/"
picFormat="jpg"
case "shnf"
bookNameC="伤花怒放"
bookNameE="shnf"
cover="cover"
cov=4
cat=0
maxPage=364
bookURL="books/shnf/"
picFormat="jpg"
prezero = true
case "rs500"
bookNameC="Rolling Stones 500 Albums of All Time"
bookNameE="rs500"
cover="cover"
cov=1
cat=0
maxPage=224
bookURL="books/rs500/"
picFormat="jpg"
prezero = true
case "nh"
bookNameC="呐喊 为了中国曾经的摇滚"
bookNameE="nh"
cover="cover"
cov=5
cat=28
maxPage=423
bookURL="books/nh/"
picFormat="jpg"
prezero = true
case else
response.write "error!please contact websick!"
end select
%>
摇摆中华 - 书籍图片 - <%=booknamec%>
<%
set rs=server.createobject("adodb.recordset")
set rsac=server.createobject("adodb.recordset")
%>
首页 - 书籍图片
-
【<%=bookNameC%>】 * 只作为一窥管豹用 请购买正版书籍阅读!
<%
if cover="none" then
response.write("无封面!")
else
response.write(" ")
end if
%>
<%=bookNameC%>
<%
response.write ""
if cover="none" then
response.write("无封面!")
response.Write(" ")
else
response.write("封面 ")
response.Write("")
end if
%>
<%
if cov="none" then
'response.Write("no cov!")
else
dim icov
dim icov2
icov=1
cov=cint(cov)
'response.write ""
do while icovcov then exit do
icov2=1
response.write ""
do while icov2<11
if icov>cov then exit do
response.write ""
response.Write("封"&icov&" ")
icov2=icov2+1
icov=icov+1
response.write " "
loop
response.write " "
loop
'response.write "
"
end if
%>
<%
if cat="none" then
'response.Write("no cat!")
else
dim icat
dim icat2
icat=1
cat=cint(cat)
'response.write ""
do while icatcat then exit do
icat2=1
response.write ""
do while icat2<11
if icat>cat then exit do
response.write ""
response.Write("目录"&icat&" ")
icat2=icat2+1
icat=icat+1
response.write " "
loop
response.write " "
loop
'response.write "
"
end if
%>
<%
dim ipage
dim ipage2
ipage=1
maxPage=cint(maxPage)
'response.write ""
do while ipage"
do while ipage2<11
if ipage>maxPage then exit do
response.write ""
response.write "正文"&ipage&" "
ipage=ipage+1
ipage2=ipage2+1
response.write " "
loop
response.write ""
loop
response.write "
"
%>