public_key.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 112 行

<%
sub book_key()
%>
<input name="Goods_Key" type="text" class="all_box1" id="Goods_Key" value="<%=Goods_Key%>" size="20">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from Key where key_tj=1 order by Keyorder ",conn,1,1
%>
<select name="Shop_Key" class="all_box1" onchange=DoTitle(this.options[this.selectedIndex].value)>
<option selected>全部关键词</option>
<%
while not rs.eof
%>
<option value="<%=rs("Goods_Key")%>"><%=rs("Goods_Key")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<%end sub
sub My_key()
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from Shop_Key where username='"&webmaster&"' order by Keyorder ",conn,1,1
%>
<select name="select3" class="all_box1" onchange=DoTitle(this.options[this.selectedIndex].value)>

<option selected>自定义关键词</option>
<%
while not rs.eof
%>
<option value="<%=rs("Goods_Key")%>"><%=rs("Goods_Key")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<%end sub
sub Brand()
%>
<input name="Brand_Name" type="text" class="all_box1" id="Brand_Name" value="<%=Brand_Name%>" size="20">
<%
set rs_Brand=server.createobject("adodb.recordset")
rs_Brand.open "select * from Shop_Brand where username='"&webmaster&"' order by Brandorder ",conn,1,1
%>
<select name="select" class="all_box1" onChange="(document.myform.Brand_Name.value=this.options[this.selectedIndex].value)">
<option selected>请选择品牌</option>
<%
while not rs_Brand.eof
%>
<option value="<%=rs_Brand("Brand_Name")%>"><%=rs_Brand("Brand_Name")%></option>
<%
rs_Brand.movenext
wend
rs_Brand.close
set rs_Brand=nothing
%>
</select>
<%end sub
sub isbn()
%>
<input name="isbn" type="text" class="all_box1" id="isbn" value="<%=isbnstr%>" size="20">
<%
set rs_xxx=server.createobject("adodb.recordset")
rs_xxx.open "select * from Shop_xxx where username='"&webmaster&"' order by xxxorder ",conn,1,1
%>
<select name="select2" class="all_box1" onChange="(document.myform.isbn.value=this.options[this.selectedIndex].value)">
<option selected>请选择型号</option>
<%
while not rs_xxx.eof
%>
<option value="<%=rs_xxx("xxx_Name")%>"><%=rs_xxx("xxx_Name")%></option>
<%
rs_xxx.movenext
wend
rs_xxx.close
set rs_xxx=nothing
%>
</select>
<%
end sub 
sub bookchuban()
%>

<input name="bookchuban" type="text" class="all_box1" id="bookchuban" value="<%=bookchubanstr%>" size="20" >
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from danwei where username='"&webmaster&"' order by danweiorder ",conn,1,1
%>
<select name="select" class="all_box1" onChange="(document.myform.bookchuban.value=this.options[this.selectedIndex].value)">
<option selected>请选择单位</option>
<%
while not rs.eof
%>
<option value="<%=rs("danweiname")%>"><%=rs("danweiname")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<%end sub%>