⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 classleft.asp

📁 BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台;针对企业与个人的网上销售系统;开放式远程商店管理;完善的订单管理、销售统计、结算系统;强力搜索引擎支持;提供网上多种在线支付方
💻 ASP
字号:
 <!--#include file="connection.asp"-->
<html>
<head>
<script>
function show(c_Str)
{if(document.all(c_Str).style.display=='none')
{document.all(c_Str).style.display='block';}
else{document.all(c_Str).style.display='none';}}
function high(){
if (event.srcElement.className=="k"){
event.srcElement.style.background="A5CED4"
event.srcElement.style.color="white"
}
}
function low(){
if (event.srcElement.className=="k"){
event.srcElement.style.background="ffffff"
event.srcElement.style.color=""
}
}
	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>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/default.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="10" topmargin="0" marginwidth="0" marginheight="0">
<table width="32%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="44"><div align="center"><img src="images/plgs.gif" width="170" height="176" alt="欢迎您<%=request.cookies("bookshop")("username")%>,您将在团体购书栏目中享受超值优惠。"></div></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="16" bgcolor="#00A2D3"><div align="center"><img src="images/tsfl1.gif" width="170" height="28"></div></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
  <tr> 
    <td style="padding-left:10px"><b><a href=ClassRight.asp target=right>查看所有图书</a></b> 
    </td>
  </tr>
  <%dim rs1,ii
	ii=0
	set rs=server.CreateObject("adodb.recordset")
	rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
	if rs.eof and rs.bof then
	response.write "目前还没分大分类"
	else
	do while not rs.eof
	%>
  <tr> 
    <td style="padding-left:10px"><div class=up onclick=show("a<%=ii%>")><b><img src="images/plus.gif"><%=trim(rs("anclass"))%></b></div>
      <div onmouseover=high() onmouseout=low()  id=a<%=ii%> style="display:none"> 
        <%set rs1=server.CreateObject("adodb.recordset")
	  rs1.open "select * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
	  if rs1.eof and rs1.bof then
	  response.write "目前还没有小分类"
	  else
	  do while not rs1.eof%>
        <div class=k>&nbsp;&nbsp;<img src="images/nofollow.gif"><a href=ClassRight.asp?nclassid=<%=rs1("nclassid")%>&anclassid=<%=rs1("anclassid")%> target="right"><%=trim(rs1("nclass"))%></a></div>
        <%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
      </div></td>
  </tr>
  <%ii=ii+1
rs.movenext
loop
rs.close
set rs=nothing
end if
conn.close
set conn=nothing%>
  <tr> 
    <td height="6" style="padding-left:10px"></td>
  </tr>
  <tr> 
    <td style="padding-left:10px"><hr width="98%" size="1" color=#A5CED4> <font color="#ff6600">用户自定义设置:</font></td>
  </tr>
  <tr>
    <form name="form1" method="post" action="ClassRight.asp" target=right>
      <td style="padding-left:10px"><font color="#ff6600">每页显视</font> <input name="Intbook" type="text" id="Intbook" size="2" value=<%if session("intbook")="" then response.write "20" else response.write session("intbook") end if%> maxlength=3  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'))"> 
        <font color="#ff6600">种图书</font><br> <input type="submit" name="Submit" value="确 定"> 
      </td>
    </form>
  </tr>
  <tr>
    <td align="left" valign="top" style="padding-left:10px"><a href="Class.asp" target="_top"><font color="#FF0000"> 
      <img src="images/qhls.gif" alt="点击切换到零售购书" width="137" height="19" vspace="5" border="0"> </font></a></td>
  </tr>
</table>
</body>
</html>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -