📄 admin_pic.asp
字号:
<form name="form1" method="post" action="" onsubmit="javascript:submits();">
<tr class="tablebody">
<td colspan="2" class="td_title">编辑文件</td>
</tr>
<tr class="tablebody">
<td align="center" width="13%">文件名称</td>
<td width="87%">
<input type="text" name="pic_title" size="56" value="<%=rs2("pic_title")%>" maxlength="100"> <span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">关 键 词</td>
<td><input name="pic_keyword" type="text" id="pic_keyword" value="<%=rs2("pic_keyword")%>" size="20" maxlength="20"> <span class="disable_font">[≤20]</span></td>
</tr>
<tr class="tablebody">
<td align="center">文件大小</td>
<td><input type="text" name="size" size="8" value="<%=rs2("pic_size")%>" maxlength="8"> <button onClick="size.value=size.value+'KB'"> KB </button> <button onClick="size.value=size.value+'MB'"> MB </button> <span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">文件格式</td>
<td><%
dim gs
gs=split(allowupfile,";")
%>
<select name="gs">
<%for i=0 to ubound(gs)
if gs(i)<>"" then %>
<option value="<%=gs(i)%>"><%=gs(i)%></option>
<%end if
next%>
</select><span class="disable_font">*</span>
</td>
</tr>
<tr class="tablebody">
<td align="center">下载分类</td>
<td>
<select name="fl">
<%
sql="select * from wapls_fl where fl_class=2"
set rs=conn.execute(sql)
do while not rs.eof
%>
<option value="<%=rs("fl_id")%>"><%=rs("fl_title")%></option>
<%
rs.movenext
loop
if rs.eof and rs.bof then
response.write"<option>暂无分类</option>"
end if
rs.close
set rs=nothing
%>
</select> <span class="disable_font">*</span>
</td>
</tr>
<tr class="tablebody">
<td align="center">推荐程度</td>
<td><select name="commend" id="commend">
<option value="5" <%if rs2("pic_commend")=5 then response.write "selected" end if%>>☆☆☆☆☆</option>
<option value="4" <%if rs2("pic_commend")=4 then response.write "selected" end if%>>☆☆☆☆</option>
<option value="3" <%if rs2("pic_commend")=3 then response.write "selected" end if%>>☆☆☆</option>
<option value="2" <%if rs2("pic_commend")=2 then response.write "selected" end if%>>☆☆</option>
<option value="1" <%if rs2("pic_commend")=1 then response.write "selected" end if%>>☆</option>
</select> <span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">所属分类</td>
<td>
<select name="of" id="of">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * from wapls_pic_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
sql="select * from wapls_pic_class where cat_id="&rs("cat_id")
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.OPEN sql,Conn,1,1
if not (rs3.eof and rs3.bof) then
do while not rs3.eof
catid=rs("cat_id")
classid=rs3("class_id")
catname=rs("cat_name")
classname=rs3("class_name")
%>
<option value='<%=rs3("class_id")%>' <%if rs3("class_id")=rs2("class_id") then response.Write "selected" end if%>><%=rs3("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs3.movenext
loop
end if
rs.movenext
rs3.close
set rs3=nothing
response.write"<option>- - - - - - - - - -</option>"
loop
rs.close
set rs=nothing
end if
%>
</select> <span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">上传图片</td>
<td>
<iframe src="wapls_upload.asp" scrolling="no" frameborder="0" height="25" width="100%"></iframe></td>
</tr>
<tr class="tablebody">
<td align="center">缩略图地址</td>
<td><input type="text" name="showpic" size="50" maxlength="200" value="<%=rs2("pic_showpic")%>"> <input type="checkbox" name="save" value="true">保存远程图片</td>
</tr>
<tr class="tablebody">
<td align="center">查看权限</td>
<td>
<input type="radio" name="userview" value="0" <%if rs2("user_view")=0 then%>checked<%end if%>> 游客查看
<input type="radio" name="userview" value="1" <%if rs2("user_view")=1 then%>checked<%end if%>> 普通会员
<input type="radio" name="userview" value="2" <%if rs2("user_view")=2 then%>checked<%end if%>> VIP会员
| 消费金币：<input type="text" name="moneypay" <%if rs2("user_view")=0 then%> value="1" <%else%> value="<%=rs2("moneypay")%>" <%end if%> size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>
</tr>
<tr class="tablebody">
<td align="center">置 顶</td>
<td>
<input type="checkbox" name="istop" <%if rs2("istop")=1 then%> checked <%end if%> value="1"> 文件置顶 <span class="disable_font">[总是显示于文件列表顶部]</span>
</td>
</tr>
<tr class="tablebody">
<td align="center">文件报错</td>
<td>
<input type="radio" name="picerr" value="1" <%if rs2("pic_err")=1 then%>checked<%end if%>> <font color="#ff0000">出错</font>
<input type="radio" name="picerr" value="0" <%if rs2("pic_err")=0 then%>checked<%end if%>> <font color="#228b22">正常</font> [<span class="current_font">注：更正下载地址后，重新设定状态</span>]</td>
</tr>
<tr class="tablebody">
<td align="center">文件评级</td>
<td>
<input type="radio" name="pic_good" value="0" <%if rs2("pic_good")=0 then%>checked<%end if%>> 普通文件
<input type="radio" name="pic_good" value="1" <%if rs2("pic_good")=1 then%>checked<%end if%>> 推荐文件
<input type="radio" name="pic_good" value="2" <%if rs2("pic_good")=2 then%>checked<%end if%>> 精品文件
</td>
</tr>
<tr class="tablebody">
<td align="center">文件简介 <span class="disable_font">*</span></td>
<td><textarea name="content" style="overflow:auto;width:96%;" rows="15"><%=rs2("pic_content")%></textarea></td>
</td>
</tr>
<tr class="tablebody">
<td align="center">上传文件</td>
<td>
<iframe src="wapls_upload.asp" scrolling="no" frameborder="0" height="25" width="100%"></iframe></td>
</tr>
<tr class="tablebody">
<td align="center" title="下载地址1必须填写，不能为空"><input type="text" name="url1_name" size="10" maxlength="10" value="<%=rs2("pic_url1_name")%>"></td>
<td><input type="text" name="url1" size="60" value="<%=rs2("pic_url1")%>"> <input type="checkbox" name="saveurl1" value="true">保存远程下载1</td>
</tr>
<tr class="tablebody">
<td align="center"><input type="text" name="url2_name" size="10" maxlength="10" value="<%=rs2("pic_url2_name")%>"></td>
<td><input type="text" name="url2" size="60" value="<%=rs2("pic_url2")%>"> <input type="checkbox" name="saveurl2" value="true">保存远程下载2</td>
</tr>
<tr class="tablebody">
<td align="center"><input type="text" name="url3_name" size="10" maxlength="10" value="<%=rs2("pic_url3_name")%>"></td>
<td><input type="text" name="url3" size="60" value="<%=rs2("pic_url3")%>"> <input type="checkbox" name="saveurl3" value="true">保存远程下载3</td>
</tr>
<tr class="tablebody">
<td align="center"><input type="text" name="url4_name" size="10" maxlength="10" value="<%=rs2("pic_url4_name")%>"></td>
<td><input type="text" name="url4" size="60" value="<%=rs2("pic_url4")%>"> <input type="checkbox" name="saveurl4" value="true">保存远程下载4</td>
</tr>
<tr class="tablebody">
<td colspan="2">警告！！！<br>目标文件不要过大！提交后禁止一切操作！尽量不要多个文件同时的使用远程下载到本地的功能，以免服务器处理的困难，导致一些不必要的麻烦！</td>
</tr>
<tr class="tablebody">
<td colspan="2" align="center" height="30">
<input name="Submit" type="submit" id="Submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
<input type="reset" name="Reset2" value="清空重填">
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input type="hidden" name="editpic" value="true">
</td>
</tr>
</form>
</table>
<%
rs2.close
set rs2=nothing
end sub
'==================================
'=过 程 名：delpic()
'=功 能：删除文件
'==================================
sub delpic()
if request.Form("delpic")="true" then
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
pic_id=checksql("文件ID",request.Form("id"),0,16)
sql="select * from wapls_remark where class_id=2 and list_id="&pic_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
do while not rs.eof
rs.delete
rs.movenext
loop
end if
rs.close:set rs=nothing
sql="select * from wapls_pic where pic_id="&pic_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=list&page="&curpage&""
end if
pic_id=checksql("文件ID",request.querystring("id"),0,16)
sql="select * from wapls_pic where pic_id="&pic_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td colspan="2" class="td_title">删除文件</td>
</tr>
<tr class="tablebody">
<td align="center" width="13%">文件名称</td>
<td width="87%"><%=rs2("pic_title")%></td>
</tr>
<tr class="tablebody">
<td align="center">关 键 词</td>
<td><%=rs2("pic_keyword")%></td>
</tr>
<tr class="tablebody">
<td align="center">文件大小</td>
<td><%=rs2("pic_size")%></td>
</tr>
<tr class="tablebody">
<td align="center">授权方式</td>
<td><%=rs2("pic_mode")%></td>
</tr>
<tr class="tablebody">
<td align="center">推荐程度</td>
<td><img src="images/<%=rs2("pic_commend")%>star.gif"></td>
</tr>
<tr class="tablebody">
<td align="center">所属分类</td>
<td><%=rs2("cat_name")%> | <%=rs2("class_name")%></td>
</tr>
<tr class="tablebody">
<td align="center">图片地址</td>
<td><%=rs2("pic_showpic")%></td>
</tr>
<tr class="tablebody">
<td align="center">查看权限</td>
<td><%if rs2("user_view")=0 then%>游客方式查看<%elseif rs2("user_view")=1 then%>普通会员方式查看 <span class="disable_font">[消费<%=rs2("moneypay")%>个金币]</span><%elseif rs2("user_view")=2 then%>VIP会员方式查看 <span class="disable_font">[消费<%=rs2("moneypay")%>个金币]</span><%end if%>
</td>
</tr>
<tr class="tablebody">
<td align="center">置 顶</td>
<td><%if rs2("istop")=1 then%><span class="current_font">[置顶文件]</span><%else%>一般文件<%end if%>
</td>
</tr>
<tr class="tablebody">
<td align="center">文件评级</td>
<td><%if rs2("pic_good")=0 then%>普通文件<%elseif rs2("pic_good")=1 then%>推荐文件<%elseif rs2("pic_good")=2 then%>精品文件<%end if%>
</td>
</tr>
<tr class="tablebody">
<td align="center">文件简介</td>
<td><%=ChangeEmot(rs2("pic_content"))%></td>
</tr>
<tr class="tablebody">
<td colspan="2" align="center" height="30">
<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs2("pic_title")%>』这个文件吗?\n\n注意：删除后不可恢复！')){return true;}return false;}"> <input type="hidden" name="id" value="<%=request.QueryString("id")%>">
<input type="hidden" name="delpic" value="true">
</td>
</tr>
</form>
</table>
<%
rs2.close
set rs2=nothing
end sub
'==================================
'=过 程 名：remarklist()
'=功 能：文件评论列表
'==================================
sub remarklist()
dim totaldiary,Currentpage,totalpages,i
sql="select * from wapls_remark where class_id=2 order by remark_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="4" align="center" class="td_title">文 件 评 论 管 理</td>
</tr>
<tr align="center" class="tablebody">
<td width="10%">编号</td>
<td>评论内容</td>
<td>评论文件</td>
<td width="10%">操作</td>
</tr>
<%
if not rs.eof then
rs.Movefirst
perpage=cint(perpage)
rs.pagesize=perpage
if trim(request.querystring("page"))<>"" then
currentpage=cint(request.querystring("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalremark=rs.recordcount
if currentpage<>1 then
if(currentpage-1)*perpage<totalremark then
rs.move(currentpage-1)*perpage
end if
end if
if (totalremark mod perpage)=0 then
totalpages=totalremark\perpage
else
totalpages=totalremark\perpage+1
end if
i=0
do while not rs.eof and i<perpage
%>
<tr class="tablebody">
<td align="center"><%=rs("remark_id")%></td>
<td><strong>评论：<%=rs("remark")%></strong><br>[评论人：<%=rs("remarker")%>|时间：<%=rs("remark_date")%>|IP：<%=rs("remarker_ip")%>]</td>
<%
sql2="select pic_title from wapls_pic where pic_id="&rs("list_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if not (rs2.bof and rs2.eof) then
%>
<td><%=rs2("pic_title")%></td>
<%else%>
<td align="center"><font color="red">无相关内容或已经删除</font></td>
<%
end if
rs2.close
set rs2=nothing
%>
<td align="center"><button onclick="{if(confirm('您再次确定要删除『<%=rs("remark_id")%>』这条评论吗?\n\n注意：删除后不可恢复！')){window.location='?action=delremark&page=<%=currentpage%>&id=<%=rs("remark_id")%>'}return false;}">删除</button></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then
%>
<tr class="tablebody">
<td colspan="4" align="center" height="70" class="disable_font">当前还没有评论！</td>
</tr>
<%
end if
end if
%>
</table>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form" method="post" action="">
<tr class="tablebody">
<td align="center"><%showpage totalremark,perpage,"admin_pic.asp?action=remarklist&"%></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delremark()
'=功 能：删除文件评论
'==================================
sub delremark()
dim curpage
if request.querystring("page")<>"" then
curpage=cint(request.querystring("page"))
else
curpage=1
end if
remark_id=checksql("文件评论ID",request.querystring("id"),0,8)
sql="select * from wapls_remark where remark_id="&remark_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=remarklist&page="&curpage&""
end sub
%>
<!--#include file="wapls_admin_bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -