📄 editflash2.asp

📁 FLASH吧网站源码 v2.0栏目版：功能不是很强大
💻 ASP
字号:
<!--#include file="validate.asp"-->
<!--#include file="conn.asp"-->
<%
id=replace(request("id"), " ", "'")
set rs=server.createobject("adodb.recordset")
sql="select * from xg_file where ID="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<script>window.alert('该FLASH信息不存在！');window.location='editflash.asp';</script>"
response.end
else
rsname=rs("name")
rsflashlb=rs("lb")
if rsflashlb=1 then
rslb="游戏类"
elseif rsflashlb=2 then
rslb="音乐类"
else
rslb="短片类"
end if
rsxlb=rs("xlb")
rstj=rs("tj")
rsurla=rs("urla")
rsurlb=rs("urlb")
rsxlflash=rs("xlflash")
rsimg=rs("img")
end if
rs.close
sql="select url from xg_server where ID="&rsurla
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<script>window.alert('服务器地址不存在！');window.location='editflash.asp';</script>"
response.end
else
rsurl=rs("url")
end if
rs.close
%>
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Author" content="程序设计制作:小哥 联系QQ:54298">
<title>修改FLASH动画</title>
<LINK href="css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>
BODY {
	BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体
}
TABLE {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT: 12px 宋体
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
A {
	FONT: 12px 宋体; COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #FF0000; TEXT-DECORATION: underline
}
.sec_menu {
	BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
.menu_title {
	
}
.menu_title SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #215dc6; POSITION: relative; TOP: 2px
}
.menu_title2 {
	
}
.menu_title2 SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
.style8 {color: #FF0000}
</STYLE>
<script language="vbscript">
dim lb(3)
lb(1)="请选择|休闲游戏|打斗游戏|益智游戏|搞笑游戏|体育游戏|综合游戏"
lb(2)="请选择|流行音乐|经典怀旧|说唱摇滚|配乐小品|网友原创|其他音乐"
lb(3)="请选择|幽默故事|情感小品|童话传奇|生活故事|动作竞技|其他短片"
sub lb_onchange()
num=form.lb.selectedindex
c=split(lb(num),"|")
form.xlb.length=ubound(c)+1
for i=0 to ubound(c)
form.xlb(i).text=c(i)
next
end sub
</script>
<script language="Javascript">
function chkform()
{
	if(form.name.value=="")
	{
		alert("请输入FLASH名称")
		return false;
	}
	if(form.xlflash.value=="")
	{
		alert("请输入专辑ID号,默认为0")
		return false;
	}
    if(form.urla.value=="")
	{
		alert("请选择服务器")
		return false;
	}
	if(form.urlb.value=="")
	{
		alert("请输入FLASH地址")
		return false;
	}
	if(form.img.value=="")
	{
		alert("请输入图片地址")
		return false;
	}
}
</script>
</head>
<body>
<p>&nbsp;</p>
<form method="POST" name="form" action="save.asp?flash=edit&id=<%=id%>" onsubmit="Javascript:return chkform();">
<table width="80%" border="0" align="center" cellpadding="20" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td><table width="473" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC" id="AutoNumber1" style="border-collapse: collapse">
        <tr align="center">
          <td width="78" height="25" align="right">
            <p></td>
          <td width="314" height="25" align="center"><b>修改FLASH动画</b></td>
          <td width="61" align="center"><a href="javascript:history.back(-1)">返回上页</a></td>
        </tr>
        <tr>
          <td height="25" align="right">名　称：</td>
          <td colspan="2"><input name="name" type="text" id="name4" value="<%=rsname%>" size="30">
              <div align="right"></div>
              <div align="center"> </div></td>
        </tr>
        <tr>
          <td height="25" align="right">类　别：</td>
          <td colspan="2">
<select name="lb" id="lb">
<option value="<%=rsflashlb%>" selected><%=rslb%></option>
<option value="1">游戏类</option>
<option value="2">音乐类</option>
<option value="3">短片类</option>
</select>
<select name="xlb" id="xlb">
<option value="<%=rsxlb%>" selected><%=rsxlb%></option>
</select>
</td>
        </tr>
        <tr>
          <td height="25" align="right">专辑ID：</td>
          <td colspan="2"><input name="xlflash" type="text" id="xlflash" value="<%=rsxlflash%>" size="5" onkeyup="Javascript:value=value.replace(/[^\d]/g,'') "onbeforepaste="Javascript:clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
            <span class="style4 style8">选择专辑</span> 0:表示无专辑 </td>
        </tr>
        <tr>
          <td height="25" align="right">推　荐：</td>
          <td colspan="2">
		  <%
		  if rstj=1 then
		  Response.Write "<input name=""tj"" type=""radio"" value=""0"">未推荐 <input type=""radio"" name=""tj"" value=""2"">栏目推荐 <input type=""radio"" name=""tj"" value=""1"" checked>强档推荐"
		  elseif rstj=2 then
		  Response.Write "<input name=""tj"" type=""radio"" value=""0"">未推荐 <input type=""radio"" name=""tj"" value=""2"" checked>栏目推荐 <input type=""radio"" name=""tj"" value=""1"">强档推荐"
		  else
		  Response.Write "<input name=""tj"" type=""radio"" value=""0"" checked>未推荐 <input type=""radio"" name=""tj"" value=""2"">栏目推荐 <input type=""radio"" name=""tj"" value=""1"">强档推荐"
		  end if
		  %>
		  </td>
        </tr>
        <tr>
          <td height="25" align="right">服务器：</td>
          <td colspan="2">            
            <select name="urla">
<%
Response.Write "<option value="""&rsurla&""" selected>"&rsurl&"</option>"
rs.open "select id,url from xg_server order by id asc",conn,1,1
do while not rs.eof
i=i+1
Response.Write "<option value="""&rs("id")&""">"&rs("url")&"</option>" 
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
              </select>          </td>
          </tr>
        <tr>
          <td height="25" align="right">动画地址：</td>
          <td colspan="2"><input name="urlb" type="text" id="urlb" value="<%=rsurlb%>" size="42">
            </td>
        </tr>
        <tr>
          <td height="25" align="right">上传动画：</td>
          <td colspan="2"><iframe style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="380" height="20"></iframe></td>
        </tr>
        <tr>
          <td height="25" align="right">图片地址：</td>
          <td colspan="2"><input type="text" name="img" size="42" value="<%=rsimg%>">
            </td>
          </tr>
        <tr>
          <td height="25" align="right">上传图片：</td>
          <td colspan="2"><iframe style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="380" height="20"></iframe></td>
          </tr>
        <tr align="center">
          <td height="25" colspan="3">            <input name="add2" type="submit" id="add6" value="修改">
          　
          <input name="add22" type="reset" id="add2" value="清除">          </td>
          </tr>
      </table></td>
  </tr>
</table>
</form>
</body>
</html>
💿 文件大小 363 K
👤 上传用户 fairbank
📂 所属分类 FlashMX/Flex源码
🏷️ 相关标签

#FLASH #2.0 #网站 #源码
⌨️ 快捷键说明

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