📄 index.asp
字号:
currentpage1=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage1) then
currentpage1=1
end if
dim totalput1,n1 '定义变量
totalput1=rs.recordcount
if totalput1 mod maxperpage1=0 then
n=totalput1\maxperpage1
else
n=totalput1\maxperpage1+1
end if
if n=0 then
n=1
end if
rs.move(currentpage1-1)*maxperpage1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
for j=1 to rs.pagesize/2
%>
<tr>
<td width="50%" align="left" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="130" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="center"><a href="showproduct.asp?id=<%=rs("id")%>" target="_blank"><img src="<%if rs("imgsize")=0 then%>images/noimageX.gif<%else%>admin/show_productimg.asp?id=<%=rs("id")%><%end if%>" width="100" height="110" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td height="30" align=center>[ <a href="showproduct.asp?id=<%=rs("id")%>" class="LeftTypeTitle">详细查看</a>
]</td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="producttitle" height="30"><%=rs("productname")%></td>
</tr>
<tr>
<td>
<%
response.write left(rs("content"),20)&"..."
%></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="50" align="right">市场价：</td>
<td>￥<%=rs("marketprice")%>元</td>
</tr>
<tr>
<td align="right">会员价：</td>
<td>￥<%=rs("newprice")%>元</td>
</tr>
<tr>
<td align="right">VIP 价：</td>
<td>￥<%=rs("vipprice")%>元</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="center"><a href="shopping.asp?id=<%=rs("id")%>" target="_blank"><img src="images/shopcart.gif" width="74" height="23" border="0"></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%">
<tr>
<td background="images/dot.gif" height="1"></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
%>
</td>
<td background="images/dot.gif" width="1%"></td>
<td width="50%" align="left" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="130" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="center"><a href="showproduct.asp?id=<%=rs("id")%>" target="_blank"><img src="<%if rs("imgsize")=0 then%>images/noimageX.gif<%else%>admin/show_productimg.asp?id=<%=rs("id")%><%end if%>" width="100" height="110" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td height="30" align=center>[ <a href="showproduct.asp?id=<%=rs("id")%>" class="LeftTypeTitle">详细查看</a>
]</td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="producttitle" height="30"><%=rs("productname")%></td>
</tr>
<tr>
<td>
<%
response.write left(rs("content"),20)&"..."
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="50" align="right">市场价：</td>
<td>￥<%=rs("marketprice")%>元</td>
</tr>
<tr>
<td align="right">会员价：</td>
<td>￥<%=rs("newprice")%>元</td>
</tr>
<tr>
<td align="right">VIP 价：</td>
<td>￥<%=rs("vipprice")%>元</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td align="center"><a href="shopping.asp?id=<%=rs("id")%>" target="_blank"><img src="images/shopcart.gif" width="74" height="23" border="0"></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%">
<tr>
<td background="images/dot.gif" height="1"></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
%>
</td>
</tr>
</table>
<%
rs.close
%>
</td>
<td width="1" bgcolor="cccccc"></td>
</tr>
</table>
<SCRIPT>
var online= new Array();
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</SCRIPT>
<LAYER id=divStayTopLeft>
<TABLE cellSpacing=0 cellPadding=0 width=110 border=0>
<TBODY>
<TR>
<TD width=110><IMG src="images/kefu_up.gif"
border=0></TD></TR>
<SCRIPT src="images/getonline.htm"></SCRIPT>
<TR>
<TD vAlign=center
background="images/kefu_middle.gif">
<SCRIPT>
if (online[0]==0)
document.write(" <img src=images/QQoffline.gif border=0 align=middle><a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=webqq%>&Site=在线咨询&Menu=no' title='客服不在线，请留言' class='LeftTypeLinkU'>批发零售团购</a>");
else
document.write(" <img src=images/QQonline.gif border=0 align=middle><a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=webqq%>&Site=在线咨询&Menu=no' title='在线即时交谈' class='LeftTypeLinkU'>批发零售团购</a>");
</SCRIPT>
</TD></TR>
<TR>
<TD width=110><IMG src="images/kefu_down.gif"
border=0></TD></TR></TBODY></TABLE></LAYER>
<SCRIPT type=text/javascript>
//Enter "frombottom" or "fromtop"
var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
var startX =3,
startY = 250;
var ns = (navigator.appName.indexOf("Netscape") != -1);
var d = document;
function ml(id)
{
var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
if(d.layers)el.style=el;
el.sP=function(x,y){this.style.left=x;this.style.top=y;};
el.x = startX;
if (verticalpos=="fromtop")
el.y = startY;
else{
el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
el.y -= startY;
}
return el;
}
window.stayTopLeft=function()
{
if (verticalpos=="fromtop"){
var pY = ns ? pageYOffset : document.body.scrollTop;
ftlObj.y += (pY + startY - ftlObj.y)/8;
}
else{
var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
ftlObj.y += (pY - startY - ftlObj.y)/8;
}
ftlObj.sP(ftlObj.x, ftlObj.y);
setTimeout("stayTopLeft()", 10);
}
ftlObj = ml("divStayTopLeft");
stayTopLeft();
}
JSFX_FloatTopDiv();
</SCRIPT>
<!-- #include file="include/bottom.asp" -->
<%
//保存来访人的IP地址
sql="select * from Net008_userip order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,1,2
userip_old=rs("userip")
adddate_old=day(rs("adddate"))
nowdate=day(now())
rs.close
userip=request.ServerVariables("REMOTE_ADDR")
sql="select * from Net008_userip where userip='"&userip&"' order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,1,2
if rs.recordcount<1 then
rs.addnew
rs("userip")=userip
rs("adddate")=now()
rs.update
rs.close
set rs=nothing
elseif adddate_old<>nowdate then
rs.addnew
rs("userip")=userip
rs("adddate")=now()
rs.update
rs.close
set rs=nothing
else
rs("adddate")=now()
rs.update
rs.close
set rs=nothing
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -