www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/user/product/edit.asp
<!--#include file="../inc/admin.asp"-->
<!--#include file="../inc/conn.asp"-->
<%if Request.QueryString("no")="eshop" then
id=request("id")
title=request("title")
D_type=request("D_type")
pic=request("pic")
pic2=request("pic2")
aa=request("aa")
content=server.htmlencode(Trim(Request("content")))
sContent = ""
For i = 1 To Request.Form("d_content").Count
sContent = sContent & Request.Form("d_content")(i)
Next
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from product where id="&id
rs.open sql,conn,1,3
rs("title")=title
rs("D_type")=D_type
rs("pic")=pic
rs("pic2")=pic2
rs("content")=sContent
rs("aa")=aa
rs.update
rs.close
response.redirect "manage.asp"
end if
%>
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From product where id="&id, conn,1,1
sContent = rs("Content")
D_type=rs("D_type")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "Select * From sortname where id="& D_type, conn,1,1
sname=rs2("sortname")
rs2.close
%>
<html>
<head>
<title>管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Admin_Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<br>
<table width="708" border="0" cellspacing="0" cellpadding="0" class="border">
<tr>
<td height="25" style="background-image: url('../Images/topbg1.gif')"> <div align="center" class="STYLE1">修 改 产 品</div></td>
</tr>
<tr>
<Script Language=JavaScript>
// 表单提交客户端检测
function doSubmit(){
if (document.myform.title.value==""){
alert("类别名称不能为空！");
myform.title.focus();
return false;
}
// getHTML()为eWebEditor自带的接口函数，功能为取编辑区的内容
if (eWebEditor1.getHTML()==""){
alert("请输入产品详细说明！");
return false;
}
document.myform.submit();
}
</Script>
<FORM ACTION="edit.asp?no=eshop" method="post" name="myform">
<input type=hidden name=id value=<%=id%>>
<td><div align="center">
<table width="743" border="0" cellspacing="2" cellpadding="3" class="border">
<tr>
<td width="8%" height="25" bgcolor="#E1F4EE"> <div align="center">类别名称</div></td>
<td width="62%" bgcolor="#E1F4EE"><input type="text" name="title" maxlength="30" size="25" value="<%=rs("title")%>">
<select name="D_type">
<option value="<%=D_type%>"><%=sname%></option>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From sortname order by id desc", conn, 1,1
if not(rs1.eof or rs1.bof) then
do while not rs1.eof
%>
<option value=<%=rs1("id")%>><%=rs1("sortname")%></option>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>
</select></td>
</tr>
<tr>
<td height="25" bgcolor="#E1F4EE"><div align="center">详细内容</div></td>
<td height="25" bgcolor="#E1F4EE"><textarea name="d_content" style="display:none"><%=Server.HtmlEncode(sContent)%></textarea>
<IFRAME ID="eWebEditor1" SRC="../ewebeditor/ewebeditor.asp?id=d_content&style=standard" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME></td>
</tr>
<tr>
<td height="25" colspan="2" bgcolor="#E1F4EE">
<div align="center">
<input type=button name=btnSubmit value=" 提 交 " onClick="doSubmit()"> <input type=reset name=btnReset value=" 重 填 ">
</div></td>
</tr>
</table>
</div></td></form>
</tr>
</table>
<br>
<br>
</td>
</tr>
</table>