📄 root_model_list.asp

📁 网上购物系统
💻 ASP
字号:
<!--#include file="admin_check.asp"-->
<!--#include file="../Conn.asp"-->
<!--#include file="../include/MyRequest.asp"-->
<!--#include file="../include/Pages.asp"-->
<%
action=my_request("action",0)
if action="setdefault" then
    call setdefault()
end if

sub setdefault()
    root_info_skin=my_request("skin",0)
    if root_info_skin="" then
        response.redirect "error.htm"
        response.end
    else
        Set rs=Server.CreateObject("ADODB.Recordset")
        sql="select top 1 * from root_info"
        rs.open sql,conn,1,3
        rs("root_info_skin")=root_info_skin
        rs.update
        rs.close
        set rs=nothing

        call ok("您已成功设置当前使用模板信息！","root_model_list.asp")
    end if
end sub
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接-管理</title>
<link rel="stylesheet" type="text/css" href="style.css">
<script src="Editor/edit.js" type="text/javascript"></script>
<script language = "JavaScript">   
var imgObj;
function checkImg(theURL,winName){
  // 对象是否已创建
  if (typeof(imgObj) == "object"){
    // 是否已取得了图像的高度和宽度
    if ((imgObj.width != 0) && (imgObj.height != 0))
      // 根据取得的图像高度和宽度设置弹出窗口的高度与宽度，并打开该窗口
      // 其中的增量 20 和 30 是设置的窗口边框与图片间的间隔量
      OpenFullSizeWindow(theURL,winName, ",width=" + (imgObj.width+20) + ",height=" + (imgObj.height+30));
    else
      // 因为通过 Image 对象动态装载图片，不可能立即得到图片的宽度和高度，所以每隔100毫秒重复调用检查
      setTimeout("checkImg('" + theURL + "','" + winName + "')", 100)
  }
}

function OpenFullSizeWindow(theURL,winName,features) {
  var aNewWin, sBaseCmd;
  // 弹出窗口外观参数
  sBaseCmd = "toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,";
  // 调用是否来自 checkImg 
  if (features == null || features == ""){
    // 创建图像对象
    imgObj = new Image();
    // 设置图像源
    imgObj.src = theURL;
    // 开始获取图像大小
    checkImg(theURL, winName)
  }
  else{
    // 打开窗口
    aNewWin = window.open(theURL,winName, sBaseCmd + features);
    // 聚焦窗口
    aNewWin.focus();
  }
}

function loaded(myimg,mywidth,myheight)
{
 var tmp_img = new Image();
 tmp_img.src = myimg.src;
 image_x = tmp_img.width;
 image_y=tmp_img.height;

 if(image_x > mywidth)
 {
  tmp_img.height = image_y * mywidth / image_x;
  tmp_img.width = mywidth;

  if(tmp_img.height > myheight)
  {
   tmp_img.width = tmp_img.width * myheight / tmp_img.height;
   tmp_img.height=myheight;
  }
 }
 else if(image_y > myheight)
 {
  tmp_img.width = image_x * myheight / image_y;
  tmp_img.height=myheight;
  
  if(tmp_img.width > mywidth)
  {
   tmp_img.height = tmp_img.height * mywidth / tmp_img.width;
   tmp_img.width=mywidth;
  }
 }
  
 myimg.width = tmp_img.width;
 myimg.height = tmp_img.height;
}

//全选操作    
function CheckAll(form) {
 for (var i=0;i<form.elements.length;i++) {
 var e = form.elements[i];
 if (e.name != 'chkall') e.checked = form.chkall.checked; 
 }
 }

</script>
<%
action=my_request("action",0)
if action="删除" then
    call del()
end if

//过程：批量删除
sub del()
    id=my_request("id",0)
    if id<>"" then
       pp=ubound(split(id,","))+1 '判断数组id中共有几维
       for v=1 to pp
          id=request("id")(v)

          
          sql="select root_model_pic from root_model where id="&id
          set rs=conn.execute (sql)
          root_model_pic=rs(0)
          rs.close
          set rs=nothing
                   
          conn.execute ("delete from [root_model] where id="&id)
          
          //删除相应图片
          if root_model_pic<>"" then
              Dbpath="../uploadpic/"&root_model_pic
              Dbpath=server.mappath(Dbpath)
              bkfolder="../uploadpic"
              Set Fso=server.createobject("scripting.filesystemobject")
              if fso.fileexists(dbpath) then
                  If CheckDir(bkfolder) = True Then
                      fso.DeleteFile dbpath
                  end if
              end if
              Set fso = nothing
          end if

       next

      call ok("所选信息已成功删除！","root_model_list.asp")
    end if
end sub

Function CheckDir(FolderPath)
    folderpath=Server.MapPath(".")&"\"&folderpath
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    If fso1.FolderExists(FolderPath) then
        CheckDir = True
    Else
        CheckDir = False
    End if
    Set fso1 = nothing
End Function
%>
</head>

<body>

<table cellspacing="1" cellpadding="4" width="100%" class="tableborder">
<tbody class="altbg2">
	<tr>
		<td colspan="6" class="header">网站模板-管理</td>
	</tr>
	<tr>
		<td class="altbg2" colspan="6">[<b><font color="#FF0000">说明</font></b>:多多网店系统官方站会不断推出新模板样式,您可以从<a target="_blank" href="http://www.51duoduo.com"><font color="#0000FF"><u>官方站</u></font></a>下载后在<a href="Root_Model_Add.asp"><font color="#0000FF"><u>此添加新模板</u></font></a>,即可使用!]</td>
	</tr>
	<tr>
		<td class="altbg1">选中</td>
		<td class="altbg1">模板截图</td>
		<td class="altbg1">模板名称</td>
		<td class="altbg1">对应样式表文件名</td>
		<td class="altbg1">是否当前使用模板</td>
		<td class="altbg1" align="center">修改</td>
	</tr>
    <form name="form1" action="Root_Model_List.asp" method="post">
	<%
    set rs=server.createobject("adodb.recordset")
    sql="select root_model_name,root_model_css,root_model_pic,id from root_model order by id desc"
    rs.open sql,conn,1,1
    if rs.eof then 
        response.write "<tr><td colspan=6 align=center>目前暂无网站模板信息,<a href=root_model_add.asp>请添加!</a></td></tr>"
    else
        rs.PageSize =20 '每页记录条数
        iCount=rs.RecordCount '记录总数
        iPageSize=rs.PageSize
        maxpage=rs.PageCount 
        page=request("page")  
        if Not IsNumeric(page) or page="" then
            page=1
        else
            page=cint(page)
        end if    
        if page<1 then
            page=1
        elseif  page>maxpage then
            page=maxpage
        end if   
        rs.AbsolutePage=Page
        if page=maxpage then
	        x=iCount-(maxpage-1)*iPageSize
        else
	        x=iPageSize
        end if
        i=1
        
        set root_model_name=rs(0)
        set root_model_css=rs(1)
        set root_model_pic=rs(2)
        set id=rs(3)

        while not rs.eof and i<=rs.pagesize
        
			Set rs1=Server.CreateObject("ADODB.Recordset")
			sql1="select root_info_skin from root_info where id=1"
			rs1.open sql1,conn,1,1
			root_info_skin=rs1(0)
			rs1.close
			set rs1=nothing
			if root_model_css=root_info_skin then
				txtcss="<font color=red>是</font>"
			else 
				txtcss="<a href=?action=setdefault&skin="&root_model_css&">否(点击设为当前使用模板)</a>"
			end if
    %>
	<tr>
		<td><input type="checkbox" name="id" value="<%=id%>"></td>
		<td><%if root_model_pic<>"" then%><p align="center"><a target="_blank" title="点击查看大图片" href="../uploadpic/<%=root_model_pic%>" onClick="OpenFullSizeWindow(this.href,'','');return false"><img src=../uploadpic/<%=root_model_pic%> border=0 onload='loaded(this,150,150)' ></a><%else response.write "无"%><%end if%></td>
		<td><%=root_model_name%></td>
		<td><%=root_model_css%>.css</td>
		<td><%=txtcss%></td>
		<td align="center"><a href="root_model_modi.asp?id=<%=id%>">修改</a></td>
	</tr>
	<%
         rs.movenext
         i=i+1
     wend
    %>
	<tr>
		<td colspan="6">
		<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选 
        <input type="submit" name="action" value="删除" onclick="{if(confirm('删除后将无法恢复，您确定要删除选定的信息吗？')){this.document.form1.submit();return true;}return false;}">&nbsp;
		<input type="button" value="添加网站模板" name="action1" onclick="window.location='root_model_add.asp'"></td>
	</tr>
    <input type=hidden name=pagenow value=<%=page%>>
    <%
        call PageControl(iCount,maxpage,page)
    end if
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %>
    </form>
</tbody>
</table>


</body>

</html>
⌨️ 快捷键说明

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