⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_flash_edit.asp

📁 一个FLASH游戏的主页源码
💻 ASP
字号:
🔍 
<!--#include file="Admin_Session.asp"-->
<!--#include file="Admin_Conn.asp"-->
<%FID=request("FID")%>
<%
sql="select * from Flash where FID=" & FID
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,3,1

Name=rs("Name")
Flasher=rs("Flasher")
StarNO=rs("StarNO")
ChannelID=rs("ChannelID")
ClassID=rs("ClassID")
SpecialID=rs("SpecialID")
Size=rs("Size")
FileUrl=rs("FileUrl")
Intro=rs("Intro")
Singer=rs("Singer")
DPic=rs("FPic")
IfTui=rs("IfTui")

rs.close
set rs=nothing
%>
<%
sql="select * from Channel where ChannelID="&ChannelID
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1

ChannelName=rs("ChannelName")
%>
<%
sql="select * from Class where ClassID="&ClassID
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,3,1

ClassName=rs("ClassName")
%>
<html>
<head>
<title>编辑Flash</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Inc/Css.css" type="text/css">
</head>
<body marginheight="0" marginwidth="0" rightmargin="0" topmargin="0" leftmargin="0" bgcolor="#F1F1F1">
<!--#include file="Admin_Menu.asp"-->
<table class="table" border="0" width="70%" cellspacing="1" cellpadding="5" align="center" bgcolor="#2566AD">
  <tr>
    <td bgcolor="#BED7F1" colspan="2"><b>※ 编辑</b><b>动画</b></td>              
  </tr>
  <form action="Admin_Flash_Edit_Save.asp" method="post" name="AddNew" enctype="multipart/form-data">
  <tr>
    <td bgcolor="#FFFFFF" width="20%" align="right">文件名称：</td>
    <td bgcolor="#FFFFFF" width="80%"><input type="text" name="Name" size="40" value="<%=Name%>"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right"><font color="#0000FF">原先类别：</font></td>
    <td bgcolor="#FFFFFF" height="28"><font color="red"><b><%=ChannelName%></b></font> >>> <font color="red"><b><%=ClassName%></b></font></td>              
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">所属类别：</td>
    <td bgcolor="#FFFFFF">
<%
dim count
sql="select * from Class order by ClassID asc"
set rs=conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
		if rs.eof or rs.bof then
		else
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%=rs("ClassName")%>","<%=rs("ChannelID")%>","<%=rs("ClassID")%>");
        <%
        count = count + 1
        rs.movenext
        loop
        rs.close
		end if
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.AddNew.ClassID.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.AddNew.ClassID.options[document.AddNew.ClassID.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script>
<%sql="select * from Channel"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
	response.write "<select name=ChannelID style='color:red'>"
	response.write "<option value='尚未添加栏目'>尚未添加栏目</option>"
    response.write "</select>"
else%>
    <select name="ChannelID" onChange="changelocation(document.AddNew.ChannelID.options[document.AddNew.ChannelID.selectedIndex].value)" size="1">
    <option selected value="<%=rs("ChannelID")%>"><%=rs("ChannelName")%></option>
<%
    dim selclass
    selclass=rs("ChannelID")
    rs.movenext
    do while not rs.eof%>
    <option value="<%=rs("ChannelID")%>"><%=rs("ChannelName")%></option>
<%
    rs.movenext
    loop
end if
rs.close
set rs=nothing%>
</select>
<select name="ClassID">
<%
if selclass="" then
selclass=0
end if
sql="select * from Class where ClassID="&selclass
set rs=conn.execute(sql)
if rs.eof or rs.bof then
else%>
   <option selected value="<%=rs("ClassID")%>"><%=rs("ClassName")%></option>
   <%rs.movenext
   do while not rs.eof%>
   <option value="<%=rs("ClassID")%>" <%if rs("ClassID")=ClassID then response.write "selected" end if%>><%=rs("ClassName")%></option>
   <%rs.movenext
   loop
end if
rs.close
set rs = nothing
%>
</select>
    </td>
  </tr>
    <tr>
    <td bgcolor="#FFFFFF" align="right">所属系列：</td>
    <td bgcolor="#FFFFFF">
<select name="SpecialID">
<option selected value="0">选择影片所属系列</option>
<%
sqlm="select * from Special"
set rsm=server.createobject("ADODB.Recordset")
rsm.open sqlm,conn,1,1
for iii=1 to rsm.recordcount
%> 
<option value="<%=rsm("SpecialID")%>" <%If rsm("SpecialID")=SpecialID Then response.write "selected"%>><%=rsm("SpecialName")%></option>
<%
rsm.movenext
next

rsm.close
set rsm=nothing
%></select>
    </td>
  </tr>
    <tr>
    <td bgcolor="#FFFFFF" align="right">动画作者：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="Flasher" size="16" value="<%=Flasher%>"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">文件大小：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="Size" size="10" value="<%=Size%>">  
      KB</td>                       
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">动画评价：</td>
    <td bgcolor="#FFFFFF"><select size="1" name="StarNO" style="color: #FF0000">
        <option value="★★★★★" <%if StarNO="★★★★★" then response.write "selected"%>>★★★★★</option>
        <option value="★★★★" <%if StarNO="★★★★" then response.write "selected"%>>★★★★</option>
        <option value="★★★" <%if StarNO="★★★" then response.write "selected"%>>★★★</option>
        <option value="★★" <%if StarNO="★★" then response.write "selected"%>>★★</option>
        <option value="★" <%if StarNO="★" then response.write "selected"%>>★</option>
      </select></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">文件地址：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="FileUrl" size="20" value="<%=FileUrl%>"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right"><font color="#0000FF">图片名称：</font></td>
    <td bgcolor="#FFFFFF"><input type="text" name="FPic" size="20" value="<%=DPic%>"> 
      <font color="#FF0000">如不更换图片请勿上传</font></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">图片上传：</td>
    <td bgcolor="#FFFFFF"><input name="Pic" type="file" size="35"></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">作品简介：</td>
    <td bgcolor="#FFFFFF"><textarea rows="5" name="Intro" cols="40"><%=Intro%></textarea></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">歌手姓名：</td>
    <td bgcolor="#FFFFFF"><input type="text" name="Singer" size="16" value="<%=Singer%>"> <font color="red">如不是歌曲请留空</font></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right">是否推荐：</td>
    <td bgcolor="#FFFFFF"><input type="radio" value="1" name="IfTui" <%if IfTui="1" then response.write "checked"%>>是 <input type="radio" value="0" name="IfTui" <%if IfTui="0" then response.write "checked"%>>否</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="right"></td>
    <td bgcolor="#FFFFFF"><input type="hidden" name="action" value="upload"><input type="hidden" name="FID" value="<%=FID%>"><input border=0 onFocus=if(this.blur)this.blur() name=Submit src="Image/B_Modi.gif" type=image></td>
  </tr>
 </form>
</table>
<!--#include file="CopyRight.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -