📄 admin_flashedit.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
if session("admin")="" then
response.redirect "admin_login.asp"
end if
'02 Flash管理
if not checkflag("02") then
call mb("对不起，您没有Flash管理的权限！","",0)
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Flash管理相关</title>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#000000" vspace="0" hspace="0">
<tr bgcolor="#EFEBEF">
<td height="27"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="86%"><font color="#FF3000">.:: 您可以在这里进行[Flash管理]相关操作</font></td>
<td width="14%" height="20" align="center"><a href="javascript:this.location.reload()"><img src="../images/refresh.gif" alt="刷新" width="40" height="12" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr >
<td height="1" bgcolor="#000000"></td>
</tr>
</table>
<%
dim id
id=request("id")
if not isinteger(id) then
call mb("请指定要编辑的Flash的ID参数！","",0)
end if
if request("action")="save" then
dim flashname,bigclassid,smallclassid,url,url2,picurl,remark
dim star,ishot,isgood,ispassed,username,fsize
flashname=checkstr(trim(request.form("flashname")))
geshou=checkstr(trim(request.form("geshou")))
url=checkstr(trim(request.form("url")))
url2=checkstr(trim(request.form("url2")))
picurl=checkstr(trim(request.form("picurl")))
remark=checkstr(trim(request.form("remark")))
star=request("star")
ishot=request("ishot")
isgood=request("isgood")
ispassed=request("ispassed")
fsize=checkstr(trim(request("fsize")))
username=checkstr(trim(request.form("username")))
bigclassid=request.form("bigclassid")
smallclassid=request.form("smallclassid")
if flashname="" or strlength(flashname)>25 then
call mb("Flash名称不能为空，或大于25个字符！","",0)
end if
if url="" then
call mb("Flash文件地址不能为空！","",0)
end if
if remark="" then
call mb("Flash说明不能为空！","",0)
end if
if username="" then
call mb("请指定作品作者！","",0)
end if
if fsize="" then
fsize="不详"
end if
if ishot="" then
ishot=false
end if
if isgood="" then
isgood=false
end if
if ispassed="" then
ispassed=false
end if
set rs=server.createobject("adodb.recordset")
sql="select * from flash where id="&id
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call mb("找不到要编辑的Flash！","",0)
else
if bigclassid<>"" and smallclassid<>"" then
rs("bigclassid")=bigclassid
rs("smallclassid")=smallclassid
end if
rs("flashname")=flashname
rs("geshou")=geshou
rs("url")=url
rs("url2")=url2
rs("picurl")=picurl
rs("remark")=remark
rs("fsize")=fsize
rs("star")=star
rs("ishot")=ishot
rs("isgood")=isgood
rs("ispassed")=ispassed
rs("username")=username
rs.update
end if
rs.close
call mb("编辑Flash作品成功！","admin_flash.asp",1)
else
set rs=conn.execute("select * from smallclass")
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
dim count:count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("smallclassname"))%>","<%= trim(rs("bigclassid"))%>","<%= trim(rs("smallclassid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
set rs=nothing
%>
onecount=<%=count%>;
function changelocation(bigclassid)
{
document.put.smallclassid.length = 0;
var bigclassid=bigclassid;
var i;
document.put.smallclassid.options[0] = new Option('请选择二级分类','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == bigclassid)
{
document.put.smallclassid.options[document.put.smallclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<%dim rsf:set rsf=conn.execute("select * from flash where id="&id)
if rsf.bof and rsf.eof then
call mb("对不起，找不到您要编辑的Flash！","",0)
else
%>
<form action="?action=save" method="post" name="put" id="put">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#EFEBEF" >
<td height="25" colspan="2"><font color="#000000">Flash 作 品 编 辑</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">原Flash分类：</td>
<td height="25"> <a href="../showsmall.asp?classid=<%=rsf("bigclassid")%>" title="查看该分类的详细信息..." target=_blank><%=showbigclassname(rsf("bigclassid"))%></a> -> <a href="../showflash.asp?smallclassid=<%=rsf("smallclassid")%>" title="查看该分类的详细信息..." target=_blank><%=showsmallclassname(rsf("smallclassid"))%></a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="22%" height="25" align="center">一级分类：</td>
<td width="78%" height="25"> <select name="bigclassid" size="1" class="input" id="bigclassid" onChange="changelocation(document.put.bigclassid.options[document.put.bigclassid.selectedIndex].value)">
<option value='' selected>请选择一级分类</option>
<%set rs=conn.execute("select bigclassid,bigclassname from bigclass order by bigclassid")
do until rs.eof
response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>"
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">二级分类：</td>
<td height="25"> <select name="smallclassid" size="1" class="input" id="smallclassid">
<option value='' selected>请选择二级分类</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="12" align="center">Flash名称：</td>
<td height="25">
<input name="flashname" type="text" class="input" id="flashname5" value="<%=rsf("flashname")%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="12" align="center">歌手名：</td>
<td height="25"> <input name="geshou" type="text" size="15" value="<%=rsf("geshou")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">观看地址一：</td>
<td height="25"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> <iframe name=ad frameborder=0 width=100% height=30 scrolling=no src=admin_upload.asp?fpath=upload></iframe></td>
</tr>
<tr>
<td height="25"> <input name="url" type="text" class="input" id="url" value="<%=rsf("url")%>" size="30">
*.swf *.fla</td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">观看地址二：</td>
<td height="25"> <input name="url2" type="text" class="input" id="flashname3" value="<%=rsf("url2")%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">缩略图地址：</td>
<td height="25"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> <iframe name=ad frameborder=0 width=100% height=30 scrolling=no src=admin_upload.asp?fpath=smallpic></iframe></td>
</tr>
<tr>
<td height="25"> <input name="picurl" type="text" class="input" id="picurl2" value="<%=rsf("picurl")%>" size="30"></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">文件大小：</td>
<td height="25"> <input name="fsize" type="text" id="fsize" value="<%=rsf("fsize")%>" size="15">
KB</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">管理员选项：</td>
<td height="25"> 显示
<select name="star" size="1" class="input" id="star">
<option value="★" <%if rsf("star")="★" then response.write " selected"%>>一星</option>
<option value="★★" <%if rsf("star")="★★" then response.write " selected"%>>二星</option>
<option value="★★★" <%if rsf("star")="★★★" then response.write " selected"%>>三星</option>
<option value="★★★★" <%if rsf("star")="★★★★" then response.write " selected"%>>四星</option>
<option value="★★★★★" <%if rsf("star")="★★★★★" then response.write " selected"%>>五星</option>
</select>
<input name="ishot" type="checkbox" id="ishot" value="true" <%if rsf("ishot") then response.write "checked"%>>
热门
<input name="isgood" type="checkbox" id="isgood" value="true" <%if rsf("isgood") then response.write "checked"%>>
推荐
<input name="ispassed" type="checkbox" id="ispassed" value="true" <%if rsf("ispassed") then response.write "checked"%>>
审核</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">简短说明：</td>
<td height="25"> <textarea name="remark" cols="45" rows="10" class="input" id="textarea"><%=rsf("remark")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center">作品作者：</td>
<td height="30"> <input name="username" type="text" id="username" value="<%=rsf("username")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" colspan="2" align="center"> <input name="Submit" type="submit" class="button" value=" 编辑作品 ">
<input name="id" type="hidden" id="id" value="<%=id%>">
</td>
</tr>
</table>
</form>
<%
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -