每次提交后将取得的用户选择的值保存在SESSION中：
下拉列表改成下面这样：
复制内容到剪贴板
程序代码
程序代码Session("Nclassid") = Trim(Request.Form("Nclassid"))
下拉列表改成下面这样：
复制内容到剪贴板 程序代码
程序代码<select name="Nclassid" onChange="changelocation2(document.yuziform.Nclassid.options[document.yuziform.Nclassid.selectedIndex].value)">
<%
if isNull(Session("Nclassid")) or isEmpty(Session("Nclassid")) then Session("Nclassid") = ""
rs.open "select * from Tbl_Products_nclass " ,conn,1,1
dim selNclassId,strSelected
<%
if isNull(Session("Nclassid")) or isEmpty(Session("Nclassid")) then Session("Nclassid") = ""
rs.open "select * from Tbl_Products_nclass " ,conn,1,1
dim selNclassId,strSelected
<%
dim str,host,url,keyword,full
str="http://"
host = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("PATH_INFO") '或url
keyword = Request.ServerVariables("QUERY_STRING")
if keyword <> "" then
full = str&host&url&"?"&keyword
else
dim str,host,url,keyword,full
str="http://"
host = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("PATH_INFO") '或url
keyword = Request.ServerVariables("QUERY_STRING")
if keyword <> "" then
full = str&host&url&"?"&keyword
else
