<%@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 "") 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 "
" if cover="none" then response.write("无封面!") response.Write("
" do while icovcov then exit do icov2=1 response.write "" do while icov2<11 if icov>cov then exit do response.write "" loop response.write "" loop 'response.write "
" response.Write("封"&icov&"  ") icov2=icov2+1 icov=icov+1 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 "" loop response.write "" loop 'response.write "
" response.Write("目录"&icat&"  ") icat2=icat2+1 icat=icat+1 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 "" loop response.write "" loop response.write "
" response.write "正文"&ipage&"" ipage=ipage+1 ipage2=ipage2+1 response.write "
" %>