www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/soft/soft_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file="../web.config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
//下载审核
function selectView(){
//alert(document.getElementsByName("selectView").length);
var oCheckbox=document.getElementsByName("selectView");
var boolCheck=false;
for(i=0;i<oCheckbox.length ;i++){
if(oCheckbox[i].checked==true){
boolCheck=true;
break;
}
}
if(boolCheck==false){
alert("没有选择审核下载!!");
}else{
if(confirm('你确定审核么？')){
document.form1.method="post";
document.form1.action="soft_isView.asp";
document.form1.submit();
}
}
}
//下载删除
function selectDel(){
//alert(document.form1.selectDel.length);
var oCheckbox=document.getElementsByName("selectDel");
var boolCheck=false;
for(i=0;i<oCheckbox.length ;i++){
if(oCheckbox[i].checked==true){
boolCheck=true;
break;
}
}
if(boolCheck==false){
alert("没有选择删除下载!!");
}else{
if(confirm('你确定删除么？')){
document.form1.method="post";
document.form1.action="soft_Del.asp";
document.form1.submit();
}
}
}
</script>
</head>
<body id="bodyBg1">
<br />
<a href="soft_Manage.asp">下载管理</a> | <a href="soft_Add.asp">添加下载</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>下载管理</dt>
<dd>
<br />
<%
classID=request.QueryString("classID")
'--- 1 分页初始化 -----
Dim oPageMsSQL
Set oPageMsSQL=new Deep_Page
oPageMsSQL.pageSize=50 '定义每页显示记录数 默认10条
oPageMsSQL.getConnection(conn)
'当前页
if (Request.QueryString("page") <>"") then
oPageMsSQL.currentPage=CInt(Request.QueryString("page"))
End if
'sql="select * from tArticle"
'PageSQL( tableName, dataKeyField, wordField, whereCondition, orderByField)
'sql=oPageMsSQL.PageSQL( "tArticle", "fArticleID", "*","" ,"fArticleID")
'-----1 end------
if (classID="")then
'sql="select * from deep_Soft order by fUpdateTime desc"
sql=oPageMsSQL.PageSQL( "deep_Soft", "fid", "*","" ,"fUpdateTime desc,fid")
else
'sql="select * from deep_Soft where fclass_ID="&classID&" order by fUpdateTime desc"
sql=oPageMsSQL.PageSQL( "deep_Soft", "fid", "*","fclass_ID="&classID ,"fUpdateTime desc,fid")
end if
set rsSoft=conn.execute(sql)
if(rsSoft.eof and rsSoft.bof)then
Response.Write("没有记录!!")
else
%>
<form id="form1" name="form1" method="post" action="">
<table width="95%" class="tableBoder01">
<tr>
<th scope="col">序号</th>
<th scope="col">下载名称</th>
<th scope="col">栏目</th>
<th scope="col">更新时间</th>
<th scope="col"><a href="javascript:selectView()">审核</a></th>
<th scope="col"><a href="javascript:selectDel();">删除</a></th>
<th scope="col">编辑</th>
</tr>
<%
iNum=0
do while (not rsSoft.eof)
iNum=iNum+1
%>
<tr>
<td><%=(iNum+(oPageMsSQL.currentPage-1)*oPageMsSQL.pageSize)%></td>
<td><%=rsSoft("fTitle")%></td>
<td><%
sql="select fclassName from deep_SoftClass where fclass_ID=" & rsSoft("fclass_ID")
set rsSoftClass=conn.execute(sql)
if(rsSoftClass.eof and rsSoftClass.bof)then
response.Write("没有对应分类")
else
Response.Write( "<a href=""soft_Manage.asp?classID="&rsSoft("fclass_ID")&""" title=""点击查看 ["&rsSoftClass("fclassName")&"] 栏目下下载"">"&rsSoftClass("fclassName")&"</a>" )
end if
%></td>
<td><%=rsSoft("fUpdateTime")%></td>
<td><%if(rsSoft("fisView")=0)then%>
<input name="selectView" type="checkbox" value="<%=rsSoft("fid")%>" />
<%end if%></td>
<td><input name="selectDel" type="checkbox" value="<%=rsSoft("fid")%>" /></td>
<td><a href="soft_Update.asp?id=<%=rsSoft("fid")%>">编辑</a></td>
</tr>
<%
rsSoft.moveNext
loop
%>
</table>
</form>
<%
end if
rsSoft.close
set rsSoft=nothing
'--- 2 分页导航 显示 -----
response.write( oPageMsSQL.PageNavigateUrl() )
Set oPageMsSQL=Nothing
'-----2 end------
%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
call closeConnDB()
%>