📄 editpro.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("sundxshop")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
dim id
id=SafeRequest("id",1)
%>
<title>编辑商品属性</title>
<link href="css.css" rel="stylesheet" type="text/css">
<%
dim count
set rs=server.createobject("adodb.recordset")
rs.open "select * from sorts order by sortsorder ",conn,1,1%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("sorts"))%>","<%= rs("categoryid")%>","<%= rs("sortsid")%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.sortsid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.sortsid.options[document.myform.sortsid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6B8FC8">
<tr>
<td bgcolor="#6B8FC8" align="center"><font color="#FFFFFF">编辑商品属性</font></td>
</tr>
<tr><form name="myform" method="post" action="saveaddpro.asp?action=edit&id=<%=id%>">
<td bgcolor="#FFFFFF">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="5%">选择分类：</td>
<td>
<%
rs.open "select * from category order by categoryorder",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<%dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from produc where id="&id,conn,1,1
%>
<select name="categoryid" size="1" id="categoryid" onChange="changelocation(document.myform.categoryid.options[document.myform.categoryid.selectedIndex].value)">
<option selected value="<%=rs("categoryid")%>"><%=trim(rs("category"))%></option>
<% dim selclass
selclass=rs1("categoryid")
rs.movenext
do while not rs.eof
response.write "<option value="&rs("categoryid")
if rs1("categoryid")=rs("categoryid") then response.write " selected "
response.write ">"&trim(rs("category"))&"</option>"
rs.movenext
loop
end if
rs.close
%>
</select>
小类：
<select name="sortsid">
<%rs.open "select * from sorts where categoryid="&selclass ,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option selected value="<%=rs("sortsid")%>"><%=rs("sorts")%></option>
<% rs.movenext
do while not rs.eof
response.write "<option value="&rs("sortsid")
if rs1("sortsid")=rs("sortsid") then response.write " selected "
response.write ">"&trim(rs("sorts"))&"</option>"
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
</select> <font color="#FF6600"> </font></td>
</tr>
<tr>
<td> <input name="prename" type="text" id="prename" size="12" value="<%=trim(rs1("prename"))%>">
</td>
<td><input name="name" type="text" id="name" size="30" value="<%=trim(rs1("name"))%>"></td>
</tr>
<tr>
<td> <input name="company" type="text" id="company" size="12" value="<%=trim(rs1("company"))%>">
</td>
<td><input name="mark" type="text" id="mark" size="30" value="<%=trim(rs1("mark"))%>">
<%
set rsMark=server.createobject("adodb.recordset")
rsMark.open "select * from Mark order by MarkTop ",conn,1,1
%>
<select name="SelectMark" onChange="(document.myform.mark.value=this.options[this.selectedIndex].value)">
<option selected>请选择类别</option>
<% Do While Not rsMark.Eof %>
<option value="<% = Trim(rsMark("MarkName")) %>"><% = rsMark("MarkName")%></option>
<%
rsMark.movenext
Loop
rsMark.close
set rsMark=nothing
%></select>
</td>
</tr>
<tr>
<td><input name="intro" type="text" id="intro" size="12" value="<%=trim(rs1("intro"))%>">
</td>
<td><input name="introduce" type="text" id="introduce" size="30" value="<%=trim(rs1("introduce"))%>"></td>
</tr>
<tr>
<td> <input name="predate" type="text" id="predate" size="12" value="<%=trim(rs1("predate"))%>">
</td>
<td><select name="productdateyear" id="productdateyear">
<% dim i
for i=2000 to 2010
response.write "<option value="&i
if int(left(rs1("productdate"),4))=i then response.write " selected "
response.write ">"&i&"</option>"
next
%>
</select>
年
<select name="productdatemonth" id="productdatemonth">
<option value="01" <% if int(right(left(rs1("productdate"),7),2))=1 Then Response.write("Selected") %>>1</option>
<option value="02" <% if int(right(left(rs1("productdate"),7),2))=2 Then Response.write("Selected") %>>2</option>
<option value="03" <% if int(right(left(rs1("productdate"),7),2))=3 Then Response.write("Selected") %>>3</option>
<option value="04" <% if int(right(left(rs1("productdate"),7),2))=4 Then Response.write("Selected") %>>4</option>
<option value="05" <% if int(right(left(rs1("productdate"),7),2))=5 Then Response.write("Selected") %>>5</option>
<option value="06" <% if int(right(left(rs1("productdate"),7),2))=6 Then Response.write("Selected") %>>6</option>
<option value="07" <% if int(right(left(rs1("productdate"),7),2))=7 Then Response.write("Selected") %>>7</option>
<option value="08" <% if int(right(left(rs1("productdate"),7),2))=8 Then Response.write("Selected") %>>8</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -