📄 tejia.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--特价靓书</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/default.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/z12s.gif','images/z34s.gif','images/z56s.gif')" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<!--#include file="webtop.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FC7700">
<tr>
<td width="170" align="left" valign="top"><img src="images/z0.gif" width="170" height="25"></td>
<td width="160" bgcolor="#FF8E19"><div align="left"><a href="tejia.asp?action=12" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image7','','images/z12s.gif',1)"><img src="images/z12.gif" alt="一至二折区" name="Image7" width="159" height="25" border="0"></a></div></td>
<td width="160" bgcolor="#FF8E19"><div align="left"><a href="tejia.asp?action=34" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image8','','images/z34s.gif',1)"><img src="images/z34.gif" alt="三至四折区" name="Image8" width="159" height="25" border="0"></a></div></td>
<td width="286" bgcolor="#FF8E19"><div align="left"><a href="tejia.asp?action=56" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9','','images/z56s.gif',1)"><img src="images/z56.gif" alt="五至六折区" name="Image9" width="159" height="25" border="0"></a></div></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="170" height="128" valign="top" bgcolor="#FDE6A4"><DIV id=floater
style="Z-INDEX: 20; WIDTH: 144px; POSITION: absolute; TOP: 255; overflow: visible;">
<table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><img src="<%if request.cookies("bookshop")("username")="" then
response.write "images/login_r1_c1.gif"
else
response.write "images/GWXX.gif"
end if%>" width="170" height="26"></td>
</tr>
<tr>
<td width="1" rowspan="2"><img src="images/login_r2_c1.gif" width="6" height="164"></td>
<td width="138" height="140" background="images/login_r2_c2.gif">
<!--#include file="userinfo.asp"--></td>
</tr>
<tr>
<td><img src="images/login_r3_c2.gif" width="164" height="20"></td>
</tr>
</table>
</div></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="100%" height="157">
<%dim action
action=request.QueryString("action")
'开始分页
Const MaxPerPage=8
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if request.cookies("bookshop")("grtt")=1 then '团体数据
select case action
case ""
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where tuantidazhe<=0.69 order by adddate desc",conn,1,1
case "12"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where tuantidazhe<=0.29 order by adddate desc",conn,1,1
case "34"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where tuantidazhe<=0.49 and tuantidazhe>0.29 order by adddate desc",conn,1,1
case "56"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where tuantidazhe<=0.69 and tuantidazhe>0.49 order by adddate desc",conn,1,1
end select
else '//个人数据
select case action
case ""
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where dazhe<=0.6 order by adddate desc",conn,1,1
case "12"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where dazhe<=0.29 order by adddate desc",conn,1,1
case "34"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where dazhe<=0.49 and dazhe>0.29 order by adddate desc",conn,1,1
case "56"
rs.open "select bookname,bookzz,bookchuban,bookid,bookdate,huiyuanjia,queshu,shichangjia,dazhe,tuantijia,tuantidazhe,bookpic from shop_books where dazhe<=0.69 and dazhe>0.49 order by adddate desc",conn,1,1
end select
end if
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起，目前还没有这种优惠的图书！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"tejia.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"tejia.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"tejia.asp"
end if
end if
end if
sub showContent
dim i
i=0
%> <%do while not rs.eof%> <table width="94%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="17%" rowspan="5"><table width="65" height="96" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="73" bgcolor="#FFFFFF"><%
response.Write "<a href=book.asp?id="&rs("bookid")&">"
if trim(rs("bookpic"))<>"" then
response.Write "<img src="&trim(rs("bookpic"))&" width=65 height=96 border=0 ></a>"
else
response.Write "<img src=images/emptybook.gif width=65 height=96 border=0></a>"
end if%></td>
</tr>
</table></td>
<td colspan="2"><a href=book.asp?id=<%=rs("bookid")%>><%=trim(rs("bookname"))%></a></td>
</tr>
<tr>
<td width="40%">作 者：<%=trim(rs("bookzz"))%></td>
<td width="43%">出版社：<%=trim(rs("bookchuban"))%></td>
</tr>
<tr>
<td>日 期：<%=trim(rs("bookdate"))%></td>
<td> </td>
</tr>
<tr>
<td colspan="2">市场价：<%=formatnumber(rs("shichangjia"),2)&"元"%> 会员价：<%=formatnumber(rs("huiyuanjia"),2)&"元"%><%if request.cookies("bookshop")("grtt")=1 then
response.write " "
response.write "<font color=ff6600>团体价："&formatnumber(rs("tuantijia"),2)&"元</font>"
end if%> 折 扣：<%if request.cookies("bookshop")("grtt")=1 then
response.write formatnumber(rs("tuantidazhe")*100,2)&"%"
else
response.write formatnumber(rs("dazhe")*100,2)&"%"
end if%></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<a href="#" <%if int(rs("queshu"))=0 then
response.write "onClick=""javascript:window.open('shoucang.asp?id="&rs("bookid")&"&action=add ','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" "
else
response.write "onClick=javascript:alert('《"&trim(rs("bookname"))&"》暂时没有库存，请您继续关注！')"
end if%> ><img src=images/shoucang.gif width=49 height=14 align=absmiddle border=0 <%if int(rs("queshu"))=1 then response.write "alt=没有库存"%>></a>
<a href="#" <%if int(rs("queshu"))=0 then
response.write "onClick=""javascript:window.open('shopping.asp?id="&rs("bookid")&" ','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" "
else
response.write "onClick=javascript:alert('《"&trim(rs("bookname"))&"》暂时没有库存，请您继续关注！')"
end if%> ><img src=images/gouwu.gif width=49 height=14 align=absmiddle border=0 <%if int(rs("queshu"))=1 then response.write "alt=没有库存"%> ></a>
</div></td>
</tr>
</table>
<hr width="96%" size="1" color=#000000> <%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%> <%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&"?action="&action&">"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&action="&action&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&action="&action&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&action="&action&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&action="&action&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"种商品 "&maxperpage&"种商品/页</font> "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&" onkeypress = ""return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))""onpaste= ""return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))""ondrop= ""return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok'></form>"
End Function
%> </td>
</tr>
</table></td>
</tr>
</table><!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
<%conn.close
set conn=nothing%>
</body>
</html>
<script language=javascript>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -