📄 admin_soft_list.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
function SelectAll() {
	for (var i=0;i<document.myform.selSoftID.length;i++) {
		var e=document.myform.selSoftID[i];
		e.checked=!e.checked;
	}
}
</script>	
 <form name="myform" method="post" action="Admin_Soft_List.asp">
<% rs.open sql,conn,1,1
if rs.eof and rs.bof then
	Response.Write "<tr bgcolor=""#FCFCFC""> <td colspan=""5"">Sorry！没有找到任何记录。</td></tr>"
else
	totalrec=rs.recordcount
	  	if (totalrec mod MaxPerPage)=0 then
     		Pcount= totalrec \ MaxPerPage
    	else
     		Pcount= totalrec \ MaxPerPage + 1
    	end if
	    RS.MoveFirst
	       if currentpage > Pcount then currentpage = Pcount
           if currentpage<1 then currentpage=1
	    RS.Move (currentpage-1) * MaxPerPage
	    page_count=0
	    do while not rs.eof and page_count < MaxPerPage
%>
        <tr> 
          <td align="center" class="tdbg2"><% if rs("UserName")=cUserName then
		  Response.Write "<input name=""selSoftID"" type=""checkbox"" value="""&rs("softid")&""">"
		  elseif isMaster  then
		  Response.Write "<input name=""selSoftID"" type=""checkbox"" value="""&rs("softid")&""">"
		  else
		  Response.Write "--"
		  end if
		   %></td>
          <td class="tdbg2">
<% if rs("isTop") then
	Response.Write "<img src=""images/isTop.gif"" align=""absmiddle"">"
elseif rs("isCommend") then
	Response.Write "<img src=""images/isHot.gif"" align=""absmiddle"">"
else
	Response.Write "<img src=""images/isList.gif"" align=""absmiddle"">"
end if 
Response.Write "[<a href=""SoftList/Catalog_"&rs("CatalogID")&"_SoftTime_Desc_1.html"" target=""_blank"">"&rs("CatalogName")&"</a>]"
Response.Write " <a href=""SoftView/SoftView_"&rs("SoftID")&".html"" target=""_blank"">"&cutStr(rs("SoftName")&" "&rs("SoftVer"),50)&"</a>"
%>		  </td>
          <td align="center" class="tdbg2"><% if rs("UserName")=cUserName then
	response.write "<a href=""Admin_SoftInfo.Asp?action=edit&SoftID="&rs("SoftID")&""" title=""修改软件信息"">编辑</a>"
	elseif isMaster then
	response.write "<a href=""Admin_SoftInfo.Asp?action=edit&SoftID="&rs("SoftID")&""" title=""修改软件信息"">编辑</a>"
	else
	Response.Write "---"
	end if
		   %></td>
          <td align="center" class="tdbg2"><%= DateTimeFormat(rs("SoftTime"),6) %></td>
          <td align="center" class="tdbg2"><% =rs("UserName") %></td>
        </tr><% page_count=page_count+1
   rs.movenext:loop %>		
        <tr> 
          <td class="tdbg2" colspan="5"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr><td><%Response.Write "搜到:<b><font color=""red"">"&totalrec&"</font></b> 条"
		Response.Write " 页次:<b>"&currentpage&"</b>/<b>"&Pcount&"</b>页"
        Response.Write " 每页<b>"&MaxPerPage&"</b>" %></td>
         <td align="right">分页：<%
	if currentpage > 4 then
	response.write "<a href=""?page=1"&q&""">[1]</a>..."
	end if
	if Pcount>currentpage+3 then
	endpage=currentpage+3
	else
	endpage=Pcount
	end if
	for i=currentpage-3 to endpage
	if not i<1 then
		if i = clng(currentpage) then
			response.write " <font color=""red"">["&i&"]</font>"
		else
			response.write " <a href=""?page="&i&""&q&""">["&i&"]</a>"
		end if
	end if
	next
	if currentpage+3 < Pcount then
		response.write "...<a href=""?page="&Pcount&""&q&""">["&Pcount&"]</a>"
	end if  %></td></tr></table></td>
        </tr>
	<% end if:rs.close  %>
		<tr> 
            <td class="tdbg2" >管理</td>
			<td class="tdbg2" colspan="4"><input type="radio" name="action" value="batch_isDel">批量删除
			<input type="radio" name="action" value="batch_isTop">批量置顶
			<input type="radio" name="action" value="batch_noTop">取消置顶
			<input type="radio" name="action" value="batch_isHot">批量推荐
			<input type="radio" name="action" value="batch_noHot">取消推荐 <br>
			<input type="radio" name="action" value="batch_isMov">批量移动:<% 
			Response.Write "<select name=""catalog"">"& vbcrlf
			Response.Write Catalog_Select(0,"SoftDown")
			Response.Write "</select>"%> 
              <input type="submit" name="Submit3" value="执行操作" onclick="{if(confirm('您确定执行的操作吗?')){this.document.myform.submit();return true;}return false;}"> </td>
        </tr>
		<tr>
		<td class="tdbg2">图例</td>
		    <td colspan="4" align="center" class="tdbg2"><img src="images/isTop.gif" align="absmiddle">置顶软件 
              <img src="images/isHot.gif"  align="absmiddle">推荐软件 <img src="images/isList.gif" align="absmiddle">普通软件</td>
		</tr>
		</form>
      </table>

<%
end sub
sub main()
%>
<SCRIPT src="js/calendar.js"></SCRIPT>
<SCRIPT LANGUAGE=javascript>
function CheckForm1()
{
	if (form_soft.DateTime.value !=="")
	{
    	if (chkDate(form_soft.DateTime.value)==false) {
		alert("你设置的日期格式不正确！");
			form_soft.DateTime.focus();
			return (false);
		}
	}
	
}
function CheckForm2()
{
	if (form_article.DateTime.value !=="")
	{
    	if (chkDate(form_article.DateTime.value)==false) {
		alert("你设置的日期格式不正确！");
			form_article.DateTime.focus();
			return (false);
		}
	}
	
}
function chkDate(sDate){
var r=/\d{4}(?:-\d{1,2}){0,2}/
//正则表达式，判断是否为yyyy-mm-dd,yyyy-mm,yyyy格式
if(sDate.match(r)==sDate){
  var arr=sDate.split("-")
  switch(arr.length){
  //根据不同的yyyy-mm-dd,yyyy-mm格式判断年月日数字是否正确
   case 3:
    var tmpDate=new Date(arr[0],arr[1],arr[2]);
    if(tmpDate.getMonth()==arr[1] && tmpDate.getFullYear()==arr[0]) return true;
    break;
   case 2:
    if(arr[1]<13) return true;
    break;
   default:
    return false;
  }
}
return false;
}
</script>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
        <tr> 
          <form name="form_soft" method="post" action="" onSubmit="return CheckForm1();">
            <tr> 
              <td colspan="4" align="center" class="tdbg1">软件管理搜索 
                <input name="action" type="hidden" value="s"></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">包含的关键字</td>
              <td colspan="3">(同时查询多个条件使用'<font  color=#FF0000>or</font>' 分隔关键字，查询同时满足某条件使用'<font  color=#FF0000>and</font>'分隔关键字)<br> 
                <input name="keyword" type="text" size="50" maxlength="80"></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">软件分类为</td>
              <td width="35%"> <select name="catalog">
                  <% Response.Write( Catalog_Select(0,"SoftDown")) %>
                </select></td>
              <td width="17%">搜索范围</td>
              <td> <select name="selby" id="selby">
                  <option value="1">搜索软件名称</option>
                  <option value="2">搜索软件简介</option>
                  <option value="0">两者都搜索</option>
                </select></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">软件类型为</td>
              <td width="35%"> <select name="softtype">
                  <option value="">所有软件</option>
                  <% for i = 0 to ubound(SoftType)
		  Response.Write("<option value="""&SoftType(i)&""">"&SoftType(i)&"</option>")
		  Next
		   %>
                </select></td>
              <td width="17%">授权类型为</td>
              <td> <select name="LicenceType">
                  <option value="">所有软件</option>
                  <% for i = 0 to ubound(LicenceType)
		  Response.Write("<option value="""&LicenceType(i)&""">"&LicenceType(i)&"</option>")
		  Next
		   %>
                </select></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">软件语言为</td>
              <td width="35%"> <select name="Language">
                  <option value="">所有软件</option>
                  <% for i = 0 to ubound(Language)
		  Response.Write("<option value="""&Language(i)&""">"&Language(i)&"</option>")
		  Next
		   %>
                </select></td>
              <td width="17%">运行系统包含</td>
              <td> <select name="System">
                  <option value="">所有软件</option>
                  <% for i = 0 to ubound(System)
		  Response.Write("<option value="""&System(i)&""">"&System(i)&"</option>")
		  Next
		   %>
                </select></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">开发商网址包含</td>
              <td width="35%"> <input name="SoftFrom" type="text" id="RegURL" size="28" maxlength="50"></td>
              <td width="17%">作者Email包含</td>
              <td> <input name="Email" type="text" id="Email" size="28" maxlength="50"></td>
            </tr>
            <tr class="tdbg2"> 
              <td width="17%">加入时间为</td>
              <td > <input name="DateTime" type="text" id="DateTime" size="12" maxlength="10">
                以来 
                <input type="button" name="Submit2" value="选择日期" onclick="showCalendar(DateTime,400,5);">
                </td>
                <td>搜索用户为</td>
                <td> <input name="username" type="text" id="username" size="12" maxlength="25">
                  <input name="isUser" type="checkbox" value="yes" <% if not isMaster then Response.Write "checked" %>>搜索自己
                   </td>
			  </tr>
              <tr class="tdbg2"> 
                <td>其他选项</td>
                <td colspan="3">
                (<input type="radio" name="isIn" value="1">在<font color="#FF0000">图片软件</font>中搜 
                <input type="radio" name="isIn" value="2">在<font color="#FF0000">推荐软件</font>中搜 
                <input name="isIn" type="radio" value="0" checked>不限)				
				(每页显示<input name="MaxPerPage" type="text" value="50" size="4" maxlength="3">条记录)
				</td>

            </tr>
              <tr class="tdbg2"> 
                <td colspan="4" align="center"> 
                  <input type="submit" name="Submit" value=" 搜 索 "></td>
            </tr>
          </form>
      </table>
<% end sub %>	
	</td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% CloseDatabase %>
上一页 12
⌨️ 快捷键说明

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