edit.asp

后台管理系统是用来对后台进行管理的系统可以进行一系列管理活动

<%
if session("login")<>1 then
response.redirect("index.asp")
end if
%>
<!--#include file="adovbs.inc"-->
<!--#include file="conn.asp"-->
<%
function checked(req,reqvalue)
if req=reqvalue then
checked="checked"
else
checked=""
end if
end function
%>
<%
action=request("action")
id=request("id")
set rs=conn.execute("select*from design where id="&cint(id))%>
<table width="600" boder="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<form action="edit.asp?action=modifypost&id=<%=id%>" method="post" name="form1"
onsubmit="return submitcheck()">
<tr bgcolor="#f1f1f1">
<td colspan="2">修改产品/作品信息</td>
</tr> 
<tr bgcolor="#ffffff">
<td>设计标题：</td>
<td><input type="text" name="filename" size="19" value="<%=rs("filename")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td>相关网址：</td>
<td><input type="text" name="url" size="19" value="<%=rs("url")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td>小图地址：</td>
<td><input type="text" name="pic" size="19" value="<%=rs("pic")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td>大图或图片连接地址：</td>
<td><input type="text" name="piclink" size="19" value="<%=rs("piclink")%>"></td>
</tr>
<tr bgcolor="#ffffff">
<td>设计简介：</td>
<td><textarea rows="4" name="content" cols="50" <%=rs("content")%>"></textarea></td>
</tr>
<tr bgcolor="#ffffff">
<td>设计类型：</td>
<td>
<%
set rs1=conn.execute("select*from designtype order by typeid")
do while not rs1.eof
%>
<input name="typeid" tyoe="radio" value="<%=rs1(typeid)%>">
<%=checked(rs("typeid'),rs1(typeid))%>><%=rs1("typename")%>
<%
rs1.movement
loop
rs1.close
%>
</td>
</tr>
<tr bgcolor="#ffffff">
<td>　</td>
<td><input name="submit2" type="submit" value="提交"></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
set conn=nothing
%>
<%
action=request("action")
id=request("id")
if action="modifypost" then
set rs=server.object("adodb.recordset")
sql="select*from design where id="&id
rs.open sql,conn,3,3
rs("filename")=server.htmlencode(request("filename"))
rs("typeid")=server.htmlencode(request("typeid"))
rs("url")=server.htmlencode(request("url"))
rs("pic")=server.htmlencode(request("pic"))
rs("piclink")=server.htmlencode(request("piclink"))
rs("content")=server.htmlencode(request("content"))
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect"show.asp"
end if
%>
<%
action=request("action")
id=request("id")
if action="modifypost" then
'数据库记录更新并且转移到show.asp
else
'显示将被更新的记录的具体内容
end if
%>