📄 admin_plpic.asp
字号:
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"--><%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from [type] order by TypeID asc"
rs.open sql,conn,1,1
%><SCRIPT language="JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("typeName"))%>","<%= trim(rs("ClassID"))%>","<%= trim(rs("TypeID"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form.mclass.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form.mclass.options[document.form.mclass.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</SCRIPT>
<%
Function SafeRequest(ParaName,ParaType)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 Then
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function
%><html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>讯网wap图片后台管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<span style="font-size: 9pt">
<script language="javascript">
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>
<%
const MaxPerPage=20
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=SafeRequest("page",1)
else
currentPage=1
end if
%>
</span>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=23 colspan=2 class="topbg">
<p align="left"><strong><span style="FONT-SIZE: 9pt">图片批量上传>></span><span style="font-size: 9pt">图片审核管理</span></strong></tr>
</table>
<span style="font-size: 9pt">
<br>
</span>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<form name="form" method="post" action="Add_SaveplPic.Asp?Action=Add_Pic" onsubmit="return form_onsubmit()">
<tr align="center" class="topbg">
<td height="25" width="3%"><span style="font-size: 9pt">ID</span></td>
<td width="8%"><span style="font-size: 9pt">选定</span></td>
<td width="20%"><span style="font-size: 9pt">图片名称</span></td>
<td width="20%"><span style="font-size: 9pt">大小</span></td>
<td width="8%"><span style="font-size: 9pt">尺寸</span></td>
<td width="20%"><span style="font-size: 9pt">简介</td>
</tr>
<form action="" name="form1" method="post">
<%
dim rs,picext
set rs=server.createobject("adodb.recordset")
Sql = "Select * from iXs_UpFiles where name='0' order by F_ID desc"
rs.open sql,conn,3,1
if rs.eof and rs.bof then
Response.Write "<br><b><center><font color=red>批量上传已审核完毕！</font></center></b><br><br>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"Admin_log.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"Admin_log.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"Admin_log.asp"
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
%>
<%do while not rs.eof%>
<tr align="center" class="tdbg">
<td height="25" width="3%" ><span style="font-size: 9pt"><%=rs(0)%></span></td>
<td height="25" width="8%" ><span style="font-size: 9pt"><input type="checkbox" name="id" value="<%=rs(0)%>"></span></td>
<td height="25" width="12%" ><span style="font-size: 9pt">
<input type="text" name="name" class="an" maxlength="20" value="<%=Replace(Rs("F_Name"),"."&Rs("F_Ext"),"")%>" size="20"></td>
<td height="25" width="22%"><span style="font-size: 9pt"><input type="text" name="dx" class="an" maxlength="50" value="<%=rs("F_Size")%>b" size="20"></span></span></td>
<td width="3%" ><span style="font-size: 9pt"><input type="text" name="ck" class="an" maxlength="50" value="<%=rs("F_Width")%>*<%=rs("F_Height")%>" size="20"></span></td>
<td width="10%" ><span style="font-size: 9pt"><input type="text" name="jj" class="an" maxlength="20" value="<%=Replace(Rs("F_Name"),"."&Rs("F_Ext"),"")%>" size="20"></td>
<span style="font-size: 9pt">
<input type="hidden" name="hot" value="0">
<input type="hidden" name="hh" value="1">
<input type="hidden" name="pic" value="<%=Rs("p_FilePath")%>/<%=Rs("F_Name")%>">
</span>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr class="tdbg">
<td height="25" colspan="6" width="727">
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
<TR class="bk">
<TD height=30 align=right width="100"><span style="font-size: 9pt">一级分类：</span></TD>
<TD width="194">
<span style="font-size: 9pt">
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from [class]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "..."
response.end
else
%>
<SELECT name="nclass" onChange="changelocation(document.form.nclass.options[document.form.nclass.selectedIndex].value)" size="1">
<OPTION selected value>==请选择图片分类==</OPTION>
<%do while not rs.eof%>
<OPTION value="<%=trim(rs("ClassID"))%>"><%=trim(rs("ClassName"))%></OPTION>
<%
rs.movenext
loop
end if
%></SELECT> *</span></TD><TD height=30 align=right width="100">
<span style="font-size: 9pt">二级分类：</span></TD>
<TD width="43%"><span style="font-size: 9pt"><SELECT name="mclass"><OPTION selected value>==请选择二级栏目==</OPTION></SELECT> *</span></TD>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td height="25" colspan="6" width="727"><span style="font-size: 9pt"> 管理操作： 全部选择
<input type="checkbox" name="chkall" onClick="javascript:CheckAll(this.form)" value="ON">
<input onClick="{if(confirm('确定审核选定的图片吗?'))
{this.document.form1.submit();return true;}return false;}" type=submit value=提交审核 name="Submit"
class="tbutton">
</tr>
</form>
</span>
</td>
</tr>
<tr class="tdbg">
<td height="25" colspan="6" width="727">
<span style="font-size: 9pt">
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><tr><td align=center> "
if CurrentPage<2 then
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 首页 上一页 "
else
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 <a href="&filename&"?page=1&keyword="& keyword &">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&keyword="& keyword &">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="& keyword &">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&keyword="& keyword &">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个/页 "
response.write "</td></tr></table>"
end function
%>
</span>
</span>
</td>
</tr>
</table>
<span style="font-size: 9pt">
</div>
<!--#include file="../admin/copyright.asp" -->
</span>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -