www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > admin/editflash.asp
<!--#include File="Conn.asp" -->
<!--#include file="Checkpost.asp"-->
<%
If Session("AdminName")="" and Session("adminpass")="" Then
Response.Redirect "Error.asp?id=005"
Else
%>
<%
if request("id")<>"" then
Sql="Select * From flash where ID="&Request("ID")
Set Rs1=Server.Createobject("Adodb.Recordset")
Rs1.open Sql,Conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FLASH修改</title>
<link href="inc/Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="36" bgcolor="#f1f1f1">
<div align="center">修改<%=rs1("flashname")%></div></td>
</tr>
</table>
<p> </p>
<table width="580" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#C1DFDF">
<form name="form1" method="post" action="saveflash.asp?action=edit&id=<%=request("id")%>">
<tr bgcolor="#FFFFFF">
<td width="14%" height="25"> <div align="right">所属类别：</div></td>
<td height="25" colspan="3"> <select name="classid" id="classid">
<%
Set Rsadd=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='0'"
Rsadd.open Sql,Conn,1,3
Do While not Rsadd.Eof
%>
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Class where classid='"&rsadd("id")&"'"
Rs.open Sql,Conn,1,3
Do While not Rs.Eof
%>
<option value="<%=rs("id")%>" <%if rs("name")=rs1("classname") then%>selected<%end if%>><%=rsadd("name")%>>>>——<%=rs("name")%></option>
<%
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
<%
Rsadd.Movenext
Loop
Rsadd.Close
Set Rsadd=nothing
%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> <div align="right">名称：</div></td>
<td height="25" colspan="3"> <input name="flashname" type="text" id="flashname" value="<%=rs1("flashname")%>" size="60">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> <div align="right">地址：</div></td>
<td height="25" colspan="3"> <input name="flashurl" type="text" id="flashurl" value="<%=rs1("flashurl")%>" size="60"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> <div align="right">图片：</div></td>
<td height="25" colspan="3"> <input name="pic" type="text" id="pic" value="<%=rs1("pic")%>" size="60"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"> <div align="right">大小：</div></td>
<td width="18%" height="25"> <input name="size" type="text" id="size" value="<%=rs1("size")%>" size="10"></td>
<td width="26%" height="25">星级： <select name="hot" id="hot">
<option value="1" <%if rs1("hot")="1" then%>selected<%end if%>>1星级</option>
<option value="2" <%if rs1("hot")="2" then%>selected<%end if%>>2星级</option>
<option value="3" <%if rs1("hot")="3" then%>selected<%end if%>>3星级</option>
<option value="4" <%if rs1("hot")="4" then%>selected<%end if%>>4星级</option>
<option value="5" <%if rs1("hot")="5" then%>selected<%end if%>>5星级</option>
</select> </td>
<td width="42%" height="25">是否推荐： <select name="tj" id="hot">
<option value="yes" <%if rs1("tj")="yes" then%>selected<%end if%>>推荐</option>
<option value="no" <%if rs1("tj")="no" then%>selected<%end if%>>不推荐</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26"> <div align="right">作者：</div></td>
<td height="26" colspan="2"> <input name="zz" type="text" id="zz" value="<%=rs1("zz")%>">
</td>
<td height="26">发布人：
<input name="user" type="text" id="user" value="admin" size="10"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22"> <div align="right">歌手：</div></td>
<td height="22" colspan="3"> <input name="geshou" type="text" id="geshou" value="<%=rs1("geshou")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="41"> <div align="right">内容简介：</div></td>
<td colspan="3"> <textarea name="body" cols="60" rows="10" id="textarea"><%=rs1("body")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="40"><div align="right">发布时间：</div></td>
<td colspan="3"><input name="sj" type="text" id="sj" value="<%=rs1("sj")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="31"> </td>
<td colspan="3"><input type="submit" name="Submit" value="确定"></td>
</tr>
</form>
</table>
</body>
</html>
<%
Rs1.Close
Set Rs1=nothing
%>
<%
else
response.write"参数错误"
end if
end if
%>