📄 main.asp
字号:
<!--#include file="../check.asp"-->
<!--#include file="../weblink/conn.asp"-->
<!--#include file="../../inc/lib.asp"-->
<%Dim Act
Act=Request("act")
Call openData()
Select case Act
Case "up" : Call Up()
Case "down" : Call down()
Case "tuijian" : Call Tuijian()
Case "show" : Call Show()
Case "del" : Call Del()
Case "move" : Call Moveto()
Case Else : Call Main()
End Select
Call CloseDataBase()
Sub MoveTo()
id=Request.Form("id")
tid=request.Form("tid")
if id = "" then Call WriteErr("请选择要操作的信息！",1)
if tid = "" then Call WriteErr("请选择要转移的分类！",1)
Set rs=Server.CreateObject("adodb.recordset")
Sql="update Sbe_Media set tid="&tid&" where id in("&id&")"
conn.execute Sql
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Del()
id=Request.Form("id")
if id = "" then Call WriteErr("请选择要操作的信息！",1)
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select * From Sbe_Media Where ID in ("&ID&")"
Rs.Open Sql,conn,1,3
Do while not rs.eof
if rs("pic")<>"" and not isnull(rs("pic")) then Call DeleteFile(rs("pic"),"../../uploadfile")
rs.delete
rs.movenext
loop
Rs.Close
Set Rs=Nothing
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Show()
ID=Cint(Request.QueryString("ID"))
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select id,Show from Sbe_Media where id="&ID
Rs.Open sql,Conn,1,3
If Rs("Show") Then
Rs("Show") = 0
Else
RS("Show") =1
end If
Rs.Update
Rs.Close
Set Rs=Nothing
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Tuijian()
ID=Cint(Request.QueryString("ID"))
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select id,tuijian from Sbe_Media where id="&ID
Rs.Open sql,Conn,1,3
If Rs("tuijian") Then
Rs("tuijian") = 0
Else
RS("tuijian") =1
end If
Rs.Update
Rs.Close
Set Rs=Nothing
Response.Redirect(Request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Up()
ID=Cint(Request.QueryString("ID"))
Keyword=replace(trim(Request.QueryString("Keyword")),"'","")
Tid=replace(trim(Request.QueryString("Tid")),"'","")
Call UpSequence("Sbe_News",ID,Keyword,Tid)
response.Redirect(request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Down()
ID=Cint(Request.QueryString("ID"))
Keyword=replace(trim(Request.QueryString("Keyword")),"'","")
Tid=replace(trim(Request.QueryString("Tid")),"'","")
Call DownSequence("Sbe_News",ID,Keyword,Tid)
response.Redirect(request.ServerVariables("HTTP_REFERER"))
End Sub
Sub Main()
Keyword=replace(trim(Request.QueryString("Keyword")),"'","")
Tid=replace(trim(Request.QueryString("Tid")),"'","")
page=request("page") '获取当前页数
if page="" or not IsNumeric(page) then page=1
sp_where="1=1 "
if Keyword<>"" then sp_where=sp_where & " and title like '%"&Keyword&"%' "
'===================================
'=========== 设置参数 =======
'===================================
Dim sp_table,sp_collist,sp_condition,sp_col,sp_orderby,sp_pagesize,sp_page,sp_records,Cmd
'===================================
sp_table = "Sbe_Media" '表名 : "News" －－ 字符串
sp_collist = "ID,title,pic,url,addtime,show,clicks,en_title" '要查询出的字段列表,*表示全部字段 ---字符串
sp_condition = sp_where 'Where 语句 不用带Where : "show=1"
sp_col = "sequence" 'order by 字段 : "id" --字符串，必填
sp_orderby = "desc" '排序,0-顺序 ,1-倒序
sp_pagesize = 15 '每页记录数
sp_page = Cint(page) '当前页数
set rs=server.CreateObject("adodb.recordset")
sql="select "&sp_collist&" from "&sp_table&" where "&sp_where&" order by "&sp_col&" "&sp_orderby&" "
'response.Write(sql)
'response.End()
rs.open sql,conn,1,3
sp_records=rs.recordcount
rs.pagesize=sp_pagesize
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理系统</title>
<link href="../include/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function SelectAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name == 'id')
e.checked = form.ChkAll.checked;
}
}
function check(){
if(confirm("确定执行操作吗？")){
var chked;
chked=false;
for(var i=0;i<form1.elements.length;i++)
{
var e = form1.elements[i];
if (e.name=='id'&&e.checked==true)
{ chked=true;
break;}
}
if(chked==false){
alert("请选择要操作的信息！");
return false;
}
if(form1.act[0].checked==false&&form1.act[1].checked==false){
alert("请选择要执行的操作！");
return false;
}
if(form1.act[1].checked==true&&form1.tid.value==""){
alert("请选择要转移的分类！");
form1.tid.focus();
return false;
}
return true;
}
else
{return false;}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #000000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="19%" height="25"><font color="#6A859D"> 视频列表</font></td>
<form name="formsearch" method="get" action="main.asp">
<td width="81%"> <strong>【<font color="#FF0000">视频搜索</font>】 </strong>
<%'=Proname%>
<input type="text" name="keyword" value="<%=keyword%>">
<input type="submit" name="Submit" value="搜索" class="sbe_button">
</td>
</form>
</tr>
<tr>
<td height="1" colspan="2" background="../images/dot.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="83%" border="0" align="center" cellpadding="0" cellspacing="0" id="loading">
<tr>
<td height="63" colspan="8"><strong>正在载入数据，请稍候...</strong></td>
</tr>
</table>
<%response.Flush()%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="0" id="sbe_table">
<tr class="sbe_table_title">
<td class="sbe_table_title"> </td>
<td height="25" class="sbe_table_title STYLE1">视频标题</td>
<td height="25" class="sbe_table_title STYLE1">上传时间</td>
<td class="sbe_table_title STYLE1">上移</td>
<td height="25" class="sbe_table_title STYLE1">下移</td>
<td height="25" class="sbe_table_title STYLE1">点击</td>
<td height="25" class="sbe_table_title STYLE1">显示</td>
<td height="25" class="sbe_table_title STYLE1">编辑</td>
</tr>
<form name="form1" method="post" action="" onSubmit="return check()">
<%
if sp_records=0 then
%>
<tr>
<td height="25" colspan="8">暂且没有找到产品...</td>
</tr>
<%
else
rs.AbsolutePage=sp_page
i=0
while not rs.eof and i<sp_pagesize
i=i+1
%>
<tr onMouseOver="this.style.backgroundColor='#E9EFF3'" onMouseOut="this.style.backgroundColor=''">
<td width="3%" align="center"><input name="id" type="checkbox" id="id" value="<%=rs(0)%>"></td>
<td height="25"><font color="#0336699">
<li type="circle"><b><a href="media.asp?act=modify&id=<%=rs(0)%>"><%=rs(1)%></a>(<%=rs(7)%>)</b></li>
</font></td>
<td width="17%" height="21" align="center"><%=rs(4)%></td>
<td width="7%" align="center"><a href="?id=<%=rs(0)%>&act=up&keyword=<%=keyword%>&tid=<%=tid%>"><img src="../images/up.gif" border="0" title="上移"></a></td>
<td width="7%" align="center"><a href="?id=<%=rs(0)%>&act=down&keyword=<%=keyword%>&tid=<%=tid%>"><img src="../images/downl.gif" border="0" title="下移"></a></td>
<td width="7%" align="center"><a href="?id=<%=rs(0)%>&act=tuijian">
<%=rs(6)%>
</a></td>
<td width="7%" align="center"><a href="?id=<%=rs(0)%>&act=show">
<%Call JudgeMent(rs(5))%>
</a></td>
<td width="7%" align="center"><a href="<%=links%>media.asp?act=modify&id=<%=rs(0)%>"><img src="../images/edit.gif" border="0"></a></td>
</tr>
<%rs.movenext
wend
%>
<tr>
<td height="25" colspan="8"><input type="checkbox" name="ChkAll" onClick="SelectAll(this.form)">
全选
<input type="radio" name="act" value="del">
删除
<input type="submit" name="Submit" value="执行操作" class="sbe_button"></td>
</tr>
</form>
<tr>
<td height="25" colspan="8"><%Call ShowPage("keyword="&keyword&"&tid="&tid,sp_records,sp_pagesize,sp_page,true,2)%></td>
</tr>
<%end if
Rs.close
set Rs=nothing
%>
</table>
</body>
</html>
<script language="JavaScript">
loading.style.display="none";
</script>
<% End Sub%>
<%
Sub UpSequence(ClassTitle,ID,Keyword,Tid)
set rsUp=server.CreateObject("adodb.recordset")
sql="select Sequence,id from "&ClassTitle&" where ID="&ID
rsUp.open sql,conn,1,3
set rs_up=server.CreateObject("adodb.recordset")
sql_up="select top 1 Sequence from "&ClassTitle&" where sequence>"&rsUp(0)
if tid<>"" then sql_up=sql_up&" and tid in("&ChildrenID(ClassTitle,tid)&")"
if keyword<>"" then sql_up=sql_up&" and pname like '%"&keyword&"%'"
sql_up=sql_up&" order by sequence"
rs_up.open sql_up,conn,1,3
if not rs_up.eof then
Temp_sequence=rs_up(0)
rs_up(0)=rsUp(0)
rs_up.update
rsUp(0)=Temp_sequence
rsUp.update
end if
rs_up.close
set rs_up=nothing
rsUp.close
set rsUp=nothing
End Sub
Sub DownSequence(ClassTitle,ID,Keyword,Tid)
set rs_DownSequence=server.CreateObject("adodb.recordset")
sql="select Sequence,id from "&ClassTitle&" where id="&id
'response.write sql
' response.end
rs_DownSequence.open sql,conn,1,3
set rs_up=server.CreateObject("adodb.recordset")
sql_up="select top 1 Sequence from "&ClassTitle&" where sequence<"&rs_DownSequence(0)
if tid<>"" then sql_up=sql_up&" and tid in("&ChildrenID(ClassTitle,tid)&")"
if keyword<>"" then sql_up=sql_up&" and title like '%"&keyword&"%'"
sql_up=sql_up&" order by sequence desc"
rs_up.open sql_up,conn,1,3
if not rs_up.eof then
Temp_sequence=rs_up(0)
rs_up(0)=rs_DownSequence(0)
rs_up.update
rs_DownSequence(0)=Temp_sequence
rs_DownSequence.update
end if
rs_up.close
set rs_up=nothing
rs_DownSequence.close
set rs_DownSequence=nothing
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -