?? editflash2.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> </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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -