📄 admin_pic.asp
字号:
if left(url4,7)="http://" and request.form("saveurl4")="true" then
url4=saveimgfile(url1)
url4=url4
end if
end if
sql="select * from wapls_pic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("pic_title")=pic_title
rs("pic_keyword")=keyword
rs("pic_size")=pic_size
rs("pic_fl")=fl
rs("pic_gs")=gs
rs("pic_commend")=commend
if request("of")<>"" then
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT * from wapls_pic_class where class_id="&request("of")
rsclass.OPEN sqlclass,Conn,1,1
rs("class_id")=rsclass("class_id")
rs("class_name")=rsclass("class_name")
rs("cat_id")=rsclass("cat_id")
set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="select cat_name from wapls_pic_cat where cat_id="&rsclass("cat_id")
rscat.open sqlcat,conn,1,1
rs("cat_name")=rscat("cat_name")
rscat.close
rsclass.close
set rscat=nothing
set rsclass=nothing
else
Response.Write " <script> window.alert('你必须选择所属分类，或者非法操作！'); history.back();</script>"
Response.End
end if
rs("pic_showpic")=showpic
if userview=0 then
rs("moneypay")=0
else
rs("moneypay")=moneypay
end if
rs("user_view")=userview
rs("istop")=istop
rs("pic_good")=picgood
rs("pic_content")=content
rs("pic_err")=0
rs("pic_url1")=url1
rs("pic_url2")=url2
rs("pic_url3")=url3
rs("pic_url4")=url4
rs("pic_url1_name")=url1_name
rs("pic_url2_name")=url2_name
rs("pic_url3_name")=url3_name
rs("pic_url4_name")=url4_name
rs.update
rs.close
set rs=nothing
response.redirect "?action=list&page="&curpage&""
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<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" maxlength="100" onchange="pic_keyword.value=pic_title.value"> <span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">关 键 词</td>
<td><input type="text" name="pic_keyword" size="20" maxlength="20" value=''> <span class="disable_font">[≤20]</span><span class="disable_font">*</span></td>
</tr>
<tr class="tablebody">
<td align="center">文件大小</td>
<td><input type="text" name="size" size="8" 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>
<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">
<option value="5">☆☆☆☆☆</option>
<option value="4">☆☆☆☆</option>
<option value="3">☆☆☆</option>
<option value="2">☆☆</option>
<option value="1">☆</option>
</select></td>
</tr>
<tr class="tablebody">
<td align="center">所属分类</td>
<td>
<select name="of">
<%
dim catname,classname,catid,classid
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 rs2 = server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if not (rs2.eof and rs2.bof) then
do while not rs2.eof
catid=rs("cat_id")
classid=rs2("class_id")
catname=rs("cat_name")
classname=rs2("class_name")
%>
<option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs2.movenext
loop
else if rs2.eof and rs2.bof then
response.write"<script>alert('请先给大分类添加子类!');location.href='?action=catlist';</script>"
end if
end if
rs.movenext
rs2.close
set rs2=nothing
response.write"<option>- - - - - - - - - -</option>"
loop
else if rs.eof and rs.bof then
response.write"<script>alert('请先添加分类!');location.href='?action=addcat';</script>"
end if
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"> <button onClick="showpic.value='http://'">http://</button> <input type="checkbox" name="save" value="true">保存远程图片
</td>
</tr>
<tr class="tablebody">
<td align="center">查看权限</td>
<td>
<input type="radio" name="userview" value="0" checked> 游客查看
<input type="radio" name="userview" value="1"> 普通会员
<input type="radio" name="userview" value="2"> VIP会员
| 消费金币：<input type="text" name="moneypay" value="1" size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>
</tr>
<tr class="tablebody">
<td align="center">置 顶</td>
<td>
<input type="checkbox" name="istop" value="1"> 文件置顶 <span class="disable_font">[总是显示于文件列表顶部]</span>
</td>
</tr>
<tr class="tablebody">
<td align="center">文件评级</td>
<td>
<input type="radio" name="pic_good" value="0" checked> 普通文件
<input type="radio" name="pic_good" value="1"> 推荐文件
<input type="radio" name="pic_good" value="2"> 精品文件
</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"></textarea></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=""></td>
<td><input type="text" name="url1" size="60" value=""> <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=""></td>
<td><input type="text" name="url2" size="60" value=""> <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=""></td>
<td><input type="text" name="url3" size="60" value=""> <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=""></td>
<td><input type="text" name="url4" size="60" value=""> <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 type="submit" name="Submit" value="确定新增" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
<input type="reset" name="Reset" value="清空重填">
<input type="hidden" name="addpic" value="true">
</td>
</tr>
</form>
</table>
<%end sub
'==================================
'=过 程 名：editpic()
'=功 能：编辑文件
'==================================
sub editpic()
if request.Form("editpic")="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)
pic_title=checksql("文件名称",request.form("pic_title"),1,100)
if len(request.form("pic_keyword"))>20 then
keyword=checksql("文件关键词",left(request.form("pic_keyword"),20),1,20)
else
keyword=checksql("文件关键词",request.form("pic_keyword"),1,20)
end if
keyword=replace(keyword,"[","")
pic_size=checksql("文件大小",request.form("size"),1,10)
gs=checksql("文件格式",request.form("gs"),1,10)
fl=checksql("下载分类",request.form("fl"),1,10)
commend=checksql("推荐程度",request.form("commend"),0,1)
if request.form("showpic")="" then
showpic=""
else
showpic=checksql("文件图片",request.form("showpic"),1,200)
if left(showpic,7)="http://" and request.form("save")="true" then
showpic=saveimgfile(showpic)
showpic=showpic
end if
end if
if request.form("istop")="" then
istop=0
elseif request.form("istop")=1 then
istop=1
else
istop=0
end if
if request.form("picerr")="" then
picerr=0
elseif request.form("picerr")=1 then
picerr=1
else
picerr=0
end if
userview=checksql("会员文件",request.form("userview"),0,1)
moneypay=checksql("会员消费金币数",request.form("moneypay"),0,10)
picgood=checksql("文件等级",request.form("pic_good"),0,1)
content=checksql("文件介绍",request.form("content"),1,0)
content=replace(content,replaceurl,"")
url1_name=checksql("下载地址名称1",request.form("url1_name"),1,10)
if request.form("url2_name")="" then
url2_name=""
else
url2_name=checksql("下载地址名称2",request.form("url2_name"),1,10)
end if
if request.form("url3_name")="" then
url3_name=""
else
url3_name=checksql("下载地址名称3",request.form("url3_name"),1,10)
end if
if request.form("url4_name")="" then
url4_name=""
else
url4_name=checksql("下载地址名称4",request.form("url4_name"),1,10)
end if
url1=checksql("下载地址1",request.form("url1"),1,200)
if left(url1,7)="http://" and request.form("saveurl1")="true" then
url1=saveimgfile(url1)
url1=url1
end if
if request.form("url2")="" then
url2=""
else
url2=checksql("下载地址2",request.form("url2"),1,200)
if left(url2,7)="http://" and request.form("saveurl2")="true" then
url2=saveimgfile(url2)
url2=url2
end if
end if
if request.form("url3")="" then
url3=""
else
url3=checksql("下载地址3",request.form("url3"),1,200)
if left(url3,7)="http://" and request.form("saveurl3")="true" then
url3=saveimgfile(url3)
url3=url3
end if
end if
if request.form("url4")="" then
url4=""
else
url4=checksql("下载地址4",request.form("url4"),1,200)
if left(url4,7)="http://" and request.form("saveurl4")="true" then
url4=saveimgfile(url1)
url4=url4
end if
end if
sql="select * from wapls_pic where pic_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("pic_title")=pic_title
rs("pic_keyword")=keyword
rs("pic_size")=pic_size
rs("pic_fl")=fl
rs("pic_gs")=gs
rs("pic_commend")=commend
if request("of")<>"" then
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT * from wapls_pic_class where class_id="&request("of")
rsclass.OPEN sqlclass,Conn,1,1
rs("class_id")=rsclass("class_id")
rs("class_name")=rsclass("class_name")
rs("cat_id")=rsclass("cat_id")
set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="select cat_name from wapls_pic_cat where cat_id="&rsclass("cat_id")
rscat.open sqlcat,conn,1,1
rs("cat_name")=rscat("cat_name")
rscat.close
rsclass.close
set rscat=nothing
set rsclass=nothing
else
Response.Write " <script> window.alert('你必须选择所属分类，或者非法操作！'); history.back();</script>"
Response.End
end if
rs("pic_showpic")=showpic
if userview=0 then
rs("moneypay")=0
else
rs("moneypay")=moneypay
end if
rs("user_view")=userview
rs("istop")=istop
rs("pic_err")=picerr
rs("pic_good")=picgood
rs("pic_content")=content
rs("pic_url1")=url1
rs("pic_url2")=url2
rs("pic_url3")=url3
rs("pic_url4")=url4
rs("pic_url1_name")=url1_name
rs("pic_url2_name")=url2_name
rs("pic_url3_name")=url3_name
rs("pic_url4_name")=url4_name
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">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -