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

📄 rebate.asp

📁 亿众购物系统 一套设计完善、高效的web商城解决方案
💻 ASP
字号:
<!--#include file="../Session.asp"-->
<html>
<head>
<title>折扣信息</title>
<script language=javascript>
<!--

function change(ckb,tag){
	if (ckb.checked) 
		{tag.value=1;
		}
	else
		{
		tag.value=0;form1.selectall.checked=false;}
}

function checkall(form){  
  if (form.selectall.checked==true){ val = 1; } else { val = 0; }

  for (var i=0; i<form.elements.length; i++){
    var e = form.elements[i];
    var t = e.name;
    
    if (t.substr(0,4) == 'ckb_') { e.checked = form.selectall.checked; }
    if (t.substr(0,4) == 'Tag_') { e.value = val; }
  }
}

/* --- 删除所选取的期号 --- */
function del_sel(form) {

	var delcount = 0
	for (var i=0; i<form.elements.length; i++) {
		var e = form.elements[i];
		var t = e.name;
		
		if (t.substr(0,4) == 'ckb_'){
			if (e.checked == true){
				delcount = 1;
				break;
			}
		}
  
    }
    if (delcount<=0)
	{
	window.alert("你到底要删除那一条呢!");
	return false;
     }
    if (!confirm("你确实想删除所选取的纪录吗?"))
	{ return false; }
	

	form.action ="DelRebate.asp";
	form.submit();    
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="Default.asp">
  <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="50" colspan="6" align="center" class="tdstyle"><strong><font color="#000000" size="3">折扣信息管理|</font><font size="3"><a href="AddRebate.asp"><strong>添加</strong></a></font></strong></td>
    </tr>
	<%sql="select * from hotpro where TextId=1 order by id desc"
	 set rs=server.createobject("adodb.recordset")
	 rs.open sql,conn,1,1
	 if rs.eof then
	 	response.write "<tr><td height=25 colspan=6 align=center class=text>没有纪录,请及时添加!</td></tr>"
		'response.end
	else 
	 	rs.pagesize=18
	 	countpage=rs.pagecount
		if request("page")=""  or IsNumeric(request("page"))=False then
				page = 1
		else
				page=int(request("page"))
		end if
	 	if int(page)>countpage then
			page=countpage
		 end if 
	 	rs.absolutepage=page%>
    <tr> 
      <td width="30%" height="25" align="center" class="tdstyle"><strong>介 绍</strong></td>
      <td width="30%" align="center" class="tdstyle"><strong>链 接</strong></td>
	  <td width="10%" align="center" class="tdstyle"><strong>显 示</strong></td>
      <td width="8%" align="center" class="tdstyle"><strong>删 除</strong></td>
    </tr>
    <% do while not rs.eof 
         Id=rs(0)%>
    <tr> 
      <td height="20" align="center" class="tdstyle" ><a href=../../<%=rs("links")%> target="_blank"><%= rs("texts")%></a> </td>
      <td align="center" class="tdstyle"> <%=rs("links")%></td>
       <td align="center" class="tdstyle"> 
	   	  <%ifshow=rs("ifshow")
	  if ifshow=True then
	  %>
	  <input name="submit1" type="button" class="button5" value="是" onClick="if(confirm('您确定要改变吗?')) location.href='IfshowRebate.asp?id=<%=Id%>&ifshow=<%=ifshow%>&page=<%=page%>'">
	  <%else%>
	  <input name="submit1" type="button" class="button4" value="否" onClick="if(confirm('您确定要改变吗?')) location.href='IfshowRebate.asp?id=<%=Id%>&ifshow=<%=ifshow%>&page=<%=page%>'">
	  <%end if%>
	   </td>
      <td align="center" class="tdstyle"> 
	  <input type="checkbox" name="ckb_<%=i%>" onClick="change(ckb_<%=i%>,Tag_<%=i%>)">
	  <input type="hidden" name="ID_<%=i%>" value="<%=Id%>">
	  <input type="hidden" name="Tag_<%=i%>" value="0"></td>
    </tr>
    <%i=i+1
   rs.movenext
   if i>=rs.pagesize then exit do
   loop
   %>
    <tr> 
      <td height="30" colspan="3" align="center" class="tdstyle"> 共[<strong><font color="#FF0000"><%=countpage%></font></strong>]页 现处于[<strong><font color="#FF0000"><%=page%></font></strong>]页 <a href=Default.asp?page=1><font face="Arial, Helvetica, sans-serif">首页</font></a> 
          <font face="Arial, Helvetica, sans-serif"><a href=rebate.asp?page=<%if page-1<1 then response.write  page else response.write page-1 end if%>>上一页</a> 
          <a href=rebate.asp?page=<%if page+1>countpage then response.write page else response.write page+1 end if%>>下一页</a> 
           <a href=rebate.asp?page=<%=countpage%>>尾页</a> 
          转到 </font> 
          <input name="page" type="text" class="input1" size="3">
          <input name="Submit" type="submit" class="button" value="转到">
	  </td>
      <td colspan="3" align="center" class="tdstyle">全部选取 
        <input type="checkbox" value="on" name="selectall" onClick="checkall(this.form)">
	  <input name="delselect" type="button" class="button" onClick="return del_sel(this.form)" value="删除">
	 </td>
    </tr>
  </table>
    <%end if%>
</form>
</body>
</html>

⌨️ 快捷键说明

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